Sorry your browser is not supported!

`make a simple image
ink rgb(12,135,242),0
box 0,0,40,40
for r = 1 to 250
`dot rnd(40),rnd(40),rgb(rnd(255),rnd(255),rnd(255))
next r
get image 1,0,0,40,40

`the main settings
sync on
sync rate 75
autocam off

`from here >>>>>>>>>>>>
`this is the player object
make object cube 1,15
position object 1,0,190,0
set object collision on 1
`add some graphics
fog on
fog distance 200
set ambient light 100
`make the ground
make object box 3,1400,10,1400
position object 3,0,-5,0
`make arena
for t = 1 to 10
make object box t+1000,20,5,100+t*25
position object t+1000,t*15,t*5,0
set object collision on t+1000
texture object t+1000,1
next t
for t = 1 to 10
make object box t+1100,100+t*25,5,20
position object t+1100,0,t*5,t*15
set object collision on t+1100
texture object t+1100,1
next t
make object box 500,1000,70,100
position object 500,0,0,10*15+70
make object cube 2,15
position object 2,0,190,90
`to here <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< is all optional

`rotate and hide player collision object
`make visual object
xrotate object 1,45
zrotate object 1,45
hide object 1
make object cylinder 60,15
set object collision off 60

`variables
dim jumping(300)
dim start_y#(300)
dim jump_angle#(300)
dim jumpable(300)
dim bullet(300,50)
camy#=20

`main loop
do
`sync
sync
`move player
move_player_with_collision(1,0,yang#)
`get the camera angles
yang#=yang#+mousemovex()*0.3
xang#=xang#+mousemovey()*0.3
if xang# < -15 then xang#= -15
if xang# > 40 then xang# = 40

`get the player object position
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

point object 2,x#,object position y(2),z#
move_aiplayer_with_collision(2,0,object angle y(2),0.3)
position object 60,x#,y#,z#
yrotate object 60,yang#

`position and rotate the camera
set camera to follow x#,y#,z#,yang#,30,camy#+xang#,10,10
point camera x#,y#,z#
`loop
loop

function shoot_bullets(id,action)
if action = 1

endif

if action =0

endif
endfunction
function make_bullets(id,startobj,amount)

for bullet = 1 to amount
if object exist(bullet+startobj)=1
do
sync
print "SYNTAX ERROR"
PRINT "BULLET OBJECT ALREADY EXISTS >> FUNCTION CALL: 'make bullets'"
set cursor 0,0
loop
endif
make object cube bullet+startobj,10
bullet(id,bullet)=1
next bullet
endfunction
function move_aiplayer_with_collision(objectnr,coll,ang#,speed#)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction
function move_player_with_collision(objectnr,coll,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

rem ************

function move_player_with_collision(objectnr,ang#,speed#,jumpr)
`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
       endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
       position object objectnr,x#,y#,z#
        endif
   endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

if jumpr=1
`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

endif
endfunction

function move_aiplayer_with_collision(objectnr,ang#,speed#,jump)

`the angle
objectang#=wrapvalue(ang#)

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#))*speed#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#))*speed#)
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
        yhit=1
      endif
   endif


x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if yhit=1 and jump = 1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 5
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*40.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif

yhit=0


endfunction

function move_player_on(axis$,step#,objectnr)
 objectang#=0
if axis$="x"
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,step#)
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,0)>0
       `put the object back
        position object objectnr,x#,y#,z#
    endif
endif

if axis$="y"
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=x#
   newz#=z#
   newy#=y#+step#
   `position the object
   position object objectnr,newx#,newy#,newz#
   `if hit.. restore..
   if object collision(objectnr,0)>0
       `put the object back
        position object objectnr,x#,y#,z#
    endif
endif

if axis$="z"
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,step#)
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,0)>0
       `put the object back
        position object objectnr,x#,y#,z#
    endif
endif

endfunction

function wsda_player_with_collision(objectnr,colang#)
remstart
sliding collision:

  move on x
  check collision
  if hit.. restore x

  move on z
  check collision
  if hit.. restore z

  jump and gravity.. y
  check collision
  if hit.. restore y, jump = able

remend

`get the walk angle
objectang#=colang#

`get the old positions
yz#=object position y(objectnr)
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if 'w' is pressed
if keystate(17)=1
  `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   `make new positions
   newx#=newxvalue(x#,objectang#,abs(sin(objectang#)))
   newz#=z#
   newy#=y#
   `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
      position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
 `get the old positions
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
 `make new positions
   newx#=x#
   newz#=newzvalue(z#,objectang#,abs(cos(objectang#)))
   newy#=y#
  `position the object
   position object objectnr,newx#,object position y(objectnr),newz#
   `if hit.. restore..
   if object collision(objectnr,coll)>0
    position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`the same is it with all the other directions..

if keystate(31)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+180,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
        position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+180,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(32)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+90,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+90,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif
if keystate(30)=1
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=newxvalue(x#,objectang#+270,1)
   newz#=z#
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
  x#=object position x(objectnr)
  y#=object position y(objectnr)
  z#=object position z(objectnr)
   newx#=x#
   newz#=newzvalue(z#,objectang#+270,1)
   newy#=y#
   position object objectnr,newx#,object position y(objectnr),newz#
   if object collision(objectnr,coll)>0
 position object objectnr,newx#,newy#+3,newz#
       if object collision(objectnr,coll)>0
       `put the object back
        position object objectnr,x#,y#,z#
      endif
   endif
endif

`old pos
x#=object position x(objectnr)
y#=object position y(objectnr)
z#=object position z(objectnr)

`if you are not jumping
if jumping(objectnr) = 0
   `gravity
   start_y#(objectnr) = y# - 2.0
   `if you want.. and may jump
   if spacekey()=1 and jumpable(objectnr) = 1
      `set the variables right
      jumping(objectnr) = 1
      jump_angle#(objectnr) = 0
      start_y#(objectnr) = object position y(objectnr)
      jumpable(objectnr) = 0
   endif
endif

`if you are jumping
if jumping(objectnr) = 1
   `increse jump angle
   jump_angle#(objectnr) = jump_angle#(objectnr) + 2
   `if its 180, then stop jumping
   if jump_angle#(objectnr) => 180 then jumping(objectnr)=0
endif

`position the object
position object objectnr,x#,start_y#(objectnr) + sin(jump_angle#(objectnr))*30.0,z#
  `if hit..
  if object collision(objectnr,coll)>0
      `restore variables
      jumping(objectnr) = 0
      jump_angle#(objectnr) = 0
      jumpable(objectnr) = 1
      `reposition the object
      position object objectnr,x#,yz#,z#
   endif
endfunction

set object collision to polygons 1
set object collision to polygons 2

do

`this will count object 2 as a sphere and object 1 as polygon collision

if object collision(1,2)
Hit=1
else
Hit=0
endif

`this will count object 1 as a sphere and object 2 as polygon collision

if object collision(2,1)
Hit=1
else
Hit=0
endif


loop

rem enable the collision system
enable_ngc()

rem load a level
load_collision_object("map.x" ,1 ,1) 

rem player object
make_collision_cube( 2, 100, 2) 

do
sync.. etc