Sorry your browser is not supported!

   rem example waving
   rotate limb obj,ruparm,0,0,90
   set object keyframe obj,1000
   rotate limb obj,ruparm,0,0,45
   set object keyframe obj,1010
   rotate limb obj,ruparm,0,0,89
   set object keyframe obj,1019
   rem end example waving

Play Object obj,1000,1019

sync on: sync rate 60
set display mode 1024,768,32

dim particle#(200,6)
dim numparticles(0)
dim lifespan(0)

numparticles(0) = 200
lifespan(0) = 100

gosub make_texture
for id= 1 to numparticles(0)
   make_drops(id)
   make_splash(id+numParticles(0))
next id

make matrix 1,500,500,50,50
fog on
fog color rgb(0,0,129)
fog distance 50

cam_pos_x#=250
cam_pos_z#=250

ink rgb(255,255,255),0

do
   set cursor 0,0
   print "use W,S and the mouse to move"
   print "fps: ",screen fps()
   speed#=(keystate(17)=1)-(keystate(31)=1)
   cam_pos_x#=newxvalue(cam_pos_x#,cam_ang_y#,speed#/5)
   cam_pos_z#=newzvalue(cam_pos_z#,cam_ang_y#,speed#/5)

   cam_ang_y#=cam_ang_y#+mousemovex()
   cam_ang_x#=cam_ang_x#+mousemovey()

   position camera cam_pos_x#,5,cam_pos_z#
   rotate camera wrapvalue(cam_ang_x#),wrapvalue(cam_ang_y#),0
   updatepsystem(cam_pos_x#,cam_pos_z#)
sync
loop

make_texture:
   ink rgb(255,255,255),0
   circle 50,50,49
   ink rgb(100,100,100),0
   circle 50,50,50
   circle 50,50,48
   get image 1,0,0,101,101
return

function make_splash(id)
   make object plain id,1,1
   xrotate object id,90
   texture object id,1
   ghost object on id
endfunction

function make_drops(id)
   make object box id,0.05,1,0.05
   ghost object on id
endfunction

function updatepsystem(emitterx#,emitterz#)
  for t= 1 to numparticles(0)
    if object position y(t)>0.5
      position object t,object position x(t),object position y(t)-0.4,object position z(t)
      updatesplash(t+numParticles(0))
    else
      newsplash(t+numParticles(0),object position x(t),object position z(t))
      position object t,emitterx#+rnd(800)/10.0-40,10+rnd(5),emitterz#+rnd(800)/10.0-40
    endif
  next t
endfunction

function updatesplash(t)
    if particle#(t,0)>0
      particle#(t,0)=particle#(t,0)-2
      scale object t,90-particle#(t,0),90-particle#(T,0),100
    else
      hide object t
      show=0
    endif
endfunction

function newsplash(t,emitterx#,emitterz#)
      particle#(t,0)=lifespan(0)/5*4+rnd(lifespan(0)/5)
      position object t,emitterx#,0,emitterz#
      scale object t,0,0,100
      show object t
endfunction

`weather challenge
`by tone3e
`tornado in the sand
sync on
createTornadoTexture()
createMapTexture()
createMap()
dim particles(160,5)
height = 1
xseg=45
zseg=45
for i = 1 to 10
   for j = 1 to 16
      inc t
      make object cube t, rnd(5)+2
      texture object t, 1
      ghost object on t
      particles(t,2) = (i-1)*5
      particles(t,4) = rnd(360)
      particles(t,5) = (i-1)*2
   next j
next i

DO

   `particles
   for t = 1 to 160
      particles(t,4) = particles(t,4)+7
      a# = particles(t,4)
      dx# = x# + sin(a#)*particles(t,2)
      dz# = z# + cos(a#)*particles(t,2)
      particles(t,1) = curvevalue(dx#, particles(t,1), particles(t,5))
      particles(t,3) = curvevalue(dz#, particles(t,3), particles(t,5))
      position object t, particles(t,1), particles(t,2), particles(t,3)
   next t

   `matrix
   if x#<0 then x#=0 : if x#>1995 then x#=1995
   if z#<0 then z#=0 : if z#>1995 then z#=1995

   repeat
   if newx < X#/xseg then newx = newx + 1
   if newz < Z#/zseg then newz = newz + 1
   if (newx -1) = x#/xseg then newx = newx -1
   if (newz -1) = z#/zseg then newz = newz -1
   until (newx >= x#/xseg) and (newz>=z#/zseg)
   set matrix height 1,newx,newz,height
   height = height-1
   update matrix 1


   `camera movement
   position camera x#,70,z#-130
   point camera x#,0,z#

   `movement
   if upkey() then inc z#,3
   if downkey() then dec z#,3
   if rightkey() then inc x#,3
   if leftkey() then dec x#,3

   SYNC
LOOP

`functions
FUNCTION createTornadoTexture()
   FOR x = 1 TO 16
      FOR y = 1 TO 16
         transparent = RND(1)
         IF transparent
            ink 0,0
            DOT x,y
         ELSE
            ink RGB(100,100,100), 0
            DOT x,y
         ENDIF
      NEXT y
   NEXT x

   GET IMAGE 1,1,1,16,16
ENDFUNCTION

FUNCTION createMapTexture()
   FOR x = 1 TO 16
      FOR y = 1 TO 16
         ink RGB(150,rnd(20)+80,30),0
         DOT x,y
      NEXT y
   NEXT x

   GET IMAGE 2,1,1,16,16
ENDFUNCTION


FUNCTION createMap()
   MAKE MATRIX 1,2000,2000,45,45
   UPDATE MATRIX 1
   PREPARE MATRIX TEXTURE 1,2,1,1
ENDFUNCTION

set matrix height 1,newx,newz,height
height = height-1

set matrix height 1,newx,newz,get matrix height(1,newx,newz)-1

`team shooter beta by link102
`version 02-01-08
set display mode 1280,1024,32
sync on:sync rate 30
hide mouse

gosub setup_crosshair

c_posX#=500
c_posY#=50
c_posZ#=500

make matrix 1,1500,1500,30,30
gosub setup_color
gosub setup_water
gosub setup_height
gosub setub_horizon
Normalise(1)

fog on
fog color rgb(181,219,221)
fog distance 1900
color backdrop rgb(181,219,221)

do
   if spacekey()=1 and sp=0
      c_rout=(c_rout=0)
      sp=1
      if c_rout=1
         hide object 1
      else
         show object 1
      endif
   endif
   if spacekey()=0 then sp=0

   if c_rout = 0 then gosub c_routine0
   if c_rout = 1 then gosub c_routine1

   if c_posY# > -10 and switch=0 then set gamma 255,255,255:switch=1
   if c_posY# < -10 and switch=1 then set gamma 100,100,150:switch=0

   rotate camera wrapvalue(c_angX#),wrapvalue(c_angY#),wrapvalue(c_angZ#)
   position camera c_posX#,c_posY#,c_posZ#
sync
loop

`camera routine 0: just like in a first person shooter; w,a,s,d = movement; shift = crouching and jumping(on release)
c_routine0:
   c_angYm# = c_angYm# + mousemoveX() / 5
   c_angXm# = c_angXm# + (mousemoveY() * (1-rotlimit)) / 5
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.7
   c_angXm# = c_angXm# * 0.5
   if c_angX#<-80 or c_angX#>80
      rotlimit=1
   endif
   if rotlimit=1
      if c_angX#<0 and mousemoveY()>0 then rotlimit=0
      if c_angX#>0 and mousemoveY()<0 then rotlimit=0
   endif

   c_posX# = newXvalue(c_posX#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posX# = newXvalue(c_posX#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#   ,(keystate(17)-keystate(31))*5/(k42+1)/((c_posY#<-10)+1))
   c_posZ# = newZvalue(c_posZ#,c_angY#-90,(keystate(30)-keystate(32))*5/(k42+1)/((c_posY#<-10)+1))
   if c_posX#<20 then c_posX#=20
   if c_posX#>1480 then c_posX#=1480
   if c_posZ#<20 then c_posZ#=20
   if c_posZ#>1480 then c_posZ#=1480

   c_velY# = c_velY# + 2
   c_posY# = c_posY# - c_velY#
   ggg#=get ground height(1,c_posX#,c_posZ#)
   if c_posY# <ggg#  + 20/(k42+1) then c_posY# = ggg# + 20/(k42+1) : c_velY# = 0
   if k42=1 and keystate(42)=0 and c_posY# = ggg# + 20/(k42+1) then c_velY#=-15
   k42=keystate(42)
return

`camera routine 1: left and right mousebuttons control the camera
c_routine1:
   if mouseclick()=1
      c_posm# = c_posm# - mousemoveY() / 2
   endif
   if mouseclick()=2
      c_angYm# = c_angYm# + mousemoveX() / 5
      c_angXm# = c_angXm# + mousemoveY() / 5
   endif
   c_angY# = c_angY# + c_angYm#
   c_angX# = c_angX# + c_angXm#
   c_angYm# = c_angYm# * 0.5
   c_angXm# = c_angXm# * 0.5

   c_posX# = newXvalue(c_posX#,c_angY#,c_posm#)
   c_posY# = newYvalue(c_posY#,c_angX#,c_posm#)
   c_posZ# = newZvalue(c_posZ#,c_angY#,c_posm#)
   c_posm# = c_posm# * 0.7
return

`make a 9x9 matrix and make the center invisible
setub_horizon:
   cls 0
   ink rgb(142,171,135),0:box 0,0,10,10
   get image 4,0,0,21,11

   make matrix 3,4500,4500,3,3
   position matrix 3,-1500,0,-1500
   prepare matrix texture 3,4,2,1
   set matrix tile 3,1,1,2
   set matrix 3,1,0,1,0,0,1,0
   update matrix 3
return

`the water in the map, need to make it more blue
setup_water:
`150
   ink rgb(80,80,255),0:box 0,0,40,40
   get image 2,0,0,41,41

   make matrix 2,1500,1500,1,1
   prepare matrix texture 2,2,1,1
   position matrix 2,0,-10,0
   ghost matrix on 2
return

`a heightmap, every number is multiplied by 25, giving a stylisch feel to the map
setup_height:
   for x = 0 to 30
      for z = 0 to 30
         read height
         set matrix height 1,x,z,height * 25
      next z
   next x
   update matrix 1

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0,-1,-1,-1, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0,-1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0,-1,-1,-1,-1,-1, 0, 0, 0, 0,-2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0,-1, 0, 1, 2, 2, 2, 1, 1, 1, 0, 0,-1,-1, 0, 0,-1,-1, 0, 0,-2,-3,-2,-2, 0, 0

   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 2, 2, 2, 2, 1, 1, 1, 0, 0, 0, 1, 0,-1,-1,-1,-2,-3,-3,-2,-2, 0, 0
   data  0, 0, 0, 0, 0, 0,-1,-1, 0, 1, 2, 2, 1, 0, 0, 1, 0, 0, 1, 2, 2, 1, 0,-2,-3,-4,-4,-3,-2,-1, 0
   data  0, 0, 0, 0, 0, 0,-1,-1,-1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 3, 3, 0,-3,-4,-5,-5,-4,-3,-2, 0
   data  0, 0, 0, 0, 0,-1,-2,-2,-1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 3, 0,-3,-4,-5,-5,-4,-3,-1, 0
   data  0, 0, 0, 0, 0,-1,-2,-2,-1,-1,-1,-2,-1,-1,-1,-1, 0, 0, 0, 0, 2, 2, 0,-3,-4,-5,-5,-4,-3,-1, 0

   data  0, 0, 0, 0, 0, 0,-1,-2,-2,-2,-2,-2,-2,-2,-1,-1,-1, 0, 0, 0, 2, 2, 0, 0,-3,-4,-4,-3, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0,-1,-1,-1,-2,-1,-1,-1,-1,-1,-1, 0, 0, 0, 1, 1, 0, 0,-2,-3,-3, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 1, 1, 0,-1,-2,-2, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0,-1,-1, 0, 0, 0, 0, 0, 0, 2, 2,-1,-1, 2, 2, 0, 0, 0, 0
   data  0, 0, 0, 1, 1, 2, 2, 1, 2, 3, 2, 2, 1, 1, 1, 1, 1, 0, 0, 0, 0, 2, 2,-1,-1, 2, 2, 0, 0, 0, 0
   data  0, 0, 1, 2, 2, 2, 2, 3, 4, 4, 4, 3, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-2,-2, 1, 1, 0, 0, 0, 0
   data  0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 3, 2, 2, 1, 1, 0, 0, 0, 0, 0, 1, 1,-2,-2, 1, 1, 0, 0, 0, 0
   data  0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 4, 3, 2, 2, 0, 0, 0, 0, 0, 0, 0, 2, 2, 1, 1, 2, 2, 0, 0, 0, 0

   data  0, 0, 0, 1, 2, 2, 1, 2, 2, 3, 2, 2, 1, 1, 0, 0, 0, 0, 0, 0, 0, 2, 2, 1, 1, 2, 2, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

   data  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
return

`the block texture of the map
setup_color:
   ink rgb(142,171,135),0:box 0,0,40,40
   ink rgb(122,151,115),0:line 0,0,40,0:line 0,0,0,40:line 40,40,40,0:line 40,40,0,40
   get image 1,0,0,41,41
   prepare matrix texture 1,1,1,1
return

setup_crosshair:
   ink rgb(255,255,255),0
      line 14, 1,14, 9:line 15, 3,15,11
      line 28,14,20,14:line 26,15,18,15
      line 15,28,15,20:line 14,26,14,18
      line  1,15, 9,15:line  3,14,11,14
      get image 3,0,0,30,30
   make object Plain 1,1,1
   position object 1,0,0,20
   texture object 1,3
   lock object on 1
   ghost object on 1
return

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 30
    For x=1 to 30
      h8#=get matrix height(MatNum,x,z-1)*5:`*5 added for even more depth
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

randomize timer()
hide mouse
sync on
sync rate 30

`Make Mountain
make matrix 1,100,100,20,20
`set matrix wireframe off 1
Peak()

`LOOP
REPEAT
   a=wrapvalue(a+1)
   position camera sin(a)*200,200,cos(a)*200
   point camera 50,50,50

   if ReturnKey()=1 then Peak()
   sync
UNTIL Mouseclick()=1


FUNCTION Peak()
   For z = 0 to 20
      For x = 0 to 20
         diff=ABS(10-x)+ABS(10-z)
         set matrix height 1,x,z,100-(diff*6)-rnd(diff^1.5)
      Next x
   Next z

   Update Matrix 1
ENDFUNCTION

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 20
    For x=1 to 20
      h8#=get matrix height(MatNum,x,z-1):`*5:`uncomment this to gain more shadow
      h4#=get matrix height(MatNum,x-1,z):`*5
      h#=get matrix height(MatNum,x,z):`*5
      h2#=get matrix height(MatNum,x,z):`*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

remstart
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Midpoint Displacement in One Dimension

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
remend

gosub Setup

DO
   gosub Tune
   gosub Display
   sync:cls
LOOP

END

`-------------------
` Gosubs
`-------------------
Setup:
   hide mouse
   sync on
   sync rate 40

   `Create array to store point heights on line
   size#=1
   Dim Vertex(size#)
   range#=10
Return
`----
Tune:
   Dim Buffer(size#+size#)
   `Transfer height data to new vertices
   for v = 0 to size#
      Buffer(v+v)=Vertex(v)
   next v
   `Update line size#
   Undim Vertex(size#)
   size#=size#+size#
   `Add new heights for new vertices (all new points are odd numbers)
   for v = 1 to size# step 2
      mean=(Buffer(v-1)+Buffer(v+1))/2
      Buffer(v)=mean+rnd(range#)
   next v
   `Copy New Vertices to Vertex array
   Dim Vertex(size#)
   for v = 0 to size#
      Vertex(v)=Buffer(v)
   next v
   `Delete buffer
   undim Buffer(size#)
   `shorten range
   range#=range#/2.
Return
`----
Display:
   for x = 0 to size#-1
      line (x/size#)*100,Vertex(x)*10,((x+1)/size#+1)*100,Vertex(x+1)*10
   next x
Return

sync on:sync rate 0
randomize timer()
dim height#(screen width())

for x = 0 to screen width()
   height#(x)=screen height()/2
next x

for y = 1 to 10
   cls
   for x = 0 to 360
      if c=1
         height#(x)=height#(x)+cos(x*y)*(50/y)
      else
         height#(x)=height#(x)+sin(x*y)*(50/y)
      endif
      if x>1 then line x,height#(x),x,height#(x-1)
      sync
   next x
   ink rgb(rnd(100)+155,rnd(100)+155,rnd(100)+155),0
   c=rnd(1)
next y

randomize timer()
hide mouse
sync on
sync rate 30
autocam off

`Make Mountain
make matrix 1,100,100,20,20
set matrix wireframe off 1
Peak()
Normalise(1)

color ambient light 0
set ambient light 20
make light 1
set directional light 0,0,0,1
set directional light 1,1,-.5,1

position camera 50,100,-200

wait key

remstart
`LOOP
REPEAT
   a=wrapvalue(a+1)
   position camera sin(a)*200,200,cos(a)*200
   point camera 50,50,50

   if ReturnKey()=1 then Peak()
   sync
UNTIL Mouseclick()=1
remend

end

FUNCTION Peak()
   For z = 0 to 20
      For x = 0 to 20
         diff=ABS(10-x)+ABS(10-z)
         set matrix height 1,x,z,100-(diff*6)-rnd(diff^1.5)
      Next x
   Next z

   Update Matrix 1
ENDFUNCTION




`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 20
    For x=1 to 20
      h8#=get matrix height(MatNum,x,z-1):`*5:`uncomment this to gain more shadow
      h4#=get matrix height(MatNum,x-1,z):`*5
      h#=get matrix height(MatNum,x,z):`*5
      h2#=get matrix height(MatNum,x,z):`*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

remstart
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Midpoint Displacement in One Dimension

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
remend

gosub Setup

DO
   gosub Tune
   gosub Display

   inc i
   print "Iterations: "; i
   sync:wait 1000:cls
LOOP

END

`-------------------
` Gosubs
`-------------------
Setup:
   randomize timer()
   hide mouse
   sync on
   sync rate 40

   `Create array to store point heights on line
   size#=1
   Dim Vertex(size#)
   range#=20
Return
`----
Tune:
   `Expand Array to accomodate new vertices
   Dim Buffer(size#+size#)
   `Transfer height data to new vertices (old vertice positions are doubled to make room for new vertices)
   for v = 0 to size#
      Buffer(v+v)=Vertex(v)
   next v
   `Update line size#
   Undim Vertex(size#)
   size#=size#+size#
   `Add new heights for new vertices (all new points are odd numbers)
   for v = 1 to size# step 2
      mean=(Buffer(v-1)+Buffer(v+1))/2
      Buffer(v)=mean+rnd(range#)
   next v
   `Copy New Vertices to Vertex array
   Dim Vertex(size#)
   for v = 0 to size#
      Vertex(v)=Buffer(v)
   next v
   `Delete buffer
   undim Buffer(size#)
   `shorten range
   range#=range#/2.
Return
`----
Display:
   for x = 0 to size#-1
      ax = (x*screen width())/size#
      ay = Vertex(x)*20
      bx = ((x+1)*screen width())/size#
      by = Vertex(x+1)*20
      line ax,400-ay,bx,400-by
   next x
Return

randomize timer()
hide mouse
sync on
sync rate 30
autocam off

`Make Mountain
make matrix 1,100,100,20,20
set matrix wireframe off 1

color ambient light 0
set ambient light 20
make light 1
set directional light 0,0,0,1
set directional light 1,1,-.5,1

`LOOP
REPEAT
   text 0,0,"Press RETURN to generate a random mountain."
   a=wrapvalue(a+1)
   position camera sin(a)*200,200,cos(a)*200
   point camera 50,50,50

   if ReturnKey()=1 then repeat:until Returnkey()=0 : Peak()
   sync
UNTIL Mouseclick()=1

end

`--------------------
` Functions
`--------------------
FUNCTION Peak()
   For z = 0 to 20
      For x = 0 to 20
         diff#=ABS(10-x)+ABS(10-z)
         h#=(100-(diff#*6))-rnd(diff#^1.5)
         if h#<0 then h#=0

         set matrix height 1,x,z,h#
         if x=0 or z=0 or x=20 or z=20 then set matrix height 1,x,z,0
      Next x
   Next z

   Normalise(1)
   Update Matrix 1
ENDFUNCTION

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 20
    For x=1 to 20
      h8#=get matrix height(MatNum,x,z-1):`*5:`uncomment this to gain more shadow
      h4#=get matrix height(MatNum,x-1,z):`*5
      h#=get matrix height(MatNum,x,z):`*5
      h2#=get matrix height(MatNum,x,z):`*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

`======================
`SNOW: A WEATHER EFFECT
`BY ALEX JONES (INH)
`======================

sync on
sync rate 30
autocam off
gosub images
gosub createobjects

`=========
`MAIN LOOP
`=========
x#=0
do
	for t=1 to 300
		if rnd(3)=0 then sy#=0
		if rnd(3)=1 then sy#=0.01
		if rnd(3)=2 then sy#=0.02
		if rnd(3)=3 then sy#=0.03
		yrotate object t,wrapvalue(object angle y(t)+rnd(2)) 
		move object t,sy#
		if object position y(t)<5 then position object t,-19+x#,-10+rnd(5),10 : inc sfn,1 : x#=0
	next t
	if sfn=>300 then x#=0
	sync
loop

`============
`MAKE OBJECTS
`============
createobjects:
	for t=1 to 300
		make object box (t),1,0.01,1
		position object (t),-19+x#,-10+rnd(50),20+rnd(10)
		texture object (t),1
		set object (t),1,0,1
		inc x#,0.5
		xrotate object t,90
	next t

	make object plain 301,400,400
	texture object 301,2
	position object 301,30,0,240
	make matrix 1,500,500,30,30
	position matrix 1,-200,0,-10
	position camera 30,5,-10
	prepare matrix texture 1,3,1,1
	randomize matrix 1,6
return


`======
`IMAGES
`======
images:
cls
	ink rgb(255,255,255),0
	box 90,0,110,200
	box 0,90,200,110


	for t=40 to 60
		circle 100,100,t
	next t

	get image 1,0,0,201,201
cls
	for t=0 to 100
		ink rgb(55+(t*2),55+(t*2),100+t),0
		line 0,t,100,t
	next t
	ink rgb(255,255,255),0
	box 0,100,100,120
	get image 2,0,0,101,121
cls
	ink rgb(200,200,200),0
	box 0,0,300,300
	ink rgb(255,255,255),0
	box 1,1,299,299
	ink rgb(200,200,200),0
	for t=0 to 2500
		a=rnd(300)
		b=rnd(300)
		dot a,b
	next t


	get image 3,0,0,301,301

return

randomize timer()
hide mouse
sync on
sync rate 30
autocam off

`Make Mountain
make matrix 1,100,100,20,20
set matrix wireframe off 1
Peak()
Normalise(1)

color ambient light 0
set ambient light 20
make light 1
color light 1,rgb(120,0,0)
set directional light 0,0,0,1
set directional light 1,1,-.5,1

position camera 50,100,-200

`wait key

`remstart
`LOOP
REPEAT
   a=wrapvalue(a+1)
   position camera sin(a)*200,200,cos(a)*200
   point camera 50,50,50

   if ReturnKey()=1 then Peak()
   sync
UNTIL Mouseclick()=1
`remend

end

FUNCTION Peak()
   For z = 0 to 20
      For x = 0 to 20
         diff=ABS(10-x)+ABS(10-z)
         set matrix height 1,x,z,100-(diff*6)-rnd(diff^1.5)
      Next x
   Next z

   Update Matrix 1
ENDFUNCTION




`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 20
    For x=1 to 20
      h8#=get matrix height(MatNum,x,z-1):`*5:`uncomment this to gain more shadow
      h4#=get matrix height(MatNum,x-1,z):`*5
      h#=get matrix height(MatNum,x,z):`*5
      h2#=get matrix height(MatNum,x,z):`*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

sync on
sync rate 0
set display mode 800,600,32
autocam off

ink RGB(255,0,0),0
dot 0,1
get image 1,0,0,3,4
sync

make matrix 1,1000,1000,25,25
randomize matrix 1,20
prepare matrix texture 1,1,1,1
update matrix 1

position camera 500,80,-100

wait key

sync on
sync rate 0
set display mode 800,600,32
autocam off

ink RGB(255,0,0),0
dot 0,0
get image 1,0,0,1,1
sync

make matrix 1,1000,1000,25,25
randomize matrix 1,20
prepare matrix texture 1,1,1,1
update matrix 1

position camera 500,80,-100

wait key

sync on
sync rate 0
set display mode 800,600,32
autocam off

ink RGB(255,0,0),0
dot 0,0
get image 1,0,0,2,1
sync

make matrix 1,1000,1000,25,25
randomize matrix 1,20
prepare matrix texture 1,1,1,1
update matrix 1

position camera 500,80,-100

wait key

sync on:sync rate 60

randomnize timer ()
`make a line and store it 
 Line1= line 200,200,100,100
 
`Once properly tested I'll add more lines for the actual rain

`Start a for loop in my do loop

Do

For x= 1 to 40 step 2  
  rnd((Line1)640,480,)   `I don't think that is written correctly 
next x 

sync
 loop

`for the ripples, I thought once the line would reach its end point which in this case would be 100 on the screen, I could do an equation with sin and cos to make ripples, but I don't really know how that would go as the maths are what I have to study the most. Ironically, they interest me the most too. So i'm not sure if it would be cos(100)/2, I don't know I need the syntax to calculate it. 

`======================
`SNOW: A WEATHER EFFECT
`BY ALEX JONES (INH)
`======================

sync on
sync rate 30
autocam off
gosub images
gosub createobjects

`=========
`MAIN LOOP
`=========
x#=0
ink rgb(0,0,0),0
do
	for t=1 to 700
		if rnd(3)=0 then sy#=0
		if rnd(3)=1 then sy#=0.2
		if rnd(3)=2 then sy#=0.4
		if rnd(3)=3 then sy#=0.6
		yrotate object t,wrapvalue(object angle y(t)+rnd(2))
		zrotate object t,wrapvalue(object angle z(t)+10+rnd(10))
 
		move object t,sy#
		if object position y(t)<-5+mhh# then position object t,-19+x#,30+rnd(50),30+rnd(10) : inc sfn,1 : inc x#,0.2 : inc mmh#,0.0007
		position object (t),object position x(t),object position y(t)-0.2,object position z(t)
	next t
	if sfn=>700 then x#=0 : sfn=0
	position matrix 1,-200,-5+mmh#,-10
	if matrix position y(1)>0.4 then gosub lowermatrix
	sync
loop

`======================
`LOWER THE MATRIX AGAIN
`======================
lowermatrix:
for t=255 to 15 step -20
set gamma t,t,t
sync
next t
mmh#=0
position matrix 1,-200,-5+mmh#,-10
for t=15 to 255 step 20
set gamma t,t,t
sync
next t
return



`============
`MAKE OBJECTS
`============
createobjects:
	for t=1 to 700
		make object box (t),1,0.01,1
		position object (t),-19+x#,-10+rnd(50),20+rnd(10)
		texture object (t),1
		set object (t),1,0,1
		inc x#,0.2
		xrotate object t,90
	next t

	make object plain 701,400,400
	texture object 701,2
	position object 701,30,0,240
	make matrix 1,500,500,30,30
	position matrix 1,-200,0,-10
	position camera 30,5,-10
	prepare matrix texture 1,3,1,1
	randomize matrix 1,6
return


`======
`IMAGES
`======
images:
cls
	ink rgb(255,255,255),0
	box 90,0,110,200
	box 0,90,200,110


	for t=40 to 60
		circle 100,100,t
	next t

	get image 1,0,0,201,201
cls
	for t=0 to 100
		ink rgb(55+(t*2),55+(t*2),100+t),0
		line 0,t,100,t
	next t
	ink rgb(255,255,255),0
	box 0,100,100,120
	get image 2,0,0,101,121
cls
	ink rgb(200,200,200),0
	box 0,0,300,300
	ink rgb(255,255,255),0
	box 1,1,299,299
	ink rgb(200,200,200),0
	for t=0 to 2500
		a=rnd(300)
		b=rnd(300)
		dot a,b
	next t


	get image 3,0,0,301,301

return

sync on
sync rate 60
autocam off
make object sphere 1,25
make matrix 1,1000,1000,25,25

do
   rem once the object is out of camera view it should be
   rem repositioned randomly in front of the camera
   rem as you move the camera, once it's off screen it should
   rem again be repositioned

   if object in screen(1)=0
      newyang#=wrapvalue(camera angle y()+(rnd(90)-45))
      dist=rnd(300)
      newx=newxvalue(camera position x(),newyang#,dist)
      newz=newzvalue(camera position z(),newyang#,dist)

      position object 1,newx,0,newz
   endif

   up=upkey() : down=downkey() : left=leftkey() : right=rightkey()
   move camera (up-down)*2
   yrotate camera wrapvalue(camera angle y()+((right-left)*2))
   sync
loop

gosub setup
gosub image
gosub fog
gosub matrix
gosub sky
gosub lights
Peak():clear camera view 0

`LOOP
REPEAT
   text 0,0,"Press RETURN to generate a random mountain."
   position camera 170,100,-170
   point camera 0,80,50

   if ReturnKey()=1 then repeat:until Returnkey()=0 : Peak() : gosub Image : clear camera view 0
   sync
UNTIL Mouseclick()=1

end

`--------------------
` Functions
`--------------------
FUNCTION Peak()
   For z = 0 to 20
      For x = 0 to 20
         diff#=ABS(10-x)+ABS(10-z)
         h#=(100-(diff#*6))-rnd(diff#^1.5)
         if h#<0 then h#=0

         set matrix height 1,x,z,h#
         if x=0 or z=0 or x=20 or z=20 then set matrix height 1,x,z,0
      Next x
   Next z

   Normalise(1)
   Update Matrix 1
ENDFUNCTION

`By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
Function Normalise(MatNum)
  For z=1 to 20
    For x=1 to 20
      h8#=get matrix height(MatNum,x,z-1)*5
      h4#=get matrix height(MatNum,x-1,z)*5
      h#=get matrix height(MatNum,x,z)*5
      h2#=get matrix height(MatNum,x,z)*5
      x1#=(x-1)*25.0
      y1#=h#
      x2#=(x+0)*25.0
      y2#=h4#
      dx#=x2#-x1#
      dy#=y2#-y1#
      ax#=atanfull(dx#,dy#)
      ax#=wrapvalue(90-ax#)
      z1#=(z-1)*25.0
      y1#=h2#
      z2#=(z+0)*25.0
      y2#=h8#
      dz#=z2#-z1#
      dy#=y2#-y1#
      az#=atanfull(dz#,dy#)
      az#=wrapvalue(90-az#)
      nx#=sin(ax#)
      ny#=cos(ax#)
      nz#=sin(az#)
      Set matrix normal MatNum,x,z,nx#,ny#,nz#
    next x
  next z
  Update Matrix MatNum
EndFunction

`--------------------
` Gosubs
`--------------------
Setup:
   set display mode 1024,768,32
   randomize timer()
   hide mouse
   sync on
   sync rate 30
   autocam off
Return
`----
Matrix:
   make matrix 1,100,100,20,20
   set matrix wireframe off 1
   prepare matrix texture 1,1,20,20
   for z = 0 to 19
      for x = 0 to 19
         set matrix tile 1,x,z,x+(z*20)
      next x
   next z
Return
`----
Lights:
   color ambient light 0
   set ambient light 20
   make light 1
   set directional light 0,0,0,1
   set directional light 1,1,-.5,1
   color backdrop rgb(0,100,255)
Return
`----
Image:
   ink RGB(200,200,180),rgb(40,40,45)
   cls
   for n = 1 to 200
      x=rnd(256):y=rnd(256)
      line x,y,x+rnd(64),y+rnd(64)
   next n
   get image 1,0,0,256,256
Return
`----
Sky:
   cls 0
   for y = 0 to 100
      r=(y/100.)*255
      g=(y/100.)*100
      `b=(y/100.)*255
      ink rgb(r+50,155+g,255),0
      line 0,y,100,y
   next y
   get image 2,0,0,1,100

   make object sphere 10,1000
   set object 10,1,1,0
   texture object 10,2
   position object 10,camera position x(),camera position y(),camera position z()
Return
`----
Fog:
   for f = 1 to 5
      make object plain 10+f,1000,1000
      xrotate object 10+f,90
      ghost object on 10+f
      position object 10+f,50,30-(5*f),50
   next f
Return