Katamari Damacy - In the Making - GameCreators Forum

Author

Message

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 6th Feb 2006 18:20

Link

Well I originally wante dot make a fighter game, but that was too complicated with either AI or Two player, so I thought of a game that was single player and had virtually no AI.

Katamari Damacy!

If you havent played htis game the objective is basically to roll around and collect things the make the katamari (clump/ball) larger to the levels requirements.

For the coding I figured I could make an Item Function database saying that whenever this item collides with katamari, glue item to katamari, make katamari larger by X. Then everything else is as simple as the binary moon tutorial. So far

For modeling, I just finished making a Katamari. I was wondering if DarkBasic can load obj files or lwo files. Can it? If not then my quality goes down which is ok anyways but I'd prefer it to be better.

Also, is there a way I can make my own terrain and tell darkbasic that its the ground, liek a matrix I can roll around on?

That is all. Thanks!

Enemy Lasagna

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 6th Feb 2006 23:42

Link

Can anybody give me the code for the moving Katamari?

I know the Act of making the 3rd person perspective. But how can i get it to rotate while moving with the arrow keys.

Also, can I move diagonally as well?

Enemy Lasagna

Back to top

Profile PM Email

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 7th Feb 2006 20:15

Link

Quote: "For modeling, I just finished making a Katamari. I was wondering if DarkBasic can load obj files or lwo files. Can it? If not then my quality goes down which is ok anyways but I'd prefer it to be better."

nope - Dark basic can only use .x or .3ds files
3DS files are small and you can use more 3ds files than X files in a given amount of space on the hard drive
X Files however are the format which DB prefers, they load much quicker than 3ds files do, and the quality is no worse or better.

Almost all modellers can save in these formats, so conversion shouldn't be a problem.

Quote: "Also, is there a way I can make my own terrain and tell darkbasic that its the ground, liek a matrix I can roll around on?"

as in: make matrix?

Quote: "Also, can I move diagonally as well?"

You're the programmer, that's your decision:
if upkey()=1 and leftkey()=1
would be the condition to check for moving diagonally forward-left if using arrow keys.
if you want to use lettered keys then use keystate(), in the brackets, put the correct key's scancode.
(if you're not sure on scancodes, there's a program that will tell you the scan codes already in DB - run Help\Examples\Input\Exam06.dba, and press the key you want to get the scancode of)

...maybe one day I'll finish a project

Back to top

Profile PM Email

mido

19

Years of Service

User Offline

Joined: 9th Nov 2005

Location:

Posted: 7th Feb 2006 22:59

Link

i think .x models load faster because when i load any .x model i find it very tiny so maybe they are scaled down when they are loaded
i am not sure if this is right

M25

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 9th Feb 2006 01:24

Link

Whenever I subpatch something in lightwave, and then try to load it, dark basic dies on me.

Even if its a DirectX file.

Enemy Lasagna

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 16th Feb 2006 00:17

Link

Hey I've gotten pretty far, in my novice opinion sinc eI just started DB. Since I got some of this code form other people I only get some of it. I need to know a way that I can rotate the camera about the objects axis whenever I press 2 keys. Heres the code.

Sync On
   Sync Rate 30
   Autocam Off
   radius = 5
   Hide Mouse

Load Object "katamari_boo.x",1 :   Position Object 1,0,0,0
   YRotate Object 1,90            :   Fix Object Pivot 1
   Make Mesh from Object 1,1

`Matrix
   Make matrix 1,1000,1000,20,20
	Load image "grass09.bmp",1
	Prepare matrix texture 1,1,1,1
	Fill matrix 1,0,1
   randomize matrix 1,20

`*****************************  MAIN LOOP ********************************
   Do

`*****ARROW KEYS CONTROL ROLLING*****
      If KeyState(31)=1 and KeyState(37)=1
         rot_z# =  Wrapvalue(rot_z# + 10)
         Inc cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If KeyState(33)=1 and KeyState(39)=1
         rot_z# =  Wrapvalue(rot_z# - 10)
         Dec cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If KeyState(18)=1 and KeyState(24)=1
         rot_x# = Wrapvalue(rot_x# + 10)
         Inc cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

If KeyState(46)=1 and KeyState(51)=1
         rot_x# = Wrapvalue(rot_x# - 10)
         Dec cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

`*****MOUSE CONTROLS ROLLING*****
      If Keystate(57)=1 and MouseMoveX() <> 0
         rot_z#= Wrapvalue(rot_z# - MouseMoveX())
         cum_rot_z# = cum_rot_z# - MouseMoveX()
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If Keystate(57)=1 and MouseMoveY() <>0
         rot_x#= Wrapvalue(rot_x# - MouseMoveY())
         cum_rot_x# = cum_rot_x# - Mousemovey()
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

`*****TEXT OUTPUT OF VALUES*****
      posx# = Object Position X(1)
      posz# = Object Position Z(1)
      Set Text Size 10
      Text 10,20,"KATAMARI!!!"
      Text 10,50,"posx#      : "+str$(posx#)
      Text 10,70,"posz#      : "+str$(posz#)
      Text 10,90,"Moves with Mouse or Arrow Keys"

`Camera Stuff

X# = Object position x(1)
	Z# = Object position z(1)
	Y# = Get Ground Height(1,X#,Z#)
	Position object 1,X#,Y#+5,Z#
	CameraZ# = Newzvalue(Z#,AngleY#-180,35)
	CameraX# = Newxvalue(X#,AngleY#-180,35)
	CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
	Position camera CameraX#,CameraY#+50,CameraZ#
	Point camera X#,Y#,Z#

`*****REFRESH THE SCREEN*****
      Sync

Loop
`******************END OF LOOP********************************************

+ Code Snippet

   Sync On
   Sync Rate 30
   Autocam Off
   radius = 5
   Hide Mouse

   Load Object "katamari_boo.x",1 :   Position Object 1,0,0,0
   YRotate Object 1,90            :   Fix Object Pivot 1
   Make Mesh from Object 1,1

	`Matrix
   Make matrix 1,1000,1000,20,20
	Load image "grass09.bmp",1
	Prepare matrix texture 1,1,1,1
	Fill matrix 1,0,1
   randomize matrix 1,20

`*****************************  MAIN LOOP ********************************
   Do

     `*****ARROW KEYS CONTROL ROLLING*****
      If KeyState(31)=1 and KeyState(37)=1
         rot_z# =  Wrapvalue(rot_z# + 10)
         Inc cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If KeyState(33)=1 and KeyState(39)=1
         rot_z# =  Wrapvalue(rot_z# - 10)
         Dec cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If KeyState(18)=1 and KeyState(24)=1
         rot_x# = Wrapvalue(rot_x# + 10)
         Inc cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

      If KeyState(46)=1 and KeyState(51)=1
         rot_x# = Wrapvalue(rot_x# - 10)
         Dec cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

      `*****MOUSE CONTROLS ROLLING*****
      If Keystate(57)=1 and MouseMoveX() <> 0
         rot_z#= Wrapvalue(rot_z# - MouseMoveX())
         cum_rot_z# = cum_rot_z# - MouseMoveX()
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If Keystate(57)=1 and MouseMoveY() <>0
         rot_x#= Wrapvalue(rot_x# - MouseMoveY())
         cum_rot_x# = cum_rot_x# - Mousemovey()
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

      `*****TEXT OUTPUT OF VALUES*****
      posx# = Object Position X(1)
      posz# = Object Position Z(1)
      Set Text Size 10
      Text 10,20,"KATAMARI!!!"
      Text 10,50,"posx#      : "+str$(posx#)
      Text 10,70,"posz#      : "+str$(posz#)
      Text 10,90,"Moves with Mouse or Arrow Keys"

		`Camera Stuff

	X# = Object position x(1)
	Z# = Object position z(1)
	Y# = Get Ground Height(1,X#,Z#)
	Position object 1,X#,Y#+5,Z#
	CameraZ# = Newzvalue(Z#,AngleY#-180,35)
	CameraX# = Newxvalue(X#,AngleY#-180,35)
	CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
	Position camera CameraX#,CameraY#+50,CameraZ#
	Point camera X#,Y#,Z#
   

      `*****REFRESH THE SCREEN*****
      Sync

   Loop
`******************END OF LOOP********************************************

If I cant rotate the camera about my objects y axis then I was thinking I could position it around the object using sin somehow. Havet got that yet. Anyways, how come my computer will allow me to press "e" "o" "f" and ";" but not "e" "o" "s" and "k"?

It beeps and doesnt work.

Help?

Enemy Lasagna

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 17th Feb 2006 18:30

Link

Well this is my triple post. The movement still beeps, I'm not gonna use that though, and I still need camaera help, but can somebody tell me why with all this code

Sync On
   Sync Rate 30
   Autocam Off
   radius = 5
   Hide Mouse

Load Object "katamari_boo.x",1 :   Position Object 1,0,0,0
   YRotate Object 1,90            :   Fix Object Pivot 1
   Make Mesh from Object 1,1

`Matrix
   Make matrix 1,1000,1000,20,20
	Load image "grass.bmp",1
	Prepare matrix texture 1,1,1,1
	Fill matrix 1,0,1
   randomize matrix 1,20

`*****************************  MAIN LOOP ********************************
   Do

`*****ARROW KEYS CONTROL ROLLING*****
      If KeyState(75)=1 and KeyState(37)=1
         rot_z# =  Wrapvalue(rot_z# + 10)
         Inc cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If KeyState(77)=1 and KeyState(39)=1
         rot_z# =  Wrapvalue(rot_z# - 10)
         Dec cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If KeyState(72)=1 and KeyState(24)=1
         rot_x# = Wrapvalue(rot_x# + 10)
         Inc cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

If KeyState(80)=1 and KeyState(52)=1
         rot_x# = Wrapvalue(rot_x# - 10)
         Dec cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

`*****MOUSE CONTROLS ROLLING*****
      If Keystate(57)=1 and MouseMoveX() <> 0
         rot_z#= Wrapvalue(rot_z# - MouseMoveX())
         cum_rot_z# = cum_rot_z# - MouseMoveX()
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

If Keystate(57)=1 and MouseMoveY() <>0
         rot_x#= Wrapvalue(rot_x# - MouseMoveY())
         cum_rot_x# = cum_rot_x# - Mousemovey()
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

`Camera Stuff

X# = Object position x(1)
	Z# = Object position z(1)
	Y# = Get Ground Height(1,X#,Z#)
	Position object 1,X#,Y#+5,Z#
	CameraZ# = Newzvalue(Z#,AngleY#-180,35)
	CameraX# = Newxvalue(X#,AngleY#-180,35)
	CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
	Position camera CameraX#,CameraY#+50,CameraZ#
	Point camera X#,Y#,Z#

`Katamari Restriction
   
	if X#<5 then X#=5
	if Z#<5 then Z#=5
	if X#>495 then X#=495
	if Z#>495 then Z#=495
   
      `*****REFRESH THE SCREEN*****
      Sync

Loop
`******************END OF LOOP********************************************

+ Code Snippet

   Sync On
   Sync Rate 30
   Autocam Off
   radius = 5
   Hide Mouse

   Load Object "katamari_boo.x",1 :   Position Object 1,0,0,0
   YRotate Object 1,90            :   Fix Object Pivot 1
   Make Mesh from Object 1,1

	`Matrix
   Make matrix 1,1000,1000,20,20
	Load image "grass.bmp",1
	Prepare matrix texture 1,1,1,1
	Fill matrix 1,0,1
   randomize matrix 1,20

`*****************************  MAIN LOOP ********************************
   Do

     `*****ARROW KEYS CONTROL ROLLING*****
      If KeyState(75)=1 and KeyState(37)=1
         rot_z# =  Wrapvalue(rot_z# + 10)
         Inc cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If KeyState(77)=1 and KeyState(39)=1
         rot_z# =  Wrapvalue(rot_z# - 10)
         Dec cum_rot_z#,5
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If KeyState(72)=1 and KeyState(24)=1
         rot_x# = Wrapvalue(rot_x# + 10)
         Inc cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

      If KeyState(80)=1 and KeyState(52)=1
         rot_x# = Wrapvalue(rot_x# - 10)
         Dec cum_rot_x#,5
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

      `*****MOUSE CONTROLS ROLLING*****
      If Keystate(57)=1 and MouseMoveX() <> 0
         rot_z#= Wrapvalue(rot_z# - MouseMoveX())
         cum_rot_z# = cum_rot_z# - MouseMoveX()
         trav_x# = cum_rot_z# * .0575 * radius * (-1)
         Position Object 1,trav_x#,0,trav_z#
         ZRotate Object 1,rot_z#
         Fix Object Pivot 1
         rot_z# = 0.0
      Endif

      If Keystate(57)=1 and MouseMoveY() <>0
         rot_x#= Wrapvalue(rot_x# - MouseMoveY())
         cum_rot_x# = cum_rot_x# - Mousemovey()
         trav_z# = cum_rot_x# * .0575 * radius
         Position Object 1,trav_x#,0,trav_z#
         XRotate Object 1,rot_x#
         Fix Object Pivot 1
         rot_x# = 0.0
      Endif

	`Camera Stuff

	X# = Object position x(1)
	Z# = Object position z(1)
	Y# = Get Ground Height(1,X#,Z#)
	Position object 1,X#,Y#+5,Z#
	CameraZ# = Newzvalue(Z#,AngleY#-180,35)
	CameraX# = Newxvalue(X#,AngleY#-180,35)
	CameraY# = Get Ground Height(1,CameraX#,CameraZ#)
	Position camera CameraX#,CameraY#+50,CameraZ#
	Point camera X#,Y#,Z#

	`Katamari Restriction
   
	if X#<5 then X#=5
	if Z#<5 then Z#=5
	if X#>495 then X#=495
	if Z#>495 then Z#=495
   
      `*****REFRESH THE SCREEN*****
      Sync

   Loop
`******************END OF LOOP********************************************

Why is the katamari not restricted?

Quote: "
`Katamari Restriction

if X#<5 then X#=5
if Z#<5 then Z#=5
if X#>495 then X#=495
if Z#>495 then Z#=495
"

That should restrict it.

Enemy Lasagna

Back to top

Profile PM Email

bibz1st

22

Years of Service

User Offline

Joined: 2nd Jan 2003

Location:

Posted: 18th Feb 2006 12:07

Link

Quote: "Why is the katamari not restricted?

Quote: "
`Katamari Restriction

if X#<5 then X#=5
if Z#<5 then Z#=5
if X#>495 then X#=495
if Z#>495 then Z#=495
"

That should restrict it.
"

try this
if X#<5.0 then X#=5.0
if Z#<5.0 then Z#=5.0
if X#>495.0 then X#=495.0
if Z#>495.0 then Z#=495.0

Back to top

Profile PM

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 22nd Feb 2006 23:13

Link

that still didn't work

Enemy Lasagna

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 28th Feb 2006 00:35

Link

Can Somebody Fix this?

Sync On
Sync Rate 30
Autocam Off
Hide Mouse

`/\/\/\/\/Objects\/\/\/\/\

`Sphere
Make Object Sphere 1,5 : Position Object 1,10,0,50

`Katamari   
Load Object "katamari_boo.x",2 : Position Object 2,10,0,10

`Items
For cereal = 3 to 7
	Make object cube cereal,5
	Position Object cereal,Rnd(50),0,Rnd(50)
Next x

`Matrix
Make matrix 1,1000,1000,50,50
Load image "grass.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
Randomize Matrix 1,20

`*****************************  Main Loop ********************************
Do

`/\/\/\/\/Collision\/\/\/\/\

Set Object Collision On 2
Set Object Collision On 3
Set Object Collision On 4
Set Object Collision On 5
Set Object Collision On 6
Set Object Collision On 7

Set Object Collision to Polygons 2
Set Object Collision to Polygons 3
Set Object Collision to Polygons 4
Set Object Collision to Polygons 5
Set Object Collision to Polygons 6
Set Object Collision to Polygons 7

If Object Collision(2,3)>0
	Glue Object to Limb 3,2,1
Endif

If Object Collision(2,4)>0
	Glue Object to Limb 4,2,2
Endif

If Object Collision(2,5)>0
	Glue Object to Limb 5,2,3
Endif

If Object Collision(2,6)>0
	Glue Object to Limb 6,2,4
Endif

If Object Collision(2,7)>0
	Glue Object to Limb 7,2,5
Endif

`/\/\/\/\/Katamari Codes\/\/\/\/\

`Stats
kangX# = Object Angle X(2)
kangY# = Object Angle Y(2)
kangZ# = Object Angle Z(2)

`Restrictions
If posX#<5.0 then posX#=5.0
If posZ#<5.0 then posZ#=5.0
If posX#>995.0 then posX#=995.0
If posZ#>995.0 then posZ#=995.0

`Connecting Objects
`Set Object to Object Orientation 1,2
`Set Object to Camera Orientation 1

`Items

c3posX# = Object Position X(3)
c3posZ# = Object Position Z(3)
c3posY# = Get Ground Height(1,c3posX#,c3posZ#)

c4posX# = Object Position X(4)
c4posZ# = Object Position Z(4)
c4posY# = Get Ground Height(1,c4posX#,c4posZ#)

c5posX# = Object Position X(5)
c5posZ# = Object Position Z(5)
c5posY# = Get Ground Height(1,c5posX#,c5posZ#)

c6posX# = Object Position X(6)
c6posZ# = Object Position Z(6)
c6posY# = Get Ground Height(1,c6posX#,c6posZ#)

c7posX# = Object Position X(7)
c7posZ# = Object Position Z(7)
c7posY# = Get Ground Height(1,c7posX#,c7posZ#)

Position Object 3,c3posX#,c3posY#+2.5,c3posZ#
Position Object 4,c4posX#,c4posY#+2.5,c4posZ#
Position Object 5,c5posX#,c5posY#+2.5,c5posZ#
Position Object 6,c6posX#,c6posY#+2.5,c6posZ#
Position Object 7,c7posX#,c7posY#+2.5,c7posZ#

`/\/\/\/\/Movement With Keys\/\/\/\/\

`Forward with the W key
If Keystate(17)=1
Xrotate Object 2,Wrapvalue(kangX#+15)
Move Object 1,2
Endif

If Keystate(31)=1
Xrotate Object 2,Wrapvalue(kangX#-15)
Move Object 1,-2
Endif

`/\/\/\/\/Mouse Stuff\/\/\/\/\

`Left Rotate
If MousemoveX() < -10
Yrotate Object 2,Wrapvalue(kangY#-4)
Yrotate Object 1,Wrapvalue(angY#-4)
Endif

`Right Rotate
If MousemoveX() > 10
Yrotate Object 2,Wrapvalue(kangY#+4)
Yrotate Object 1,Wrapvalue(angY#+4)
Endif

`/\/\/\/\/Camera Stuff\/\/\/\/\

`Main Objects Variables

posX# = Object Position X(1)
posZ# = Object Position Z(1)
posY# = Get Ground Height(1,posX#,posZ#)

angX# = Object Angle X(1)
angY# = Object Angle Y(1)
angZ# = Object Angle Z(1)

Position Object 1,posX#,posY#+5,posZ#
Position Object 2,posX#,posY#+5,posZ#

`Camera Variables
CamposZ# = Newzvalue(posZ#,Wrapvalue(angY#-180),35)
CamposX# = Newxvalue(posX#,Wrapvalue(angY#-180),35)
CamposY# = Get Ground Height(1,posX#,posZ#)

`Positioning

Position camera CamposX#,CamposY#+35,CamposZ#

`Camera Attention
Point camera posX#,posY#,posZ#

`Refresher
	Sync
Loop
`***************************** End of Loop *********************************

+ Code Snippet

Sync On
Sync Rate 30
Autocam Off
Hide Mouse

`/\/\/\/\/Objects\/\/\/\/\

`Sphere
Make Object Sphere 1,5 : Position Object 1,10,0,50

`Katamari   
Load Object "katamari_boo.x",2 : Position Object 2,10,0,10

`Items
For cereal = 3 to 7
	Make object cube cereal,5
	Position Object cereal,Rnd(50),0,Rnd(50)
Next x

`Matrix
Make matrix 1,1000,1000,50,50
Load image "grass.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1
Randomize Matrix 1,20


`*****************************  Main Loop ********************************
Do

`/\/\/\/\/Collision\/\/\/\/\

Set Object Collision On 2
Set Object Collision On 3
Set Object Collision On 4
Set Object Collision On 5
Set Object Collision On 6
Set Object Collision On 7

Set Object Collision to Polygons 2
Set Object Collision to Polygons 3
Set Object Collision to Polygons 4
Set Object Collision to Polygons 5
Set Object Collision to Polygons 6
Set Object Collision to Polygons 7

If Object Collision(2,3)>0
	Glue Object to Limb 3,2,1
Endif

If Object Collision(2,4)>0
	Glue Object to Limb 4,2,2
Endif

If Object Collision(2,5)>0
	Glue Object to Limb 5,2,3
Endif

If Object Collision(2,6)>0
	Glue Object to Limb 6,2,4
Endif

If Object Collision(2,7)>0
	Glue Object to Limb 7,2,5
Endif



`/\/\/\/\/Katamari Codes\/\/\/\/\

`Stats
kangX# = Object Angle X(2)
kangY# = Object Angle Y(2)
kangZ# = Object Angle Z(2)

`Restrictions
If posX#<5.0 then posX#=5.0
If posZ#<5.0 then posZ#=5.0
If posX#>995.0 then posX#=995.0
If posZ#>995.0 then posZ#=995.0

`Connecting Objects
`Set Object to Object Orientation 1,2
`Set Object to Camera Orientation 1

`Items

c3posX# = Object Position X(3)
c3posZ# = Object Position Z(3)
c3posY# = Get Ground Height(1,c3posX#,c3posZ#)

c4posX# = Object Position X(4)
c4posZ# = Object Position Z(4)
c4posY# = Get Ground Height(1,c4posX#,c4posZ#)

c5posX# = Object Position X(5)
c5posZ# = Object Position Z(5)
c5posY# = Get Ground Height(1,c5posX#,c5posZ#)

c6posX# = Object Position X(6)
c6posZ# = Object Position Z(6)
c6posY# = Get Ground Height(1,c6posX#,c6posZ#)

c7posX# = Object Position X(7)
c7posZ# = Object Position Z(7)
c7posY# = Get Ground Height(1,c7posX#,c7posZ#)

Position Object 3,c3posX#,c3posY#+2.5,c3posZ#
Position Object 4,c4posX#,c4posY#+2.5,c4posZ#
Position Object 5,c5posX#,c5posY#+2.5,c5posZ#
Position Object 6,c6posX#,c6posY#+2.5,c6posZ#
Position Object 7,c7posX#,c7posY#+2.5,c7posZ#



`/\/\/\/\/Movement With Keys\/\/\/\/\

`Forward with the W key
If Keystate(17)=1
Xrotate Object 2,Wrapvalue(kangX#+15)
Move Object 1,2
Endif

If Keystate(31)=1
Xrotate Object 2,Wrapvalue(kangX#-15)
Move Object 1,-2
Endif

`/\/\/\/\/Mouse Stuff\/\/\/\/\

`Left Rotate
If MousemoveX() < -10
Yrotate Object 2,Wrapvalue(kangY#-4)
Yrotate Object 1,Wrapvalue(angY#-4)
Endif

`Right Rotate
If MousemoveX() > 10
Yrotate Object 2,Wrapvalue(kangY#+4)
Yrotate Object 1,Wrapvalue(angY#+4)
Endif

`/\/\/\/\/Camera Stuff\/\/\/\/\

`Main Objects Variables

posX# = Object Position X(1)
posZ# = Object Position Z(1)
posY# = Get Ground Height(1,posX#,posZ#)

angX# = Object Angle X(1)
angY# = Object Angle Y(1)
angZ# = Object Angle Z(1)

Position Object 1,posX#,posY#+5,posZ#
Position Object 2,posX#,posY#+5,posZ#

`Camera Variables
CamposZ# = Newzvalue(posZ#,Wrapvalue(angY#-180),35)
CamposX# = Newxvalue(posX#,Wrapvalue(angY#-180),35)
CamposY# = Get Ground Height(1,posX#,posZ#)

`Positioning

Position camera CamposX#,CamposY#+35,CamposZ#

`Camera Attention
Point camera posX#,posY#,posZ#

`Refresher
	Sync
Loop
`***************************** End of Loop *********************************

Enemy Lasagna

Back to top

Profile PM Email

Spunky sk8er

19

Years of Service

User Offline

Joined: 22nd Feb 2006

Location: Ehm.... no

Posted: 1st Mar 2006 23:46

Link

wow that sounds fun, and since im also new you should tell me if you need any help with anything, on msn [email protected]

I will help however i can this sounds like a really fun project and i would like to participate if you need help so yeah

Back to top

Profile PM Email

Black Cat XIII

19

Years of Service

User Offline

Joined: 23rd Jan 2006

Location:

Posted: 3rd Mar 2006 18:38

Link

Duh I need help, help me make it to where I can rotate the Katamari and move it at the same time.

Enemy Lasagna

Back to top

Profile PM Email

Toby Quan

21

Years of Service

User Offline

Joined: 16th Oct 2003

Location: U S A

Posted: 3rd Mar 2006 22:57

Link

Katamari Damacy may not have lots of AI, but it does have some AI.

And it also has an INCREDIBLE amount of physics involved! Imagine, rotating a ball, moving it, and then also seemlessly rotating all of the other objects around it as the ball moves.

But most importantly, if you stick to a pencil or stick, then the ball becomes uneven. The game has amazing physics that actually move the ball up and over larger obstacles that are stuck to it.

If you are ready for an extremely difficult challenge in physics and programming, I gladly recommend that you continue and try to program Katamari Damacy in Dark Basic!

I certainly would never attempt such an advanced game.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Katamari Damacy - In the Making