Sorry your browser is not supported!

Water_Fall:
Cls
Print "You see a waterfall infront of you it hascolliding particles and looks just like a real waterfall when it gets to the bottom it splashes off of rocks and dampens things around it.
Input "",inputstring$

Rem decide wethr i win by pressing 1 or 2 on ure keyboard

if inputstring$=(1) then goto You_Win
if inputstring$=(2) then goto You_Win


You_Win:
Cls
Print "I have decided must program wins
Print "he gets to pick the next challenge

Rem ***** Main Source File *****
Autocam Off

REM TYPES
Type vectors
   x As Float
   y As Float
   z As Float
endType

Type particleProperties
   pos As vectors
   ang As vectors
   vel As vectors
   size As vectors
endType

Type colorProperties
   r As Float
   g As Float
   b As Float
endType

Type explosionParticle
   num  As Integer
   prop As particleProperties
   fade As Float
   diff As colorProperties
endType

REM SET MAXIMUM DIMS
GLOBAL DIM explode(10, 200) As explosionParticle

imgSmoke = createSmoke(150, 150, 250, 64)

Rem Make Walls
objFloor = freeObject() : Make Object Box objFloor, 10, 1, 10 : Position Object objFloor, 0, 0, 10
Color Object objFloor, Rgb(0, 0, 0)

objCeil = freeObject() : Make Object Box objCeil, 10, 1, 10 : Position Object objCeil, 0, 20, 15
Color Object objCeil, Rgb(0, 0, 250)

objWater = freeObject() : Make Object Plain objWater, 4, 20 : Position Object objWater, 0, 10, 10
Color Object objWater, Rgb(0, 0, 250) : Ghost Object On objWater, 2
Texture Object objWater, imgSmoke

Position Camera 30, 10, 0 : Point Camera 0, 10, 10
ax# = camera angle x() : ay# = camera Angle y()
REM MAIN LOOP
Sync Rate 34 : Sync On
DO
REM MOVE CAMERA
ax# = wrapvalue(ax# + mousemovey())
ay# = wrapvalue(ay# + mousemovex())
rotate camera ax#, ay#, 0.0
if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1

   exp1 = particleExplosion(1, 200, 0, 20, 10, exp1, imgSmoke)

   Scroll Object Texture objWater, 0.0, -0.01

REM INFO
set cursor 0, 0
print "USE MOUSE TO MOVE AROUND"

Sync
Loop

Function particleExplosion(n As Integer, amount As Integer, x As Float, y As Float, z As Float, ctr As Integer, img As Integer)
If explode(n, 0).num = 0
   obj = freeObject()
   For f = obj To obj + amount
      i = f-obj
      explode(n, i).num          = f
      explode(n, i).prop.pos.x   = x
      explode(n, i).prop.pos.y   = y
      explode(n, i).prop.pos.z   = z
      explode(n, i).prop.size.x  = 2.0
      explode(n, i).prop.size.y  = 2.0
      explode(n, i).prop.size.z  = 2.0
      explode(n, i).prop.ang.x   = 0.0
      explode(n, i).prop.ang.y   = 0.0
      explode(n, i).prop.ang.z   = 0.0
         Make Object Plain explode(n, i).num, explode(n, i).prop.size.x, explode(n, i).prop.size.y
         Texture Object explode(n, i).num, img
         Hide Object explode(n, i).num
            Set Object Cull explode(n, i).num, 1
            Set Object Fog explode(n, i).num, 0
            `Set Object Light explode(n, i).num, 0
            Ghost Object On explode(n, i).num, 2
            Set Object Transparency explode(n, i).num, 3
            Disable Object Zwrite explode(n, i).num
            `Set Alpha Mapping On explode(n, i).num, 50
   Next f
EndIf

   For f = 0 To amount
      explode(n, f).prop.size.x = explode(n, f).prop.size.x + 1.5
      explode(n, f).prop.size.y = explode(n, f).prop.size.y + 1.5
      explode(n, f).prop.size.z = explode(n, f).prop.size.z + 1.5
      explode(n, f).prop.pos.x  = explode(n, f).prop.pos.x + explode(n, f).prop.vel.x
      explode(n, f).prop.pos.y  = explode(n, f).prop.pos.y + explode(n, f).prop.vel.y
      explode(n, f).prop.pos.z  = explode(n, f).prop.pos.z + explode(n, f).prop.vel.z
         `Fade particle value
         explode(n, f).fade = explode(n, f).fade - (200 / amount * 2)
         `Diffuse Alter
         If explode(n, f).diff.r =< 250 Then explode(n, f).diff.r = explode(n, f).diff.r + 0.8
         If explode(n, f).diff.g =< 250 Then explode(n, f).diff.g = explode(n, f).diff.g + 0.4
         explode(n, f).diff.b = explode(n, f).diff.b
            `Position, scale and fade particle object
            Position Object explode(n, f).num, explode(n, f).prop.pos.x, explode(n, f).prop.pos.y, explode(n, f).prop.pos.z
            Scale Object explode(n, f).num, explode(n, f).prop.size.x, explode(n, f).prop.size.y, 100
            Set Object Diffuse explode(n, f).num, Rgb(explode(n, f).diff.r, explode(n, f).diff.g, explode(n, f).diff.b)
            `Fade Object explode(n, f).num, explode(n, f).fade
            `Point at camera
            Set Object To Camera Orientation explode(n, f).num
   Next f

Inc ctr
   If ctr > amount Then ctr = 1
      If explode(n, ctr).fade =< 0
         `Position
         explode(n, ctr).prop.pos.x = x + Rnd(4) - 2
         explode(n, ctr).prop.pos.y = y
         explode(n, ctr).prop.pos.z = z
         `Scale
         explode(n, ctr).prop.size.x = 50
         explode(n, ctr).prop.size.y = 50
         explode(n, ctr).prop.size.z = 50
         `Velocity (randomize)
         explode(n, ctr).prop.vel.x = 0.0
         explode(n, ctr).prop.vel.y = -0.1
         explode(n, ctr).prop.vel.z = Rnd(100) / 100000.0 * -1
         `Fade
         explode(n, ctr).fade = 200
         `Color
         explode(n, ctr).diff.r = 50
         explode(n, ctr).diff.g = 50
         explode(n, ctr).diff.b = 0
         `Show the particle
         Show Object explode(n, ctr).num
      endIf

endFunction ctr


Function createSmoke(r As Byte, g As Byte, b As Byte, s As Integer)
Create Bitmap 1, s, s
   Ink Rgb(r, g, b), 0
      For x = 1 To 2000
         ang = Rnd(360) : rad = Rnd((s/2)-5) : Dot (s/2) + (Sin(ang)*rad), (s/2) + (Cos(ang)*rad)
      Next x
Blur Bitmap 1, 4
   img = freeImage() : Get Image img, 0, 0, s, s
Delete Bitmap 1
endFunction img

Function freeObject()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i

Function freeImage()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

`Started: 5/19/08
`Waterfall!!

sync on
sync rate 60

`hide mouse
color backdrop rgb(50,50,50)

`======= Variable Setup ===============

WRate=11
WGravity=4
WDrop=60

WNumImages=10
WMaxSprites=850

Ground=500

SVelocity=3
SDrop=25
SMaxSprites=40

for j=1 to WNumImages
    cls
    ink rgb(rnd(60)+80,rnd(30)+185,rnd(50)+205),0
    for c#=1.0 to 5.0 step 0.2
        circle 5,5,c#
    next c#
    get image j,0,0,10,10,1
next j

ink rgb(240,240,255),0
for c#=1.0 to 2.0 step 0.2
    circle 2,2,c#
next c#
get image 20,0,0,4,4,1


`<<<<<<<<< LOOOOOOOOOOOOOOOOOPPP!!! >>>>>>>>>>>>

do

for j=1 to WRate
    inc WParticleNo
    if WParticleNo>WMaxSprites then WParticleNo=1
    sprite WParticleNo,680,222,rnd(WNumImages-1)+1
    set sprite alpha WParticleNo,150
    rotate sprite WParticleNo,rnd(35)+190
next j
for j=1 to WMaxSprites
    if sprite exist(j)=1
        move sprite j,WGravity
        rotate sprite j,sprite angle(j)-((sprite angle(j)-180)/WDrop)
        if sprite y(j)>Ground
            if Counter=1
                inc SParticleNo
                if SParticleNo>SMaxSprites then SParticleNo=1
                sprite SParticleNo+1000,rnd(110)+540,Ground,20
                rotate sprite SParticleNo+1000,wrapvalue(300+rnd(120))
                set sprite priority SParticleNo+1000,1
            endif
            inc Counter
            if Counter>8 then Counter=1
            delete sprite j
        endif
    endif
next j
for j=1 to SMaxSprites
    if sprite exist(j+1000)=1
        if sprite angle(j+1000)>180
            rotate sprite j+1000,sprite angle(j+1000)-((sprite angle(j+1000)-180)/SDrop)
            else
            rotate sprite j+1000,sprite angle(j+1000)+((180-sprite angle(j+1000))/SDrop)
        endif
        move sprite j+1000,SVelocity
        if sprite y(j+1000)>Ground then delete sprite j+1000
    endif
next j

sync
loop

`<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Rem ***** Main Source File *****
Autocam Off : Color backdrop Rgb(50, 50, 50)
Set Directional Light 0, 0, 1, 0

REM TYPES
Type vectors
   x As Float
   y As Float
   z As Float
endType

Type particleProperties
   pos As vectors
   ang As vectors
   vel As vectors
   size As vectors
endType

Type colorProperties
   r As Float
   g As Float
   b As Float
endType

Type explosionParticle
   num  As Integer
   prop As particleProperties
   fade As Float
   diff As colorProperties
endType

REM SET MAXIMUM DIMS
DIM explode(10, 200) As explosionParticle
DIM splash(10, 200) As explosionParticle

imgSmoke = createSmoke(150, 150, 250, 64)

whiteSmoke = freeImage()
make memblock 1,12+64*64*4
write memblock dword 1,0,64
write memblock dword 1,4,64
write memblock dword 1,8,32
for x=0 to 63
   for y=0 to 63
      pos=12+(x+y*64)*4
      dist#=sqrt( (x-32)^2 + (y-32)^2 )
      if dist#>31
         alpha=0
      else
         alpha=(255-dist#*8)/(1+rnd(0.5))
      endif
      r=rnd(55)
      g=rnd(55)
      b=200+rnd(55)
      write memblock byte 1,pos,b
      write memblock byte 1,pos+1,g
      write memblock byte 1,pos+2,r
      write memblock byte 1,pos+3,alpha
   next y
next x
make image from memblock whiteSmoke,1
Delete memblock 1

Rem Make Walls
objFloor = freeObject() : Make Object Plain objFloor, 1000, 1000 : xRotate Object objFloor, 90
`Make Object Box objFloor, 10, 1, 10 :
Position Object objFloor, 0, 0, 10
Color Object objFloor, Rgb(0, 0, 200)
Set Blend Mapping On objFloor, 1, whiteSmoke, 3, 24
Set Blend Mapping On objFloor, 2, whiteSmoke, 3, 26
Set Blend Mapping On objFloor, 3, whiteSmoke, 3, 4
`Texture Object objFloor, whiteSmoke
Scale Object Texture objFloor, 20, 20
Ghost Object On objFloor, 0
Disable Object zWrite objFloor


objFloor2 = freeObject() : Clone Object objFloor2, objFloor : xRotate Object objFloor2, 90
Position Object objFloor2, 0, -2, 10

objCeil = freeObject() : Make Object Box objCeil, 10, 1, 10 : Position Object objCeil, 0, 20, 15
Color Object objCeil, Rgb(0, 0, 250)

objWater = freeObject() : Make Object Plain objWater, 4, 20 : Position Object objWater, 0, 10, 10
Color Object objWater, Rgb(0, 0, 250) : Ghost Object On objWater, 2
Texture Object objWater, imgSmoke : Disable Object Zwrite objWater

Position Camera 30, 10, 0 : Point Camera 0, 10, 10
ax# = camera angle x() : ay# = camera Angle y()
REM MAIN LOOP
Sync Rate 34 : Sync On
DO
REM MOVE CAMERA
ax# = wrapvalue(ax# + mousemovey())
ay# = wrapvalue(ay# + mousemovex())
rotate camera ax#, ay#, 0.0
if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1

   exp1 = particleExplosion(1, 200, 0, 20, 10, exp1, imgSmoke)
   exp2 = particleSplash(1, 200, 0, 0, 10, exp2, imgSmoke)

   Scroll Object Texture objWater, 0.0, -0.01
   ang# = wrapvalue(ang# + 1)
   Scroll Object Texture objFloor, Sin(ang#)*0.001, Cos(ang#)*0.001
   Scroll Object Texture objFloor2, Sin(ang#)*0.001, Cos(ang#)*-0.001

REM INFO
set cursor 0, 0
print "USE MOUSE TO MOVE AROUND"
Print " TRY LOOKING AT THE WATER CONTACT POINT FROM DIFFERENT ANGLES"
Print " you will see this glow at the contact point"

Sync
Loop

Function particleExplosion(n As Integer, amount As Integer, x As Float, y As Float, z As Float, ctr As Integer, img As Integer)
If explode(n, 0).num = 0
   obj = freeObject()
   For f = obj To obj + amount
      i = f-obj
      explode(n, i).num          = f
      explode(n, i).prop.pos.x   = x
      explode(n, i).prop.pos.y   = y
      explode(n, i).prop.pos.z   = z
      explode(n, i).prop.size.x  = 2.0
      explode(n, i).prop.size.y  = 2.0
      explode(n, i).prop.size.z  = 2.0
      explode(n, i).prop.ang.x   = 0.0
      explode(n, i).prop.ang.y   = 0.0
      explode(n, i).prop.ang.z   = 0.0
         Make Object Plain explode(n, i).num, explode(n, i).prop.size.x, explode(n, i).prop.size.y
         Texture Object explode(n, i).num, img
         Hide Object explode(n, i).num
            Set Object Cull explode(n, i).num, 1
            Set Object Fog explode(n, i).num, 0
            `Set Object Light explode(n, i).num, 0
            Ghost Object On explode(n, i).num, 2
            Set Object Transparency explode(n, i).num, 3
            Disable Object Zwrite explode(n, i).num
            `Set Alpha Mapping On explode(n, i).num, 50
   Next f
EndIf

   For f = 0 To amount
      explode(n, f).prop.size.x = explode(n, f).prop.size.x + 1.5
      explode(n, f).prop.size.y = explode(n, f).prop.size.y + 1.5
      explode(n, f).prop.size.z = explode(n, f).prop.size.z + 1.5
      explode(n, f).prop.pos.x  = explode(n, f).prop.pos.x + explode(n, f).prop.vel.x
      explode(n, f).prop.pos.y  = explode(n, f).prop.pos.y + explode(n, f).prop.vel.y
      explode(n, f).prop.pos.z  = explode(n, f).prop.pos.z + explode(n, f).prop.vel.z
         `Fade particle value
         explode(n, f).fade = explode(n, f).fade - (200 / amount * 2)
         `Diffuse Alter
         If explode(n, f).diff.r =< 250 Then explode(n, f).diff.r = explode(n, f).diff.r + 0.8
         If explode(n, f).diff.g =< 250 Then explode(n, f).diff.g = explode(n, f).diff.g + 0.4
         explode(n, f).diff.b = explode(n, f).diff.b
            `Position, scale and fade particle object
            Position Object explode(n, f).num, explode(n, f).prop.pos.x, explode(n, f).prop.pos.y, explode(n, f).prop.pos.z
            Scale Object explode(n, f).num, explode(n, f).prop.size.x, explode(n, f).prop.size.y, 100
            Set Object Diffuse explode(n, f).num, Rgb(explode(n, f).diff.r, explode(n, f).diff.g, explode(n, f).diff.b)
            `Fade Object explode(n, f).num, explode(n, f).fade
            `Point at camera
            Set Object To Camera Orientation explode(n, f).num
   Next f

Inc ctr
   If ctr > amount Then ctr = 1
      If explode(n, ctr).fade =< 0
         `Position
         explode(n, ctr).prop.pos.x = x + Rnd(4) - 2
         explode(n, ctr).prop.pos.y = y
         explode(n, ctr).prop.pos.z = z
         `Scale
         explode(n, ctr).prop.size.x = 50
         explode(n, ctr).prop.size.y = 50
         explode(n, ctr).prop.size.z = 50
         `Velocity (randomize)
         explode(n, ctr).prop.vel.x = 0.0
         explode(n, ctr).prop.vel.y = -0.1
         explode(n, ctr).prop.vel.z = Rnd(100) / 100000.0 * -1
         `Fade
         explode(n, ctr).fade = 200
         `Color
         explode(n, ctr).diff.r = 50
         explode(n, ctr).diff.g = 50
         explode(n, ctr).diff.b = 0
         `Show the particle
         Show Object explode(n, ctr).num
      endIf

endFunction ctr

Function particleSplash(n As Integer, amount As Integer, x As Float, y As Float, z As Float, ctr As Integer, img As Integer)
If splash(n, 0).num = 0
   obj = freeObject()
   For f = obj To obj + amount
      i = f-obj
      splash(n, i).num          = f
      splash(n, i).prop.pos.x   = x
      splash(n, i).prop.pos.y   = y
      splash(n, i).prop.pos.z   = z
      splash(n, i).prop.size.x  = 2.0
      splash(n, i).prop.size.y  = 2.0
      splash(n, i).prop.size.z  = 2.0
      splash(n, i).prop.ang.x   = 0.0
      splash(n, i).prop.ang.y   = 0.0
      splash(n, i).prop.ang.z   = 0.0
         Make Object Plain splash(n, i).num, splash(n, i).prop.size.x, splash(n, i).prop.size.y
         Texture Object splash(n, i).num, img
         Hide Object splash(n, i).num
            Set Object Cull splash(n, i).num, 1
            Set Object Fog splash(n, i).num, 0
            `Set Object Light splash(n, i).num, 0
            Ghost Object On splash(n, i).num, 2
            Set Object Transparency splash(n, i).num, 3
            Disable Object Zwrite splash(n, i).num
            `Set Alpha Mapping On splash(n, i).num, 50
   Next f
EndIf

   For f = 0 To amount
      splash(n, f).prop.size.x = splash(n, f).prop.size.x + 1.5
      splash(n, f).prop.size.y = splash(n, f).prop.size.y + 1.5
      splash(n, f).prop.size.z = splash(n, f).prop.size.z + 1.5
      splash(n, f).prop.pos.x  = splash(n, f).prop.pos.x + splash(n, f).prop.vel.x
      splash(n, f).prop.pos.y  = splash(n, f).prop.pos.y + splash(n, f).prop.vel.y
      splash(n, f).prop.pos.z  = splash(n, f).prop.pos.z + splash(n, f).prop.vel.z
         `Fade particle value
         splash(n, f).fade = splash(n, f).fade - (200 / amount * 2)
         `Diffuse Alter
         If splash(n, f).diff.r =< 250 Then splash(n, f).diff.r = splash(n, f).diff.r + 0.8
         If splash(n, f).diff.g =< 250 Then splash(n, f).diff.g = splash(n, f).diff.g + 0.4
         splash(n, f).diff.b = splash(n, f).diff.b
            `Position, scale and fade particle object
            Position Object splash(n, f).num, splash(n, f).prop.pos.x, splash(n, f).prop.pos.y, splash(n, f).prop.pos.z
            Scale Object splash(n, f).num, splash(n, f).prop.size.x, splash(n, f).prop.size.y, 100
            Set Object Diffuse splash(n, f).num, Rgb(splash(n, f).diff.r, splash(n, f).diff.g, splash(n, f).diff.b)
            `Fade Object splash(n, f).num, splash(n, f).fade
            `Point at camera
            Set Object To Camera Orientation splash(n, f).num
   Next f

Inc ctr
   If ctr > amount Then ctr = 1
      If splash(n, ctr).fade =< 0
         `Position
         splash(n, ctr).prop.pos.x = x + Rnd(4) - 2
         splash(n, ctr).prop.pos.y = y
         splash(n, ctr).prop.pos.z = z
         `Scale
         splash(n, ctr).prop.size.x = 50
         splash(n, ctr).prop.size.y = 50
         splash(n, ctr).prop.size.z = 50
         `Velocity (randomize)
         splash(n, ctr).prop.vel.x = Rnd(100) / 1000.0 - 0.05
         splash(n, ctr).prop.vel.y = Rnd(100) / 5000.0 - 0.01
         splash(n, ctr).prop.vel.z = Rnd(100) / 1000.0 - 0.05
         `Fade
         splash(n, ctr).fade = 200
         `Color
         splash(n, ctr).diff.r = 50
         splash(n, ctr).diff.g = 50
         splash(n, ctr).diff.b = 0
         `Show the particle
         Show Object splash(n, ctr).num
      endIf

endFunction ctr


Function createSmoke(r As Byte, g As Byte, b As Byte, s As Integer)
Create Bitmap 1, s, s
   Ink Rgb(r, g, b), 0
      For x = 1 To 2000
         ang = Rnd(360) : rad = Rnd((s/2)-5) : Dot (s/2) + (Sin(ang)*rad), (s/2) + (Cos(ang)*rad)
      Next x
Blur Bitmap 1, 4
   img = freeImage() : Get Image img, 0, 0, s, s
Delete Bitmap 1
endFunction img

Function freeObject()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i

Function freeImage()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

Set Display Mode 800,600,16,1
sync on
Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."

	//landscape
	line 0,0,82,125
	line 82,125,135,135
	line 135,135,184,125
	line 184,125,202,202
	line 202,202,168,296
	line 168,296,166,413
	line 166,413,225,482
	line 225,482,370,539
	line 370,539,614,555
	line 614,555,800,565
	Lock Pixels
	fill1(5,50)
	fill2(5,50)
	unlock pixels
	Blur Bitmap 0,3
Get Image 1,0,0,800,600,1

Set Window Title "Water Demo"

Paste Image 1,0,0
sync : sync
wait key
end


function fill1(x,y)
	if point(x,y)=rgb(0,0,0)
	dot x,y,rgb(255,255,255)
	fill1(x-1,y)
	fill1(x,y-1)
	fill1(x+1,y)
	fill1(x,y+1)
	endif
endfunction

function fill2(x,y)
	if point(x,y)=rgb(255,255,255)
	dot x,y,colorV(x,y)
	 fill2(x-1,y)
	 fill2(x,y-1)
	 fill2(x+1,y)
	 fill2(x,y+1)
	endif
endfunction

function colorV(x,y)
col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

`Started: 5/19/08
`Waterfall!!

sync on
sync rate 60

hide mouse
color backdrop rgb(0,0,0)

`======= Variable Setup ===============

#Constant SprayImage 20

WRate=11
WGravity=4
WDrop=60

WNumImages=10
WMaxSprites=850

Ground=500

SVelocity=3
SDrop=25
SMaxSprites=40
SDelay=14

MParticleMaxSprites=70
MDelay=7
MFade=2
MParticleVelocity=3
MistOffset=10

NoMistImages=7

type WaterParticle
    XPos as float
    YPos as float
    Angle as float
    SpriteNum as integer
endtype

DIM WaterParticles(WMaxSprites) as WaterParticle

type MistParticle
    XPos as float
    YPos as float
    Angle as float
    SpriteNum as integer
    AlphaVal as byte
endtype

DIM MistParticles(MParticleMaxSprites) as MistParticle

`======= Media Setup ==================

for j=1 to WNumImages
    cls
    ink rgb(rnd(60)+80,rnd(30)+185,rnd(50)+205),0
    for c#=1.0 to 5.0 step 0.2
        circle 5,5,c#
    next c#
    get image j,0,0,10,10,1
    sprite j,-100,-100,j
    set sprite alpha j,150
next j

cls
ink rgb(240,240,255),0
FilledCircle(2,2,2)
get image SprayImage,0,0,4,4,1

ink rgb(200,200,200),0
for j=1 to NoMistImages
    cls
    for c=1 to 14
        FilledCircle(rnd(10)+5,rnd(10)+5,5)
    next c
    get image j+300,0,0,40,40,1
    TempSpriteNo=j+3000
    sprite TempSpriteNo,-100,-100,j+300
    set sprite alpha TempSpriteNo,100
    offset sprite TempSpriteNo,sprite width(TempSpriteNo)/2,sprite height(TempSpriteNo)/2
next j


`<<<<<<<<< LOOOOOOOOOOOOOOOOOPPP!!! >>>>>>>>>>>>


do

for j=1 to WRate
    inc WParticleNo
    if WParticleNo>WMaxSprites then WParticleNo=1
    WaterParticles(WParticleNo).SpriteNum=rnd(WNumImages-1)+1
    WaterParticles(WParticleNo).Angle=rnd(35)+190
    WaterParticles(WParticleNo).XPos=680
    WaterParticles(WParticleNo).YPos=222
next j
for j=1 to WMaxSprites
    if WaterParticles(j).SpriteNum>0
        XMovement#=WGravity*sin(WaterParticles(j).Angle)
        YMovement#=WGravity*cos(WaterParticles(j).Angle)
        WaterParticles(j).Angle=WaterParticles(j).Angle-(WaterParticles(j).Angle-180)/WDrop
        rotate sprite WaterParticles(j).SpriteNum,WaterParticles(j).Angle
        inc WaterParticles(j).XPos,XMovement#
        dec WaterParticles(j).YPos,YMovement#
        paste sprite WaterParticles(j).SpriteNum,WaterParticles(j).XPos,WaterParticles(j).YPos
        if WaterParticles(j).YPos>Ground
            WaterParticles(j).SpriteNum=0
            if SCounter=1
                inc SParticleNo
                if SParticleNo>SMaxSprites then SParticleNo=1
                sprite SParticleNo+1000,rnd(110)+540,Ground,20
                rotate sprite SParticleNo+1000,wrapvalue(300+rnd(120))
                set sprite priority SParticleNo+1000,1
                set sprite alpha SParticleNo+1000,150
            endif
            inc SCounter
            if SCounter>SDelay then SCounter=1
            if MCounter=1
                inc MParticleNo
                if MParticleNo>MParticleMaxSprites then MParticleNo=1
                MistParticles(MParticleNo).XPos=rnd(110)+540
                MistParticles(MParticleNo).YPos=Ground-MistOffset
                MistParticles(MParticleNo).Angle=rnd(30)+290
                MistParticles(MParticleNo).SpriteNum=rnd(NoMistImages-1)+3001
                MistParticles(MParticleNo).AlphaVal=100
            endif
            inc MCounter
            if MCounter>MDelay then MCounter=1
        endif
    endif
next j
for j=1 to SMaxSprites
    if sprite exist(j+1000)=1
        if sprite angle(j+1000)>180
            rotate sprite j+1000,sprite angle(j+1000)-((sprite angle(j+1000)-180)/SDrop)
            else
            rotate sprite j+1000,sprite angle(j+1000)+((180-sprite angle(j+1000))/SDrop)
        endif
        move sprite j+1000,SVelocity
        if sprite y(j+1000)>Ground then delete sprite j+1000
    endif
next j
for j=1 to MParticleMaxSprites
    TempSpriteNo=MistParticles(j).SpriteNum
    if TempSpriteNo>0
        XMovement#=MParticleVelocity*cos(MistParticles(j).Angle)
        YMovement#=MParticleVelocity*sin(MistParticles(j).Angle)
        dec MistParticles(j).XPos,XMovement#
        inc MistParticles(j).YPos,YMovement#
        dec MistParticles(j).AlphaVal,MFade
        if MistParticles(j).AlphaVal>0 and MistParticles(j).AlphaVal<101
            set sprite alpha TempSpriteNo,MistParticles(j).AlphaVal
            else
            set sprite alpha TempSpriteNo,0
        endif
        rotate sprite TempSpriteNo,MistParticles(j).Angle
        paste sprite TempSpriteNo,MistParticles(j).XPos,MistParticles(j).YPos
    endif
next j

text 10,10,str$(screen fps())

sync
loop

`<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>

function FilledCircle( CX as integer, CY as integer, R as integer )
`BY IanM
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

   ` Calculate the size of the central square
   s=R*sin(45)

   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

Set Display Mode 800,600,16,1
sync on
Sync Rate 60

randomize timer()

Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."


REM CHANGE HERE IF ITS SLOW ... (its always slow xD)
#Constant PNum 300
#Constant PSize 4


if file exist("terrain.bmp")=0
	//landscape
	line 0,0,82,125
	line 82,125,135,135
	line 135,135,184,140
	line 184,140,202,202
	line 202,202,168,296
	line 168,296,166,413
	line 166,413,225,482
	line 225,482,370,539
	line 370,539,614,555
	line 614,555,800,565
	Lock Pixels
	fill1(5,50)
	fill2(5,50)
	unlock pixels
	Blur Bitmap 0,3
Get Image 1,0,0,800,600,1
Save Image "terrain.bmp",1
else
	Load Image "terrain.bmp",1,1
endif

Set Window Title "Setup..."

type Particle
	x as float
	y as float
	vx as float
	vy as float
	ca as integer
	cad as boolean
	colli as boolean
	g as float
endtype

Dim Ptcl(PNum) as Particle
global friction as float : friction=0.99

for x=0 to PNum
	Ptcl(x).x=100.0+rnd(505)
	Ptcl(x).y=100.0+rnd(45)
	Ptcl(x).vx=rnd(1)
	Ptcl(x).vy=rnd(1)
	Ptcl(x).ca=rnd(10)-rnd(10)
next x

Set Window Title "Water Demo"


do : cls
	Paste Image 1,0,0
	
	for x=0 to PNum
		Ptcl(x).colli=Coll(Ptcl(x).x,Ptcl(x).y)
		Ptcl(x).vx=Ptcl(x).vx*friction
		Ptcl(x).vy=Ptcl(x).vy*friction
		if Ptcl(x).colli=0
		inc Ptcl(x).g,0.1
		inc Ptcl(x).vy,Ptcl(x).g
		inc Ptcl(x).y,Ptcl(x).vy
		else
			Ptcl(x).g=0.0
		endif
		inc Ptcl(x).x,Ptcl(x).vx
		if Coll(Ptcl(x).x+PSize,Ptcl(x).y)=0
			inc Ptcl(x).vx,0.5
		//else
		//	if Coll(Ptcl(x).x-1,Ptcl(x).y)=0 then dec Ptcl(x).vx,0.5
		endif
		while Coll(Ptcl(x).x,Ptcl(x).y-1)
			dec Ptcl(x).y
		endwhile
	next x
	
	for x=0 to PNum
		if Ptcl(x).x>800
			Ptcl(x).x=130.0+rnd(55)
			Ptcl(x).y=100.0+rnd(45)
			Ptcl(x).vx=rnd(1)
			Ptcl(x).vy=rnd(1)
			Ptcl(x).ca=rnd(10)-rnd(10)
		endif
	next x
	
	for x=0 to PNum
		ink rgb(200,240,255),0
		box Ptcl(x).x,Ptcl(x).y,Ptcl(x).x+PSize,Ptcl(x).y+PSize //,rgb(190+Ptcl(x).ca,230+Ptcl(x).ca,245+Ptcl(x).ca),rgb(160-Ptcl(x).ca,220+Ptcl(x).ca,235-Ptcl(x).ca),rgb(230+Ptcl(x).ca,220+Ptcl(x).ca,245-Ptcl(x).ca),rgb(200+Ptcl(x).ca,240-Ptcl(x).ca,245+Ptcl(x).ca)
		If Ptcl(x).cad
			Ptcl(x).ca=Ptcl(x).ca+1
			if Ptcl(x).ca>10 then Ptcl(x).cad=0
		else
			Ptcl(x).ca=Ptcl(x).ca-1
			if Ptcl(x).ca<-10 then Ptcl(x).cad=1
		endif
	next x
	sync
loop




function fill1(x,y)
	if point(x,y)=rgb(0,0,0)
	dot x,y,rgb(255,255,255)
	fill1(x-1,y)
	fill1(x,y-1)
	fill1(x+1,y)
	fill1(x,y+1)
	endif
endfunction

function fill2(x,y)
	if point(x,y)=rgb(255,255,255)
	dot x,y,colorV(x,y)
	 fill2(x-1,y)
	 fill2(x,y-1)
	 fill2(x+1,y)
	 fill2(x,y+1)
	endif
endfunction

function colorV(x,y)
	col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

function Coll(x ,y )
	if black(point(x,y)) and black(point(x+PSize,y)) and black(point(x,y+PSize)) and black(point(x+PSize,y+PSize))
		exitfunction 0
	endif
endfunction 1

function black(c as dword )
	if rgbr(c)=0 and rgbg(c)=0 and rgbb(c)=0
		exitfunction 1
	endif
endfunction 0

Set Display Mode 800,600,16,1
sync on
Sync Rate 60

randomize timer()

Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."


REM CHANGE HERE IF ITS SLOW ... (its always slow xD)
#Constant PNum 400
#Constant PSize 6
#Constant xfriction 0.96
#Constant yfriction 0.75

if file exist("terrain.bmp")=0
	//landscape
	line 0,0,82,125
	line 82,125,135,135
	line 135,135,184,140
	line 184,140,202,202
	line 202,202,168,296
	line 168,296,166,413
	line 166,413,225,482
	line 225,482,370,539
	line 370,539,614,555
	line 614,555,800,565
	Lock Pixels
	fill1(5,50)
	fill2(5,50)
	unlock pixels
	Blur Bitmap 0,3
Get Image 1,0,0,800,600,1
Save Image "terrain.bmp",1
else
	Load Image "terrain.bmp",1,1
endif

Set Window Title "Setup..."

type Particle
	x as float
	y as float
	vx as float
	vy as float
	ca as integer
	cad as boolean
	colli as boolean
	g as float
endtype

ink rgb(200,240,255),0
box 0,0,PSize,PSize
Get Image 2,0,0,PSize,PSize,1

Dim Ptcl(PNum) as Particle

for x=0 to PNum
	Ptcl(x).x=50.0+rnd(750)
	Ptcl(x).y=100.0+rnd(45)
	Ptcl(x).vx=rnd(1)
	Ptcl(x).vy=rnd(1)
	Ptcl(x).ca=rnd(10)-rnd(10)
	sprite x+2,Ptcl(x).x,Ptcl(x).y,2
	Set Sprite Alpha x+2,150+rnd(50)
	Hide Sprite x+2
next x

Set Window Title "Water Demo"

sprite 1,0,0,1
Hide Sprite 1

do : cls
	Paste Sprite 1,0,0
	
	for x=0 to PNum
		Ptcl(x).colli=Coll(Ptcl(x).x,Ptcl(x).y)
		Ptcl(x).vx=Ptcl(x).vx*xfriction
		Ptcl(x).vy=Ptcl(x).vy*yfriction
		if Ptcl(x).colli=0
		inc Ptcl(x).g,0.1
		inc Ptcl(x).vy,Ptcl(x).g
		inc Ptcl(x).y,Ptcl(x).vy
		inc Ptcl(x).vx,rnd(3)/10.0-rnd(3)/10.0
		else
			Ptcl(x).g=0.0
		endif
		inc Ptcl(x).x,Ptcl(x).vx
		if Coll(Ptcl(x).x+PSize,Ptcl(x).y)=0
			inc Ptcl(x).vx,0.2
		//else
		//	if Coll(Ptcl(x).x-1,Ptcl(x).y)=0 then dec Ptcl(x).vx,0.5
		endif
		while Coll(Ptcl(x).x,Ptcl(x).y-1)
			dec Ptcl(x).y
		endwhile
	next x
	
	for x=0 to PNum
		if Ptcl(x).x>800
			Ptcl(x).x=rnd(5) //130.0+rnd(55)
			Ptcl(x).y=rnd(5) //115.0+rnd(15)
			Ptcl(x).vx=rnd(1)
			Ptcl(x).vy=rnd(1)
			Ptcl(x).ca=rnd(10)-rnd(10)
		endif
	next x
	
	for x=0 to PNum
		//ink rgb(200,240,255),0
		//box Ptcl(x).x,Ptcl(x).y,Ptcl(x).x+PSize,Ptcl(x).y+PSize
		Paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
		If Ptcl(x).cad
			Ptcl(x).ca=Ptcl(x).ca+1
			if Ptcl(x).ca>10 then Ptcl(x).cad=0
		else
			Ptcl(x).ca=Ptcl(x).ca-1
			if Ptcl(x).ca<-10 then Ptcl(x).cad=1
		endif
	next x
	sync
loop




function fill1(x,y)
	if point(x,y)=rgb(0,0,0)
	dot x,y,rgb(255,255,255)
	fill1(x-1,y)
	fill1(x,y-1)
	fill1(x+1,y)
	fill1(x,y+1)
	endif
endfunction

function fill2(x,y)
	if point(x,y)=rgb(255,255,255)
	dot x,y,colorV(x,y)
	 fill2(x-1,y)
	 fill2(x,y-1)
	 fill2(x+1,y)
	 fill2(x,y+1)
	endif
endfunction

function colorV(x,y)
	col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

function Coll(x ,y )
	if black(point(x,y)) and black(point(x+PSize,y)) and black(point(x,y+PSize)) and black(point(x+PSize,y+PSize))
		exitfunction 0
	endif
endfunction 1

function black(c as dword )
	if rgbr(c)=0 and rgbg(c)=0 and rgbb(c)=0
		exitfunction 1
	endif
endfunction 0

Set Display Mode 800,600,32,1
sync on
Sync Rate 30

randomize timer()

Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."


REM CHANGE HERE IF ITS SLOW ... (its always slow xD)

REM warning: every particle has a mist-particle, so it will be (with PNum=300) 600 particles
#Constant PNum 300  
REM play with this! values from 3 to 7 look good (others too small/big)
#Constant PSize 6
#Constant xfriction 0.96
#Constant yfriction 0.75

if file exist("terrain.bmp")=0
	//landscape
	line 0,0,82,125
	line 82,125,135,135
	line 135,135,184,140
	line 184,140,202,202
	line 202,202,168,296
	line 168,296,166,413
	line 166,413,225,482
	line 225,482,370,539
	line 370,539,614,555
	line 614,555,800,565
	Lock Pixels
	fill1(5,50)
	fill2(5,50)
	unlock pixels
	Blur Bitmap 0,3
Get Image 1,0,0,800,600,1
Save Image "terrain.bmp",1
else
	Load Image "terrain.bmp",1,1
endif

Set Window Title "Setup..."

type Particle
	x as float
	y as float
	vx as float
	vy as float
	colli as boolean
	g as float
	vis as boolean
	sp as boolean
	alpha as integer
endtype

ink rgb(200,240,255),0
box 0,0,PSize,PSize
Get Image 2,0,0,PSize,PSize,1

cls

for x=0 to 25
	for y=0 to 25
		darkness=sqrt((x-12.5)^2+(y-12.5)^2)
		if darkness<6+rnd(5)
			darkness=abs(darkness-10)*18
			dot x,y,rgb(darkness+rnd(30),darkness+rnd(60),darkness+rnd(75))
		endif
	next y
next x
Get Image 3,0,0,25,25,1

Dim Ptcl(PNum+PNum+1) as Particle

for x=0 to PNum
	Ptcl(x).x=50.0+rnd(750)
	Ptcl(x).y=100.0+rnd(45)
	Ptcl(x).vx=rnd(1)
	Ptcl(x).vy=rnd(1)
	sprite x+2,Ptcl(x).x,Ptcl(x).y,2
	Ptcl(x).alpha=150+rnd(80)
	Set Sprite Alpha x+2,Ptcl(x).alpha
	Hide Sprite x+2
next x

for x=PNum+1 to PNum+PNum+1
	Ptcl(x).x=0
	Ptcl(x).y=0
	Ptcl(x).vx=rnd(2)-rnd(2)
	Ptcl(x).vy=-1.0*rnd(3)
	sprite x+2,Ptcl(x).x,Ptcl(x).y,3
	Ptcl(x).alpha=50+rnd(50)
	Set Sprite Alpha x+2,Ptcl(x).alpha
	Hide Sprite x+2
next x

Set Window Title "Water Demo"

sprite 1,0,0,1
Hide Sprite 1

do : cls
	Paste Sprite 1,0,0
	fps$=str$(Screen Fps())
	text 800-text width(fps$),0,fps$
	
	for x=0 to PNum
		Ptcl(x).colli=Coll(Ptcl(x).x,Ptcl(x).y)
		Ptcl(x).vx=Ptcl(x).vx*xfriction
		Ptcl(x).vy=Ptcl(x).vy*yfriction
		if Ptcl(x).colli=0
		inc Ptcl(x).g,0.1
		inc Ptcl(x).vy,Ptcl(x).g
		inc Ptcl(x).y,Ptcl(x).vy
		inc Ptcl(x).vx,rnd(3)/10.0-rnd(3)/10.0
		else
			Ptcl(x).g=0.0
			if Ptcl(x).y>300 and Ptcl(x+PNum+1).vis=0 and Ptcl(x+PNum+1).sp=0
				Ptcl(x+PNum+1).vis=1
				Ptcl(x+PNum+1).x=Ptcl(x).x
				Ptcl(x+PNum+1).y=Ptcl(x).y
				Ptcl(x+PNum+1).alpha=50+rnd(80)
				Ptcl(x+PNum+1).sp=1
			endif
		endif
		inc Ptcl(x).x,Ptcl(x).vx
		if Coll(Ptcl(x).x+PSize,Ptcl(x).y)=0
			inc Ptcl(x).vx,0.2
		//else
		//	if Coll(Ptcl(x).x-1,Ptcl(x).y)=0 then dec Ptcl(x).vx,0.5
		endif
		while Coll(Ptcl(x).x,Ptcl(x).y-1)
			dec Ptcl(x).y
		endwhile
	next x
	
	for x=0 to PNum
		if Ptcl(x).x>800
			Ptcl(x).x=rnd(5) //130.0+rnd(55)
			Ptcl(x).y=rnd(5) //115.0+rnd(15)
			Ptcl(x).vx=rnd(1)
			Ptcl(x).vy=rnd(1)
			Ptcl(x+PNum+1).sp=0
			Ptcl(x).alpha=140+rnd(80)
			Set Sprite Alpha x+2,Ptcl(x).alpha
		endif
	next x
	
	for x=0 to PNum
		Paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
	next x
	
	for x=PNum+1 to PNum*2+1
		if Ptcl(x).vis
			inc Ptcl(x).x,Ptcl(x).vx
			inc Ptcl(x).y,Ptcl(x).vy
			dec Ptcl(x).alpha,2
			if Ptcl(x).alpha<=0 then Ptcl(x).alpha=0 : Ptcl(x).vis=0
			Set Sprite alpha x+2,Ptcl(x).alpha
			paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
		endif
	next x
	
	sync
loop




function fill1(x,y)
	if point(x,y)=rgb(0,0,0)
	dot x,y,rgb(255,255,255)
	fill1(x-1,y)
	fill1(x,y-1)
	fill1(x+1,y)
	fill1(x,y+1)
	endif
endfunction

function fill2(x,y)
	if point(x,y)=rgb(255,255,255)
	dot x,y,colorV(x,y)
	 fill2(x-1,y)
	 fill2(x,y-1)
	 fill2(x+1,y)
	 fill2(x,y+1)
	endif
endfunction

function colorV(x,y)
	col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

function Coll(x ,y )
	if black(point(x,y)) and black(point(x+PSize,y)) and black(point(x,y+PSize)) and black(point(x+PSize,y+PSize))
		exitfunction 0
	endif
endfunction 1

function black(c as dword )
	if rgbr(c)=0 and rgbg(c)=0 and rgbb(c)=0
		exitfunction 1
	endif
endfunction 0

Set Display Mode 800,600,32,1
sync on
Sync Rate 30

randomize timer()

Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."


REM CHANGE HERE IF ITS SLOW ... (its always slow xD)

REM warning: every particle has a mist-particle, so it will be (with PNum=300) 600 particles
#Constant PNum 400  
REM play with this! values from 3 to 7 look good (others too small/big)
#Constant PSize 7
#Constant xfriction 0.95
#Constant yfriction 0.75

if file exist("terrain.bmp")=0
	//landscape
	line 0,0,82,125
	line 82,125,135,135
	line 135,135,184,140
	line 184,140,202,202
	line 202,202,168,296
	line 168,296,166,413
	line 166,413,225,482
	line 225,482,370,539
	line 370,539,614,555
	line 614,555,800,565
	Lock Pixels
	fill1(5,50)
	fill2(5,50)
	unlock pixels
	Blur Bitmap 0,3
Get Image 1,0,0,800,600,1
Save Image "terrain.bmp",1
else
	Load Image "terrain.bmp",1,1
endif

Set Window Title "Setup..."

type Particle
	x as float
	y as float
	vx as float
	vy as float
	colli as boolean
	g as float
	vis as boolean
	sp as boolean
	alpha as integer
endtype

ink rgb(200,240,255),0
box 0,0,PSize,PSize
Get Image 2,0,0,PSize,PSize,1

cls

for x=0 to 25
	for y=0 to 25
		darkness=sqrt((x-12.5)^2+(y-12.5)^2)
		if darkness<6+rnd(5)
			darkness=abs(darkness-10)*18
			dot x,y,rgb(darkness+rnd(30),darkness+rnd(60),darkness+rnd(75))
		endif
	next y
next x
Get Image 3,0,0,25,25,1

Dim Ptcl(PNum+PNum+1) as Particle

for x=0 to PNum
	Ptcl(x).x=50.0+rnd(750)
	Ptcl(x).y=100.0+rnd(45)
	Ptcl(x).vx=rnd(1)
	Ptcl(x).vy=rnd(1)
	sprite x+2,Ptcl(x).x,Ptcl(x).y,2
	Ptcl(x).alpha=150+rnd(80)
	Set Sprite Alpha x+2,Ptcl(x).alpha
	Hide Sprite x+2
next x

for x=PNum+1 to PNum+PNum+1
	Ptcl(x).x=0
	Ptcl(x).y=0
	Ptcl(x).vx=rnd(2)-rnd(2)
	Ptcl(x).vy=-1.0*rnd(3)
	sprite x+2,Ptcl(x).x,Ptcl(x).y,3
	Ptcl(x).alpha=50+rnd(50)
	Set Sprite Alpha x+2,Ptcl(x).alpha
	Hide Sprite x+2
next x

Set Window Title "Water Demo"

sprite 1,0,0,1
Hide Sprite 1

do : cls
	Paste Sprite 1,0,0
	fps$=str$(Screen Fps())
	text 800-text width(fps$),0,fps$
	
	for x=0 to PNum
		Ptcl(x).colli=Coll(Ptcl(x).x,Ptcl(x).y)
		Ptcl(x).vx=Ptcl(x).vx*xfriction
		Ptcl(x).vy=Ptcl(x).vy*yfriction
		if Ptcl(x).colli=0
		inc Ptcl(x).g,Ptcl(x).g/20.0+0.05
		inc Ptcl(x).vy,Ptcl(x).g
		inc Ptcl(x).y,Ptcl(x).vy
		inc Ptcl(x).vx,rnd(3)/10.0-rnd(3)/10.0
		else
			Ptcl(x).g=0.0
			if Ptcl(x).y>300 and Ptcl(x+PNum+1).vis=0 and Ptcl(x+PNum+1).sp=0
				Ptcl(x+PNum+1).vis=1
				Ptcl(x+PNum+1).x=Ptcl(x).x
				Ptcl(x+PNum+1).y=Ptcl(x).y
				Ptcl(x+PNum+1).alpha=50+rnd(80)
				Ptcl(x+PNum+1).sp=1
				Ptcl(x).vy=Ptcl(x).vy*-1.0
				Ptcl(x).vx=Ptcl(x).vx-rnd(2)
			endif
		endif
		inc Ptcl(x).x,Ptcl(x).vx
		if Coll(Ptcl(x).x+PSize,Ptcl(x).y)=0
			inc Ptcl(x).vx,0.2
		//else
		//	if Coll(Ptcl(x).x-1,Ptcl(x).y)=0 then dec Ptcl(x).vx,0.5
		endif
		while Coll(Ptcl(x).x,Ptcl(x).y-1)
			dec Ptcl(x).y
		endwhile
	next x
	
	for x=0 to PNum
		if Ptcl(x).x>800
			Ptcl(x).x=rnd(5) //130.0+rnd(55)
			Ptcl(x).y=rnd(5) //115.0+rnd(15)
			Ptcl(x).vx=rnd(1)
			Ptcl(x).vy=rnd(1)
			Ptcl(x+PNum+1).sp=0
			Ptcl(x).alpha=140+rnd(80)
			Set Sprite Alpha x+2,Ptcl(x).alpha
		endif
	next x
	
	for x=0 to PNum
		Paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
	next x
	
	for x=PNum+1 to PNum*2+1
		if Ptcl(x).vis
			inc Ptcl(x).x,Ptcl(x).vx
			inc Ptcl(x).y,Ptcl(x).vy
			dec Ptcl(x).alpha,2
			if Ptcl(x).alpha<=0 then Ptcl(x).alpha=0 : Ptcl(x).vis=0
			Set Sprite alpha x+2,Ptcl(x).alpha
			paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
		endif
	next x
	
	sync
loop




function fill1(x,y)
	if point(x,y)=rgb(0,0,0)
	dot x,y,rgb(255,255,255)
	fill1(x-1,y)
	fill1(x,y-1)
	fill1(x+1,y)
	fill1(x,y+1)
	endif
endfunction

function fill2(x,y)
	if point(x,y)=rgb(255,255,255)
	dot x,y,colorV(x,y)
	 fill2(x-1,y)
	 fill2(x,y-1)
	 fill2(x+1,y)
	 fill2(x,y+1)
	endif
endfunction

function colorV(x,y)
	col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

function Coll(x ,y )
	if black(point(x,y)) and black(point(x+PSize,y)) and black(point(x,y+PSize)) and black(point(x+PSize,y+PSize))
		exitfunction 0
	endif
endfunction 1

function black(c as dword )
	if rgbr(c)=0 and rgbg(c)=0 and rgbb(c)=0
		exitfunction 1
	endif
endfunction 0

Rem ***** Main Source File *****
Autocam Off : Color backdrop Rgb(50, 50, 50)
Set Directional Light 0, 0, 1, 0

REM TYPES
Type vectors
   x As Float
   y As Float
   z As Float
endType

Type particleProperties
   pos As vectors
   ang As vectors
   vel As vectors
   size As vectors
endType

Type colorProperties
   r As Float
   g As Float
   b As Float
endType

Type explosionParticle
   num  As Integer
   prop As particleProperties
   fade As Float
   diff As colorProperties
endType

REM SET MAXIMUM DIMS
DIM explode(10, 200) As explosionParticle
DIM splash(10, 200) As explosionParticle

imgSmoke = createSmoke(150, 150, 250, 64)

whiteSmoke = freeImage()
make memblock 1,12+64*64*4
write memblock dword 1,0,64
write memblock dword 1,4,64
write memblock dword 1,8,32
for x=0 to 63
   for y=0 to 63
      pos=12+(x+y*64)*4
      dist#=sqrt( (x-32)^2 + (y-32)^2 )
      if dist#>31
         alpha=0
      else
         alpha=(255-dist#*8)/(1+rnd(0.5))
      endif
      r=rnd(55)
      g=rnd(55)
      b=200+rnd(55)
      write memblock byte 1,pos,b
      write memblock byte 1,pos+1,g
      write memblock byte 1,pos+2,r
      write memblock byte 1,pos+3,alpha
   next y
next x
make image from memblock whiteSmoke,1
Delete memblock 1

Rem Make Walls
objFloor = freeObject() : Make Object Plain objFloor, 1000, 1000 : xRotate Object objFloor, 90
`Make Object Box objFloor, 10, 1, 10 :
Position Object objFloor, 0, 0, 10
Color Object objFloor, Rgb(0, 0, 200)
Set Blend Mapping On objFloor, 1, whiteSmoke, 3, 24
Set Blend Mapping On objFloor, 2, whiteSmoke, 3, 26
Set Blend Mapping On objFloor, 3, whiteSmoke, 3, 4
`Texture Object objFloor, whiteSmoke
Scale Object Texture objFloor, 20, 20
Ghost Object On objFloor, 0
Disable Object zWrite objFloor


objFloor2 = freeObject() : Clone Object objFloor2, objFloor : xRotate Object objFloor2, 90
Position Object objFloor2, 0, -2, 10

objCeil = freeObject() : Make Object Box objCeil, 100, 1, 10 : Position Object objCeil, 0, 20, 15
Color Object objCeil, Rgb(0, 0, 250)

objWater = freeObject() : Make Object Plain objWater, 16, 20 : Position Object objWater, 0, 10, 10
Color Object objWater, Rgb(0, 0, 250) : Ghost Object On objWater, 2
Texture Object objWater, whiteSmoke : Disable Object Zwrite objWater
Scale Object Texture objWater, 2, 1

o = freeObject()
For wat = o To o+5
   Instance Object wat, objWater
   Position Object wat, 0, 10, 10-((wat-o)*0.1)
Next wat

Position Camera 30, 10, 0 : Point Camera 0, 10, 10
ax# = camera angle x() : ay# = camera Angle y()
REM MAIN LOOP
Sync Rate 34 : Sync On
DO
REM MOVE CAMERA
ax# = wrapvalue(ax# + mousemovey())
ay# = wrapvalue(ay# + mousemovex())
rotate camera ax#, ay#, 0.0
if mouseclick()=1 then move camera 1
if mouseclick()=2 then move camera -1

   exp1 = particleExplosion(1, 200, -4, 20, 10, exp1, imgSmoke, -1)
   spl1 = particleSplash(1, 200, -4, 0, 10, spl1, imgSmoke)

   exp2 = particleExplosion(2, 200, 4, 20, 10, exp2, imgSmoke, -1)
   spl2 = particleSplash(2, 200, 4, 0, 10, spl2, imgSmoke)

   exp3 = particleExplosion(3, 200, -4, -20, 10, exp3, imgSmoke, 1)

   exp4 = particleExplosion(4, 200, 4, -20, 10, exp4, imgSmoke, 1)

   Scroll Object Texture objWater, 0.0, -0.01
   ang# = wrapvalue(ang# + 1)
   Scroll Object Texture objFloor, Sin(ang#)*0.001, Cos(ang#)*0.001
   Scroll Object Texture objFloor2, Sin(ang#)*0.001, Cos(ang#)*-0.001

REM INFO
set cursor 0, 0
print "USE MOUSE TO MOVE AROUND"
Print " TRY LOOKING AT THE WATER CONTACT POINT FROM DIFFERENT ANGLES"
Print " you will see this glow at the contact point"

Sync
Loop

Function particleExplosion(n As Integer, amount As Integer, x As Float, y As Float, z As Float, ctr As Integer, img As Integer, direction#)
If explode(n, 0).num = 0
   obj = freeObject()
   For f = obj To obj + amount
      i = f-obj
      explode(n, i).num          = f
      explode(n, i).prop.pos.x   = x
      explode(n, i).prop.pos.y   = y
      explode(n, i).prop.pos.z   = z
      explode(n, i).prop.size.x  = 2.0
      explode(n, i).prop.size.y  = 2.0
      explode(n, i).prop.size.z  = 2.0
      explode(n, i).prop.ang.x   = 0.0
      explode(n, i).prop.ang.y   = 0.0
      explode(n, i).prop.ang.z   = 0.0
         Make Object Plain explode(n, i).num, explode(n, i).prop.size.x, explode(n, i).prop.size.y
         Texture Object explode(n, i).num, img
         Hide Object explode(n, i).num
            Set Object Cull explode(n, i).num, 1
            Set Object Fog explode(n, i).num, 0
            `Set Object Light explode(n, i).num, 0
            Ghost Object On explode(n, i).num, 2
            Set Object Transparency explode(n, i).num, 3
            Disable Object Zwrite explode(n, i).num
            `Set Alpha Mapping On explode(n, i).num, 50
   Next f
EndIf

   For f = 0 To amount
      explode(n, f).prop.size.x = explode(n, f).prop.size.x + 1.5
      explode(n, f).prop.size.y = explode(n, f).prop.size.y + 1.5
      explode(n, f).prop.size.z = explode(n, f).prop.size.z + 1.5
      explode(n, f).prop.pos.x  = explode(n, f).prop.pos.x + explode(n, f).prop.vel.x
      explode(n, f).prop.pos.y  = explode(n, f).prop.pos.y + explode(n, f).prop.vel.y
      explode(n, f).prop.pos.z  = explode(n, f).prop.pos.z + explode(n, f).prop.vel.z
         `Fade particle value
         explode(n, f).fade = explode(n, f).fade - (200 / amount * 2)
         `Diffuse Alter
         If explode(n, f).diff.r =< 250 Then explode(n, f).diff.r = explode(n, f).diff.r + 0.8
         If explode(n, f).diff.g =< 250 Then explode(n, f).diff.g = explode(n, f).diff.g + 0.4
         explode(n, f).diff.b = explode(n, f).diff.b
            `Position, scale and fade particle object
            Position Object explode(n, f).num, explode(n, f).prop.pos.x, explode(n, f).prop.pos.y, explode(n, f).prop.pos.z
            Scale Object explode(n, f).num, explode(n, f).prop.size.x, explode(n, f).prop.size.y, 100
            Set Object Diffuse explode(n, f).num, Rgb(explode(n, f).diff.r, explode(n, f).diff.g, explode(n, f).diff.b)
            `Fade Object explode(n, f).num, explode(n, f).fade
            `Point at camera
            Set Object To Camera Orientation explode(n, f).num
   Next f

Inc ctr
   If ctr > amount Then ctr = 1
      If explode(n, ctr).fade =< 0
         `Position
         explode(n, ctr).prop.pos.x = x + Rnd(4) - 2
         explode(n, ctr).prop.pos.y = y
         explode(n, ctr).prop.pos.z = z
         `Scale
         explode(n, ctr).prop.size.x = 50
         explode(n, ctr).prop.size.y = 50
         explode(n, ctr).prop.size.z = 50
         `Velocity (randomize)
         explode(n, ctr).prop.vel.x = 0.0
         explode(n, ctr).prop.vel.y = 0.1*direction#
         explode(n, ctr).prop.vel.z = Rnd(100) / 100000.0 * -1
         `Fade
         explode(n, ctr).fade = 200
         `Color
         explode(n, ctr).diff.r = 50
         explode(n, ctr).diff.g = 50
         explode(n, ctr).diff.b = 0
         `Show the particle
         Show Object explode(n, ctr).num
      endIf

endFunction ctr

Function particleSplash(n As Integer, amount As Integer, x As Float, y As Float, z As Float, ctr As Integer, img As Integer)
If splash(n, 0).num = 0
   obj = freeObject()
   For f = obj To obj + amount
      i = f-obj
      splash(n, i).num          = f
      splash(n, i).prop.pos.x   = x
      splash(n, i).prop.pos.y   = y
      splash(n, i).prop.pos.z   = z
      splash(n, i).prop.size.x  = 2.0
      splash(n, i).prop.size.y  = 2.0
      splash(n, i).prop.size.z  = 2.0
      splash(n, i).prop.ang.x   = 0.0
      splash(n, i).prop.ang.y   = 0.0
      splash(n, i).prop.ang.z   = 0.0
         Make Object Plain splash(n, i).num, splash(n, i).prop.size.x, splash(n, i).prop.size.y
         Texture Object splash(n, i).num, img
         Hide Object splash(n, i).num
            Set Object Cull splash(n, i).num, 1
            Set Object Fog splash(n, i).num, 0
            `Set Object Light splash(n, i).num, 0
            Ghost Object On splash(n, i).num, 2
            Set Object Transparency splash(n, i).num, 3
            Disable Object Zwrite splash(n, i).num
            `Set Alpha Mapping On splash(n, i).num, 50
   Next f
EndIf

   For f = 0 To amount
      splash(n, f).prop.size.x = splash(n, f).prop.size.x + 1.5
      splash(n, f).prop.size.y = splash(n, f).prop.size.y + 1.5
      splash(n, f).prop.size.z = splash(n, f).prop.size.z + 1.5
      splash(n, f).prop.pos.x  = splash(n, f).prop.pos.x + splash(n, f).prop.vel.x
      splash(n, f).prop.pos.y  = splash(n, f).prop.pos.y + splash(n, f).prop.vel.y
      splash(n, f).prop.pos.z  = splash(n, f).prop.pos.z + splash(n, f).prop.vel.z
         `Fade particle value
         splash(n, f).fade = splash(n, f).fade - (200 / amount * 2)
         `Diffuse Alter
         If splash(n, f).diff.r =< 250 Then splash(n, f).diff.r = splash(n, f).diff.r + 0.8
         If splash(n, f).diff.g =< 250 Then splash(n, f).diff.g = splash(n, f).diff.g + 0.4
         splash(n, f).diff.b = splash(n, f).diff.b
            `Position, scale and fade particle object
            Position Object splash(n, f).num, splash(n, f).prop.pos.x, splash(n, f).prop.pos.y, splash(n, f).prop.pos.z
            Scale Object splash(n, f).num, splash(n, f).prop.size.x, splash(n, f).prop.size.y, 100
            Set Object Diffuse splash(n, f).num, Rgb(splash(n, f).diff.r, splash(n, f).diff.g, splash(n, f).diff.b)
            `Fade Object splash(n, f).num, splash(n, f).fade
            `Point at camera
            Set Object To Camera Orientation splash(n, f).num
   Next f

Inc ctr
   If ctr > amount Then ctr = 1
      If splash(n, ctr).fade =< 0
         `Position
         splash(n, ctr).prop.pos.x = x + Rnd(4) - 2
         splash(n, ctr).prop.pos.y = y
         splash(n, ctr).prop.pos.z = z
         `Scale
         splash(n, ctr).prop.size.x = 50
         splash(n, ctr).prop.size.y = 50
         splash(n, ctr).prop.size.z = 50
         `Velocity (randomize)
         splash(n, ctr).prop.vel.x = Rnd(100) / 1000.0 - 0.05
         splash(n, ctr).prop.vel.y = Rnd(100) / 5000.0 - 0.01
         splash(n, ctr).prop.vel.z = Rnd(100) / 1000.0 - 0.05
         `Fade
         splash(n, ctr).fade = 200
         `Color
         splash(n, ctr).diff.r = 50
         splash(n, ctr).diff.g = 50
         splash(n, ctr).diff.b = 0
         `Show the particle
         Show Object splash(n, ctr).num
      endIf

endFunction ctr


Function createSmoke(r As Byte, g As Byte, b As Byte, s As Integer)
Create Bitmap 1, s, s
   Ink Rgb(r, g, b), 0
      For x = 1 To 2000
         ang = Rnd(360) : rad = Rnd((s/2)-5) : Dot (s/2) + (Sin(ang)*rad), (s/2) + (Cos(ang)*rad)
      Next x
Blur Bitmap 1, 4
   img = freeImage() : Get Image img, 0, 0, s, s
Delete Bitmap 1
endFunction img

Function freeObject()
   Repeat
      Inc i
   Until Object Exist(i) = 0
EndFunction i

Function freeImage()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i

Set Display Mode 800,600,32,1
sync on
sync rate 0

randomize timer()

Set Window on
Set Window Size 800,600
Set Window Title "Generating Terrain..."

REM CHANGE HERE IF ITS SLOW ... (its always slow xD)

REM warning: every particle has a mist-particle, so it will be (with PNum=300) 600 particles
#Constant PNum 100
REM play with this! values from 3 to 7 look good (others too small/big)
#Constant PSize 7
#Constant xfriction 0.95
#Constant yfriction 0.75

global ymax=600
`if file exist("terrain.bmp")=0
   //landscape
   fillline(0,0,82,125,ymax)
   fillline(82,125,135,135,ymax)
   fillline(135,135,184,140,ymax)
   fillline(184,140,202,202,ymax)
   fillline(202,202,205,296,ymax)
   fillline(205,296,207,413,ymax)
   fillline(207,413,225,482,ymax)
   fillline(225,482,370,539,ymax)
   fillline(370,539,614,555,ymax)
   fillline(614,555,800,565,ymax)
   Lock Pixels
   fill1(5,50)
   fill2(5,50)
   unlock pixels
   Blur Bitmap 0,3
Get Image 1,0,0,800,600,1
Save Image "terrain.bmp",1
`else
`   Load Image "terrain.bmp",1,1
`endif

Set Window Title "Setup..."

type Particle
   x as float
   y as float
   vx as float
   vy as float
   colli as boolean
   g as float
   vis as boolean
   sp as boolean
   alpha as integer
endtype

ink rgb(200,240,255),0
box 0,0,PSize,PSize
Get Image 2,0,0,PSize,PSize,1

cls

for x=0 to 25
   for y=0 to 25
      darkness=sqrt((x-12.5)^2+(y-12.5)^2)
      if darkness<6+rnd(5)
         darkness=abs(darkness-10)*18
         dot x,y,rgb(darkness+rnd(30),darkness+rnd(60),darkness+rnd(75))
      endif
   next y
next x
Get Image 3,0,0,25,25,1

Dim Ptcl(PNum+PNum+1) as Particle

for x=0 to PNum
   Ptcl(x).x=50.0+rnd(750)
   Ptcl(x).y=100.0+rnd(45)
   Ptcl(x).vx=rnd(1)
   Ptcl(x).vy=rnd(1)
   sprite x+2,Ptcl(x).x,Ptcl(x).y,2
   Ptcl(x).alpha=150+rnd(80)
   Set Sprite Alpha x+2,Ptcl(x).alpha
   Hide Sprite x+2
next x

for x=PNum+1 to PNum+PNum+1
   Ptcl(x).x=0
   Ptcl(x).y=0
   Ptcl(x).vx=rnd(2)-rnd(2)
   Ptcl(x).vy=-1.0*rnd(3)
   sprite x+2,Ptcl(x).x,Ptcl(x).y,3
   Ptcl(x).alpha=50+rnd(50)
   Set Sprite Alpha x+2,Ptcl(x).alpha
   Hide Sprite x+2
next x

Set Window Title "Water Demo"

sprite 1,0,0,1
Hide Sprite 1

sync rate 30
do : cls
   Paste Sprite 1,0,0
   fps$=str$(Screen Fps())
   text 800-text width(fps$),0,fps$

   for x=0 to PNum
      Ptcl(x).colli=Coll(Ptcl(x).x,Ptcl(x).y)
      Ptcl(x).vx=Ptcl(x).vx*xfriction
      Ptcl(x).vy=Ptcl(x).vy*yfriction
      if Ptcl(x).colli=0
      inc Ptcl(x).g,Ptcl(x).g/20.0+0.05
      inc Ptcl(x).vy,Ptcl(x).g
      inc Ptcl(x).y,Ptcl(x).vy
      inc Ptcl(x).vx,rnd(3)/10.0-rnd(3)/10.0
      else
         Ptcl(x).g=0.0
         if Ptcl(x).y>300 and Ptcl(x+PNum+1).vis=0 and Ptcl(x+PNum+1).sp=0
            Ptcl(x+PNum+1).vis=1
            Ptcl(x+PNum+1).x=Ptcl(x).x
            Ptcl(x+PNum+1).y=Ptcl(x).y
            Ptcl(x+PNum+1).alpha=50+rnd(80)
            Ptcl(x+PNum+1).sp=1
            Ptcl(x).vy=Ptcl(x).vy*-1.0
            Ptcl(x).vx=Ptcl(x).vx-rnd(2)
         endif
      endif
      inc Ptcl(x).x,Ptcl(x).vx
      if Coll(Ptcl(x).x+PSize,Ptcl(x).y)=0
         inc Ptcl(x).vx,0.2
      //else
      //   if Coll(Ptcl(x).x-1,Ptcl(x).y)=0 then dec Ptcl(x).vx,0.5
      endif
      while Coll(Ptcl(x).x,Ptcl(x).y-1)
         dec Ptcl(x).y
      endwhile
   next x

   for x=0 to PNum
      if Ptcl(x).x>800
         Ptcl(x).x=rnd(5) //130.0+rnd(55)
         Ptcl(x).y=rnd(5) //115.0+rnd(15)
         Ptcl(x).vx=rnd(1)
         Ptcl(x).vy=rnd(1)
         Ptcl(x+PNum+1).sp=0
         Ptcl(x).alpha=140+rnd(80)
         Set Sprite Alpha x+2,Ptcl(x).alpha
      endif
   next x

   for x=0 to PNum
      Paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
   next x

   for x=PNum+1 to PNum*2+1
      if Ptcl(x).vis
         inc Ptcl(x).x,Ptcl(x).vx
         inc Ptcl(x).y,Ptcl(x).vy
         dec Ptcl(x).alpha,2
         if Ptcl(x).alpha<=0 then Ptcl(x).alpha=0 : Ptcl(x).vis=0
         Set Sprite alpha x+2,Ptcl(x).alpha
         paste Sprite x+2,Ptcl(x).x,Ptcl(x).y
      endif
   next x

   sync
loop


function fillline(fillx1,filly1,fillx2,filly2,yfloor)
ink rgb(255,255,255),0
line fillx1,filly1,fillx2,filly2       :`draw original line
fx1#=fillx1
fx2#=fillx2
fy1#=filly1
fy2#=filly2
jinc#=(fy2#-fy1#)/(fx2#-fx1#)          :`get yslope of line
ink rgb(50,50,50),0
j#=filly1+2
for i=fillx1 to fillx2
   line i,j#,i,yfloor                  :`draw fill lines, draws from line to bottom of window, so overhanging ledges don't fill correctly
   inc j#,jinc#
next i
endfunction



function fill1(x,y)
   if point(x,y)=rgb(0,0,0)
   dot x,y,rgb(255,255,255)
   fill1(x-1,y)
   fill1(x,y-1)
   fill1(x+1,y)
   fill1(x,y+1)
   endif
endfunction

function fill2(x,y)
   if point(x,y)=rgb(255,255,255)
   dot x,y,colorV(x,y)
    fill2(x-1,y)
    fill2(x,y-1)
    fill2(x+1,y)
    fill2(x,y+1)
   endif
endfunction

function colorV(x,y)
   col=rgb(sin(y/2)*30+30+rnd(5),(cos((x/2)/(rnd(1)+1)+y/2)*50+70+rnd(7))*2,sin(y/2)*30+40+rnd(5))
endfunction col

function Coll(x ,y )
   if black(point(x,y)) and black(point(x+PSize,y)) and black(point(x,y+PSize)) and black(point(x+PSize,y+PSize))
      exitfunction 0
   endif
endfunction 1

function black(c as dword )
   if rgbr(c)=0 and rgbg(c)=0 and rgbb(c)=0
      exitfunction 1
   endif
endfunction 0

set display mode 1024,768,32
backdrop on
color backdrop 0
hide mouse
sync rate 60
max=1500
type atom
  x as float
  y as float
  z as float
  drop as float
  active as integer
endtype
dim water(max) as atom
speed as float
edge as integer
gravity as float
bottom as integer
drop as integer
flow as integer
global cliff as integer
cliff=max+2
edge=30
speed=0.3
gravity=0.1
drop=1
flow=0
world()
set image colorkey 0,0,0
make_texture()
make object cube max+1,0.8
texture object max+1,1
ghost object on max+1
set object ambience max+1,rgb(0,0,255)
set object emissive max+1,rgb(0,0,255)
set object transparency max+1,2
hide object max+1
for i=1 to max
  water(i).drop=0.0
  clone object i,max+1
  hide object i
next i
position camera -70,20,40
point camera 5,0,30
while not escapekey()
  for i=1 to max
    if water(i).active
      water(i).z=water(i).z+speed
      water(i).y=water(i).y-water(i).drop
      if (water(i).z > edge)
        bottom=-30
        if (water(i).y<bottom)
          water(i).x=rnd(100)/10.0
          water(i).y=rnd(10)/10.0
          water(i).z=0
          water(i).drop=0.0
          position object i,water(i).x,water(i).y,water(i).z
          scale object i,100,100,100
        else
          scale object i,100+water(i).y,100-(water(i).y*50),100+water(i).y
        endif
      else
        bottom=-0.5
        if (water(i).y<bottom)
          water(i).y=water(i).y+water(i).drop
          water(i).drop=water(i).drop*-1.0
        endif
      endif
      water(i).drop=water(i).drop+gravity
      position object i,water(i).x,water(i).y,water(i).z
    endif
  next i
  if flow=0
    for i=1 to 6
      if not water(drop).active
        water(drop).x=rnd(100)/10.0
        water(drop).y=rnd(10)/10.0
        water(drop).z=0
        water(drop).drop=0.0
        position object drop,water(drop).x,water(drop).y,water(drop).z
        scale object drop,100,100,100
        water(drop).active=1
        show object drop
      endif
      inc drop
      if drop>max then flow=1
    next i
  endif
  move()
endwhile
end
function move()
  if leftkey()
    turn camera left 90
    move camera 1
    point camera 5,0,30
  endif
  if rightkey()
    turn camera right 90
    move camera 1
    point camera 5,0,30
  endif
  if upkey()
    move camera 1
  endif
  if downkey()
    move camera -1
  endif
endfunction
function make_texture()
  create bitmap 1,256,256
  ink 0,0
  box 0,0,256,256
  for i=100 to 1 step -1
    ink rgb(0,0,i*25+5),0
    circle 128,128,101-i
  next i
  get image 1,0,0,256,256
  delete bitmap 1
endfunction
function world()
  make object box cliff,20,30,30
  position object cliff,5,-16,15
  create bitmap 1,256,256
  ink rgb(162,72,0),0
  box 0,0,256,256
  ink rgb(97,44,0),0
  for i=1 to 500
    dot rnd(255),rnd(255)
  next i
  get image 2,0,0,256,256
  delete bitmap 1
  texture object cliff,2
endfunction