Sorry your browser is not supported!

REM Iyahtzou, by LBFN 28 March, 2010
randomize timer()
sync on : sync rate 60
set display mode 800,600,32
backdrop off : hide mouse
dim dice(5) : dim okay(6) : dim colr(8)
dim p1(5,20) : dim change(5) : dim num_spins(4)
dim name$(4) : dim cats_full(4) : dim score(4)
for i = 1 to 20 : for x = 1 to 5 : p1(x,i) = 0 : next x : next i
for i = 1 to 4 : num_spins(i) = 0 : cats_full(i) = 0 : next i
turn = 1
SW = screen width() : SH = screen height()
white = rgb(255,255,255) : colr(1) = white
red = rgb(225,0,0) : colr(2) = red
blue = rgb(0,35,182) : colr(3) = blue
green = rgb(0,150,30) : colr(4) = green
purple = rgb(255,0,255) : colr(5) = purple
grey = rgb(128,128,128) : colr(6) = grey
brown = rgb(128,64,0) : colr(7) = brown
pink = rgb(255,128,128) : colr(8) = pink
black = 0 : yellow = rgb(255,255,0)
gosub TITLE_SCREEN
gosub MAKE_IMGS
show mouse
if NumPlayers > 1
` player versus the other humans
  repeat
    cf = 0
    for turn = 1 to NumPLayers
      if cats_full(turn) = 0
        gosub BEGIN
      else
        inc cf,1
      endif
    next turn
  until cf = NumPlayers
  gosub DeclareWinner
else
` player versus the computer
  repeat
    cf = 0
    if cats_full(1) = 0
      turn = 1 : gosub BEGIN
    else
      cf = 1
    endif
    if cats_full(2) = 0
      gosub CPU_TURN
    else
      inc cf,1
    endif
  until cf = 2
  gosub DeclareWinner
` end of game totals and comparison
endif
for i = 1 to 6
  if sprite exist(i) = 1 then delete sprite i
  if image exist(i) = 1 then delete image i
next i
end

BEGIN:
` setup screen
 cls green
 ink blue,0
 box 0,420,SW - 1,SH - 1
 ink white,0
 cat_selected = 0
while cat_selected = 0
  center text SW * .5,0,name$(turn)
  if num_spins(turn) = 0
    gosub ROLL_DICE : gosub DP_ROLL :  num_spins(turn) = num_spins(turn) + 1
  else
    if num_spins(turn) > 0 and num_spins(turn) < 3 then gosub RE_ROLL_DICE : gosub DP_ROLL :  num_spins(turn) = num_spins(turn) + 1
  endif
  s = SW - 150 : gosub PRINT_STATUS
  ink white,0
  if NumPlayers > 1 or turn = 1
    if num_spins(turn) < 2
      text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
      text 10,SH - 140, "Right click to spin."
    else
      text 10,SH - 160,"Select category by left clicking on it."
    endif
    sync
  else
  ` computer's turn
    text 10,SH - 60,"Computer is deciding what to do."
    sync
    wait 1000
  endif
`  num_spins(turn) = num_spins(turn) + 1
  if num_spins(turn) < 3
    for i = 1 to 5 : change(i) = 0 : next i
    do
      mc = mouseclick() : mx = mousex() : my = mousey()
`      ink green,0
`      box 0,0,50,50
      ink white,0
 `     text 0,0,"mx: " + str$(mx)
 `     text 0,20,"my: " + str$(my)
      if mc = 1
      ` is the user clicking on a die?
        if my >= 19 and my <= 81 and mx < 390
          for i = 1 to 5
            if mx >= (((i - 1) * 70) + 50) and mx <= (((i - 1) * 70) + 110)
              if change(i) = 0
                change(i) = 1 : ink rgb(180,0,130),0
              else
                change(i) = 0 : ink rgb(0,150,30),0
              endif
              x = (((i - 1) * 70) + 44) : y = 16
              line x,y,x + 68,y
              line x + 68,y,x + 68,y + 68
              line x,y,x,y + 68
              line x,y + 68,x + 68,y + 68
            endif
          next i
        endif
      ` is the user clicking on a category?
        if mx >= (SW - 150) and my < 334
          cat = ((my - 13) / 20) + 1
         ` check to make sure the user selected a viable category
          if cat <> 7 and cat <> 8 and cat <> 9 and cat < 17
            dne = 0
          ` has the user already used that category?
            if p1(turn,cat) > 0
              if cat = 15 and iyahtzee = 1
              ` got more than one Iyahtzou
                p1(turn,cat) = p1(turn,cat) + 100 : cat_selected = cat
              else
                ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
                time = timer() + 1250
                repeat
                  text 10,SH - 160,"You already picked that!!"
                  sync
               until timer() > time
               dne = 1
               ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
              endif
            else
            ` does the user have any points in the category selected?
             if p1(5,cat) = 0
                ink blue,0 : box 0,420,SW - 1,SH - 1
                ink white,0
                restore CatData
                for k = 1 to cat : read a$ : next k
                text 10,SH - 160,"Your score will be zero in " + a$ +"."
                text 10,SH - 140,"Continue? (Y/N)"
                scan = 0
                repeat
                  scan = scancode()
                  sync
                until scan > 0
                if scan = 21 : ` Y
                  p1(turn,cat) = -1 : dne = 0 : cat_selected = cat
                else
                ` user wants to place it somewhere else
                  ink blue,0 : box 0,420,SW - 1,SH - 1
                  ink white,0
                  if num_spins(turn) > 2
                    text 10,SH - 160,"Select category by left clicking on it."
 `                   text 10,SH - 140,"num_spins(turn) = " + str$(num_spins(turn))
                  else
                    text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
                    text 10,SH - 140, "Right click to spin."
                  endif
 `                 if num_spins(turn) < 2
                  dne = 1 : cat_selected = 0
  `                else
   `                 cat_selected = cat : dne = 0
    `              endif
                endif
              else
                p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
                cat_selected = cat : dne = 0
              endif
            endif
            s = SW - 150 : gosub PRINT_STATUS
            sync
            wait 100
            if dne = 0 then exit
          endif
        endif
        while mc = 1
          mc = mouseclick()
          sync
        endwhile
      endif
      if mc = 2 then exit
      sync
    loop
  else
  ` user can only place it in a category
    mc = mouseclick() : mx = mousex() : my = mousey()
    if mc = 1 and  mx >= (SW - 150) and my < 334
      cat = ((my - 13) / 20) + 1
   ` did the user make a legitimate category choice?
      if cat <> 7 and cat <> 8 and cat <> 9 and cat < 17
        dne = 0
        if p1(turn,cat) > 0
          if cat = 15 and iyahtzee = 1
          ` got more than one Iyahtzou
            p1(turn,cat) = p1(turn,cat) + 100 : cat_selected = cat
          else
            ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
            time = timer() + 1250
            repeat
              text 10,SH - 160,"You already picked that!!"
              sync
             until timer() > time
             dne = 1
            ink blue,0 : box 0,420,SW - 1,SH - 1
            ink white,0
          endif
        else
        ` does the user have any points in the category selected?
`          time = timer() + 1500
`          repeat
`            text 100,100,"cat = " + str$(cat)
`            sync
`          until timer() > time
          if p1(5,cat) = 0
            ink blue,0 : box 0,420,SW - 1,SH - 1
            ink white,0
            restore CatData
            for k = 1 to cat : read a$ : next k
            text 10,SH - 160,"Your score will be zero in " + a$ + "."
            text 10,SH - 140,"Continue? (Y/N)"
            scan = 0
            repeat
              scan = scancode()
              sync
            until scan > 0
            if scan = 21 : ` Y
              p1(turn,cat) = -1 : dne = 0
            else
          `   user wants to place it somewhere else
              ink blue,0 : box 0,420,SW - 1,SH - 1
              ink white,0
              if num_spins(turn) > 2
                text 10,SH - 160,"Select category by left clicking on it."
 `               text 10,SH - 140,"num_spins(turn) = " + str$(num_spins(turn))
              else
                text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
                text 10,SH - 140, "Right click to spin."
              endif
 ` `             if num_spins(turn) < 2
              dne = 1 : cat_selected = 0
  `            else
   `             cat_selected = cat : dne = 0
    `          endif
            endif
          else
            p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
            cat_selected = cat
          endif
`          p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
`          cat_selected = cat
        endif
      endif
      s = SW - 150 : gosub PRINT_STATUS
      sync
      wait 100
      if dne = 0 then exit
    endif
  endif

endwhile
num_spins(turn) = 0
catCount = 0
for t = 1 to 16
  if p1(turn,t) <> 0 then inc catCount
next t
if catCount = 13 then cats_full(turn) = 1
return


PRINT_STATUS:
` enter with 's' equals where to draw the lines
ink grey,0
box s,10,s + 149,SH - 200
ink white,0
line s,10,s + 149,10 : line s,10,s,SH - 200 : line s,SH - 200,s + 149,SH - 200 : line s + 149,10,s + 149,SH - 200
for j = 32 to 372 step 20
  line s,j,s + 149,j
next j
set text size 11
s = s + 5 : k = 15
if p1(turn,1) = 0
  ink yellow,0
  text s + 120,k,str$(okay(1)) : p1(5,1) = okay(1)
else
  ink red,0
  a$ = str$(p1(turn,1)) : if a$ = "-1" then a$ = "0"
  text s + 120,k,a$
endif
text s,k,"Onesies:"
if p1(turn,2) = 0
  ink yellow,0
  text s + 120,k + 20,str$(okay(2)*2) : p1(5,2) = okay(2) * 2
else
  ink red,0
  a$ = str$(p1(turn,2)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 20,a$
endif
text s,k + 20, "Twosies:"
if p1(turn,3) = 0
  ink yellow,0
  text s + 120,k + 40,str$(okay(3)*3) : p1(5,3) = okay(3) * 3
else
  ink red,0
  a$ = str$(p1(turn,3)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 40,a$
endif
text s,k + 40, "Trays:"
if p1(turn,4) = 0
  ink yellow,0
  text s + 120,k + 60, str$(okay(4)*4) : p1(5,4) = okay(4) * 4
else
  ink red,0
  a$ = str$(p1(turn,4)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 60,a$
endif
text s,k + 60, "Quads:      "
if p1(turn,5) = 0
  ink yellow,0
  text s + 120,k + 80,str$(okay(5)*5) : p1(5,5) = okay(5) * 5
else
  ink red,0
  a$ = str$(p1(turn,5)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 80,a$
endif
text s,k + 80, "Quints:     "
if p1(turn,6) = 0
  ink yellow,0
  text s + 120,k + 100,str$(okay(6)*6) : p1(5,6) = okay(6) * 6
else
  ink red,0
  a$ = str$(p1(turn,6)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 100,a$
endif
text s,k + 100, "Sixes:      "
` get sub-total for the top
ink purple,0
scoar = 0
for g = 1 to 6
  if p1(turn,g) <> -1 then scoar = scoar + p1(turn,g)
next g
text s,k + 120,"Sub-Total:"
text s + 120,k + 120,str$(scoar)
text s,k + 140,"Bonus"
ba = 0 : if scoar >= 63 then ba = 35
text s + 120,k + 140,str$(ba)
text s,k + 160,"Total Top:"
text s + 120,k + 160,str$(scoar + ba)
chance = okay(1) + okay(2) * 2 + okay(3) * 3 + okay(4) * 4 + okay(5) * 5 + okay(6) * 6
bscoar = 0
if p1(turn,10) = 0
  ink yellow,0
  if three_of_a_kind = 1
    text s + 120,k + 180,str$(chance) : p1(5,10) = chance
  else
    text s + 120,k + 180,str$(three_of_a_kind) : p1(5,10) = three_of_a_kind
  endif
else
  ink red,0
  a$ = str$(p1(turn,10)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 180,a$
  if p1(turn,10) <> -1 then bscoar = bscoar + p1(turn,10)
endif
text s,k + 180,"Three of a kind:"
if p1(turn,11) = 0
  ink yellow,0
  if four_of_a_kind = 1
    text s + 120,k + 200,str$(chance)  : p1(5,11) = chance
  else
    text s + 120,k + 200,str$( four_of_a_kind) : p1(5,11) = four_of_a_kind
  endif
else
  ink red,0
  a$ = str$(p1(turn,11)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 200,a$
  if p1(turn,11) <> -1 then bscoar = bscoar + p1(turn,11)
endif
text s,k + 200,"Four of a kind:"
if p1(turn,12) = 0
  ink yellow,0
  if full_house = 1
    text s + 120,k + 220,"25" : p1(5,12) = 25
  else
    text s + 120,k + 220,str$(full_house) : p1(5,12) = full_house
  endif
else
  ink red,0
  a$ = str$(p1(turn,12)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 220,a$
  if p1(turn,12) <> -1 then bscoar = bscoar + p1(turn,12)
endif
text s,k + 220,"Full House:"
if p1(turn,13) = 0
  ink yellow,0
  if small_strait = 1
    text s + 120,k + 240,"30" : p1(5,13) = 30
  else
    text s + 120,k + 240,str$(small_strait) : p1(5,13) = small_strait
  endif
else
  ink red,0
  a$ = str$(p1(turn,13)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 240,a$
  if p1(turn,13) <> -1 then bscoar = bscoar + p1(turn,13)
endif
text s,k + 240,"small straight:"
if p1(turn,14) = 0
  ink yellow,0
  if large_strait = 1
    text s + 120,k + 260,"40" : p1(5,14) = 40
  else
    text s + 120,k + 260,str$(large_strait) : p1(5,14) = large_strait
  endif
else
  ink red,0
  a$ = str$(p1(turn,14)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 260,a$
  if p1(turn,14) <> -1 then bscoar = bscoar + p1(turn,14)
endif
text s,k + 260,"large straight:"
if p1(turn,15) = 0
  ink yellow,0
  if iyahtzee = 1
    text s + 120,k + 280,"50" : p1(5,15) = 50
  else
    text s + 120,k + 280,str$(iyahtzee) : p1(5,15) = iyahtzee
  endif
else
  ink red,0
  a$ = str$(p1(turn,15)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 280,a$
  if p1(turn,15) <> -1 then bscoar = bscoar + p1(turn,15)
endif
text s,k + 280,"iyahtzou:"
if p1(turn,16) = 0
  ink yellow,0
  text s + 120,k + 300,str$(chance) : p1(5,16) = chance
else
  ink red,0
  a$ = str$(p1(turn,16)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 300,a$
  if p1(turn,16) <> -1 then bscoar = bscoar + p1(turn,16)
endif
text s,k + 300,"Chance:"
ink purple,0
text s,k + 320,"Sub-Total:"
text s + 120,k + 320,str$(bscoar)
text s,k + 340,"Grand Total:"
text s + 120,k + 340,str$(scoar + bscoar)
score(turn) = scoar + bscoar
sync
return



DP_ROLL:
`cls rgb(0,150,30)
`ink rgb(255,255,255),0
`ink rgb(0,35,182),0
`box 0,420,639,479
for i=1 to 5
 if num_spins(turn) > 0 and change(i) = 0 then paste image dice(i),((i-1)*70)+50,20
next i
for i=1 to 5
 if num_spins(turn) = 0 or change(i) = 1
  for spin = 1 to (rnd(17) + 5)
  paste image rnd(5) + 1,((i - 1) * 70) + 50,20
  ` print dice(i)
  sync
`  wait 5
  next spin
  wait 5
 endif
paste image dice(i),((i - 1) * 70) + 50,20
next i
sync
return

MAKE_IMGS:

create bitmap 1,60,60
restore IMG_DATA
for img = 1 to 6
  cls
  ink blue,0
  box 0,0,60,60
  ink white,0
  box 2,2,58,58
  read NumberOfDots
  ink red,0
  for NOD = 1 to NumberOfDots
    read x,y
    box x,y,x + 6,y + 2
    box x + 1,y - 1,x + 5,y + 3
    box x + 2,y -2,x + 4,y + 4
  next NOD
 get image img,0,0,60,60
next img
set current bitmap 0
delete bitmap 1
sync



return

IMG_DATA:
rem one  NumberOfDots,x1,y1,x2,y2 per dot
data 1,28,28
rem two
data 2,28,14,28,42
rem three
data 3,28,14,28,28,28,42
rem four
data 4,14,14,42,14,14,42,42,42
rem five
data 5,14,14,42,14,28,28,14,42,42,42
rem six
data 6,14,14,14,28,14,42,42,14,42,28,42,42


RE_ROLL_DICE:
 cls green
 ink blue,0
 box 0,420,SW - 1,SH - 1
for i = 1 to 5
 if change(i) > 0 then dice(i) = rnd(5) + 1
next i
gosub EVAL_ROLL
return

ROLL_DICE:
for i = 1 to 5
 dice(i) = rnd(5) + 1
next i
gosub EVAL_ROLL
return

EVAL_ROLL:
` determine what player has got
` init vars
iyahtzee = 0 : large_strait = 0 : small_strait = 0 : full_house = 0
four_of_a_kind = 0 : three_of_a_kind = 0: sixes = 0 : fives = 0 : fours = 0: threes = 0
twos = 0 : onesies = 0
rem store data
for i = 1 to 6 : okay(i) = 0 : next i
for t = 1 to 6
 for i = 1 to 5
  if dice(i) = t then okay(t) = okay(t) + 1
 next i
next t
rem iyahtzee
t = dice(1) : ct = 0
for i = 1 to 6
 if okay(i) = 5 then ct = i
next i
if ct > 0 then iyahtzee = 1
rem small & large strait
ct = 0
for i = 1 to 5
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then large_strait = 1 : small_strait = 1
ct = 0
for i = 2 to 6
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then large_strait = 1 : small_strait = 1
ct = 0
for i = 1 to 4
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
ct = 0
for i = 2 to 5
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
ct = 0
for i = 3 to 6
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
rem full house
nbr1 = 0 : nbr2 = 0
for t = 1 to 6
 if okay(t) >= 3 then nbr1 = t
 if okay(t) >= 2 and t <> nbr1 then nbr2 = t
next t
if nbr1 > 0 and nbr2 > 0 then full_house = 1
rem four of a kind
ct = 0 : dt = 0
for i = 1 to 6
 if okay(i) >= 4 then ct = 1
 if okay(i) >= 3 then dt = 1
next i
if ct = 1 then four_of_a_kind = 1 : three_of_a_kind = 1
if dt = 1 then three_of_a_kind = 1
return

TITLE_SCREEN:
cls : okay = 0 : counter = 0 : CTimer# = timer() + 80
repeat
  if timer() > CTimer# then inc counter : CTimer# = timer() + 80 : if counter > 5 then counter = 1
  ink colr(counter),0
  box 0,0,SW,SH
  ink colr(counter + 1),0
  box 4,4,SW - 4,SH - 4
  ink colr(counter + 2),0
  box 8,8,SW - 8,SH - 8
  ink colr(counter + 3),0
  box 12,12,SW - 12,SH - 12
  ink rgb(0,0,0),0
  box 16,16,SW - 16,SH - 16
  s = SW * .5 : h = SH * .4 : a$ = "Iyahtzou"
  set text size 50
  ink blue,0 : center text s + 6, h - 6,a$
  ink purple,0 : center text s + 8, h - 8,a$
  ink white,0 : center text s + 10, h - 10,a$
  ink red,0 : center text s + 12, h - 12,a$
  set text size 14
  h = SH * .55 : a$ = "by LBFN"
  ink red,0 : center text s + 1, h - 1,a$
  ink blue,0 : center text s + 2, h - 2,a$
  ink green,0 : center text s + 3, h - 3,a$
  ink purple,0 : center text s + 4, h - 4,a$
  ink colr(counter),0
  ttd$ = "Press 2, 3 or 4 to select # of players"
  tw = text width(ttd$) * .5
  center text (SW * .5),SH * .8 ,ttd$
  scan = scancode()
  if scan >= 2 and scan <= 5 then NumPlayers = scan - 1 : okay = 1
  sync
until okay = 1
cls
` wait until the user is not pressing a key
repeat
  sync
until scancode() = 0
ink white,0
for n = 1 to NumPlayers
  name$(n)=""
  set cursor 100,100 + n * 20
  input "Enter the name for player " + str$(n) + " : ";name$
  Name$(n) = name$
next n
`if NumPLayers = 1 then name$(2) = "Computah"
return

CPU_TURN:
cls
text 100,100,"It's the computah's turn."
sync
wait 1000
end

return

DeclareWinner:
` display everyone's scores
cls green
ink blue,0
box 0,420,SW - 1,SH - 1
for turn = 1 to NumPlayers
  s = ((turn - 1) * 180) + 5
  gosub  PRINT_STATUS
  ink yellow,0
  set text size 11
  text s + 20,380,name$(turn)
next turn
` calculate the scores
winner = 0
if score(1) > score(2) and score(1) > score(3) and score(1) > score(4) then winner = 1
if score(2) > score(1) and score(2) > score(3) and score(2) > score(4) then winner = 2
if NumPLayers >= 3
  if score(3) > score(1) and score(3) > score(2) and score(3) > score(4) then winner = 3
endif
if NumPLayers = 4
  if score(4) > score(1) and score(4) > score(2) and score(4) > score(3) then winner = 4
endif
repeat
  mc = mouseclick()
  sync
until mc = 0
ink white,0
if winner = 0
  ` wait until the user lets go of the mouse button
  repeat
    center text SW * .5,SH - 150,"It's a tie!!!"
    center text SW * .5,SH - 130,"Click mouse to quit."
    sync
  until mouseclick() > 0
else
  repeat
    mc = mouseclick()
    center text SW * .5,SH- 150,name$(winner) + " is the winner!"
    center text SW * .5,SH -130,"Click mouse to quit."
    sync
  until mc > 0
endif
return

CatData:
data "Onesies","twosies","trays","quads","quints","sixes","total","bonus","upper total","three of a kind","four of a kind"
data "full house","small straight","large straight","iyahtzou","chance","lower total","grand total"

REM Iyahtzou, by LBFN 30 March, 2010
randomize timer()
sync on : sync rate 60
set display mode 800,600,32
backdrop off : hide mouse
dim dice(5) : dim okay(6) : dim colr(8)
dim p1(5,20) : dim change(5) : dim num_spins(4)
dim name$(4) : dim cats_full(4) : dim score(4)
for i = 1 to 20 : for x = 1 to 5 : p1(x,i) = 0 : next x : next i
for i = 1 to 4 : num_spins(i) = 0 : cats_full(i) = 0 : next i
turn = 1
SW = screen width() : SH = screen height()
white = rgb(255,255,255) : colr(1) = white
red = rgb(225,0,0) : colr(2) = red
blue = rgb(0,35,182) : colr(3) = blue
green = rgb(0,150,30) : colr(4) = green
purple = rgb(255,0,255) : colr(5) = purple
grey = rgb(128,128,128) : colr(6) = grey
brown = rgb(128,64,0) : colr(7) = brown
pink = rgb(255,128,128) : colr(8) = pink
black = 0 : yellow = rgb(255,255,0)
gosub TITLE_SCREEN
gosub MAKE_IMGS
show mouse
if NumPlayers > 1
` player versus the other humans
  repeat
    cf = 0
    for turn = 1 to NumPLayers
      if cats_full(turn) = 0
        gosub BEGIN
      else
        inc cf,1
      endif
    next turn
  until cf = NumPlayers
  gosub DeclareWinner
else
` player versus the computer
  repeat
    cf = 0
    if cats_full(1) = 0
      turn = 1 : gosub BEGIN
    else
      cf = 1
    endif
    if cats_full(2) = 0
      gosub CPU_TURN
    else
      inc cf,1
    endif
  until cf = 2
  gosub DeclareWinner
` end of game totals and comparison
endif
for i = 1 to 6
  if sprite exist(i) = 1 then delete sprite i
  if image exist(i) = 1 then delete image i
next i
end

BEGIN:
` setup screen
 cls green
 ink blue,0
 box 0,420,SW - 1,SH - 1
 ink white,0
 cat_selected = 0
while cat_selected = 0
  center text SW * .5,0,name$(turn)
  if num_spins(turn) = 0
    gosub ROLL_DICE : gosub DP_ROLL :  num_spins(turn) = num_spins(turn) + 1
  else
    if num_spins(turn) > 0 and num_spins(turn) < 3 then gosub RE_ROLL_DICE : gosub DP_ROLL :  num_spins(turn) = num_spins(turn) + 1
  endif
  s = SW - 150 : gosub PRINT_STATUS
  ink white,0
  if NumPlayers > 1 or turn = 1
    if num_spins(turn) < 2
      text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
      text 10,SH - 140, "Right click to spin."
    else
      text 10,SH - 160,"Select category by left clicking on it."
    endif
    sync
  else
  ` computer's turn
    text 10,SH - 60,"Computer is deciding what to do."
    sync
    wait 1000
  endif
`  num_spins(turn) = num_spins(turn) + 1
  if num_spins(turn) < 3
    for i = 1 to 5 : change(i) = 0 : next i
    do
      mc = mouseclick() : mx = mousex() : my = mousey()
`      ink green,0
`      box 0,0,50,50
      ink white,0
 `     text 0,0,"mx: " + str$(mx)
 `     text 0,20,"my: " + str$(my)
      if mc = 1
      ` is the user clicking on a die?
        if my >= 19 and my <= 81 and mx < 390
          for i = 1 to 5
            if mx >= (((i - 1) * 70) + 50) and mx <= (((i - 1) * 70) + 110)
              if change(i) = 0
                change(i) = 1 : ink rgb(180,0,130),0
              else
                change(i) = 0 : ink rgb(0,150,30),0
              endif
              x = (((i - 1) * 70) + 44) : y = 16
              line x,y,x + 68,y
              line x + 68,y,x + 68,y + 68
              line x,y,x,y + 68
              line x,y + 68,x + 68,y + 68
            endif
          next i
        endif
      ` is the user clicking on a category?
        if mx >= (SW - 150) and my < 334
          cat = ((my - 13) / 20) + 1
         ` check to make sure the user selected a viable category
          if cat <> 7 and cat <> 8 and cat <> 9 and cat < 17
            dne = 0
          ` has the user already used that category?
            if p1(turn,cat) > 0
              if cat = 15 and iyahtzee = 1
              ` got more than one Iyahtzou
                p1(turn,cat) = p1(turn,cat) + 100 : cat_selected = cat
              else
                ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
                time = timer() + 1250
                repeat
                  text 10,SH - 160,"You already picked that!!"
                  sync
               until timer() > time
               dne = 1
               ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
              endif
            else
            ` does the user have any points in the category selected?
             if p1(5,cat) = 0
                ink blue,0 : box 0,420,SW - 1,SH - 1
                ink white,0
                restore CatData
                for k = 1 to cat : read a$ : next k
                text 10,SH - 160,"Your score will be zero in " + a$ +"."
                text 10,SH - 140,"Continue? (Y/N)"
                scan = 0
                repeat
                  scan = scancode()
                  sync
                until scan > 0
                if scan = 21 : ` Y
                  p1(turn,cat) = -1 : dne = 0 : cat_selected = cat
                else
                ` user wants to place it somewhere else
                  ink blue,0 : box 0,420,SW - 1,SH - 1
                  ink white,0
                  if num_spins(turn) > 2
                    text 10,SH - 160,"Select category by left clicking on it."
 `                   text 10,SH - 140,"num_spins(turn) = " + str$(num_spins(turn))
                  else
                    text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
                    text 10,SH - 140, "Right click to spin."
                  endif
 `                 if num_spins(turn) < 2
                  dne = 1 : cat_selected = 0
  `                else
   `                 cat_selected = cat : dne = 0
    `              endif
                endif
              else
                p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
                cat_selected = cat : dne = 0
              endif
            endif
            s = SW - 150 : gosub PRINT_STATUS
            sync
            if dne = 0 then exit
          endif
        endif
        while mc = 1
          mc = mouseclick()
          sync
        endwhile
      endif
      if mc = 2 then exit
      sync
    loop
  else
  ` user can only place it in a category
    mc = mouseclick() : mx = mousex() : my = mousey()
    if mc = 1 and  mx >= (SW - 150) and my < 334
      cat = ((my - 13) / 20) + 1
   ` did the user make a legitimate category choice?
      if cat <> 7 and cat <> 8 and cat <> 9 and cat < 17
        dne = 0
        if p1(turn,cat) > 0
          if cat = 15 and iyahtzee = 1
          ` got more than one Iyahtzou
            p1(turn,cat) = p1(turn,cat) + 100 : cat_selected = cat
          else
            ink blue,0 : box 0,420,SW - 1,SH - 1 : ink white,0
            time = timer() + 1250
            repeat
              text 10,SH - 160,"You already picked that!!"
              sync
             until timer() > time
             dne = 1
            ink blue,0 : box 0,420,SW - 1,SH - 1
            ink white,0
          endif
        else
        ` does the user have any points in the category selected?
`          time = timer() + 1500
`          repeat
`            text 100,100,"cat = " + str$(cat)
`            sync
`          until timer() > time
          if p1(5,cat) = 0
            ink blue,0 : box 0,420,SW - 1,SH - 1
            ink white,0
            restore CatData
            for k = 1 to cat : read a$ : next k
            text 10,SH - 160,"Your score will be zero in " + a$ + "."
            text 10,SH - 140,"Continue? (Y/N)"
            scan = 0
            repeat
              scan = scancode()
              sync
            until scan > 0
            if scan = 21 : ` Y
              p1(turn,cat) = -1 : dne = 0
            else
          `   user wants to place it somewhere else
              ink blue,0 : box 0,420,SW - 1,SH - 1
              ink white,0
              if num_spins(turn) > 2
                text 10,SH - 160,"Select category by left clicking on it."
 `               text 10,SH - 140,"num_spins(turn) = " + str$(num_spins(turn))
              else
                text 10,SH - 160, "Left Click on the die you want to change or click on the category you want."
                text 10,SH - 140, "Right click to spin."
              endif
 ` `             if num_spins(turn) < 2
              dne = 1 : cat_selected = 0
  `            else
   `             cat_selected = cat : dne = 0
    `          endif
            endif
          else
            p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
            cat_selected = cat
          endif
`          p1(turn,cat) = p1(5,cat) : if p1(5,cat) = 0 then p1(turn,cat) = -1
`          cat_selected = cat
        endif
      endif
      s = SW - 150 : gosub PRINT_STATUS
      sync

      if dne = 0 then exit
    endif
  endif

endwhile
num_spins(turn) = 0
catCount = 0
for t = 1 to 16
  if p1(turn,t) <> 0 then inc catCount
next t
if catCount = 13 then cats_full(turn) = 1
return


PRINT_STATUS:
` enter with 's' equals where to draw the lines
ink grey,0
box s,10,s + 149,SH - 200
ink white,0
line s,10,s + 149,10 : line s,10,s,SH - 200 : line s,SH - 200,s + 149,SH - 200 : line s + 149,10,s + 149,SH - 200
for j = 32 to 372 step 20
  line s,j,s + 149,j
next j
set text size 11
s = s + 5 : k = 15
if p1(turn,1) = 0
  ink yellow,0
  text s + 120,k,str$(okay(1)) : p1(5,1) = okay(1)
else
  ink red,0
  a$ = str$(p1(turn,1)) : if a$ = "-1" then a$ = "0"
  text s + 120,k,a$
endif
text s,k,"Onesies:"
if p1(turn,2) = 0
  ink yellow,0
  text s + 120,k + 20,str$(okay(2)*2) : p1(5,2) = okay(2) * 2
else
  ink red,0
  a$ = str$(p1(turn,2)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 20,a$
endif
text s,k + 20, "Twosies:"
if p1(turn,3) = 0
  ink yellow,0
  text s + 120,k + 40,str$(okay(3)*3) : p1(5,3) = okay(3) * 3
else
  ink red,0
  a$ = str$(p1(turn,3)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 40,a$
endif
text s,k + 40, "Trays:"
if p1(turn,4) = 0
  ink yellow,0
  text s + 120,k + 60, str$(okay(4)*4) : p1(5,4) = okay(4) * 4
else
  ink red,0
  a$ = str$(p1(turn,4)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 60,a$
endif
text s,k + 60, "Quads:      "
if p1(turn,5) = 0
  ink yellow,0
  text s + 120,k + 80,str$(okay(5)*5) : p1(5,5) = okay(5) * 5
else
  ink red,0
  a$ = str$(p1(turn,5)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 80,a$
endif
text s,k + 80, "Quints:     "
if p1(turn,6) = 0
  ink yellow,0
  text s + 120,k + 100,str$(okay(6)*6) : p1(5,6) = okay(6) * 6
else
  ink red,0
  a$ = str$(p1(turn,6)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 100,a$
endif
text s,k + 100, "Sixes:      "
` get sub-total for the top
ink purple,0
scoar = 0
for g = 1 to 6
  if p1(turn,g) <> -1 then scoar = scoar + p1(turn,g)
next g
text s,k + 120,"Sub-Total:"
text s + 120,k + 120,str$(scoar)
text s,k + 140,"Bonus"
ba = 0 : if scoar >= 63 then ba = 35
text s + 120,k + 140,str$(ba)
text s,k + 160,"Total Top:"
text s + 120,k + 160,str$(scoar + ba)
chance = okay(1) + okay(2) * 2 + okay(3) * 3 + okay(4) * 4 + okay(5) * 5 + okay(6) * 6
bscoar = 0
if p1(turn,10) = 0
  ink yellow,0
  if three_of_a_kind = 1
    text s + 120,k + 180,str$(chance) : p1(5,10) = chance
  else
    text s + 120,k + 180,str$(three_of_a_kind) : p1(5,10) = three_of_a_kind
  endif
else
  ink red,0
  a$ = str$(p1(turn,10)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 180,a$
  if p1(turn,10) <> -1 then bscoar = bscoar + p1(turn,10)
endif
text s,k + 180,"Three of a kind:"
if p1(turn,11) = 0
  ink yellow,0
  if four_of_a_kind = 1
    text s + 120,k + 200,str$(chance)  : p1(5,11) = chance
  else
    text s + 120,k + 200,str$( four_of_a_kind) : p1(5,11) = four_of_a_kind
  endif
else
  ink red,0
  a$ = str$(p1(turn,11)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 200,a$
  if p1(turn,11) <> -1 then bscoar = bscoar + p1(turn,11)
endif
text s,k + 200,"Four of a kind:"
if p1(turn,12) = 0
  ink yellow,0
  if full_house = 1
    text s + 120,k + 220,"25" : p1(5,12) = 25
  else
    text s + 120,k + 220,str$(full_house) : p1(5,12) = full_house
  endif
else
  ink red,0
  a$ = str$(p1(turn,12)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 220,a$
  if p1(turn,12) <> -1 then bscoar = bscoar + p1(turn,12)
endif
text s,k + 220,"Full House:"
if p1(turn,13) = 0
  ink yellow,0
  if small_strait = 1
    text s + 120,k + 240,"30" : p1(5,13) = 30
  else
    text s + 120,k + 240,str$(small_strait) : p1(5,13) = small_strait
  endif
else
  ink red,0
  a$ = str$(p1(turn,13)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 240,a$
  if p1(turn,13) <> -1 then bscoar = bscoar + p1(turn,13)
endif
text s,k + 240,"small straight:"
if p1(turn,14) = 0
  ink yellow,0
  if large_strait = 1
    text s + 120,k + 260,"40" : p1(5,14) = 40
  else
    text s + 120,k + 260,str$(large_strait) : p1(5,14) = large_strait
  endif
else
  ink red,0
  a$ = str$(p1(turn,14)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 260,a$
  if p1(turn,14) <> -1 then bscoar = bscoar + p1(turn,14)
endif
text s,k + 260,"large straight:"
if p1(turn,15) = 0
  ink yellow,0
  if iyahtzee = 1
    text s + 120,k + 280,"50" : p1(5,15) = 50
  else
    text s + 120,k + 280,str$(iyahtzee) : p1(5,15) = iyahtzee
  endif
else
  ink red,0
  a$ = str$(p1(turn,15)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 280,a$
  if p1(turn,15) <> -1 then bscoar = bscoar + p1(turn,15)
endif
text s,k + 280,"iyahtzou:"
if p1(turn,16) = 0
  ink yellow,0
  text s + 120,k + 300,str$(chance) : p1(5,16) = chance
else
  ink red,0
  a$ = str$(p1(turn,16)) : if a$ = "-1" then a$ = "0"
  text s + 120,k + 300,a$
  if p1(turn,16) <> -1 then bscoar = bscoar + p1(turn,16)
endif
text s,k + 300,"Chance:"
ink purple,0
text s,k + 320,"Sub-Total:"
text s + 120,k + 320,str$(bscoar)
text s,k + 340,"Grand Total:"
text s + 120,k + 340,str$(scoar + bscoar)
score(turn) = scoar + bscoar
sync
return



DP_ROLL:
`cls rgb(0,150,30)
`ink rgb(255,255,255),0
`ink rgb(0,35,182),0
`box 0,420,639,479
for i=1 to 5
 if num_spins(turn) > 0 and change(i) = 0 then paste image dice(i),((i-1)*70)+50,20
next i
for i=1 to 5
 if num_spins(turn) = 0 or change(i) = 1
  for spin = 1 to (rnd(17) + 5)
  paste image rnd(5) + 1,((i - 1) * 70) + 50,20
  ` print dice(i)
  sync
`  wait 5
  next spin
  wait 5
 endif
paste image dice(i),((i - 1) * 70) + 50,20
next i
sync
return

MAKE_IMGS:

create bitmap 1,60,60
restore IMG_DATA
for img = 1 to 6
  cls
  ink blue,0
  box 0,0,60,60
  ink white,0
  box 2,2,58,58
  read NumberOfDots
  ink red,0
  for NOD = 1 to NumberOfDots
    read x,y
    box x,y,x + 6,y + 2
    box x + 1,y - 1,x + 5,y + 3
    box x + 2,y -2,x + 4,y + 4
  next NOD
 get image img,0,0,60,60
next img
set current bitmap 0
delete bitmap 1
sync



return

IMG_DATA:
rem one  NumberOfDots,x1,y1,x2,y2 per dot
data 1,28,28
rem two
data 2,28,14,28,42
rem three
data 3,28,14,28,28,28,42
rem four
data 4,14,14,42,14,14,42,42,42
rem five
data 5,14,14,42,14,28,28,14,42,42,42
rem six
data 6,14,14,14,28,14,42,42,14,42,28,42,42


RE_ROLL_DICE:
 cls green
 ink blue,0
 box 0,420,SW - 1,SH - 1
for i = 1 to 5
 if change(i) > 0 then dice(i) = rnd(5) + 1
next i
gosub EVAL_ROLL
return

ROLL_DICE:
for i = 1 to 5
 dice(i) = rnd(5) + 1
next i
gosub EVAL_ROLL
return

EVAL_ROLL:
` determine what player has got
` init vars
iyahtzee = 0 : large_strait = 0 : small_strait = 0 : full_house = 0
four_of_a_kind = 0 : three_of_a_kind = 0: sixes = 0 : fives = 0 : fours = 0: threes = 0
twos = 0 : onesies = 0
rem store data
for i = 1 to 6 : okay(i) = 0 : next i
for t = 1 to 6
 for i = 1 to 5
  if dice(i) = t then okay(t) = okay(t) + 1
 next i
next t
rem iyahtzee
t = dice(1) : ct = 0
for i = 1 to 6
 if okay(i) = 5 then ct = i
next i
if ct > 0 then iyahtzee = 1
rem small & large strait
ct = 0
for i = 1 to 5
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then large_strait = 1 : small_strait = 1
ct = 0
for i = 2 to 6
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then large_strait = 1 : small_strait = 1
ct = 0
for i = 1 to 4
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
ct = 0
for i = 2 to 5
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
ct = 0
for i = 3 to 6
 if okay(i) = 0 then ct = -1
next i
if ct = 0 then small_strait = 1
rem full house
nbr1 = 0 : nbr2 = 0
for t = 1 to 6
 if okay(t) >= 3 then nbr1 = t
 if okay(t) >= 2 and t <> nbr1 then nbr2 = t
next t
if nbr1 > 0 and nbr2 > 0 then full_house = 1
rem four of a kind
ct = 0 : dt = 0
for i = 1 to 6
 if okay(i) >= 4 then ct = 1
 if okay(i) >= 3 then dt = 1
next i
if ct = 1 then four_of_a_kind = 1 : three_of_a_kind = 1
if dt = 1 then three_of_a_kind = 1
return

TITLE_SCREEN:
cls : okay = 0 : counter = 0 : CTimer# = timer() + 80
repeat
  if timer() > CTimer# then inc counter : CTimer# = timer() + 80 : if counter > 5 then counter = 1
  ink colr(counter),0
  box 0,0,SW,SH
  ink colr(counter + 1),0
  box 4,4,SW - 4,SH - 4
  ink colr(counter + 2),0
  box 8,8,SW - 8,SH - 8
  ink colr(counter + 3),0
  box 12,12,SW - 12,SH - 12
  ink rgb(0,0,0),0
  box 16,16,SW - 16,SH - 16
  s = SW * .5 : h = SH * .4 : a$ = "Iyahtzou"
  set text size 50
  ink blue,0 : center text s + 6, h - 6,a$
  ink purple,0 : center text s + 8, h - 8,a$
  ink white,0 : center text s + 10, h - 10,a$
  ink red,0 : center text s + 12, h - 12,a$
  set text size 14
  h = SH * .55 : a$ = "by LBFN"
  ink red,0 : center text s + 1, h - 1,a$
  ink blue,0 : center text s + 2, h - 2,a$
  ink green,0 : center text s + 3, h - 3,a$
  ink purple,0 : center text s + 4, h - 4,a$
  ink colr(counter),0
  ttd$ = "Press 2, 3 or 4 to select # of players"
  tw = text width(ttd$) * .5
  center text (SW * .5),SH * .8 ,ttd$
  scan = scancode()
  if scan >= 2 and scan <= 5 then NumPlayers = scan - 1 : okay = 1
  sync
until okay = 1
cls
` wait until the user is not pressing a key
repeat
  sync
until scancode() = 0
ink white,0
for n = 1 to NumPlayers
  name$(n)=""
  set cursor 100,100 + n * 20
  input "Enter the name for player " + str$(n) + " : ";name$
  Name$(n) = name$
next n
`if NumPLayers = 1 then name$(2) = "Computah"
return

CPU_TURN:
cls
text 100,100,"It's the computah's turn."
sync
wait 1000
end

return

DeclareWinner:
` display everyone's scores
cls green
ink blue,0
box 0,420,SW - 1,SH - 1
for turn = 1 to NumPlayers
  s = ((turn - 1) * 180) + 5
  gosub  PRINT_STATUS
  ink yellow,0
  set text size 11
  text s + 20,380,name$(turn)
next turn
` calculate the scores
winner = 0
if score(1) > score(2) and score(1) > score(3) and score(1) > score(4) then winner = 1
if score(2) > score(1) and score(2) > score(3) and score(2) > score(4) then winner = 2
if NumPLayers >= 3
  if score(3) > score(1) and score(3) > score(2) and score(3) > score(4) then winner = 3
endif
if NumPLayers = 4
  if score(4) > score(1) and score(4) > score(2) and score(4) > score(3) then winner = 4
endif
repeat
  mc = mouseclick()
  sync
until mc = 0
ink white,0
if winner = 0
  ` wait until the user lets go of the mouse button
  repeat
    center text SW * .5,SH - 150,"It's a tie!!!"
    center text SW * .5,SH - 130,"Click mouse to quit."
    sync
  until mouseclick() > 0
else
  repeat
    mc = mouseclick()
    center text SW * .5,SH- 150,name$(winner) + " is the winner!"
    center text SW * .5,SH -130,"Click mouse to quit."
    sync
  until mc > 0
endif
return

CatData:
data "Onesies","twosies","trays","quads","quints","sixes","total","bonus","upper total","three of a kind","four of a kind"
data "full house","small straight","large straight","iyahtzou","chance","lower total","grand total"

autocam off
sync on 
sync rate 60

rem Create world


make object box 1,10,200,1000 : position object 1,-500,100,0 : color object 1,rgb(155,40,20)
make object box 2,10,200,1000 : position object 2, 500,100,0 : color object 2,rgb(155,40,20)
make object box 3,1000,200,10 : position object 3, 0,100,-500 : color object 3,rgb(155,40,20)
make object box 4,1000,200,10 : position object 4, 0,100, 500 : color object 4,rgb(155,40,20)

make object box 5,1000,10,1000 : position object 5,0,-5,0 : color object 5,rgb(0,255,0)
create bitmap 1,32,32 : cls rgb(0,155,0) : ink rgb(0,145,0),0 : box 4,4,12,12
get image 1,0,0,32,32 : delete bitmap 1 : texture object 5,1
scale object texture 5,200,200

Make Object sphere 10,5

Camgrav# = 2
Camvelx# = 5
Camvely# = 4
Camvelz# = 5

Camangx# = 0
Camangy# = 0
Camangz# = 0

Camangvx# = 0
Camangvy# = 0
Camangvz# = 0

Camposx# = 1
Camposy# = 10
Camposz# = 1

angspeedx = 5
angspeedy = 5
angspeedz = 5

Rem Setup world
Set ambient light 60
color ambient light rgb(25,255,25)
set camera range 1,700

Fog on
Fog distance 100
Fog color RGB(40,100,40)

Scenestate = 1
Dim sTimer(1)
sTimer(1) = 0

do
sTimer(1) = sTimer(1) + 1
oldCamposy# = Camposy#


if Scenestate = 1 

if sTimer(1) = 20 then Camangvy# = 10
if sTimer(1) = 70 then Camangvy# = -20
if sTimer(1) = 140 then Camangvy# = 5
if sTimer(1) = 150 then Camangvx# = -10



endif





Camposx# = Camposx# + Camvelx# 
Camposy# = Camposy# + Camvely# 
if object collision(10,0) > 0 then Camposy# = oldCamposy#
Camposz# = Camposz# + Camvelz# 

Camvelx# = Curvevalue(0,Camvelx#,6)
Camvely# = Camvely# - Camgrav#
Camvelz# = Curvevalue(0,Camvelz#,6)

Camangvx# = Curvevalue(0,Camangvx#,angspeedx)
Camangvy# = Curvevalue(0,Camangvy#,angspeedy)
Camangvz# = Curvevalue(0,Camangvz#,angspeedz)

Camangx# = wrapvalue(Camangx#  + Camangvx#) 
Camangy# = wrapvalue(Camangy#  + Camangvy#)
Camangz# = wrapvalue(Camangz#  + Camangvz#) 

position object 10,Camposx#,Camposy#,Camposz#
hide object 10

position camera Camposx#,Camposy#+10,Camposz#
rotate camera Camangx#,Camangy#,Camangz#

sync
loop

gosub Initialize

do
	gosub Game
	copy bitmap 1,0
	sync
loop

	Game:
		gosub Display
		gosub Control
	return

		Display:
			gosub DrawMap
			gosub DrawObject
			gosub DrawPlayer
		return

			DrawMap:
				if MapFlag = 0
					set current bitmap 2
						MapFlag = 1
						for lpy = 0 to MapY
						for lpx = 0 to MapX
							if Map(lpx,lpy) = 2
								x = lpx*16
								y = lpy*16
								BoxLine(x,y,x+15,y+15,cGray,cSilver)
							endif
							if Map(lpx,lpy) = 1
								x = lpx*16
								y = lpy*16
								BoxLine(x,y,x+15,y+15,cGray,rgb(255,255,255))
							endif
						next lpx
						next lpy
					set current bitmap 1
				endif
				copy bitmap 2,1
			return

			DrawObject:
				for lp = 0 to ObjectMax
					if Object(lp)
						x = ObjectX#(lp)*16
						y = ObjectY#(lp)*16
						paste image ImageObject,x,y,1
					endif
				next lp
			return

			DrawPlayer:
				x = pX#*16-8
				y = pY#*16
				paste image ImagePlayer+Frame#,x,y,1
			return

		Control:
			gosub PlayerHandle
			gosub ObjectHandle
		return

			PlayerHandle:
				gosub PlayerGravity
				gosub PlayerKeys
				gosub PlayerDies
				gosub PlayerWin
			return

				PlayerGravity:
					if Map(pX#,pY#+1) = 0
						inc pY#,.1
						PlayerMove = 0
					  else
						PlayerMove = 1
					endif
				return

				PlayerKeys:
					MoveCheck = 0
					if PlayerMove
						if leftkey()
							if Map(pX#-.1,pY#) < 2
								if Collision(pX#-.1,pY#) = 0
									dec pX#,.1
									inc Frame#,.2
									MoveCheck = 1
								  else
									DeadFlag = 255
								endif
							endif
						endif
						if rightkey()
							if Map(pX#+.1,pY#) < 2
								if Collision(pX#+.1,pY#) = 0
									inc pX#,.1
									inc Frame#,.2
									MoveCheck = 1
								  else
									DeadFlag = 255
								endif
							endif
						endif
					endif
					if Frame# => 2 then Frame# = 0
					if MoveCheck = 0 then Frame# = 0
				return

				PlayerDies:
					if DeadFlag
						DeadFlag = 0
						inc death
						pX# = 1.5
						pY# = 0
					endif
				return

				PlayerWin:
					if Map(pX#,pY#) = 1 then Win = 1

					if Win = 1
						pX# = 1.5
						pY# = 0
						cls 0
						ink rgb(255,255,255),0
						text 0,0,"You Win!  You Died "+str$(Death)+" Times!"
						text 0,32,"Press Spacekey to play again!"
						if spacekey()
							Win = 0
							Death = 0
						endif
					endif
				return

			ObjectHandle:
				for lp = 0 to ObjectMax
					if Object(lp)
						Fall = 0
						Collision(ObjectX#(lp),ObjectY#(lp)) = 0
						if ObjectJ#(lp) > 0
							if ObjectJ#(lp) => ObjectP(lp)
								ObjectC(lp) = ObjectC(lp) + 1
								if ObjectC(lp) > ObjectW(lp)
									ObjectJ#(lp) = 0
									ObjectC(lp) = 0
								endif
							  else
								ObjectY#(lp) = ObjectY#(lp) - ObjectS#(lp)
								ObjectJ#(lp) = ObjectJ#(lp) + ObjectS#(lp)
							endif
						  else
							if Map(ObjectX#(lp),ObjectY#(lp)+1) = 0
								ObjectY#(lp) = ObjectY#(lp) + ObjectS#(lp)
								Fall = 1
							  else
								ObjectY#(lp) = int(ObjectY#(lp))
								ObjectC(lp) = ObjectC(lp) + 1
								if ObjectC(lp) > ObjectW(lp)
									ObjectJ#(lp) = ObjectS#(lp)
									ObjectC(lp) = 0
								endif
							endif
						endif
						Collision(ObjectX#(lp),ObjectY#(lp)) = 1
						if Fall
							if Collision(pX#,pY#) then DeadFlag = 255
						endif
					endif
				next lp
			return

	Initialize:
		set display mode 640,480,16
		sync on
		sync rate 60
		create bitmap 2,640,480
		create bitmap 1,640,480

		ImagePlayer = 100
		ImageObject = 200

		cBlack = rgb(10,10,10)
		cGray = rgb(100,100,100)
		cSilver = rgb(150,150,150)

		FilledCircleLine(8,13,3,cBlack,rgb(100,150,200))
		FilledCircleLine(8,9,4,cBlack,rgb(100,150,200))
		FilledCircleLine(8,4,4,cBlack,rgb(100,150,200))
		get image ImagePlayer,0,0,16,16,1 : cls

		FilledCircleLine(6,13,3,cBlack,rgb(100,150,200))
		FilledCircleLine(10,13,3,cBlack,rgb(100,150,200))
		FilledCircleLine(8,10,4,cBlack,rgb(100,150,200))
		FilledCircleLine(8,5,4,cBlack,rgb(100,150,200))
		get image ImagePlayer+1,0,0,16,16,1 : cls

		BoxLine(0,0,16,16,cGray,rgb(150,140,80))
		get image ImageObject,0,0,16,16,1 : cls


		MapX = 40-1
		MapY = 6-1
		dim Map(MapX+1,MapY+1)
		dim Collision(MapX+1,MapY+1)


		for lpy = 0 to MapY
		for lpx = 0 to MapX
			if lpx = 0 or lpy = 0 or lpx = MapX or lpy = MapY
				Map(lpx,lpy) = 2
			endif
		next lpx
		next lpy

		Map(MapX-1,MapY-1) = 1


		pX# = 1.5
		pY# = 0


		c = 100
		ObjectMax = c
		dim Object(c)
		dim ObjectX#(c)
		dim ObjectY#(c)
		dim ObjectJ#(c)
		dim ObjectS#(c)
		dim ObjectP(c)
		dim ObjectC(c)
		dim ObjectW(c)

		dim ObjectCount(0)
		ObjectCount(0) = -1

		CreateObject(4,1,3,10,2)
		CreateObject(6,1,3,15,2)
		CreateObject(7,1,3,8,2)

		CreateObject(9,1,3,22,3)
		CreateObject(10,1,3,22,3)
		CreateObject(11,1,3,22,3)

		CreateObject(13,1,3,11,2)
		CreateObject(15,1,3,11,3)
		CreateObject(17,1,3,11,4)

		CreateObject(20,1,3,9,3)

		CreateObject(22,1,3,9,4)

		CreateObject(24,1,3,13,2)
		CreateObject(25,1,3,12,3)
		CreateObject(28,1,3,14,3)
		CreateObject(29,1,3,11,2)
		CreateObject(32,1,3,4,1)

		CreateObject(33,1,3,10,3)
		CreateObject(35,1,3,9,3)
		CreateObject(36,1,3,16,4)
	return


Function BoxLine(x1,y1,x2,y2,c1,c2)
	ink c1,0
	box x1,y1,x2,y2
	ink c2,0
	box x1+1,y1+1,x2-1,y2-1
EndFunction

Function FilledCircleLine(x,y,r,c1,c2)
	FilledCircle(x,y,r,c1)
	FilledCircle(x,y,r-1,c2)
EndFunction

Function FilledCircle(x,y,r,c)
	ink c,0
   s = r*r
   for i = 1 to r
      h = sqrt(s-i*i)
      box x-i,y-h,x+i,y+h
   next i
EndFunction

Function CreateObject(x,y,p,w,s)
	ObjectCount(0) = ObjectCount(0) + 1
	c = ObjectCount(0)
	Object(c) = 1
	ObjectX#(c) = x
	ObjectY#(c) = y
	ObjectJ#(c) = 0
	ObjectS#(c) = s/10.0
	ObjectP(c) = p
	ObjectC(c) = 0
	ObjectW(c) = w
EndFunction

remstart
   ==============================================================
   =  Title  : Camera on a pendelum
   =  Author : Latch
   =  Date   : 04/20/2010
   =  Update :
   =  Version: .01
   ==============================================================
   Comments    I always thought fast and wide swinging was scary.
               Here's a 1st person perspective of such a swing.
   ==============================================================
remend

rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse

rem =============================================================
rem = MAIN
rem =============================================================
gosub _init
   do
      gosub _swing

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      rem textures
      bmp=1
      `grass
      grass=1
      create bitmap bmp,256,256
      cls rgb(0,60,0)
      for n=1 to 20000
         ink rgb(rnd(10),rnd(120)+60,rnd(5)),0
         dot rnd(255),rnd(255)
      next n
      get image grass,0,0,256,256
      sync

      delete bitmap bmp

      rem create gournd
      gosub _make_ground
      gosub _lighting

      rem variables for camera swing
      centerx=matx#/2.0
      centery=1000
      radius=900
      speed#=1

      rem sky
      gosub _sky

      rem adjust camera
      yrotate camera 90
      xrotate camera 30
      set camera range 1,6000
   return
`----------------------------------------------------------------
   _make_ground:
      mat=1
      tilex=25
      tilez=25
      matx#=5000
      matz#=5000
      maxheight#=100
      sizex#=matx#/tilex/2
      sizez#=matz#/tilez/2

      make matrix mat,matx#,matz#,tilex,tilez
      randomize timer()
      randomize matrix mat,maxheight#
      prepare matrix texture mat,1,1,1
      calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   return
`----------------------------------------------------------------
   _lighting:
      color ambient light rgb(128,128,128)
      set directional light 0,1,-.5,.2
   return
`----------------------------------------------------------------
   _swing:
      rem control direction and speed of swing
      if adir=1
         if ang# < 90
            speed#=speed#*1.02
         else
            speed#=speed#*.98
         endif
         ang#=ang#+speed#
      endif
      if adir=0
         if ang# > 90
            speed#=speed#*1.02
         else
            speed#=speed#*.98
         endif
         ang#=ang#-speed#
      endif

      rem switch direction when speed slows enough
      if speed# < 0.05 then adir=1-adir

      x#=(radius*2)*cos(ang#-180)+centerx
      y#=radius*sin(ang#-180)+centery

      position camera x#,y#,matz#/2.0


   return
`----------------------------------------------------------------
   _sky:
      create bitmap 1,screen width(),screen height()
      for n=1 to 100
         ink rgb(rnd(128)+127,rnd(64),0),0
         dot rnd(512),rnd(512)
      next n
      for n=1 to 100
         c=rnd(128)+127
         ink rgb(c,c,c),0
         dot rnd(512),rnd(512)
      next n
      for n=1 to 100
         c=rnd(128)+127
         ink rgb(0,0,c),0
         dot rnd(512),rnd(512)
      next n

      get image 2,0,0,512,512
      sync

      texture backdrop 2
   return

rem =============================================================
rem = FUNCTIONS
rem =============================================================
   function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x,z)
            h2#=get matrix height(mat,x-1,z-1)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   EndFunction
`----------------------------------------------------------------

Ashingda 27

Nice job on the mini-game.  

Latch

Nice effect; definitely has roller coaster potential if developed.

` water effect DBC challenge    LBFN
sync on : sync rate 60
randomize timer()
backdrop on : color backdrop rgb(0,128,128)
hide mouse
dim mx#(100,5)
gosub MakeImage
SetupMatrix()
position camera 136.0,140.0,0.0
repeat
  ControlCamera(camera position x(),camera position z())
  RiseAndFall()
  update matrix 1
  Debug()
  sync
until spacekey() = 1
delete matrix 1
show mouse
end

function RiseAndFall()
mp = 1
for y = 1 to 10
  for x = 1 to 10
    RandF = mx#(mp,2)
    select RandF
      case 1
    	  mx#(mp,1) = mx#(mp,1) + mx#(mp,5)
    	  set matrix height 1,x,y,mx#(mp,1)
    	  if mx#(mp,1) > mx#(mp,4) then mx#(mp,2) = 2
  		endcase
      case 2
        mx#(mp,1) = mx#(mp,1) - mx#(mp,5)
        set matrix height 1,x,y,mx#(mp,1)
        if mx#(mp,1) < mx#(mp,3) then mx#(mp,2) = 1
      endcase
    endselect
    inc mp,1
  next x
next u
 


endfunction






function ControlCamera(cx#,cz#)
cy# = get ground height(1,cx#,cz#) + 20.0
position camera cx#,cy#,cz#
if upkey() then move camera 5.0
if downkey() then move camera -5.0
if rightkey() 
  y# = camera angle y() 
  y# = wrapvalue(y# + 2.0)
  yrotate camera y#
endif
if leftkey() 
  y# = camera angle y() 
  y# = wrapvalue(y# - 2.0)
  yrotate camera y#
endif

endfunction




function SetupMatrix()
make matrix 1,400,400,10,10
prepare matrix texture 1,1,1,1
fill matrix 1,0.0,1
randomize matrix 1,30
mp = 1
for y = 1 to 10
  for x = 1 to 10
    mx#(mp,1) = get matrix height(1,x,y)
    mx#(mp,2) = rnd(2) : ` movement:  0 = stationary  1 = up  2 = down
    mx#(mp,3) = mx#(mp,1) - (rnd(10) + 10) : ` lowest point
    mx#(mp,4) = mx#(mp,1) + (rnd(10) + 10) : ` highest point
    mx#(mp,5) = ((rnd(5) + 5) * .05) : ` speed to raise and lower
    inc mp,1
  next x
next y
endfunction


MakeImage:
create bitmap 1,128,128
ink rgb(0,0,200),0
for L = 0 to 64
  ic = L + 150 : if ic > 255 then ic = 255
  ink rgb(0,0,ic),0
  line 0,L,128,L
  line 0,128 - L,128,128 - L
next L
get image 1,0,0,128,128
delete bitmap 1
return

function Debug()
ink rgb(255,255,0),0
text 10,10,"FPS: " + str$(screen fps())
endfunction

sync on
sync rate 60

PointerTile = 200

a = 116
b = a+32
c = b+32

for lp = 0 to 32
	cls rgb(100,100,200)

	for lp2 = 0 to 24
		ink rgb(255-lp2*6,255-lp2*6,255-lp2*2),0
		line (a-lp)-lp2,100,((a-16)-lp)-lp2,116
		line ((a-16)-lp)-lp2,116,(a-lp)-lp2,132
		line (b-lp)-lp2,100,((b-16)-lp)-lp2,116
		line ((b-16)-lp)-lp2,116,(b-lp)-lp2,132
		`line (c-lp)-lp2,100,((c-16)-lp)-lp2,116
		`line ((c-16)-lp)-lp2,116,(c-lp)-lp2,132
	next lp2
	get image PointerTile+lp,100,100,132,132
next lp

create bitmap 1,640,480


do
	gosub Display
	copy bitmap 1,0
	sync
	cls
loop

	Display:
		if wave = 0 then inc Frame#,.5 else dec Frame#,.5
		if Frame# => 31 then wave = 1
		if Frame# =< 1 then wave = 0
		for lpy = 0 to 14
		for lpx = 0 to 19
			paste image PointerTile+Frame#,lpx*32,lpy*32
		next lpx
		next lpy
	return

sync on
sync rate 60

PointerTile = 200

a = 116
b = a+32
c = b+32

frdir=1

for lp = 0 to 32
   cls rgb(100,100,200)

   for lp2 = 0 to 24
      ink rgb(255-lp2*6,255-lp2*6,255-lp2*2),0
      line (a-lp)-lp2,100,((a-16)-lp)-lp2,116
      line ((a-16)-lp)-lp2,116,(a-lp)-lp2,132
      line (b-lp)-lp2,100,((b-16)-lp)-lp2,116
      line ((b-16)-lp)-lp2,116,(b-lp)-lp2,132
      `line (c-lp)-lp2,100,((c-16)-lp)-lp2,116
      `line ((c-16)-lp)-lp2,116,(c-lp)-lp2,132
   next lp2
   get image PointerTile+lp,100,100,132,132
next lp

create bitmap 1,640,480


do
   gosub Display
   copy bitmap 1,0
   sync
   cls
loop

   Display:
      inc frame,frdir
      if frame > 31 or frame < 1 then frdir=0-frdir
      for lpy = 0 to 14
      for lpx = 0 to 19
         paste image PointerTile+frame,lpx*32,lpy*32
      next lpx
      next lpy
   return

rem DBC Challenge
rem Make a water effect.
rem This will be ocean waves.
rem By HippyJonYo

sync on
sync rate 30
autocam off
hide mouse

rem make a believable water bitmap
cls rgb(13,115,113)
ink rgb(152,200,255),1
for x=0 to 64
	for y=0 to 64
		fill=rnd(1)
		if fill=0 then dot x,y
	next y
next x
get image 1,0,0,64,64

rem setup matrix
make matrix 1,200,200,100,100
prepare matrix texture 1,1,2,2
fill matrix 1,0,1
update matrix 1
position camera 50,1,30

wave=105
waveheight=20

rem main loop
do
st=wave-10
ed=wave+10
for i=st to ed
	if i<=100 and i>=0
		actwaveheight=waveheight-(abs(wave-i)/10*3)
		for x=0 to 100
			set matrix height 1,x,i,actwaveheight
		next x
	endif
next i
update matrix 1
dec wave
if wave<0 then wave=105
position camera 50,get ground height(1,50,30)+1,30
sync
loop

sync on : sync rate 200 : autocam off

Water:
hide mouse
cls rgb(0,0,100) : for t=0 to 100 : for o=0 to 100 : ink rgb(0,0,rnd(255)),0 : dot o,t : next o : next t : get image 1,1,1,2,2
cls : for t=0 to 100 : for o=0 to 100 : ink rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100),0 : dot o,t : next o : next t : get image 2,0,0,100,100
dim grid1(40,40):dim grid2(40,40):dim tempgrid(40,40):dim velocity(40,40):dim smoothed(40,40)
color backdrop 0
set point light 0,0,0,0 : color light 0,rgb(255,255,0)
rem Make normal light
set ambient light 50
color backdrop rgb(0,0,32)
set point light 0,250,100,250
rem Make shadow light
make light 1
if light exist(1)=1
   set spot light 1,0,90
   position light 1,250,100,250
   point light 1,250,0,250
   color light 1,-255,-255,-255
endif
set light range 1,100000
position light 1,0,0,0
make matrix 1,1000,1000,40,40
position matrix 1,0,0,0
make matrix 2,3000,3000,30,30
position matrix 2,-1000,5,-1000
prepare matrix texture 1,1,1,1
prepare matrix texture 2,2,1,1
randomize matrix 2,10
fog on:fog distance 2000
for x=11 to 19
   for z=11 to 19
      set matrix height 2,x,z,-200
   next z
next x
for x=0 to 30
   for z=0 to 10
      set matrix height 2,x,z,rnd(200)
   next z
next x
for x=0 to 10
   for z=0 to 30
      set matrix height 2,x,z,rnd(200)
   next z
next x
for x=0 to 30
   for z=20 to 30
      set matrix height 2,x,z,rnd(200)
   next z
next x
for x=20 to 30
   for z=0 to 30
      set matrix height 2,x,z,rnd(200)
   next z
next x
for x=0 to 40
   for z=0 to 40
      set matrix normal 1,x,z,0,0.9-(rnd(5)/10.0),0
   next z
next x
for x=0 to 30
   for z=0 to 30
      set matrix normal 2,x,z,0,0.9-(rnd(5)/10.0),0
   next z
next x
ghost matrix on 1
position camera 500,500,-300
point camera 500,0,500
do
for x=0 to 40
   for z=0 to 40
      grid1(x,z)=rnd(5)
      set matrix height 1,x,z,grid1(x,z)
   next z
next x
for t=1 to 2 : update matrix t : next t
position mouse 320,240

rem Use MOUSEMOVE to alter camera angles
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
rotate camera cx#,cy#,0

rem Simple movement
if upkey()=1 then move camera 25
if downkey()=1 then move camera -25
if spacekey()=1
   repeat
   until spacekey()=0
   onum=onum+1
   size=20
   ox=(rnd(34)+3)*25
   oy=1000
   oz=(rnd(34)+3)*25
   gosub wata
endif
color backdrop rgb(0,0,32)
sync
loop



wata:
movement=1
ch=0
speed=10
make object sphere onum,size
color object onum,rgb(rnd(100)+100,rnd(100)+100,rnd(100)+100)
position object onum,ox,oy,oz
repeat
point light 1,object position x(onum),object position y(onum),object position z(onum)
position light 1,0,100,0
if object position y(onum)-10<=0
   if speed=1
   else
      speed=speed-1
   endif
   if speed=4
      for x=0 to 40
         for z=0 to 40
            grid1(x,z)=0
            set matrix height 1,x,z,grid1(x,z)
         next z
      next x
      grid1(object position x(onum)/25,object position z(onum)/25)=-400
   endif
   if object position y(onum)-10<=-200
      movement=0
   else
      position object onum,object position x(onum),object position y(onum)-speed,object position z(onum)
   endif
else
   position object onum,object position x(onum),object position y(onum)-speed,object position z(onum)
endif
for x = 1 to 39
   for y = 1 to 39
      velocity(x,y) = grid2(x, y) - ((grid2(X, Y))*2)
      smoothed(x,y) = (grid1(X - 1, Y) + grid1(X + 1, Y) + grid1(X, Y - 1) + grid1(x, y + 1) + grid1(X + 1, Y - 1) + grid1(X - 1, Y + 1) + grid1(X + 1, Y + 1) + grid1(X - 1, Y - 1))/8
      grid2(x, y) = smoothed(x,y) * 2 + velocity(x,y)
      grid2(x, y) = grid2(x, y) * 0.95
      if grid1(x,y)=0 then grid1(x,y)=rnd(5)
      set matrix height 1,x,y,grid1(x,y)
   next y
next x
for x = 1 to 39
   for y = 1 to 39
      tempgrid(x,y)=grid2(x,y)
      grid2(x,y)=grid1(x,y)
      grid1(x,y)=tempgrid(x,y)
   next y
next x

update matrix 1
position mouse 320,240

rem Use MOUSEMOVE to alter camera angles
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
rotate camera cx#,cy#,0

rem Simple movement
if upkey()=1 then move camera 25
if downkey()=1 then move camera -25
sync
until movement=0
return

sync on : sync rate 1000 : autocam off
make matrix 1,1000,1000,70,70
x1=0 : x2=70 : height=0 : amount=2
for x=x1 to x2 : set matrix height 1,x,x1,height : set matrix height 1,x,x2,height : set matrix height 1,x1,x,height : set matrix height 1,x2,x,height : next x
repeat
x1=x1+1 : x2=x2-1 : amount=amount+1 : height=height-amount
for x=x1 to x2 : set matrix height 1,x,x1,height : set matrix height 1,x,x2,height : set matrix height 1,x1,x,height : set matrix height 1,x2,x,height : next x
until x1=34 and x2=36
amount=amount+1 : height=height-amount
SET MATRIX HEIGHT 1,35,35,HEIGHT
update matrix 1
dim xpos#(1000)
dim ypos#(1000)
dim zpos#(1000)
dim xvel#(1000)
dim yvel#(1000)
dim zvel#(1000)
dim yang#(1000)
xpos=300 : zpos=300
color backdrop rgb(255,0,0)
do
mmx=wrapvalue(mmx+mousemovex())
mmy=wrapvalue(mmy+mousemovey())
rotate camera mmy,mmx,0
if upkey()=1 then move camera 3
if downkey()=1 then move camera -3
if rightkey()=1 then xpos=xpos+1
if leftkey()=1 then xpos=xpos-1
if mouseclick()=1 then zpos=zpos+1
if mouseclick()=2 then zpos=zpos-1
gosub fluids
sync
loop

fluids:
   ob=ob+1
   if ob=>1001 then ob=1
      if object exist(ob)=0
         make object sphere ob,5
         position object ob,xpos,1000,zpos
         color object ob,rgb(0,0,128)
      endif
   for o=1 to 1000
   if object exist(o)=1
      xpos#(o)=object position x(o)
      ypos#(o)=object position y(o)
      zpos#(o)=object position z(o)
      yAng#(o)=object angle y(o)
      ang#=yAng#(o)      : frontX#=newxvalue(xPos#(o),ang#,1.2)  : frontZ#=newzvalue(zPos#(o),ang#,1.2)
      ang#=yAng#(o)+180  : backX#=newxvalue(xPos#(o),ang#,1.2)   : backZ#=newzvalue(zPos#(o),ang#,1.2)
      ang#=yAng#(o)+90   : leftX#=newxvalue(xPos#(o),ang#,1.2)   : leftZ#=newzvalue(zPos#(o),ang#,1.2)
      ang#=yAng#(o)-90   : rightX#=newxvalue(xPos#(o),ang#,1.2)  : rightZ#=newzvalue(zPos#(o),ang#,1.2)

      frontHeight#=get ground height(1,frontX#,frontZ#)
      backHeight#=get ground height(1,backX#,backZ#)
      leftHeight#=get ground height(1,leftX#,leftZ#)
      rightHeight#=get ground height(1,rightX#,rightZ#)

      xMoveDist#=(backHeight#-frontHeight#)/30
      zMoveDist#=(leftHeight#-rightHeight#)/30

      xvel#(o)=xvel#(o)+newxvalue(0,yAng#(o),xMoveDist#)
      zvel#(o)=zvel#(o)+newzvalue(0,yAng#(o),xMoveDist#)

      xvel#(o)=xvel#(o)+newxvalue(0,yAng#(o)-90,zMoveDist#)
      zvel#(o)=zvel#(o)+newzvalue(0,yAng#(o)-90,zMoveDist#)

      xvel#(o)=xvel#(o)*0.80
      zvel#(o)=zvel#(o)*0.80

      xpos#(o)=xpos#(o)+xvel#(o)
      ypos#(o)=ypos#(o)+yvel#(o)
      if ypos#(o)<=get ground height(1,xpos#(o),zpos#(o))
         yvel#(o)=0
         ypos#(o)=get ground height(1,xpos#(o),zpos#(o))
      else
         yvel#(o)=yvel#(o)-0.05
      endif
      zpos#(o)=zpos#(o)+zvel#(o)
      position object o,xpos#(o),ypos#(o),zpos#(o)
      if ypos#<get ground height(1,500,500)+5 and ypos#>get ground height(1,500,500)-5
         position object o,xpos,1000,zpos
      endif
   endif
   next o
return

rem set screen big enough for texture
set display mode 800,600,32
rem set manual sync
sync on : sync rate 200
rem matrix array
dim grid1(70,70):dim grid2(70,70):dim tempgrid(70,70):dim velocity(70,70):dim smoothed(70,70)
rem water texture
cls rgb(0,0,128)
get image 1,0,0,256,256
rem sky texture
r=0 : g=0 : b=128
ink rgb(r,g,b),0
for y=0 to 100 : line 0,y,510,y : line 0,510-y,510,510-y : next y
for y=101 to 151
   if g=200
   else
      g=g+4
   endif
   if r=255
   else
      r=r+5
   endif
   if b=0
   else
      b=b-4
   endif
   ink rgb(r,g,b),0
   line 0,y,510,y
   line 0,510-y,510,510-y
next y
for y=152 to 258
   if r=0
   else
      r=r-5
   endif
   if g=100
   else
      g=g-1
   endif
   if b=100
   else
      b=b+1
   endif
   ink rgb(r,g,b),0
   line 0,y,510,y
   line 0,510-y,510,510-y
next y
get image 2,0,0,511,511
cls
rem target in water
make object sphere 1,100
make object cone 2,90
make mesh from object 2,2
delete object 2
add limb 1,1,2
delete mesh 2
offset limb 1,1,0,50,0
make object cylinder 2,25
xrotate object 2,90
make mesh from object 2,2
delete object 2
add limb 1,2,2
delete mesh 2
offset limb 1,2,0,100,0
make mesh from object 1,1
delete object 1
rem water
make matrix 1,2000,2000,70,70
prepare matrix texture 1,1,1,1
ghost matrix on 1
update matrix 1
rem skysphere
make object sphere 1001,2000
position object 1001,1000,0,1000
texture object 1001,2
scale object 1001,100,25,100
set object 1001,1,0,0
rem targets
for o=1 to 10
   make object o,1,0
   color object o,rgb(255,0,0)
   position object o,sin(rnd(360))*(rnd(700)+200)+1000,0,cos(rnd(360))*(rnd(700)+200)+1000
next o
rem camera position and range
position camera 1000,100,1000
set camera range 1,10000
rem main loop
do
rem camera move
mmx=wrapvalue(mmx+mousemovex())
mmy=wrapvalue(mmy+mousemovey())
rotate camera mmy,mmx,0
rem wave control
cycle=cycle+1
if cycle=4
   cycle=0
   for x = 1 to 69
      for y = 1 to 69
         velocity(x,y) = grid2(x, y) - ((grid2(X, Y))*2)
         smoothed(x,y) = (grid1(X - 1, Y) + grid1(X + 1, Y) + grid1(X, Y - 1) + grid1(x, y + 1) + grid1(X + 1, Y - 1) + grid1(X - 1, Y + 1) + grid1(X + 1, Y + 1) + grid1(X - 1, Y - 1))/8
         grid2(x, y) = smoothed(x,y) * 2 + velocity(x,y)
         grid2(x, y) = grid2(x, y) * 0.95
         if grid1(x,y)=0 then grid1(x,y)=rnd(5)
         set matrix height 1,x,y,grid1(x,y)
      next y
   next x
   for x = 1 to 69
      for y = 1 to 69
         tempgrid(x,y)=grid2(x,y)
         grid2(x,y)=grid1(x,y)
         grid1(x,y)=tempgrid(x,y)
      next y
   next x
endif
rem make objects react to slant of wave
for o=1 to 10
   float(o)
next o
rem update the matrix
update matrix 1
rem refresh screen
ink rgb(255,255,255),0
text 0,0,"Power:"+str$(thrust)
sync
loop

rem floating function
function float(id)
   rem get positions
   xPos#=object position x(id)
   yPos#=object position y(id)
   zPos#=object position z(id)
   yAng#=object angle y(id)
   rem get distance measuring
   distVal#=1.2
   rem get the positions to find the ground height at
   ang#=yAng#      : frontX#=newxvalue(xPos#,ang#,distVal#)  : frontZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+180  : backX#=newxvalue(xPos#,ang#,distVal#)   : backZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#+90   : leftX#=newxvalue(xPos#,ang#,distVal#)   : leftZ#=newzvalue(zPos#,ang#,distVal#)
   ang#=yAng#-90   : rightX#=newxvalue(xPos#,ang#,distVal#)  : rightZ#=newzvalue(zPos#,ang#,distVal#)
   rem find the ground height
   frontHeight#=get ground height(1,frontX#,frontZ#)
   backHeight#=get ground height(1,backX#,backZ#)
   leftHeight#=get ground height(1,leftX#,leftZ#)
   rightHeight#=get ground height(1,rightX#,rightZ#)
   rem determine the angle of rotation
   xAng#=curveangle((backHeight#-frontHeight#)*30,object angle x(id),5)
   zAng#=curveangle((leftHeight#-rightHeight#)*30,object angle z(id),5)
   rem rotate and position the object
   rotate object id,xAng#,0,zAng#
   position object id,xpos#,get ground height(1,xpos#,zpos#),zpos#
endfunction

gosub Initialize

do
	gosub Game
	copy bitmap 1,0
	sync
loop


	Initialize:
		set display mode 640,480,16
		sync on
		sync rate 60

		Fish = 1000
		Bubble = 2000


		DrawTriangle(0,2,8,14,3,rgb(230,180,80))
		DrawDiamond(8,0,32,16,rgb(230,180,80))
		ink rgb(10,10,10),0
		dot 26,7
		get image Fish+0,0,0,32,16,1 : cls

		DrawTriangle(1,2,8,13,3,rgb(250,210,140))
		DrawDiamond(8,0,32,16,rgb(230,180,80))
		ink rgb(10,10,10),0
		dot 26,7
		get image Fish+1,0,0,32,16,1 : cls

		DrawTriangle(3,2,8,12,3,rgb(255,230,200))
		DrawDiamond(8,0,32,16,rgb(230,180,80))
		ink rgb(10,10,10),0
		dot 26,7
		get image Fish+2,0,0,32,16,1 : cls

		DrawTriangle(1,1,8,15,3,rgb(200,150,20))
		DrawDiamond(8,0,32,16,rgb(230,180,80))
		ink rgb(10,10,10),0
		dot 26,7
		get image Fish+3,0,0,32,16,1 : cls

		DrawTriangle(3,0,8,16,3,rgb(180,130,10))
		DrawDiamond(8,0,32,16,rgb(230,180,80))
		ink rgb(10,10,10),0
		dot 26,7
		get image Fish+4,0,0,32,16,1 : cls

		for lp = 1 to 4
			cls
			n# = (100-(25*lp))
			r = ((255-50)/100.0)*n#
			g = ((255-80)/100.0)*n#
			b = ((255-220)/100.0)*n#
			ink rgb(50+r,80+g,220+b),0
			circle 16,16,3+lp
			get image Bubble+lp,0,0,32,32,1
		next lp

		dim Swim(100)
		FrameMax = 0
		Ani$ = "01122110334433"
		for lp = 0 to len(Ani$)
			inc FrameMax
			Swim(lp) = val(mid$(Ani$,lp+1))
		next lp

		MaxBubble = 20
		c = MaxBubble
		dim Bubble(c)
		dim BubbleX(c)
		dim BubbleY(c)
		dim BubbleX#(c)
		dim BubbleY#(c)

		Depth# = 100

		create bitmap 1,640,480
	return


	Game:
		gosub GameDisplay
		gosub GameHandle
	return

		GameDisplay:
			cls rgb(50,80,220)
			sprite 1,280,220,Fish+Swim(int(Frame#))
			if FishMirror
				if sprite Mirrored(1) = 0 then mirror sprite 1
			  else
				if sprite Mirrored(1) = 1 then mirror sprite 1
			endif

			for lp = 0 to MaxBubble
				if Bubble(lp)
					paste image Bubble+Bubble(lp),BubbleX(lp),BubbleY(lp),1
				endif
			next lp

			if Depth# < 0
				D = Depth#*-1
				if D > 479 then D = 479
				ink rgb(215,225,255),0
				box 0,0,639,0+D
			endif

			if Depth# > 500
				D = Depth#-500
				if D > 479 then D = 479
				ink rgb(100,80,20),0
				box 0,479-D,639,479
			endif

		return

		GameHandle:

			if Spd# < 0 then Spd# = 0

			Frame# = Frame# + .3 + Spd#
			if Frame# => FrameMax then Frame# = 0

			Spd# = 0

			Depth# = Depth# + ScrollY#
			if Depth# > 750 then Depth# = 750


			if upkey() and Depth# > -220
				ScrollY# = ScrollY# - .1
				if ScrollX# < -8 then ScrollY# = -8
				Spd# = ScrollY#/-10.0
			  else
				if ScrollY# < 0
					ScrollY# = ScrollY# + .3
					if ScrollY# > -.4 then ScrollY# = 0
				endif
			endif


			if downkey() and Depth# < 750 or Depth# < -220
				ScrollY# = ScrollY# + .1
				if Depth# < -220 then ScrollY# = ScrollY# + .1
				if ScrollY# > 8 then ScrollY# = 8
				Spd# = ScrollY#/10.0
			  else
				if ScrollY# > 0
					ScrollY# = ScrollY# - .3
					if ScrollY# < .4 then ScrollY# = 0
				endif
			endif


			if leftkey()
				ScrollX# = ScrollX# - .1
				if ScrollX# < -8 then ScrollX# = -8
				Spd# = ScrollX#/-10.0
				FishMirror = 1
			  else
				if ScrollX# < 0
					ScrollX# = ScrollX# + .1
					if ScrollX# > -.3 then ScrollX# = 0
				endif
			endif

			if rightkey()
				ScrollX# = ScrollX# + .1
				if ScrollX# > 8 then ScrollX# = 8
				Spd# = ScrollX#/10.0
				FishMirror = 0
			  else
				if ScrollX# > 0
					ScrollX# = ScrollX# - .1
					if ScrollX# < .3 then ScrollX# = 0
				endif
			endif
			
			for lp = 0 to MaxBubble
				if Bubble(lp)
					BubbleX#(lp) = BubbleX#(lp)+(rnd(3)-1)/10.0
					if BubbleX#(lp) < -1 then BubbleX#(lp) = -1
					if BubbleX#(lp) > 1 then BubbleX#(lp) = 1
					BubbleX(lp) = BubbleX(lp) + BubbleX#(lp) - ScrollX#
					BubbleY(lp) = BubbleY(lp) - BubbleY#(lp) - ScrollY#
					if BubbleY(lp) < -100 then Bubble(lp) = 0
					if BubbleY(lp) > 550 then Bubble(lp) = 0
					if BubbleX(lp) < -40 then Bubble(lp) = 0
					if BubbleX(lp) > 680 then Bubble(lp) = 0
				  else
					Bubble(lp) = rnd(3)+1
					BubbleX#(lp) = rnd(3)-1
					BubbleY#(lp) = rnd(30)/10.0 + .5

					BubbleX(lp) = rnd(640)
					BubbleY(lp) = 480+rnd(64)
					if rnd(1)
						if rnd(1)
							if ScrollX# < 0
								BubbleX(lp) = rnd(32)*-1
								BubbleY(lp) = rnd(500)
							endif
							if ScrollX# > 0
								BubbleX(lp) = 640+rnd(32)
								BubbleY(lp) = rnd(500)
							endif
						  else
							if ScrollY# < 0
								BubbleX(lp) = rnd(640)
								BubbleY(lp) = rnd(100)*-1
							endif
							if ScrollY# > 0
								BubbleX(lp) = rnd(640)
								BubbleY(lp) = 480+rnd(64)
							endif
						endif
					endif
				endif
			next lp
		return


Function DrawDiamond(x1,y1,x2,y2,c)
	ink c,0
	halfx = (x2-x1)/2
	halfy = (y2-y1)/2
	x# = (halfx*1.0)/(halfy*1.0)
	lpx# = 0
	for lpy = y1 to y1+halfy
		box (x1+halfx)-lpx#,lpy,(x2-halfx)+lpx#,lpy
		lpx# = lpx# + x#
	next lpy
	for lpy = y1+halfy to y2
		lpx# = lpx# - x#
		box (x1+halfx)-lpx#,lpy,(x2-halfx)+lpx#,lpy
	next lpy
EndFunction

Function DrawTriangle(x1,y1,x2,y2,Mode,c)
	ink c,0
	lpx# = 0
	if Mode < 2 or Mode > 3
		halfx = (x2-x1)/2
		y# = y2-y1
		x# = (halfx*1.0)/y#
		if Mode = 1 then a = y1:b = y2:s = 1
		if Mode = 4 then a = y2:b = y1:s = -1
		for lpy = y2 to y1 step -1
			box (x1+halfx)-lpx#,lpy,(x2-halfx)+lpx#,lpy
			lpx# = lpx# + x#
		next lpy
	  else	
		halfx# = (y2-y1)/2.0
		y# = x2-x1
		x# = halfx#/y#
		if Mode = 2 then a = x1:b = x2:s = 1
		if Mode = 3 then a = x2:b = x1:s = -1
		for lpy = a to b step s
			box lpy,(y1+halfx#)-lpx#,lpy,(y2-halfx#)+lpx#
			lpx# = lpx# + x#
		next lpy
	endif
EndFunction

rem DBC Challenge
rem Make a water effect.
rem This will be ocean waves.
rem By HippyJonYo

sync on
sync rate 30
autocam off
hide mouse

rem make a believable water bitmap
cls rgb(13,115,113)
ink rgb(152,200,255),1
for x=0 to 64
   for y=0 to 64
      fill=rnd(1)
      if fill=0 then dot x,y
   next y
next x
get image 1,0,0,64,64

rem setup matrix
make matrix 1,200,200,70,70
prepare matrix texture 1,1,2,2
fill matrix 1,0,1
update matrix 1
position camera 50,1,30

wave=105
waveheight=20

rem main loop
do
st=wave-10
ed=wave+10
for i=st to ed
   if i<=70 and i>=0
      actwaveheight=waveheight-(abs(wave-i)/10*3)
      for x=0 to 70
         set matrix height 1,x,i,actwaveheight
      next x
   endif
next i
update matrix 1
dec wave
if wave<0 then wave=105
position camera 50,get ground height(1,50,30)+1,30
sync
loop

rem Water Matrix
rem by TheComet

rem setup screen
set display mode 1024,768,32
sync on
sync rate 60
backdrop on
hide mouse
autocam off

rem set dimensions of water matrix
xres=60
yres=60
numwaves=10
ships=10

rem setup arrays
dim wavepos(numwaves,2)
dim wavestage(numwaves)
dim #g(3,xres,yres)

rem make a mouse pointer object
make object sphere 1,15

rem make ships
for n=2 to ships+1
   make object plain n,0,0
   make object box n+ships,20,10,50
   glue object to limb n+ships,n,0
   position object n,rnd(800)+100,0,rnd(800)+100
   yrotate object n,rnd(360)
   color object n+ships,rgb(112,62,16)
next n

rem make water texture
create bitmap 1,20,20
for t=0 to 10000
   c=rnd(128)+40
   ink rgb(0,0,c),0
   r=rnd(5)
   circle rnd(20),rnd(20),r
next t
blur bitmap 1,1
get image 1,0,0,20,20
delete bitmap 1

rem make water matrix
make matrix 1,1000.0,1000.0,xres,yres
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
ghost matrix on 1
set matrix 1,0,1,1,1,1,1,1
make object plain 200,1000,1000
position object 200,500,-1,500
texture object 200,1
xrotate object 200,90

rem make rock texture
create bitmap 1,80,50
for t=0 to 5
   c=(t*12)+40
   ink rgb(c+20,c,c),0
   box t,t,79-t,49-t
next t
for t=0 to 10000
   c=rnd(128)+40
   ink rgb(c+20,c,c),0
   r=rnd(5)
   circle rnd(60)+10,rnd(30)+10,r
next t
blur bitmap 1,1
get image 2,0,0,80,50
delete bitmap 1

rem make surrounding landscape
for n=100 to 103
   make object plain n,1000,100
   yrotate object n,(n-100)*90
   texture object n,2
   scale object texture n,15,1
next n
position object 100,500,20,0
position object 101,0,20,500
position object 102,500,20,1000
position object 103,1000,20,500

rem make a light
make light 1
set point light 1,1000,800,20
color light 1,rgb(255,200,150)

rem set variables
wave=1
prev=1
current=2
future=3
sep#=1000/xres

rem main loop
position camera 500,500,-200
point camera 500,-20,500
do

   rem control mouse pointer object
   position mouse 320,240
   xpos=xpos+mousemovex()
   ypos=ypos+mousemovey()
   if xpos<100 then xpos=100
   if xpos>900 then xpos=900
   if ypos<100 then ypos=100
   if ypos>900 then ypos=900
   position object 1,xpos,10,1000-ypos
   xspot=xpos/sep#
   yspot=ypos/sep#
   yspot=yres-yspot

   rem trigger a wave if user clicks
   if click=-1 and mouseclick()=0 then click=0
   if mouseclick()=1 and click>-1
     click=1
   endif

   rem activate wave
   if click=1
     if wavestage(wave)<=0
       wavepos(wave,1)=xspot
       wavepos(wave,2)=yspot
       wavestage(wave)=180
       wave=wave+1
       if wave>numwaves then wave=1
       click=-1
     endif
   endif

   rem control wave movements
   for n=1 to numwaves
     if wavestage(n)>0
       #g(current,wavepos(n,1),wavepos(n,2))=#g(current,wavepos(n,1),wavepos(n,2))+sin(wavestage(n))*150
       wavestage(n)=wavestage(n)-30
     endif
   next n

   rem calculate waves
   inc prev
   inc current
   inc future
   if prev>3 then prev=1
   if current>3 then current=1
   if future>3 then future=1
   for x=1 to xres-1
      for y=1 to yres-1
         #g(future,x,y)=(#g(current,x-1,y)+#g(current,x+1,y)+#g(current,x,y-1)+#g(current,x,y+1))/2-#g(prev,x,y)
         #g(future,x,y)=#g(future,x,y)*0.98
      next y
   next x

   rem update matrix
   for x=0 to xres
      for y=0 to yres
         set matrix height 1,x,y,#g(future,x,y)
      next y
   next x
   update matrix 1

   rem calculate tilt for ships
   for n=2 to ships+1
      x#=object position x(n)
      z#=object position z(n)
      ay#=object angle y(n)
      x1#=newxvalue(x#,wrapvalue(ay#+45),5)
      x2#=newxvalue(x#,wrapvalue(ay#-45),5)
      x3#=newxvalue(x#,wrapvalue(ay#+135),5)
      x4#=newxvalue(x#,wrapvalue(ay#-135),5)
      z1#=newzvalue(z#,wrapvalue(ay#+45),5)
      z2#=newzvalue(z#,wrapvalue(ay#-45),5)
      z3#=newzvalue(z#,wrapvalue(ay#+135),5)
      z4#=newzvalue(z#,wrapvalue(ay#-135),5)
      y1#=get ground height(1,x1#,z1#)
      y2#=get ground height(1,x2#,z2#)
      y1#=get ground height(1,x3#,z3#)
      y2#=get ground height(1,x4#,z4#)
      width#=atan((y3#-y1#)+(y4#-y2#))/3.5355339059327376220042218105242
      length#=0-(atan((y2#-y1#)+(y4#-y3#))/3.5355339059327376220042218105242)

      rem update ships
      position object n,x#,get ground height(1,x#,z#)+5,z#
      rotate object n+ships,curveangle(wrapvalue(width#),object angle x(n+ships),10),0,curveangle(wrapvalue(length#),object angle z(n+ships),10)
   next n

   rem refresh screen
   sync

rem end of main loop
loop

rem end
end

attached

if check display mode(1280,1024,32) then set display mode 1280,1024,32
sync rate 60 : sync on
autocam off


make matrix 1,100,100,20,20

position camera -40,50,30
point camera 50,0,50

do
   a = a + 1
   for x = 0 to 20
      for z = 0 to 20
         set matrix height 1,x,z,sin(a+x*10+z*30)*4
      next z
   next x
   update matrix 1
sync
loop

This entry is quite interesting.  The randomness of the wave pitching
 implies a realistic ocean or sea type object.  I think with such a
 small matrix, the effect is a bit lost but on a larger matrix (in 3d units), and with adjusted timing the waves spread out would look
 very sea like.  Nice job!  Interestingly enough as well, this kinda
 looks like a blob creature of some sort.  

While a pretty cool effect, I could only see that it suggested water
by the shape of the 2d tile images.  It kinda gave me the impression
of a cheese grater, but it was a good example of how to achieve
2d animation by flipping images.

Over all a very nice little program!  Making the fish jump was fun
and I like how there are three mediums: sea-floor, ocean, and air.
The bubble effects were real nice and you handled  the implied
motion of the fish very well.  The lighting effect on the tail
really added to the detail.  I knew this one was water.

Welcome to the challenges!  You used very little code to create a
rolling wave or tidal wave type effect.  This is a good entry that
demonstrates simple matrix manipulation to show the idea of a wave
crashing to the shore.

A dark and murky looking sea floor.  Even though there wasn't
 anything that said water, I instantly got the impression that I
was under water.

I remember this one from a previous challenge.  It seems to be a
pouring stream of spheres.  It was a little hard to glean the idea
of water off of this as there was no filling up in the matrix
basin, and without that, the motion of the stream was kinda lost.

My first impression of this was buoy like toys in a blowup backyard
pool bobbing up and down.   But I wonder if the colored ring is
supposed to imply a horizon reflecting on the water.  At any rate,
I like this entry.  The bobbing of the objects is well done and the
general look of the water with the colored rings works. 

This is a very nice effect.  It shows a realistic water effect
using sin math and array manipulation.  Though I'm surpized one of
the variables worked = #g(future,x,y) with the pound sign in
front.  You mention using code from the code base.  Since I don't
know the exact code, I'll assume you changed it enough and aren't
copying it verbatim.  Just keep in mind numbers like

3.5355339059327376220042218105242

are rounded to 6 digits in DBC so everything after 3.53553 would be
ignored (I think).

Straight to the point basically bare bones code to create a wave
effect on a grid (matrix).  This is a good demonstration of direct
trig math used to uniformly transform a grid.  I would have liked
to see a little more detail like a texture at least to give a
stronger impression of water.

Ashingda 27 - Jumping fish.  Creative, and completely different than all of the other entries.

TheComet - this is a very good ripple effect, and really can
 come to life with lighting, normal calculations, and texturing.

#constant wWIDTH = 160
#constant wHEIGHT = 120

a = wWIDTH
b = wHEIGHT

dim source(a,b) as float
dim result(a,b) as float
`dim prevResult(128,128)

for x = 1 to 128
	for y = 1 to 128
		`source(x, y).r = rnd(255)
		`source(x, y).g = rnd(255)
		`source(x, y).b = rnd(255)
	next y
next x




sync on

sx = 1
sy = 1

DO
	cls
	
	
	
	mx = 400-wWIDTH/2
	my = 300-wHEIGHT/2
		
	for x = 1 to wWIDTH
		for y = 1 to wHEIGHT
			L = source(x,y)
			`c = L*255 / 100
			if L > 0 then ink rgb(0,0,L),0
			if L < 0 then ink rgb(L/2,L/2,L),0
			if L = 0 then ink 0,0
			box mx+x,my+y,mx+x+1,my+y+1
		next y
	next x



	if mouseclick() = 1 and flag = 0
		flag = 1
		if mousex()>=mx and mousex()<=mx+wWIDTH and mousey()>=my and mousey()<=my+wHEIGHT
			sx = mousex()-mx
			sy = mousey()-my
			splash(sx,sy,4)
		endif
	endif
	if mouseclick() = 0 then flag = 0



	gosub wave


	rem display boundary
	ink rgb(255,255,255),0
	line mx,my,mx+wWIDTH+1,my
	line mx,my,mx,my+wHEIGHT+1
	line mx+wWIDTH+1,my,mx+wWIDTH+1,my+wHEIGHT+1
	line mx,my+wHEIGHT+1,mx+wWIDTH+1,my+wHEIGHT+1

	
	text 1,1,str$(screen fps())
	text 1,20,str$(source(sx,sy))
	`print source(sx,sy)
	sync
LOOP


wave:
	damp# = 0.6
	for x = 2 to wWIDTH-1
		for y = 2 to wHEIGHT-1
			n# = (source(x-1,y) + source(x+1,y) + source(x,y-1) + source(x,y+1)) / 2 - result(x,y)
			n# = n# - (n# * damp#)
			if abs(int(n#)) < 3 
				n# = 0.0
				source(x,y) = 0
			endif
			`if str$(n#) = "-1.#IND" then n# = 0.0
			result(x,y) = n#
		next y
	next x
	
	for x = 1 to wWIDTH
		for y = 1 to wHEIGHT
			temp = source(x,y)
			source(x,y) = result(x,y)
			result(x,y) = source(x,y)
		next y
	next x	

RETURN



function splash(cx,cy,radius)
	
	
	for y = cy-radius to cy+radius
		for x = cx-radius to cx+radius
			dist# = distance#(x,y,cx,cy)
			if dist# < radius
				if x>1 and x<wWIDTH and y>1 and y<wHEIGHT
					`source(x,y) = 255 - (512 * 1 - dist# / radius)
					source(x,y) = 0
					result(x,y) = 0
				endif
			endif
		next x
	next y
	source(cx,cy) = -255
	result(cx,cy) = -255
endfunction


function distance#(x1,y1,x2,y2)
	d# = sqrt(((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)))
endfunction d#