Sorry your browser is not supported!

REM Project: test
REM Created: 7/1/2008 10:46:00 PM
REM
REM ***** Main Source File *****
REM

autocam off
sync on
sync rate 60

cam = 0
cx = 50
cy = 20
cz = 0
cube = 1
x = 0
y = 5
z = 0
cube2 = 3
x2=0
y2=5
z2=-30

plain = 2



MAKE OBJECT PLAIN plain, 100, 100


ROTATE OBJECT plain, 90, 0, 0

make object cube cube,10

POSITION OBJECT cube, x, y, z

make object cube cube2,10

POSITION OBJECT cube2, x2, y2, z2


`load image "cube_bmp.bmp",1
`load image "floor_texture.bmp",2
`texture object 1,1
`texture object 3,1
`texture object 2,2
position camera cam,cx,cy,cz
point camera 0,0,0




do

if x < 45

if downkey()=1
x=x+1
cx = x + 50
 position object cube,x,y,z
 position camera cam,cx,cy,cz
endif
endif

if x > -45

if upkey()=1
x=x-1
cx = x + 50
 position object cube,x,y,z
 position camera cam,cx,cy,cz
endif
endif

if z > -45

if leftkey()=1
z=z-1
cz = z + 0
 position object cube,x,y,z
 position camera cam,cx,cy,cz
endif
endif

if z < 45

if rightkey()=1
z=z+1
cz = z + 0
 position object cube,x,y,z
 position camera cam,cx,cy,cz
endif
endif


sync
set cursor 0,0
print "cube x: ", x
print "cube y: ", y
print "cube z: ", z
print "cam x: ", cx
print "cam y: ", cy
print "cam z: ", cz
print "mousex: ",mousex()
print "mousey: ",mousey()
print "mousez: ",mousez()
loop

REM Project: FPS Shooter
REM Created: 7/2/2008 9:20:49 PM
REM
REM ***** Main Source File *****
REM
autocam off
sync on
sync rate 60
gosub makeroom
gosub camera
gosub makecube






`main loop

do
movecube()

sync
set cursor 0,0

print "pos x: ", x
print "pos y: ", y
print "pos z: ", z
loop






makeroom:
`make player room
make object plain 1,200,200
rotate object 1,90,0,0
load image "grass.bmp",1
texture object 1,1
return

camera:
 make camera 1
 position camera 1,200,50,0
 point camera 1,0,0,0
 return

makecube:
make object cube 2,20
position object 2,0,10,0
rotate object 2,0,90,0
`set object rotation xyz 2
return

function movecube()
x=int(object position x(2))
y=int(object position y(2))
z=int(object position z(2))

if leftkey()=1
rotate object 2,0,object angle y(2) + -2,0
endif

if rightkey()=1
rotate object 2,0,object angle y(2) - -2,0
endif

if upkey()=1
 move object 2,-2
else if downkey()=1
 move object 2,2
 endif
endif

if x > 89
 x=x-2
 position object 2,x,y,z
endif

if x < -89
 x=x+2
 position object 2,x,y,z
endif

if z > 89
 z=z-2
 position object 2,x,y,z
endif

if z < -89
 z=z+2
 position object 2,x,y,z
endif
endfunction