Sorry your browser is not supported!

rem make some fluid
phy make fluid emitter 20
phy set fluid viscosity 20, 50
phy set fluid damping 20, 0.5
phy set fluid particle buffer cap 20,5000
phy build fluid 20

rem hardware driven fluid with interactions

rem Init
sync on : sync rate 0 : autocam off
set text font "Verdana"
ink rgb(0,0,0),0

rem preare counters
tmlast as double integer
tmcode as double integer
tmphysics as double integer
tmvisuals as double integer

rem Camera
position camera -6,6,-6 : point camera 0,0,0
color backdrop rgb(220,255,220)
set normalization on : set ambient light 5
set directional light 0,0.1,-0.7,0.4
set camera range 1,3000

rem Goo light
make light 1 : set point light 1,0,1,0
color light 1,-200,200,-200

rem settings
videomode=0

rem Logo sprite
load image "logo.png", 100000 : sprite 1,0,screen height()-60,100000
size sprite 1,screen width(),60

rem SW/HW loop
clear=mousemovex()
clear=mousemovey()
do

rem Setup physics
gosub _physics_init
gosub _physics_setup

phy update 0

rem Main
clear=mousemovex()
clear=mousemovey()
while spacekey()=0
 `
 rem give the CPU some game logic to do (faked)
 tmlast=perftimer()
 for t=1 to 10000 : a#=sqrt(b#/c#/d#/e#/f#/g#) : next t
 if tmdelay=0 then tmcode=perftimer()-tmlast
 `
 rem Spin camera
 inc spin#,0.5
 rem position camera 0+(cos(spin#)*8),5,0+(sin(spin#)*8)
 position camera 0,5,-25
 point camera 0,4,0
 `
 rem prompts
 if videomode=0
  swhw$="HARDWARE"
  if physx()=1
   center text screen width()/2,20,"PHYSX IN "+swhw$+"  OBJECTS:"+str$(objid-1)+"  FPS:"+str$(screen fps())+"  CODE:"+str$(tmcode/1000)+"  PHYSICS:"+str$(tmphysics/1000)+"  VISUALS:"+str$(tmvisuals/1000)
  else
   center text screen width()/2,20,"NO FLUIDS IN SOFTWARE ONLY MODE"
  endif
  center text screen width()/2,40,"PRESS SPACE TO RESET SCENE"
  if inkey$()="v" then videomode=1
 endif
 `
 rem update simulation
 tmlast=perftimer()
 phy update 1
 phy update 0
 if tmdelay=0 then tmphysics=perftimer()-tmlast
 `
 rem visual update
 tmlast=perftimer()
 sync
 if tmdelay=0 then tmvisuals=perftimer()-tmlast
 `
 rem timer handler
 inc tmdelay : if tmdelay>30 then tmdelay=0
 `
endwhile
while spacekey()<>0 : endwhile

rem Prompt
set text size 30
center text screen width()/2,screen height()/2,"RESETTING SCENE" : sync
set text size 12

rem otggle hardware flag
hardwaremode=1-hardwaremode

rem free usages
phy update 1
delete objects 1,objid
phy end

rem SW/HW endloop
loop
end

_physics_init:

 rem No fluid in software
 if physx()=1
  hardwaremode=1
 else
  hardwaremode=0
 endif
 `
 rem Start the Physics Engine in SOFTWARE (fluid automatically uses hardware)
 phy start : phy set skin width 0.02
 `
return

_physics_setup:

rem make some fluid
phy make fluid 2
phy set fluid position 2, -1, 5.5, -1
phy set fluid viscosity 2, 100
phy set fluid damping 2, 0.5
phy set fluid particle buffer cap 2,5000
phy build fluid 2

rem apply a cubemap to the fluid to create a fake reflective tint to it
load image "oilmap-tame.tga",5 : color object 2,rgb(255,255,255)
set sphere mapping on 2,5
set normalization on
set object light 2,0
set object transparency 2,2

rem make material no bounce
nobouncematerial=1
phy make material nobouncematerial, "little bounce"
phy set material restitution nobouncematerial,0.1
phy build material nobouncematerial

rem container dir
set dir "Container"

rem create original cylinder model
objid=3 : load object "cylinder_c.X",objid
load image "cylinder_c_D2.tga",3
texture object objid,3
scale object objid,2.5,2.5,2.5
make mesh from object objid,objid
delete object objid
make object objid,objid,3
hide object objid
cylinderobj=objid


rem load BarrelWithHole.dbo
objid = 1000
load object "BarrelWithHole.dbo", objid
scale object objid,150,150,150
position object objid, -1, 5, -1
phy make rigid body static mesh objid, nobouncematerial

rem restore dir
set dir ".."

rem make a trench system
load image "dbprocubemap.dds",4
inc objid : make object box objid,5,0.1,5 : rotate object objid,1,0,0-30 : set cube mapping on objid,4,4,4,4,4,4
phy make rigid body static box objid,nobouncematerial
inc objid : make object box objid,5,0.1,5 : rotate object objid,1,0,030 : set cube mapping on objid,4,4,4,4,4,4
phy make rigid body static box objid,nobouncematerial
inc objid : make object box objid,5,0.1,5 : rotate object objid,30,90,0 : set cube mapping on objid,4,4,4,4,4,4
phy make rigid body static box objid,nobouncematerial
inc objid : make object box objid,5,0.1,5 : rotate object objid,-30,90,0 : set cube mapping on objid,4,4,4,4,4,4
phy make rigid body static box objid,nobouncematerial

rem create decorative spheres
inc objid : make object sphere objid,5,10,10 : position object objid,0,-2,0 : set cube mapping on objid,4,4,4,4,4,4
phy make rigid body static sphere objid,nobouncematerial
for a=0 to 270 step 90
 inc objid : make object sphere objid,1.25,10,10 : position object objid,cos(45+a)*3,1,sin(45+a)*3 : set cube mapping on objid,4,4,4,4,4,4
 phy make rigid body static sphere objid,nobouncematerial
 inc objid : make object sphere objid,1.25,10,10 : position object objid,cos(45+a)*3,-1,sin(45+a)*3 : set cube mapping on objid,4,4,4,4,4,4
 phy make rigid body static sphere objid,nobouncematerial
next a

rem allow fluid to settle
for settle=0 to 129 : phy update : next settle

rem make cylinders
for c=1 to 10
 inc objid : instance object objid,cylinderobj
 position object objid,(rnd(100)-50)/1000.0,10+(c*3),(rnd(100)-50)/1000.0
 rotate object objid,rnd(360),rnd(360),rnd(360)
 phy make rigid body dynamic box objid,nobouncematerial
 phy set rigid body mass objid,1
next c

return

id = 210
rem make a fluid eimetter
phy make fluid emitter ID
phy set fluid emitter type ID, 2
phy set fluid emitter velocity ID, 200
phy set fluid position ID, 0.0, 2.0, 0.0
phy set fluid acceleration ID, 0, 0, .5
phy set fluid emitter dimensions ID, .01, .01
phy set fluid emitter rate ID, 0.0
phy set fluid emitter random angle ID, 90.0
phy set fluid emitter shape ID, 2

ren this lot comes from the chm files
`phy set emitter position ID, 0.0, 2.0,0.0
`phy set fluid emitter random position ID, 0.0, 2.0,0.0
phy set fluid emitter max particles id,2000
`phy set fluid emitter rest particles per meter
`phy set fluid emitter rest density
`phy set fluid emitter radius multiplier
`phy set fluid emitter packet size multiplier
`phy set fluid emitter stiffness
`phy set fluid emitter viscosity
`phy set fluid emitter damping
`phy set fluid emitter external acceleration
`phy set fluid emitter simulation method
phy set fluid emitter rate ID,4

phy set emitter position ID, 0.0, 2.0, 0.0

phy build fluid ID
texture object id, 1

Rem ***** Main Source File *****
sync on
sync rate 60
get image 1,0,0,100,100,1
color backdrop rgb(64,64,64)
autocam off

position camera 0,0,-15

phy start
make object cylinder 1,.1
rotate object 1,80,0,90
phy make rigid body static box 1

id=2
phy make fluid emitter id
`phy set fluid emitter type id,2
`PHY SET FLUID EMITTER DIMENSIONS id,100.0,100.0
`PHY SET FLUID EMITTER FLAGS id,1
`PHY SET FLUID EMITTER LIFETIME id ,0.001
`PHY SET FLUID EMITTER MAX PARTICLES id,2000
`PHY SET FLUID EMITTER RANDOM ANGLE id,90.0
`PHY SET FLUID EMITTER RANDOM POSITION id,10,10,10
`PHY SET FLUID EMITTER RATE id,2000
`PHY SET FLUID EMITTER SHAPE id ,1
`PHY SET FLUID EMITTER VELOCITY id,1000
phy build fluid id
texture object 2,1


do
control camera using arrowkeys 0,.1,.1
phy update
sync
loop