Sorry your browser is not supported!

make object box 3,300,5000,400
load image "E:\advanced tech\Final Game\Images\skyscraper.jpg",3
texture object 3,3
position object 3,400,0,-800
make object collision box 3,250,-2500,-600,550,2500,600,1
set object collision on 3

do
for X = 1 to 100
if object collision(1,(X))
position object 1,object position x(1),object position y(1), object position z(1)
endif
Next X
loop

do
   OldX# = Object Position X( 1 )
   OldY# = Object Position Y( 1 )
   OldZ# = Object Position Z( 1 )

  'Include code for moving your object here...

   for X = 1 to 100
      if object collision( 1, X ) Then position object 1, OldX#, OldY#, OldZ#
   Next X
loop

autocam off
make object box 1,200,20,200
sc_setupobject 1,0,0

make object sphere 2,5
sc_setupobject 2,1,0

position object 1,0,0,0
position object 2,0,300,0


position camera 0,40,0,-1000
do
control camera using arrowkeys 0,0.1,0.1
if spacekey() = 1 then move object down 2,0.01
if sc_objectCollision(2,1)
    text 10,10,"Col"
    position object 2,object position x(2),sc_getCollisionNormalY(),object position z(2)
ENDIF

sc_updateobject 1
sc_updateobject 2
loop 

do
if upkey() then move object 1,5
   OldX# = Object Position X( 1 )
   OldY# = Object Position Y( 1 )
   OldZ# = Object Position Z( 1 )
if downkey() then move object 1,-5
if leftkey() then yrotate object 1, wrapvalue(object angle y(1)-4) : facing# = facing# - 4.5
if rightkey() then yrotate object 1, wrapvalue(object angle y(1)+4) : facing# = facing# + 4.5
set camera to follow object position x(1), object position y(1), object position z(1), facing#, 300, 200, 200, 1
   for X = 1 to 6
      if object collision(1,X) = 1
          position object 1, (OldX#), (OldY#), (OldZ#)
      endif
Next X
loop

make object box 3,300,5000,400
load image "E:\advanced tech\Final Game\Images\skyscraper.jpg",3
texture object 3,3
position object 3,400,0,-800
rem make object collision box 3,250,-2500,-600,550,2500,600,1
set object collision to polygons 3

load object "E:\advanced tech\Final Game\Models\Man\roomdemo.x",1
set object specular 1,0
xrotate object 1,270
fix object pivot 1
rotate object 1,0,180,0
set object speed 1,12
make object collision box 1,-40,0,-40,40,150,40,1
position object 1, 0,50,0
set object collision on 1
position object 1,0,0,0

make object sphere 1, 20 REM make player
set object radius 1, 10 REM set up player collision
make object plane 2, 200, 200, 1 REM make ground
rotate object 2, 90, 90, 0 REM make ground
set object collision to polygons 2 REM set up ground collision
position object 1, 0, 100, 0 REM put player in the air
do
  if object collision (1, 2)=0 then move object down 1, .1  REM make player fall and stop when ground is hit
LOOP

do
if upkey() then move object 1,5
   OldX# = Object Position X( 1 )
   OldY# = Object Position Y( 1 )
   OldZ# = Object Position Z( 1 )
if downkey() then move object 1,-5
if leftkey() then yrotate object 1, wrapvalue(object angle y(1)-4) : facing# = facing# - 4.5
if rightkey() then yrotate object 1, wrapvalue(object angle y(1)+4) : facing# = facing# + 4.5
set camera to follow object position x(1), object position y(1), object position z(1), facing#, 300, 200, 200, 1
   if object collision (1,3) > 0 then position object 1, OldX#, OldY#, OldZ#
loop

load image "E:\advanced tech\Final Game\Images\portal.jpg",4
make object sphere 3,250
position object 3,-100,200,-100
set rainbow shading on 3,4
set object collision to spheres 3
if object collision (1,3) > 1 then goto _winner

load object "E:\advanced tech\Final Game\Models\Man\roomdemo.x",1
set object specular 1,0
xrotate object 1,270
fix object pivot 1
rotate object 1,0,180,0
set object speed 1,12
rem make object collision box 1,-40,0,-40,40,150,40,1
set object collision to polygons 1
position object 1, 200,0,100
set object collision on 1
position object 1,0,0,0

_winner:

cls
print "You win!"
wait key
end

Sync On : Sync rate 60

make object Cube 1, 100.0
position object 1, 450.0, 0.0, 550.0


make object box 3, 300.0, 5000.0, 400.0
load image "./Images/skyscraper.jpg", 3
texture object 3, 3
position object 3, 0.0, 0.0, 0.0


do
   if upkey() then move object 1,5
   if downkey() then move object 1,-5
   if leftkey() then yrotate object 1, wrapvalue(object angle y(1)-4) : facing# = facing# - 4.5
   if rightkey() then yrotate object 1, wrapvalue(object angle y(1)+4) : facing# = facing# + 4.5

   set camera to follow object position x(1), object position y(1), object position z(1), facing#, 300, 200, 25
   if object collision (1,3) >= 1 then end
   Sync
loop
end

do
   if upkey() then move object 1,5
   if downkey() then move object 1,-5
   if leftkey() then yrotate object 1, wrapvalue(object angle y(1)-4) : facing# = facing# - 4.5
   if rightkey() then yrotate object 1, wrapvalue(object angle y(1)+4) : facing# = facing# + 4.5
   set camera to follow object position x(1), object position y(1), object position z(1), facing#, 50, 150, 75, 1
   if object collision (1,3) >= 1 then end
   sync
loop