Sorry your browser is not supported!

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

automatic object collision 1,1,0

`set object collision on 1

automatic object collision 2,1,1

`set object collision on 2

DO
               
player()
        
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,20,0 REM EDITED!!!
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"coll:"+str$(coll)
        
        sync
        
LOOP `pardon the pun :)

function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
        if coll<>0
IF object angle x(2) <= -66

move object up 2,1

ENDIF
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
        else
        rotate object 2,0,0,0
        endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global gravityon

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

set global collision on

automatic camera collision 0,1,1
automatic object collision 1,1,0

set object collision on 1

automatic object collision 2,1,1

set object collision on 2

DO

if gravityon=1
gravity#=gravity#+.1
move object 2,1
rotate object 2,0,-180,0
if gravity#>10
gravity#=10
gravityon=0
endif
endif
                 
player()
        
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,20,1 REM EDITED!!!
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
        endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

set global collision on

automatic camera collision 0,1,1
automatic object collision 1,5,0

set object collision on 1

automatic object collision 2,5,1

set object collision on 2

DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

function GoTruckGo()
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,SC_CollisionNormalY()-object anglex(TruckMesh) `this will cause your truck to rotate as it goes around the loop. You may need to tweak it to make it right.
    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

set global collision on

automatic camera collision 0,1,1
automatic object collision 1,5,0

set object collision on 1

automatic object collision 2,5,1

set object collision on 2

for l= 1 to 100
_load_bar(l)
next l

do
GoTruckGo()
    
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop

REMSTART
DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

REMEND

function GoTruckGo()
            REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,sc_getcollisionnormaly()-object angle x(TruckMesh) `this will cause your truck to rotate as it goes around the loop. You may need to tweak it to make it right.
    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(50,50,100),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(100,100,100),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink 0,0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"HellBorn: Wounded Prey Is Loading"
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction

remstart
function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

remend

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

move object down 2,gravity#
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang

REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang

  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,sc_getcollisionnormaly()-object angle x(TruckMesh) `this will cause your truck to rotate as it goes around the loop. You may need to tweak it to make it right.
**  move object TruckMesh,Speed# **** TAKE THIS OUT  *******
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

for l= 1 to 100
_load_bar(l)
next l

do
GoTruckGo()
    
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop

REMSTART
DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

REMEND

function GoTruckGo()
REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
`  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,sc_getcollisionnormaly()-object angle x(TruckMesh) `this will cause your truck to rotate as it goes around the loop. You may need to tweak it to make it right.
    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(50,50,100),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(100,100,100),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink 0,0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"HellBorn: Wounded Prey Is Loading"
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction

remstart
function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

remend

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

for l= 1 to 100
_load_bar(l)
next l

do
GoTruckGo()
    
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop

REMSTART
DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

REMEND

function GoTruckGo()
REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
`  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,cos(sc_getcollisionnormaly())-object angle x(TruckMesh)
    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(255,255,255),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(255,255,255),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink rgb(0,255,0),0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"MonsterTruck test is loading..."
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction

remstart
function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

remend

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

function GoTruckGo()
REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
`*** need to determine the truck's "down vector"  ****
  pitch object down TruckMesh,90
  move object TruckMesh,3.0
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-3.0
  pitch object up TruckMesh,90
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,cos(sc_getcollisionnormaly())-object angle x(TruckMesh)
`    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

`*** need to determine the truck's "down vector"  ****
  pitch object down TruckMesh,90
  move object TruckMesh,3.0
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-3.0
  pitch object up TruckMesh,90

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

for l= 1 to 100
_load_bar(l)
next l

do
GoTruckGo()
    
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop

REMSTART
DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

REMEND

function GoTruckGo()
REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
`  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
`*** need to determine the truck's "down vector"  ****
  pitch object down TruckMesh,90
  move object TruckMesh,3.0
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-3.0
  pitch object up TruckMesh,90
remstart
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,sc_getcollisionnormaly()-object angle x(TruckMesh) `this will cause your truck to rotate as it goes around the loop. You may need to tweak it to make it right.
    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
remend
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(50,50,100),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(100,100,100),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink 0,0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"HellBorn: Wounded Prey Is Loading"
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction

remstart
function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

remend

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

for l= 1 to 100
_load_bar(l)
next l

do
GoTruckGo()
    
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop

REMSTART
DO

if gravityon=1
gravity#=gravity#+.1
rotate camera 0,-180,0
point camera object position x(2),object position y(2),object position z(2)
move object down 2,gravity#
rotate object 2,0,-180,0
cameraon=0
if gravity#>10
gravity#=10
gravityon=0
endif
else
cameraon=1
endif
                 
player()
        
if cameraon
set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
        
LOOP `pardon the pun :)

REMEND

function GoTruckGo()
REM move object down 2,gravity#
        if keystate(17)
          inc Speed#,0.5
        endif
        if keystate(31)
          dec Speed#,0.5
        endif
        if keystate(30)
        turn object left 2,1+1
        endif
        if keystate(32)
        turn object right 2,1+1
        endif
        turn object right 2,camang
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
  move object down TruckMesh,Falling#
  inc Falling#,0.1
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
`*** need to determine the truck's "down vector"  ****
  pitch object down TruckMesh,90
  move object TruckMesh,3.0
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-3.0
  pitch object up TruckMesh,90  
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    x#=T_oldx#
    y#=T_oldy#
    z#=T_oldz#
    pitch object up TruckMesh,cos(sc_getcollisionnormaly())-object angle x(TruckMesh)
`    move object TruckMesh,Speed#
    dec Speed#,0.01 `this symulates friction. you can take it out if you want.
    Falling#=0.0 `trust me you need this here. You may have to change it to dec Falling#,some value to not completely counter gravity....
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(255,255,255),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(255,255,255),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink rgb(0,255,0),0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"MonsterTruck test is loading..."
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction

remstart
function player()
    
move object down 2,gravity#
    
        REM Move player
        if keystate(17)
                move object 2,height/6
                turn object right 2,90
                move object 2,height/45
                turn object left 2,90
        endif
        if keystate(31)
                move object 2,-height/6
                turn object right 2,90
                move object 2,-height/45
                turn object left 2,90
        endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
        pitch object down 2,90
        move object 2,height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-height
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,0)
`        if gravityon=0
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                `make an adjustment to z normal (cheating a bit here to make it work)
                d#=sc_getcollisiondistance()
                `adjust player angle to suit
                point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                `move 'up' to half height above ground
                move object 2,(height/2)-d#
                `re-adjust direction
                pitch object down 2,90
                if ny#<1.0 and nz#<0 then turn object right 2,180
                if ny#<=0.6 and ny#>0
`                rotate object 2,0,90,0
gravityon=1
                endif
        else
        rotate object 2,0,0,0
        endif
 `       endif
        
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
endfunction

remend

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction

  pitch object down TruckMesh,90
  move object TruckMesh,3.0 `***** adjust this number (MUST be positive)  ******
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-3.0 `***** this number MUST be the negative of the other
  pitch object up TruckMesh,90  

  pitch object down TruckMesh,90
  move object TruckMesh,13.0 `***** adjust this number (MUST be positive)  ******
  x#=(x#-object position x(TruckMesh))+T_oldx#
  y#=(y#-object position y(TruckMesh))+T_oldy#
  z#=(z#-object position z(TruckMesh))+T_oldz#
  move object TruckMesh,-13.0 `***** this number MUST be the negative of the other

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
`load object "c:\temp\loop.x",1
load object "loop.dbo",1
yrotate object 1,90
SC_setupObject 1,0,0

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,-100,height/2,-100

REM NEW!!!
global camang as float

`for l= 1 to 100
`_load_bar(l)
`next l
global CameraDistance# as float
global AngleX# as float
global AngleY# as float
CameraDistance#=500
do
RotateCamera()
` position camera object position x(2),object position y(2),object position z(2)
` rotate camera object angle x(2),object angle y(2),object angle z(2)
GoTruckGo()
if cameraon
`set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop
function GoTruckGo()
REM move object down 2,gravity#
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
        	turn object left 2,1+1
        endif
        if rightkey()=1
        	turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
`  move object down TruckMesh,Falling#
`  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
		y#=object angle y(TruckMesh)
		yrotate object TruckMesh,0
	inc gravity#
	position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
  	if sc_getcollisionnormalz()<=0.0 
  		xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
  	else
  		xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360		
  	endif
		yrotate object TruckMesh,y#
	move object TruckMesh,Speed#
    zrotate object TruckMesh,0
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(255,255,255),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(255,255,255),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink rgb(0,255,0),0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"MonsterTruck test is loading..."
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction
function RotateCamera()
	MX# as float
	MX#=MOUSEMOVEX()
	MY# as float
	MY#=MOUSEMOVEY()
	AngleY#=wrapvalue(AngleY#+(MX#/5.0))
	AngleX#=(AngleX#+(MY#/5.0))
	if AngleX#>70.0 then AngleX#=70.0
	if AngleX#<-70.0 then AngleX#=-70.0
	MouseScroll=-mousemovez()
	CameraDistance#=CameraDistance#+MouseScroll
	if CameraDistance#>8000.0 then CameraDistance#=8000.0
	if CameraDistance#<10.0 then CameraDistance#=10.0
	position camera 0,300,0 `the lookat point
	rotate camera AngleX#,AngleY#,0.0
	move camera -CameraDistance#
endfunction

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

color backdrop 0

#Constant Round_FadeIn 0
#Constant Round_Rotate 1
#Constant Round_FadeOut 2

global round as integer = 0
global rotationCounter as integer = 0
global alpha# as float = 0.0
global alphaspeed# as float = 0.2
global speed# as float = 0.2

D3D_StartText
D3D_Make_3DText 3,1,"BLAH",.1,2,1
position object 3,0,0,8
D3D_EndText

hide object 4

set object transparency 3,3

do
    
    Select round
    
        //Fade In
        Case Round_FadeIn
            //Increase the alpha-value
            inc alpha#,alphaspeed#
            set alpha mapping on 3,alpha#
            
            //If faded in: next round
            if alpha#>100.0
                alpha#=100.0
                round = Round_Rotate
            endif
            text 10,10,"Round_FadeIn: " + str$(alpha#) + "% Alpha"
        Endcase
        
        //Rotate
        Case Round_Rotate
            //rotate based on speed#
            yrotate object 3, wrapvalue(object angle y(3) + speed#)
            
            //if rotated nearly 360° increase the counter
            if object angle y(3) >= ((360.0/speed#) - 1.0) * speed#
                Inc rotationCounter
            endif
            
            //after 3 rotations: next round
            if rotationCounter = 3 Then round = Round_FadeOut
            
            text 10,10,"Round_Rotate: " + str$(rotationCounter) + " Rotations"
        Endcase
        
        //Fade out
        Case Round_FadeOut
            //Increase the alpha-value
            dec alpha#,alphaspeed#
            set alpha mapping on 3,alpha#
            
            //If faded in: next round
            if alpha#<0.0
                alpha#=0.0
                exit
            endif
            
            text 10,10,"Round_FadeOut: " + str$(alpha#) + "% Alpha"
        Endcase
    Endselect
    
LOOP

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global Falling# as float
global TruckMesh=2
global loopmesh=1
global Speed# as float

global cameraon
cameraon=1
global gravityon
gravityon=0

global nx#
global ny#
global nz#

global coll
global gravity#=2.5

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
`load object "c:\temp\loop.x",1
load object "loop.dbo",1
yrotate object 1,90
SC_setupObject 1,0,0

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,-100,height/2,-100

REM NEW!!!
global camang as float

`for l= 1 to 100
`_load_bar(l)
`next l
global CameraDistance# as float
global AngleX# as float
global AngleY# as float
CameraDistance#=500
do
set camera to follow object position x(TruckMesh),object position y(TruckMesh),object position z(TruckMesh),0,140,10,1,20
`RotateCamera()
` position camera object position x(2),object position y(2),object position z(2)
` rotate camera object angle x(2),object angle y(2),object angle z(2)
GoTruckGo()
if cameraon
`set camera to follow object position x(2),object position y(2),object position z(2),camang,200,4,10,1 REM EDITED!!!
endif
        
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"nz#:"+str$(nx#)
        text 10,150,"ny#:"+str$(ny#)
        text 10,170,"nz#:"+str$(nz#)
        text 10,190,"coll:"+str$(coll)+":"+"gravity:"+str$(gravity#)
        
        sync
loop
function GoTruckGo()
REM move object down 2,gravity#
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
            turn object left 2,1+1
        endif
        if rightkey()=1
            turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#
`  move object down TruckMesh,Falling#
`  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
        y#=object angle y(TruckMesh)
        yrotate object TruckMesh,0
    inc gravity#
    position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
      if sc_getcollisionnormalz()<=0.0 
          xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
      else
          xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360        
      endif
        yrotate object TruckMesh,y#
    move object TruckMesh,Speed#
    zrotate object TruckMesh,0
  endif
endfunction

Function _load_bar(percent)

   horiz_offset = 0
   vert_offset = 100

   Ink 0,RGB(255,255,255)
   Cls
   Ink RGB(255,255,255),0
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset - 152),(Screen Height()/2 + vert_offset + 16)
   Line (Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset - 17),(Screen Width()/2 + horiz_offset + 151),(Screen Height()/2 + vert_offset + 16)

   Ink RGB(255,255,255),0
   Box (Screen Width()/2 + horiz_offset - 150),(Screen Height()/2 + vert_offset - 15),(Screen Width()/2 + horiz_offset - 150 + (percent*3)),(Screen Height()/2 + vert_offset + 15)

   Ink rgb(0,255,0),0
   Center Text (Screen Width()/2),(Screen Height()/2 - 50),"Please Wait"
   Center Text (Screen Width()/2),(Screen Height()/2 - 35),"MonsterTruck test is loading..."
   Center Text (Screen Width()/2),(Screen Height()/2 + 100),Str$(percent)+"% Loaded..."


   Ink RGB(255,255,255),0

   Sync

EndFunction
function RotateCamera()
    MX# as float
    MX#=MOUSEMOVEX()
    MY# as float
    MY#=MOUSEMOVEY()
    AngleY#=wrapvalue(AngleY#+(MX#/5.0))
    AngleX#=(AngleX#+(MY#/5.0))
    if AngleX#>70.0 then AngleX#=70.0
    if AngleX#<-70.0 then AngleX#=-70.0
    MouseScroll=-mousemovez()
    CameraDistance#=CameraDistance#+MouseScroll
    if CameraDistance#>8000.0 then CameraDistance#=8000.0
    if CameraDistance#<10.0 then CameraDistance#=10.0
    position camera 0,300,0 `the lookat point
    rotate camera AngleX#,AngleY#,0.0
    move camera -CameraDistance#
endfunction

function GoTruckGo()
REM move object down 2,gravity#
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
            turn object left 2,1+1
        endif
        if rightkey()=1
            turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  if Speed2#=0.0 then move object TruckMesh,Speed# else move object TruckMesh,Speed2#
  Speed2#=0.0
`  move object down TruckMesh,Falling#
`  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
        y#=object angle y(TruckMesh)
        yrotate object TruckMesh,0
    inc gravity#
    position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
      if sc_getcollisionnormalz()<=0.0 
          xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
      else
          xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360        
      endif
        yrotate object TruckMesh,y#
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#*2.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide2#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide2#<Speed# then Speed2#=Collide2# `this is so that on the next frame it won't go thru the wall
    move object TruckMesh,-Speed#
    zrotate object TruckMesh,0
  endif
endfunction

function GoTruckGo()
REM move object down 2,gravity#
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
            turn object left 2,1+1
        endif
        if rightkey()=1
            turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  if Speed2#=0.0 then move object TruckMesh,Speed# else move object TruckMesh,Speed2#
  Speed2#=0.0
  move object down TruckMesh,Falling#
  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    Falling#=0.0
        y#=object angle y(TruckMesh)
        yrotate object TruckMesh,0
    inc gravity#
    position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
      if sc_getcollisionnormalz()<=0.0 
          xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
      else
          xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360        
      endif
        yrotate object TruckMesh,y#
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#*2.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide2#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide2#<Speed# then Speed2#=Collide2# `this is so that on the next frame it won't go thru the wall
    move object TruckMesh,-Speed#
    zrotate object TruckMesh,0
  endif
endfunction

function GoTruckGo()
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
            turn object left 2,1+1
        endif
        if rightkey()=1
            turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  if Speed2#=0.0 then move object TruckMesh,Speed# else move object TruckMesh,Speed2#
  Speed2#=0.0
  Position object  TruckMesh, object position x(TruckMesh), object position y(TruckMesh)-Falling#, object position z(TruckMesh)
  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    Falling#=0.0
        y#=object angle y(TruckMesh)
        yrotate object TruckMesh,0
    position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
      if sc_getcollisionnormalz()<=0.0 
          xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
      else
          xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360        
      endif
        yrotate object TruckMesh,y#
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#*2.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide2#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide2#<Speed# then Speed2#=Collide2# `this is so that on the next frame it won't go thru the wall
    move object TruckMesh,-Speed#
    zrotate object TruckMesh,0
  endif
endfunction

function GoTruckGo()
        if upkey()=1
          inc Speed#,0.5
        endif
        if downkey()=1
          dec Speed#,0.5
        endif
        if leftkey()=1
            turn object left 2,1+1
        endif
        if rightkey()=1
            turn object right 2,1+1
        endif
        turn object right 2,0
        
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  if Speed2#=0.0 then move object TruckMesh,Speed# else move object TruckMesh,Speed2#
  Speed2#=0.0
  Position object  TruckMesh, object position x(TruckMesh), object position y(TruckMesh)-Falling#, object position z(TruckMesh)
  inc Falling#,0.1
`*** need to determine the truck's "down vector"  ****
  move object down TruckMesh,50.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide#>0.0
    Falling#=0.0
        y#=object angle y(TruckMesh)
        yrotate object TruckMesh,0
    position object TruckMesh,T_oldx#,T_oldy#,T_oldz#
      if sc_getcollisionnormalz()<=0.0 
          xrotate object TruckMesh,-acos(sc_getcollisionnormaly())
      else
          xrotate object TruckMesh,acos(sc_getcollisionnormaly())+360        
      endif
        yrotate object TruckMesh,y#
  T_oldx#=object position x(TruckMesh)
  T_oldy#=object position y(TruckMesh)
  T_oldz#=object position z(TruckMesh)
  move object TruckMesh,Speed#*2.0
  x#=object position x(TruckMesh)
  y#=object position y(TruckMesh)
  z#=object position z(TruckMesh)
  move object up TruckMesh,50.0
  Collide2#=SC_RayCast(loopmesh,T_oldx#,T_oldy#,T_oldz#,x#,y#,z#,0)
  if Collide2#<Speed# then Speed2#=Collide2# `this is so that on the next frame it won't go thru the wall
    move object TruckMesh,-Speed#
    zrotate object TruckMesh,0
  endif
endfunction