Subversion Repositories forest

Rem * Title  : The Room Demo
Rem * Author : DBS-LB
Rem * Date   : 1st September 99
rem ********************************************
rem *                   ROOM                   *
rem ********************************************
rem * AUTHOR: Lee Bamber    DATE: 1st Sep 1999 *
rem ********************************************

rem Setup environment
hide mouse
autocam off
sync on

rem Set up Scene
setup_room()

rem Activate forcefeedback
forceactive=setup_forcefeedback()

rem Set up Data
gosub _setupglobals

rem Init player position
a#=90.0
x#=150.0

rem Begin main loop
backdrop off
do

 rem Handle Control Keys
 mainaction=0 : subaction=0
 if upkey()=1 then mainaction=1
 if downkey()=1 then mainaction=2
 if leftkey()=1 then subaction=3 : a#=wrapvalue(a#-6.0)
 if rightkey()=1 then subaction=4 : a#=wrapvalue(a#+6.0)

 rem Handle Control Stick
 if control device y()<-500 then mainaction=1
 if control device y()>500 then mainaction=2
 if control device x()<-300 then subaction=3 : a#=wrapvalue(a#-6.0)
 if control device x()>300 then subaction=4 : a#=wrapvalue(a#+6.0)

 rem Handle Player Position
 s#=handle_player_speed(s#,mainaction)
 if mainaction>=1 and mainaction<=4

   rem Update Player position
   oldx#=x#
   oldz#=z#
   if mainaction=1
      x#=newxvalue(x#,a#,s#)
      z#=newzvalue(z#,a#,s#)
   endif
   if mainaction=2
      x#=newxvalue(x#,a#,s#*-1.0)
      z#=newzvalue(z#,a#,s#*-1.0)
   endif

   rem Make sure player not colliding with room (obj1)
   position object 102,x#,-150,z#
   if object collision(102,5)=1
      position object 102,x#,-150,oldz#
      if object collision(102,5)=0
         z#=oldz#
      else
         position object 102,oldx#,-150,z#
         if object collision(102,5)=0
            x#=oldx#
         else
            x#=oldx#
            z#=oldz#
         endif
      endif
   endif

 endif

 rem Generate ripples when move
 if mainaction>0 or subaction>0 then gosub _make_ripple

 rem Handle Player
 handle_player(x#,z#,a#,mainaction,subaction)
 handle_camera(x#,z#,a#)

 rem Handle Misc Effects
 handle_player_shadow(x#,z#,a#)
 handle_effects()
 gosub _handle_bouncer
 gosub _handle_rainforce
 gosub _handle_face_fading
 gosub _handle_drips
 gosub _handle_facedecals
 gosub _handle_ambience
 gosub _handle_ripple_control

 rem Update screen
 sync

loop

rem Subroutines
_setupglobals:

   dim ripple#(10)
   for r=1 to 10 : ripple#(r)=0.0 : next r

   dim drip(3)
   for d=1 to 3 : drip(d)=0 : next d

return

_handle_bouncer:

   rem scroll variable value
   wh#=wrapvalue(wh#+8.0)

   rem trigger bounce
   position object 102,x#,-300,z#
   col=object collision(21,0)
   if col=102
      by#=3.0+(s#/5.0)
      ix#=(object position x(21)-x#)/((35.0-s#)/1.5)
      iz#=(object position z(21)-z#)/((35.0-s#)/1.5)
      benergy=5
      play sound 3
      set sound volume 3,95-(benergy*2)
   endif
   if col=5
      ba#=wrapvalue(atanfull(bx#,bz#)+180.0)
      is#=sqrt((ix#*ix#)+(iz#*iz#))/1.5
      ix#=sin(ba#)*is#
      iz#=cos(ba#)*is#
      by#=by#+2.0
      benergy=benergy+1
      play sound 3
      vol=95-(benergy*2)
      if vol<1 then vol=0
      if vol>100 then vol=100
      set sound volume 3,vol
   endif

   rem manage bounce
   bx#=object position x(21)
   bz#=object position z(21)
   if benergy>0
      bx#=bx#+ix#
      bz#=bz#+iz#
      ix#=ix#*0.95
      iz#=iz#*0.95
      position object 21,bx#,object position y(21)+by#,bz#
      position object 22,bx#,-280.0,bz#
      position sound 3,bx#,0,bz#
      by#=by#-1.0
      if by#<((benergy*2.0)*-1.0) then by#=((benergy*2.0)*-1.0)
      if object position y(21)<-250.0
         by#=(by#*0.75)*-1.0
         benergy=benergy-1
         play sound 3
         svol=95-(benergy*2)
         if svol<0 then svol=0
         if svol>100 then svol=100
         set sound volume 3,svol
         if benergy=0
            bfloat#=object position y(21)
         endif
      endif
   else
      diff#=((-250+(cos(wh#)*9.0))-bfloat#)/12.0
      bfloat#=bfloat#+diff#
      position object 21,bx#,bfloat#,bz#
      position object 22,bx#,-280.0,bz#
      by#=0.0
   endif

   rem ripple from ball (9)
   r=9
   if ripple#(r)=0.0 and object position y(21)<-210.0
      position object 10+r,bx#,-225,bz#
      texture object 10+r,17
      show object 10+r
      ripple#(r)=1.0
   endif

   rem scale ball based on vertical inertia
   diff#=(by#-boing#)/6.0
   boing#=boing#+diff#
   scale object 21,100,90+(boing#*4.0),100
   scale object 22,90-(boing#*2.0)+(cos(wh#)*9.0),90-(boing#*2.0)+(cos(wh#)*9.0),100
   `
return

_handle_rainforce:

   rem rain force
   dist#=sqrt((x#*x#)+(z#*z#))
   if forceactive=1 and dist#<400
      force angle 10-((9.0/400.0)*dist#),rnd(359),5
   endif

return

_handle_face_fading:

   rem handle wrapping rotation
   sl#=wrapvalue(sl#+16.0)
   rotate object 203,90,0,sl#

   rem handle in-out fading
   if lf=0
      fd=fd+1
      fade object 203,80
      if fd=10 then lf=1
   else
      fd=fd-1
      fade object 203,125
      if fd=0 then lf=0
   endif

   rem twirl force
   dx#=x#-800.0
   dist#=sqrt((dx#*dx#)+(z#*z#))
   if forceactive=1 and dist#<200.0
      str#=((99.0/200.0)*dist#)
      force angle 100-str#,wrapvalue(270.0-sl#),50
      a#=wrapvalue(a#-5.0*(str#/99.0))
   endif

   rem Proximity to face opens door, else closes it
   if dist#<400.0
      position object 36,-1290,object position y(36)+5.0,0
      if object position y(36)>500.0
         position object 36,-1290,500.0,0
         stop sound 4 : chl=0
      else
         if chl=0 then loop sound 4 : set sound speed 4,12000 : chl=1
      endif
   else
      position object 36,-1290,object position y(36)-10.0,0
      if object position y(36)<160.0
         position object 36,-1290,160.0,0
         stop sound 4 : chl=0
      else
         if chl=0 then loop sound 4 : set sound speed 4,15000 : chl=1
      endif
   endif

return

_handle_drips:

   rem loop through all drip elements
   for d=1 to 3
      if drip(d)=0 and rnd(20)=0

         rem start drip
         drip(d)=1
         position object 7+d,-700+rnd(1400),1000,-700+rnd(1400)
         show object 7+d

      else
         if drip(d)=1
            position object 7+d,object position x(7+d),object position y(7+d)-100,object position z(7+d)
            if object position y(7+d)<-300

               rem end drip
               drip(d)=0
               hide object 7+d

               rem ripple from drips (6-8)
               r=5+d
               position object 10+r,object position x(7+d),-225,object position z(7+d)
               texture object 10+r,17
               show object 10+r
               ripple#(r)=1.0

            endif
         endif
      endif
   next d

return

_handle_facedecals:

   rem Point faces towards camera position
   dx#=camera position x()
   dz#=camera position z()
   fa#=wrapvalue(atanfull(dx#,dz#)+180.0)
   yrotate object 7,wrapvalue(fa#)

return

_handle_ambience:

   rem controls strength of shadow
   dist#=sqrt(abs(x#*x#)+abs(z#*z#))
   set ambient light 20+(dist#/40.0)

return

_make_ripple:

   rem spare ripple object?
   r=1 : while ripple#(r)>0 and r<5 : r=r+1 : endwhile
   if r<=5
      oz#=-48.0
      ox#=-70.0
      oz#=oz#+(rnd(2)*50.0)
      ox#=ox#+(rnd(1)*140.0)
      tx#=(cos(a#)*ox#)+(sin(a#)*oz#)
      tz#=(cos(a#)*oz#)-(sin(a#)*ox#)
      rx#=x#+tx#
      rz#=z#+tz#
      position object 10+r,rx#,-225,rz#
      yrotate object 10+r,a#
      texture object 10+r,17
      show object 10+r
      ripple#(r)=1.0
   endif

return

_handle_ripple_control:

   rem loops through all ripple elements
   for r=1 to 10
      if object visible(10+r)=1
         texture object 10+r,16+ripple#(r)
         ripple#(r)=ripple#(r)+0.5
         if ripple#(r)>=4.4
            ripple#(r)=0.0
            hide object 10+r
         endif
      endif

      position object 10+r,object position x(10+r),-250+(cos(wh#)*9.0),object position z(10+r)

   next r

return

rem Functions
function handle_player_speed(speed#,actionmode)

 rem Handle Speed control
 if actionmode=1 or actionmode=2
   speed#=speed#+5.0
   if actionmode=1 and speed#>30.0 then speed#=30.0
   if actionmode=2 and speed#>30.0 then speed#=30.0
 else
   speed#=speed#-5.0
   if speed#<0.0 then speed#=0.0
 endif

endfunction speed#

function handle_player(px#,pz#,pa#,actionmode,subaction)

   rem Handle player animation
   handle_player_anim(actionmode,subaction)

   rem Set Player Position and angle
   position object 101,px#,0,pz#
   yrotate object 101,pa#

   rem Position listener at player
   position listener px#/100.0,0,pz#/100.0
   rotate listener 0,wrapvalue(360.0-pa#),0

   rem Set players collision sphere
   position object 102,px#,-150,pz#

endfunction

function handle_player_anim(actionmode,subactionmode)

   if smoothing=0
      if actionmode>0 or subactionmode>0

         rem Switch to Walk
         if object frame(101)<100 or object frame(101)>115
            start=100
            newanim=2
            smoothing=4
            loop sound 2
            set sound speed 2,8500+rnd(1500)
         endif
         if rnd(4)=0 then set sound speed 2,8500+rnd(1500)

      else

         rem Switch to Idle
         if object frame(101)>25
            start=0
            newanim=1
            smoothing=4
         endif

      endif

      rem Activate smoothing
      if smoothing>0

         rem Begin smoothing transition
         stop object 101
         set object interpolation 101,25
         set object frame 101,start

         rem Duplicate for shadow
         stop object 4
         set object interpolation 4,25
         set object frame 4,start

      endif
   endif

   rem Switch to new animation
   if newanim>0
      if smoothing=0

         rem Trigger New Anim
         if newanim=1 then length=20 : speed=10
         if newanim=2 then length=15 : speed=50

         rem Set Animation
         set object interpolation 101,100
         set object frame 101,start
         loop object 101,start,start+length
         set object speed 101,speed

         rem Duplicate for shadow
         set object interpolation 4,100
         set object frame 4,start
         loop object 4,start,start+length
         set object speed 4,speed

         rem Choose sound
         if newanim=2
            loop sound 2
         else
            play sound 2
            set sound speed 2,8400
         endif

         rem Reset flag
         newanim=0

      else
         smoothing=smoothing-1
      endif
   endif

endfunction

function handle_camera(px#,pz#,pa#)

   rem Calc camera position and angle
   ca#=wrapvalue(pa#+180.0)
   cx#=newxvalue(px#,ca#,scdis#)
   cz#=newzvalue(pz#,ca#,scdis#)

   rem Record camera coords
   oldx#=scx#
   oldz#=scz#

   rem Calc smoothed camera position and angle
   diff#=(scx#-cx#)/6.0
   scx#=scx#-diff#
   diff#=(scz#-cz#)/6.0
   scz#=scz#-diff#
   sca#=curveangle(pa#,sca#,6.0)

   rem Restrict camera if collide with walls
   position object 103,scx#,-50,scz#
   if object collision(103,5)=1
      if object hit(103,5)=1 then cdis#=100.0
      position object 103,scx#,-50,oldz#
      if object collision(103,5)=0
         scx#=oldx#
      else
         position object 103,oldx#,-50,scz#
         if object collision(103,5)=0
            scz#=oldz#
         else
            scx#=oldx#
            scz#=oldz#
         endif
      endif
   else
      if cdis#<500.0
         cdis#=cdis#+50.0
         if cdis#>500.0 then cdis#=500.0
      endif
   endif

   rem Smooth camera distance for next cycle
   diff#=(scdis#-cdis#)/6.0
   scdis#=scdis#-diff#

   rem Set camera
   position camera scx#,-50,scz#
   point camera object position x(101),object position y(101)-100,object position z(101)

endfunction

function handle_effects()

   rem Scroll rain texture
   scroll object texture 2,0,-0.02

   rem Simple rotate of water
   wr#=wrapvalue(wr#+1.0)
   yrotate object 3,wr#
   wh#=wrapvalue(wh#+8.0)
   position object 3,0,-250+(cos(wh#)*9.0),0

endfunction

function handle_player_shadow(px#,pz#,pa#)

   rem Shadow follows player
   position object 4,px#,-280.0,pz#
   yrotate object 4,pa#

endfunction

function setup_forcefeedback()

   rem Check for FF device
   perform checklist for control devices
   if checklist quantity()>0
      for f=1 to checklist quantity()
         if checklist value a(f)=1
            set control device checklist string$(f)
            force water effect 100,0
            forceactive=1
         endif
      next f
   else
      forceactive=0
   endif

endfunction forceactive

function setup_room()

   rem Blacken Scene
   if fog available()=1 then fog on : fog color 0 : fog distance 0
   point camera 0,1000,0
   set ambient light 0

   rem Create bitmaps for room
   load_image("bmp\floor.bmp",1)
   load_image("bmp\roof.bmp",2)
   load_image("bmp\wall1.bmp",3)
   load_image("bmp\wall2.bmp",4)
   load_image("bmp\wall3.bmp",5)
   load_image("bmp\door.bmp",6)
   load_image("bmp\portal.bmp",7)

   rem Create special effects bitmaps
   load_image("bmp\force.bmp",11)
   load_image("bmp\water.bmp",12)
   load_image("bmp\black.bmp",13)
`   load_image("bmp\spray.bmp",14)
`   load_image("bmp\spray.bmp",15)
   load_image("bmp\ripple.bmp",16)
   load_image("bmp\face.bmp",21)
`   load_image("bmp\stattext.bmp",31)
   load_image("bmp\shadow.bmp",32)
   load_image("bmp\logo.bmp",33)

   rem Create room (but hide the gate)
   load object "obj\dome.x",1
   set object collision off 1
   texture limb 1,0,2
   texture limb 1,1,2
   texture limb 1,2,4
   texture limb 1,3,3
   texture limb 1,4,5
   texture limb 1,5,5
   texture limb 1,6,6
   texture limb 1,7,4
   hide limb 1,6
   hide limb 1,8

   rem Reload room (showing only the gate)
   load object "obj\dome.x",200
   set object collision off 200
   set object 200,1,0,0
   hide limb 200,1
   hide limb 200,2
   hide limb 200,3
   hide limb 200,4
   hide limb 200,5
   hide limb 200,7
   texture limb 200,6,6
   hide limb 200,8

   rem Create floor
   make matrix 1,3200.0,2400.0,4,3
   position matrix 1,-2000.0,-290.0,-1200.0
   prepare matrix texture 1,1,2,2
   set matrix tile 1,1,1,3
   set matrix tile 1,3,1,2
   set matrix tile 1,2,1,4
   update matrix 1

   rem Create Shaft of light
   make object cone 2,300
   scale object 2,200,800,200
   position object 2,0,600,0
   texture object 2,11
   set object 2,1,0,0
   ghost object on 2
   set object collision off 2
   if alphablending available()=0 then hide object 2

   rem Create water on floor
   make object plain 3,2900,2900
   xrotate object 3,90
   fix object pivot 3
   texture object 3,12
   ghost object on 3
   set object collision off 3

   rem Create Shadow for player
   load object "obj\scorpidle.x",4
   append object "obj\scorpwalk.x",4,100
   yrotate object 4,180
   fix object pivot 4
   scale object 4,100,1,100
   hide limb 4,1 : hide limb 4,2 : hide limb 4,3
   hide limb 4,5 : hide limb 4,6 : hide limb 4,7
   hide limb 4,12 : hide limb 4,13 : hide limb 4,14
   hide limb 4,15 : hide limb 4,16 : hide limb 4,17
   hide limb 4,18 : hide limb 4,19 : hide limb 4,20
   texture object 4,13
   set object collision off 4

   rem Create collision walls
   make object plain 5,1200,800
   make mesh from object 1,5
   position object 5,0,0,1200
   for w=1 to 7 : add limb 5,w,1 : next w
   w=1 : offset limb 5,w,-800,0,-350 : rotate limb 5,w,0,135,0
   w=2 : offset limb 5,w,800,0,-350 : rotate limb 5,w,0,45,0
   w=3 : offset limb 5,w,-1200,0,-1200 : rotate limb 5,w,0,270,0
   w=4 : offset limb 5,w,1200,0,-1200 : rotate limb 5,w,0,90,0
   w=5 : offset limb 5,w,-800,0,-2050 : rotate limb 5,w,0,45,0
   w=6 : offset limb 5,w,800,0,-2050 : rotate limb 5,w,0,135,0
   w=7 : offset limb 5,w,0,0,-2400 : rotate limb 5,w,0,180,0
   hide object 5

   rem Create Center Spray
   make object cone 6,540
   scale object 6,100,1,100
   position object 6,0,-290,0
   xrotate object 6,180
   color object 6,rgb(235,235,255)
   ghost object on 6
   fade object 6,0
   set object collision off 6

   rem Create Logo
   make object plain 7,400,300
   texture object 7,33
   position object 7,0,230,0
   ghost object on 7
   set object 7,1,0,1
   set object collision off 7

   rem Create drips
   make object cylinder 8,2
   scale object 8,100,1000,100
   ghost object on 8
   hide object 8
   set object collision off 8
   make object cylinder 9,2
   scale object 9,100,1000,100
   ghost object on 9
   hide object 9
   set object collision off 9
   make object cylinder 10,2
   scale object 10,100,1000,100
   ghost object on 10
   hide object 10
   set object collision off 10

   rem Create ripple objects
   for r=1 to 10
      make object plain 10+r,100,100
      xrotate object 10+r,90
      fix object pivot 10+r
      ghost object on 10+r
      set object 10+r,1,0,1
      hide object 10+r
      set object collision off 10+r
   next r

   rem Slightly rescale ball ripple
   scale object 10+9,150,150,100

   rem Create bouncing ball
   make object sphere 21,100
   position object 21,0,0,0
   texture object 21,2

   rem Create ball shadow
   make object plain 22,100,100
   xrotate object 22,90
   fix object pivot 22
   texture object 22,32
   set object 22,1,0,0
   set object collision off 22

   rem Create Effective Door
   make object plain 31,1000,1000
   position object 31,-1400,100,0
   yrotate object 31,90
   texture object 31,3
   fade object 31,0
   set object collision off 31
   make object plain 32,1000,1000
   position object 32,-1320,100,900
   yrotate object 32,100
   texture object 32,3
   set object collision off 32
   make object plain 33,1000,1000
   position object 33,-1320,100,-900
   yrotate object 33,80
   texture object 33,3
   set object collision off 33

   rem Create Door Portal
   make object plain 36,1050,900
   texture object 36,7
   position object 36,-1290,100,0
   set object 36,1,0,0
   yrotate object 36,90
   set object collision off 36

   rem Create Character
   load object "obj\scorpidle.x",101
   append object "obj\scorpwalk.x",101,100
   yrotate object 101,180
   fix object pivot 101
   loop object 101,0,20
   hide limb 101,1
   set object collision off 101

   rem Collision Sphere for Character
   make object sphere 102,300
   scale object 102,100,60,100
   hide object 102

   rem Collision Sphere for Camera
   make object sphere 103,150
   hide object 103

   rem Create spinning face
   make object plain 203,400,400
   position object 203,800,-280,0
   texture object 203,21
   ghost object on 203
   xrotate object 203,90
   set object collision off 203

   rem Create ripple textures
   create bitmap 2,256,64
   paste image 16,0,0
   get image 17,0,0,64,64
   get image 18,64,0,64+64,64
   get image 19,128,0,128+64,64
   get image 20,192,0,192+64,64
   delete bitmap 2

   rem Create bitmap for effects (force)
   create bitmap 2,256,256
   set current bitmap 0

   rem Create Sounds
   load 3dsound "snd\rain.wav",1
   position sound 1,0,10,0
   set sound speed 1,3500
   loop sound 1
   load sound "snd\splash.wav",2 : set sound speed 2,7000 : set sound volume 2,85
   load 3dsound "snd\bang.wav",3 : set sound volume 3,95
   load 3dsound "snd\chain.wav",4 : set sound volume 4,90
   position sound 4,-1200,0,0

   rem Create Fog (show scene)
   if fog available()=1 then fog on : fog color 0 : fog distance 3000
   set ambient light 30

endfunction

function load_image(file$,imagenumber)

   load bitmap file$,1
   width=bitmap width(1)
   height=bitmap height(1)
   get image imagenumber,0,0,width,height
   delete bitmap 1

endfunction