Sorry your browser is not supported!

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

` This tutorial was created by Yellow -Mike- 2-29-04
` Although not necessary, it would be nice to be credited and
` notified at yellow1dbp@hotmail.com if this was used in a game
` Thanks, and I hope the tutorial helps.

`Basic collision demo

`This command makes a matrix for us. We use this so we can get an idea of depth in our world.
make matrix 1,1000,1000,10,10

`make our two objects, object 1 will be our character, and object 2 will
`be used for collision
make object cube 1,4
make object cube 2,4

`Now we set up the collision for the objects.
set object collision on 1 `Sets the collision on
set object collision on 2

`Since we're using cube's, we want box collision. This builds a box
`around the objects that will detect collision with other objects with collisoin.

set object collision to boxes 1
set object collision to boxes 2

`We next position our objects apart. We'll leave object 1 at its current spot now.
position object 2,0,0,10

do `initilize our loop

 `We only need to follow the z position, because the object only moves
 `back and forth in this demo. Feel free to apply other variables if you'd like.
z1#=object position z(1)

set camera to follow 0,0,z1#,90,10,5,1,1

`Move our object when the up key is pressed.
if upkey()=1 then move object 1,0.2
`Move our object when the down key is pressed.
if downkey()=1 then move object 1,-0.2

`We now use the 'object collision' command so we can tell the compiler what
`to do when the objects collide. In this case, we tell the object to move forward
`the same speed the other object moves. If you wanted, you could rotate the object
`to give it the effect it was rolling. Physics can also be applied, such as acceleration
`and decelleration of the objects. For now, we'll just keep things simple.
if object collision(1,2)=1
 move object 2,0.2
endif


loop `loop back to the do statement

`sync ect.
Sync On : Sync Rate 0
backcolor=rgb(80,20,10)
backdrop on
color backdrop backcolor
cls
Load image "wall.jpg",10

mapsize=512
dim map$(mapsize,mapsize)
maxcubes=16
cubesize=200
collisionstep=int(cubesize/10)

`menu (load game = unfinished
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
If Button(20,135,"Exit")=1 then End
sync
loop

`make objects/texture
New_Game:
cls
Repeat
Text 240,220,"Get Ready to Play";
sync
Until scancode()>0
make object box 1,4,3,5
make object box 2,4,3,20
make matrix 1,200,200,5,5
texture object 2,10

Position Matrix 1,-100,0,-100

movespeed = 75
turnspeed = 87.5
time=timer()

`move keys
Do

gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

`camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


time=timer()


sync
Loop
end


function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

SCALE OBJECT TEXTURE