Sorry your browser is not supported!

Rem Project: Shadow Behind the Leaves
Rem Created: 15/11/2006 17:39:24

Rem ***** Main Source File *****

sync on
sync rate 60
cls

ink rgb(255,0,0), rgb(0,0,0)

hide mouse

inv1# = empty#
inv2# = empty#
inv3# = empty#
empty# = 0
Banana# = 1
Bag# = 2


move# = 1

`banana 1 and 2
make object cube 6,10
make object cube 7,10
position object 6,0,0,0
position object 7,0,0,300

`bag
make object cube 8,20
position object 8,200,0,100


make object box 9,10,100,500
make object box 10,10,100,500
position object 9,300,0,750
position object 10,300,0,0
make object box 11,10,100,150
position object 11,300,0,400


make object cube 1,70
`setupobject 1,0,2
position object 1,0,0,0

make object box 2,1000,1,1000
position object 2,0,-30,-0



make object box 4,70,70,70
position object 4,-200,0,-100
make object box 5,200,200,200
position object 5,-200,0,-100

`ghost object on 5,2
hide object 5

make object box 3,100,100,500

position object 3,0,0,-300
`xrotate object 3,40
CamDis# = -100
Make matrix 1,20000,20000,50,50

SC_SetupObject 3,0,0
SC_SetupObject 4,0,0
SC_SetupObject 2,0,0
SC_SetupObject 9,0,0
SC_SetupObject 10,0,0
SC_SetupObject 11,0,0

set shadow shading on 1,0,300,1
set shadow shading on 2,0,300,1
set shadow shading on 3,0,300,1
set shadow shading on 4,0,300,1
set shadow shading on 9,0,300,1
set shadow shading on 10,0,300,1
set shadow shading on 11,0,300,1
position light 0,1000,1000,1000


open# = 0
talk# = 0
do





`if spacekey()=1 then
x# = object position x (1)
z# = object position z (1)
y# = object position y (1)

`position object 1,x#,y#-3,z#

if upkey()=1 and talk# = 0 then move object 1,6
if downkey()=1 and talk# = 0 then move object 1,-2
if leftkey()=1 and talk# = 0 then turn object left 1,2.5
if rightkey()=1 and talk# = 0 then turn object right 1,2.5

`object position y(1) = object position y(1)-2
`move# = 1
`if object collision (1,2) = 1 then move# = 0
if object collision (1,5) = 1 then text 300,10,"-Talk to-"
if object collision (1,5) = 1 and returnkey()=1 then talk# = 1
if spacekey()=1 then talk# = 0
if talk# = 1 then text 0,10,"Hello Dreamer, how are you today?"


if object collision (1,6) = 1 then text 300,10,"-Pick up-"
if object collision (1,7) = 1 then text 300,10,"-Pick up-"
if object collision (1,8) = 1 then text 300,10,"-Pick up-"

if object collision (1,6) = 1 and returnkey()=1 then inv1# = banana# : hide object 6
if object collision (1,7) = 1 and returnkey()=1 then inv2# = banana# : hide object 7
if object collision (1,8) = 1 and returnkey()=1 then inv3# = bag# : hide object 8


if object collision (1,11) = 1 then text 300,0,"-Open/Close-"
if object collision (1,11) = 1 and returnkey()=1 then yrotate object 11,-70 : SC_SetupObject 11,0,0 : open# = 1


text 50,100,"Inventory"
if inv1# = banana# then text 50,120,"banana"
if inv2# = banana# then text 50,140,"banana"
if inv3# = bag# then text 50,150,"bag"

   `Control Camera
      position camera x#,y#,z#
         `if mouseclick()=1
            xrotate camera camera angle x()-mousemovey()*0.25
            yrotate camera camera angle y()+mousemovex()*0.25
            `yrotate object 1,camera angle y()+mousemovex()*0.25
        ` endif
      if mouseclick()=2 then CamDis#=CamDis#-mousemovey()*0.25
      CamDis#=CamDis#+mousemovez()*0.25
         if camera angle x()>80 then xrotate camera 80
         if camera angle x()<-60 then xrotate camera -60
         `if upkey()=1 then CamDis#=CamDis#+2.5
         `if downkey()=1 then CamDis#=CamDis#-2.5
         if CamDis#>-70 then CamDis#=-70
         if CamDis#<-300 then CamDis#=-300
      move camera CamDis#
      if camera position y()<object position y(1) then position camera camera position x(),object position y(1),camera position z()



ox# = object position x (1)
oz# = object position z (1)
oy# = object position y (1)

   SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,30,1,4)
   SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,30,1,3)
   SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,10,1,2)
    SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,30,1,9)
     SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,30,1,10)
      SlidingCollision(X#,Y#,Z#,oX#,oY#,oZ#,30,1,11)
   `POSITION OBJECT dyn, cx#,y#-1,cz#

sync
loop



function ObjHide(obj)
  if object in screen(obj)=0
     hide object obj
  else
     show object obj
  endif
endfunction




FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

    `X1#-Z1# : The starting XYZ position of the intersection ray
    `X2#-Z2# : The ending XYZ position of the intersection ray
    `Radius# : The radius of the sliding collision sphere, usually you'd set this
    `          to the player's object's z sixe divided by 2. Our cube is 20 units thick,
    `          so we use 10 in the example.
    `Dyn     : The player object
    `Obj     : The map object that we want the player object to slide on

    `Call the sc_SphereSlide command, using our variables.
        `This command will create a mathematical intersection "Ray",
        `this basically means that it'll make a 3D line starting from X1#,Y1#,Z1#,
        `and ending at X2#,Y2#,Z2#. It'll then check if any of the polygons on the
        `map object are inbetween these 2 points, if there is then it'll return a 1,
        `if not, it'll return 0.

        `What Sparky has done for us however is added in a few handy functions
        `that are carried out inside of the SphereSlide command. Basically,
        `once it detects an intersection, it'll get the angle the intersection
        `occured at and using trigonometry (sin, cos and tan), it'll determine
        `the logical position for an object to be if it were to "slide" along
        `the polygon it hit. To make the system even more accurate however,
        `Sparky's dll goes one step further by doing another intersection check on the
        `new mathematical coordinates it just obtained, and checks that there wont be
        `a collision there either. `It'll keep doing this until it reaches it's max
        `iteration or until it finds a free, empty 3d location where the player's object
        `can go. All this for free, sheesh!

    C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

    `Now, sparky's dll will return the 3d position it thinks you should position your
    `player object at AS WELL. These positions are returned using the sc_getCollisionSlideXYZ()
    `commands. Basicaly the next code checks if an intersection occured in the first place
    ` (if C > 0), and if one did, then it retrieves the new XYZ location that the player should be
    `placed at, and then positions the player object there accordingly.
    IF C > 0

        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

        POSITION OBJECT Dyn, cx#, cy#, cz#


    ENDIF

ENDFUNCTION

`This last bit is a requirement of Sparky's dll. Basically, DBP's commands are grouped into plugins themselves.
`Theres a plugin for Camera commands, a plugin for Object commands, a plugin for Network commands, etc.
`However DBP, at the time of writing, includes only the necassary plugins for the program to work. So if you dont use
`and 3D commands, it wont include any 3D plugins. Sparky's dll requires the memblock commands, we haven't used any
`memblock commands yet so DBP wont include the Memblock plugin, which means Sparky's dll will crash. To fix this, we
`just add a DELETE MEMBLOCK 1 command after the function. DBP will never read this code, and so it will never get
`executed, but it will make DBP include the Memblock plugin.

`If you've used a memblock command elsewhere in your project, then you wont need this.
DELETE MEMBLOCK 1

`MAKE/LOAD OBJECT FUNCTIONS
Var:
`Varibles
global talk#
global camdis#
global cam1#
global g#
global gravity#



function player_object(play#,shadowflag#,slope#,radius#)
make object cube play#,70
if shadowflag# = 1 then set shadow shading on play#,0,500,1
setupobject play#,0,2
setupcollision(play#,slope#,radius#,60)
setcollisionon(play#)
endfunction

function player_object_load(file$,play#,shadowflag#,slope#,radius#)
load object file$,play#
if shadowflag# = 1 then set shadow shading on play#,0,500,1
setupobject play#,0,2
setupcollision(play#,slope#,radius#,60)
setcollisionon(play#)
endfunction


function scene_object(file$,scene#,bumpimg#)


load object file$,scene#
set bump mapping on scene#,bumpimg#

endfunction



type collision
   enabled as boolean
   object as integer
   hradius as float
   vradius as float
   checks as integer
   anglesize as float
   slope as float
   oldy as float
   vstate as integer
   vobject as integer
   vslope as float
endtype



`COLLISION FUNCTIONS

function void()
   if memblock exist(1)=1 then delete memblock 1
endfunction

function setupcollisionsystem()
   global dim collision() as collision
endfunction

function destroycollisionsystem()
   undim collision()
endfunction

function setupcollision(object,slope#,radius#,checks)
   array insert at bottom collision(0)
   number=array count(collision(0))
   collision(number).oldy=object position y(object)
   collision(number).object=object
   collision(number).hradius=radius#
   collision(number).vradius=radius#*tan(slope#)
   collision(number).slope=slope#
   collision(number).checks=checks
   collision(number).anglesize=360/checks
endfunction

function destroycollision(object)
   array delete element collision(0),findobject(object)
endfunction

function setcollisionon(object)
   collision(findobject(object)).enabled=1
endfunction

function setcollisionoff(object)
   collision(findobject(object)).enabled=0
endfunction

function getverticalobject(object)
   returnobject=collision(findobject(object)).vobject
endfunction returnobject

function getverticalstate(object)
   onground=collision(findobject(object)).vstate
endfunction onground

function getverticalslope(object)
   slope#=collision(findobject(object)).vslope
endfunction slope#

function updatehorizontalcollision(object)
   number=findobject(object)
   x#=object position x(collision(number).object)
   y#=object position y(collision(number).object)
   z#=object position z(collision(number).object)

   if collision(number).enabled
      cd#=collision(number).hradius*2
      for x=0 to collision(number).checks-1
         a#=x*collision(number).anglesize
         if intersectobject(0,0,x#,y#,z#,newxvalue(x#,a#,collision(number).hradius),y#,newzvalue(z#,a#,collision(number).hradius),0)>0
            d#=getcollisiondistance()
            if d#<cd#
               cd#=d# : ca#=a#
               cx#=getstaticcollisionx()
               cz#=getstaticcollisionz()
            endif
         endif
      next x
      if cd#<collision(number).hradius
         ta#=wrapvalue(ca#-180)
         position object collision(number).object,newxvalue(cx#,ta#,collision(number).hradius),y#,newzvalue(cz#,ta#,collision(number).hradius)
      endif
   endif
endfunction

function updateverticalcollision(object)
   number=findobject(object)
   oy#=collision(number).oldy
   x#=object position x(collision(number).object)
   y#=object position y(collision(number).object)
   z#=object position z(collision(number).object)

   if collision(number).enabled
      if oy#-y#>=0
         if intersectobject(0,0,x#,oy#,z#,x#,y#-collision(number).vradius,z#,0)>0
            cy#=getstaticcollisiony()
            collision(number).vslope=acos(getcollisionnormaly())
            if collision(number).vslope<collision(number).slope
               collision(number).vobject=getobjecthit()
               collision(number).vstate=1
            else
               collision(number).vobject=0
               collision(number).vstate=0
            endif
            position object collision(number).object,x#,cy#+collision(number).vradius,z#
         else
            collision(number).vobject=0
            collision(number).vslope=0
            collision(number).vstate=0
         endif
      else
         if intersectobject(0,0,x#,oy#,z#,x#,y#+collision(number).vradius,z#,0)>0
            cy#=getstaticcollisiony()
            collision(number).vslope=acos(getcollisionnormaly())
            if collision(number).vslope>180-collision(number).slope
               collision(number).vobject=getobjecthit()
               collision(number).vstate=-1
            else
               collision(number).vobject=0
               collision(number).vstate=0
            endif
            position object collision(number).object,x#,cy#-collision(number).vradius,z#
         else
            collision(number).vobject=0
            collision(number).vslope=0
            collision(number).vstate=0
         endif
      endif
   endif

   collision(number).oldy=object position y(collision(number).object)
endfunction

function findobject(object)
   for x=0 to array count(collision(0))
      if collision(x).object=object then number=x
   next x
endfunction number





`this is the function for the collision box
Function CollBox(ob#)
obsx#= Object Size X(ob#): Rem Find the object size X
obsy#= Object Size Y(ob#): Rem Find the object size Y
obsz#= Object Size Z(ob#): Rem Find the object size Z
Make object Collision Box ob#,0-(obsx#/2),0-(obsy#/2),0-(obsz#/2),(obsx#/2),(obsy#/2),(obsz#/2),0
endfunction

`Now that the collision box is made, the function can be put in the main loop
Function SlideColl(pn#) : Rem pn# is PLAYER NUMBER
obx#= Object position x(pn#) : Rem Get the objects X position
oby#= Object position y(pn#) : Rem Get the objects Y position
obz#= Object position z(pn#) : Rem Get the objects Z position
If object collision(pn#,0)>0 : Rem here you may put NOT any objects you dont want collision with
   dec obx#,get object collision x()
   dec oby#,get object collision y()
   dec obz#,get object collision z()
   position object pn#,obx#,oby#,obz#
endif
endfunction



`-----------------------
   `update bloom stuff
   UpDate_Bloom:
   `-----------------------

   `Update bloom camera
      position camera bloom_cam,camera position x(),camera position y(),camera position z()
      rotate camera bloom_cam,camera angle x(),camera angle y(),camera angle z()



   `Update screen object
      dis#=(sh#/2)/tan(fov/2)
      position object bloom_obj+2,camera position x(),camera position y(),camera position z()
      rotate object bloom_obj+2,camera angle x(),camera angle y(),camera angle z()
      move object bloom_obj+2,dis#/400
      move object up bloom_obj+2,0.01
      move object left bloom_obj+2,0.01
      scale object bloom_obj+2,101,101,0

   return
   `-----------------------

   `-----------------------
   `Set up bloom objects and cameras
   SetUp_Bloom:
   `-----------------------

      fov=70
      sw#=screen width()
      sh#=screen height()
      dis#=(sh#/2)/tan(fov/2)
      brightness#=0.13
      blurWidth#=0.0275
      bloom_cam=50
      bloom_img=50
      bloom_obj=50

   `Camera
      set camera range 0.5,100000
      set camera fov fov

   `Screen grabbing Camera
      make camera bloom_cam
      set camera to image bloom_cam,bloom_img,256,256
      set camera range bloom_cam,3,100000
      set camera fov bloom_cam,fov

   `Tone
      make object plain bloom_obj,sw#/100,sh#/100
      load effect "Bloom.fx",bloom_obj,0
      texture object bloom_obj,0,bloom_img
      set object effect bloom_obj,bloom_obj
      position object bloom_obj,0,-10000,dis#/100
      make camera bloom_cam+1
      set camera to image bloom_cam+1,bloom_img+1,256,256
      set camera range bloom_cam+1,1,100
      set camera fov bloom_cam+1,fov
      position camera bloom_cam+1,0,-10000,0

   `Blur X
      make object plain bloom_obj+1,sw#/100,sh#/100
      load effect "Bloom.fx",bloom_obj+1,0
      texture object bloom_obj+1,bloom_img+1
      set object effect bloom_obj+1,bloom_obj+1
      position object bloom_obj+1,500,-10000,dis#/100
      make camera bloom_cam+2
      set camera to image bloom_cam+2,bloom_img+2,256,256
      set camera range bloom_cam+2,1,100
      set camera fov bloom_cam+2,fov
      position camera bloom_cam+2,500,-10000,0

   `Screen object + Blur Y
      make object plain bloom_obj+2,-sw#/(400),sh#/(400)
      load effect "Bloom.fx",bloom_obj+2,0
      texture object bloom_obj+2,0,bloom_img+2
      set object effect bloom_obj+2,bloom_obj+2
      ghost object on bloom_obj+2

   `Set effect data
      set effect technique bloom_obj,"Tone"
      set effect technique bloom_obj+1,"blurpassX"
      set effect technique bloom_obj+2,"blurpassY"
      set effect constant float bloom_obj+1,"Brightness",brightness#
      set effect constant float bloom_obj+1,"blurWidth",blurWidth#
      set effect constant float bloom_obj+2,"Brightness",brightness#
      set effect constant float bloom_obj+2,"blurWidth",blurWidth#

   return
   `-----------------------





      function MakeWater()

         `Globals
            global ObjNum=500
            global ImgNum=500
            global FXNum=500
            global WaterHeight#=-70.0
            global WaterCamY#

         `Setup Refraction Camera
          `  make camera 30
        `    set camera range 30,1,15000
        `    set camera aspect 30,1.325
        `    backdrop off 30
       `     set camera to image 30,ImgNum,256,256 ` set to 256 to speed things up
         `   set camera fov 30,65

         `Setup Reflection Camera
          `  make camera 31
         `   set camera range 31,1,15000
         `   set camera aspect 31,1.325
         `   backdrop off 31
          `  set camera to image 31,ImgNum+1,256,256
          `  set camera fov 31,65

         `Make Water plain
           ` load image "Waves2.dds",ImgNum+2
           ` load image "WaterMask.bmp",ImgNum+3
            make object plain ObjNum,5000,5000
            texture object ObjNum,0,ImgNum+2
           ` texture object ObjNum,1,ImgNum
          `  texture object ObjNum,2,ImgNum+1
          `  texture object ObjNum,3,ImgNum+3
            load effect "Water.fx",FXNum,0
            `set object effect ObjNum,FXNum
            xrotate object ObjNum,270
         `  set object transparency ObjNum,2
         set object specular ObjNum,rgb (10,30,100)
         color object ObjNum,rgb(50,70,255)
            ghost object on ObjNum
          ` set reflection shading on ObjNum
             position object ObjNum,object position x(ObjNum),-70,object position z(ObjNum)

     endfunction
   `------------------

   `------------------
   ` UpDate Water
   `------------------
      function UpDateWater()

         `UpDate Water plain
            position object ObjNum,object position x(ObjNum),WaterHeight#,object position z(ObjNum)
            WaterCamY#=camera position y()-WaterHeight#
            Hide object ObjNum

         `Upade Refract/Reflect cameras
            UpDateRefraction()
            UpDateReflection()

         `Show Water
            show object ObjNum

         `Mask
            sync mask 0x3fffffff

      endfunction
   `------------------

   `------------------
   ` Refraction Update
   `------------------
      function UpDateRefraction()

         `UpDate Refraction camera
           position camera 30,camera position x(),camera position y(),camera position z()
           rotate camera 30,camera angle x(),camera angle y(),camera angle z()

         `Clip Camera
           `set camera clip 30,1,0,WaterHeight#+(5+WaterCamY#/25),0,0,-1,0
           `set camera clip 31,0,0,0,0,0,0,0

         `Only sync Camera 30
            sync mask 0x40000000
            fastsync

      endfunction
   `------------------

   `------------------
   ` Reflection Update
   `------------------
      function UpDateReflection()

         `UpDate Reflection camera
            position camera 31,camera position x(),WaterHeight#-WaterCamY#,camera position z()
            rotate camera 31,-camera angle x(),camera angle y(),camera angle z()

         `Clip Camera
            ClipY#=WaterCamY#
            if ClipY#>100 then ClipY#=100
            `set camera clip 31,1,0,WaterHeight#-(1+(ClipY#/25)),0,0,1,0
            `set camera clip 30,0,0,0,0,0,0,0

         `Only sync Camera 31
            sync mask 0x80000000
            fastsync

      endfunction
   `----------

function control_object(play#,fwdis#,bwdis#,angle#)

cy# = camera angle y()
dy# = object angle y(play#)

if cam1# = 0 then yrotate object 1,cy#
`Switch the Cameras
if inkey$() = "2" then cam1# = 0
if inkey$() = "1" then cam1# = 1

`Movement via the WASD if the character isn't talking and movement dependant on what camera type is enabled
if keystate(17)=1 and talk# = 0 then move object play#,fwdis#
if keystate(31)=1 and talk# = 0 then move object play#,-bwdis#
if keystate(30)=1 and  cam1# = 0 and talk# = 0 then yrotate camera  cy#-angle#
if keystate(32)=1 and  cam1# = 0 and talk# = 0 then yrotate camera cy# +angle#
if keystate(30)=1 and  cam1# = 1 and talk# = 0 then yrotate object  play#,dy#-angle#
if keystate(32)=1 and  cam1# = 1 and talk# = 0 then yrotate object  play#,dy# + angle#

endfunction

function control_camera(play#,speed#)




`RECOMMENDED SPEED = 0.25
position camera object position x(play#),object position y(play#),object position z(play#)

xrotate camera camera angle x()-mousemovey()*speed#
yrotate camera camera angle y()+mousemovex()*speed#

if mouseclick()=2 then CamDis#=CamDis#-mousemovey()*speed#

CamDis#=CamDis#+mousemovez()*0.25
if camera angle x()>80 then xrotate camera 80
if camera angle x()<-60 then xrotate camera -60

if CamDis#>-70 then CamDis#=-70
if CamDis#<-300 then CamDis#=-300
`CamDis# = -300
move camera CamDis#
if camera position y()<object position y(play#) then position camera camera position x(),object position y(play#),camera position z()


endfunction

function updateCollision(play#)

updatehorizontalcollision(play#)
updatehorizontalcollision(play#)
x#=object position x(play#)
y#=object position y(play#)
z#=object position z(play#)


inc g#,gravity#
if getverticalstate(play#)=1 then g#=gravity#
if getverticalstate(play#)=-1 then g#=0

if returnkey()=1 then g#=0-jump#
position object play#,x#,y#-g#,z#

updateverticalcollision(play#)


endfunction

 if intersectobject(0,0,x#,y#,z#,newxvalue(x#,a#,collision(number).hradius),y#,newzvalue(z#,a#,collision(number).hradius),0)>0