Sorry your browser is not supported!

REM Project: Top Text
REM Created: 2/26/2009 9:15:15 PM
REM
REM ***** Main Source File *****
REM

Set display mode 1024,786,32
`set display mode 1440,900,32
SYNC ON : SYNC RATE 50
color backdrop rgb(0,0,0)


playerImage = 1 : getPlayerImage(playerImage,8)
bulletImage = 2 : getBulletImage(bulletImage,8)
targetImage = 3 : getTargetImage(targetImage,8)
CLS


TYPE typeBULLET
   speed as integer
   sprnum as integer
   imgnum as integer
   angle as integer
   alive as integer
   owner as integer
ENDTYPE

TYPE typeTARGET
   speed# as float
   sprnum as integer
   imgnum as integer
   angle as integer
   alive as integer
   seek# as integer
   spawntimer as integer
ENDTYPE

TYPE typePARTICLE
   speedX# as float
   speedY# as float
   accX# as float
   accY# as float
   imgnum as integer
   sprnum as integer
   originX as integer
   originY as integer
   alive as integer
ENDTYPE


Global playerSprite as integer : playerSprite = 1
Global playerSpeed as integer : playerSpeed = 5
PLRfireRate = 100


Global allBullets as integer : allBullets = 50
Global bulletStart as integer : bulletStart = 100
Global bulletEnd as integer : bulletEnd = bulletStart + allBullets
Dim bullet(BulletEnd) as typeBULLET
   for b = bulletStart to bulletEnd
      bullet(b).sprnum = b
      bullet(b).alive = 0
      bullet(b).owner = 0
      bullet(b).imgnum = 2
   next b
nextBullet = bulletStart


Global allTargets as integer : allTargets = 20
Global targetStart as integer: targetStart = 50
Global targetEnd as integer : targetEnd = targetStart + allTargets
Dim target(TargetEnd) as typeTARGET
   for t = targetStart to targetEnd
      target(t).sprnum = t
      target(t).alive = 1
      target(t).speed# = 3+(rnd(20)/10)
      target(t).imgnum = 3
      target(t).angle = rnd(359)
      target(t).seek# = 100
      target(t).spawntimer = timer() + 1000

         sprite t,rnd(screen width()),rnd(screen height()),3
         offset sprite t,sprite width(t)/2,sprite height(t)/2
         rotate sprite t,target(t).angle

   next t

Global allParticles as integer : allParticles = 200
Global particleStart as integer: particleStart = 200
Global particleEnd as integer : particleEnd = particleStart + allParticles
Dim particle(ParticleEnd) as typePARTICLE



sprite playerSprite,screen width() / 2,screen Height() / 2, playerImage
offset sprite playerSprite,sprite width(playerSprite) / 2,sprite height(playerSPrite) / 2


Do

   playerAngle = WRAPVALUE(atanfull ( sprite x(playerSprite) - mouseX() , sprite y(playerSprite) - mousey())*-1)
   rotate sprite playerSprite,playerAngle
   result = movePlayer()

   If mouseclick() = 1 and timer() > PRLfireTimer AND bullet(nextBullet).alive = 0
      PRLfireTimer = timer() + PLRfireRate
      sprite nextBullet,sprite X(playerSprite),sprite Y(playerSprite),bullet(nextBullet).imgnum
      offset sprite nextBullet,sprite width(nextBullet)/2,sprite height(nextBullet)/2
      rotate sprite nextBullet,playerAngle
      move sprite nextBullet,sprite height(playerSprite)/3

      bullet(nextBullet).owner = 1
      bullet(nextBullet).alive = 1
      bullet(nextBullet).speed = 10
      bullet(nextBullet).angle = playerAngle

   endif
   inc nextBullet
   if nextBullet > bulletEnd then nextBullet = bulletStart

   for b = bulletStart to bulletEnd
      `b = x - bulletStart +1
      delete = 0
      if bullet(b).alive
         move sprite bullet(b).sprnum,bullet(b).speed

         move sprite playerSprite,1000
            hit = sprite collision(b,0)
         move sprite playerSprite,-1000
         if hit => targetStart AND hit <= targetEnd
            distX = sprite X(bullet(b).sprnuM) - sprite X(hit)
            distY = sprite Y(bullet(b).sprnuM) - sprite Y(hit)
            dist = SQRT( (distX*distX) + (distY*distY) )
            if dist < sprite width(hit)
               target(hit).alive = 0
               target(hit).spawntimer = timer() + 600 + rnd(1000)
               delete sprite hit
               delete = 1
               INC SCORE
            endif
         endif

         if sprite X(b) > screen width() OR sprite X(b) < 0 OR sprite Y(b) < 0 OR sprite Y(b) > screen height()
            delete = 1
         endif

         if delete = 1
            delete sprite b
            bullet(b).alive = 0
         endif

      endif
   next b


   for t = targetStart to targetEnd
      resetStats = 0
      if target(t).alive
         move sprite t,target(t).speed#

         if sprite X(t) > screen width()
            sprite t,0,sprite y(t),target(t).imgnum
         endif
         if sprite X(t) < 0
            sprite t,screen width(),sprite y(t),target(t).imgnum
         endif
         if sprite Y(t) > screen height()
            sprite t,sprite x(t),0,target(t).imgnum
         endif
         if sprite Y(t) < 0
            sprite t,sprite x(t),screen height(),target(t).imgnum
         endif

         distX = sprite X(playerSprite) - sprite X(t)
         distY = sprite Y(playerSprite) - sprite Y(t)
         dist = SQRT( (distX*distX) + (distY*distY) )

         if dist < sprite width(playerSprite)
            Score = 0
            resetStats = 1
         endif

      endif
      if target(t).alive = 0 AND timer() > target(t).spawntimer
         target(t).sprnum = t
         target(t).alive = 1
         target(t).speed# = target(t).speed#+.1
         target(t).imgnum = 3
         if target(t).seek# > 10 then dec target(t).seek#,10
         `target(t).angle = 90

            side = rnd(3)
            if side = 0 then  sprite t,rnd(screen width()),0,3
            if side = 1 then  sprite t,rnd(screen width()),screen height(),3
            if side = 2 then  sprite t,0,rnd(screen height()),3
            if side = 3 then  sprite t,screen width(),rnd(screen width()),3

            offset sprite t,sprite width(t)/2,sprite height(t)/2
            rotate sprite t,target(t).angle

         `target(t).angle = rnd(359)
         angleToPlayer = WRAPVALUE(atanfull ( sprite x(playerSprite) - sprite x(t) , sprite y(playerSprite) - sprite y(t))*-1)+180
         target(t).angle = angleToPlayer
         target(t).angle = WRAPVALUE (target(t).angle + (RND (target(t).seek#) -(target(t).seek#/2) ) )
         rotate sprite t,target(t).angle
      endif


      if resetStats
         for t =targetStart to targetEnd
            target(t).speed# = 3+(rnd(20)/10)
            target(t).seek# = 100
         next t
      endif
   next t




   set text size 10
   text 0,0,str$(target(50).seek#)

   CENTER TEXT screen width()/2,20,"SCORE"
   set text size 30
   CENTER TEXT screen width()/2,30,str$(score)
   sync
loop

Function Boom(boomX,boomY,boomIntensity,content$)

Endfunction

Function movePlayer()
   if keystate(17)
      playerAngle = sprite angle(playerSPrite)
      rotate sprite playerSprite,0 : move sprite playerSprite,playerSpeed
      rotate sprite playerSprite,playerAngle
      result = 1
   endif
   if keystate(31)
      playerAngle = sprite angle(playerSPrite)
      rotate sprite playerSprite,180 : move sprite playerSprite,playerSPeed
      rotate sprite playerSprite,playerAngle
      result = 1
   endif
   if keystate(30)
      playerAngle = sprite angle(playerSprite)
      rotate sprite playerSprite,270 : move sprite playerSprite,playerSpeed
      rotate sprite playerSprite,playerAngle
      result = 1
   endif
   if keystate(32)
      playerAngle = sprite angle(playerSprite)
      rotate sprite playerSprite,90 : move sprite playerSprite,playerSpeed
      rotate sprite playerSprite,playerAngle
      result = 1
   endif
Endfunction result

Function getPlayerImage(playerImage,size)
   set text size size
   CLS
   `rint "1234567"
   print "  _ _  "
   print " //|\\ "
   print "|||||||"
   print " \[ ]/ "
      k = size
   get Image playerImage,0,k+0,7*(size),k+(7*size)
   `line 0,k+0,7*size,0+k
   `line 0,k+0,0,size*7+k
   `line 7*size,k+size*7,0,k+size*7
   `line 7*size,k+size*7,7*size,k+0
Endfunction

Function getTargetImage(targetImage,size)
   set text size size
   CLS
   print " | "
   print "+X+"
   print " | "
   k = 0
   get Image targetImage,0,k+0,3*(size),k+(7*size)
   `line 0,k+0,3*size,0+k
   `line 0,k+0,0,size*7+k
   `line 3*size,k+size*7,0,k+size*7
   `line 3*size,k+size*7,3*size,k+0
   `SYNC : SYNC
   `suspend for key
Endfunction


Function getBulletImage(bulletImage,size)
   set text size size
   CLS
   print "H"
   get image bulletImage,0,0,size,size+size
endfunction

set display mode 800,600,32

sync on
sync rate 0
autocam off
hide mouse

steplength#=0.5
cursorsteplength#=0.2
type tower
  x as integer
  y as integer
  ttype as integer
  built as integer
  initbuilt as integer
  target as integer
  delay as integer
  delaysteps as integer
endtype

type bullet
  startx as integer
  starty as integer
  endx as integer
  endy as integer
  damage as integer
  btype$ as string
endtype

type enemy
  x as integer
  y as integer
  health as integer
  movedx as integer
  movedy as integer
  etype$ as string
endtype

type pathpos
  xoff as integer
  yoff as integer
endtype

set text size 8

start:

dim towers(0) as tower
dim bullets(0) as bullet
dim enemies(0) as enemy
dim path(0) as pathpos
dim pathcalc(20,15) as integer

enemycount=0
enemyhealth=0
enemytype$=""

timestep#=0
cursortime#=0
steps=0
cursorstep=0
lasttower=0
tracksteps=0
showpath=1



repeat
  
  ink rgb(0,255,0),0
  set cursor (-1)*8+100,(-1)*12+20
  print "+------------------------------------------------------------+"
  set cursor (-1)*8+100,(45)*12+20
  print "+------------------------------------------------------------+"
  
  for c=0 to 20
    set cursor (-1)*8+100,(c)*12+20
    print ":"
  next c
  for c=24 to 44
    set cursor (-1)*8+100,(c)*12+20
    print ":"
  next c
  for c=0 to 20
    set cursor (60)*8+100,(c)*12+20
    print ":"
  next c
  for c=24 to 44
    set cursor (60)*8+100,(c)*12+20
    print ":"
  next c
  
  set cursor (2)*8+100,(12)*12+20
  print "YOUR MISSION:  STOP THE EVIL, EARTH MAULING LETTERS"
  set cursor (2)*8+100,(13)*12+20
  print "               FROM GETTING FROM THE LEFT GATE TO"
  set cursor (2)*8+100,(14)*12+20
  print "               THE RIGHT GATE."
  
  set cursor (2)*8+100,(16)*12+20
  print "NOTE: IF EXTRA MOTIVATION IS REQUIRED, ALTERNATE,"
  set cursor (2)*8+100,(17)*12+20
  print "MORE DRAMATIC DESCRIPTIONS MAY BE SUBSTITUTED WITH"
  set cursor (2)*8+100,(18)*12+20
  print "THE WORD 'GATE'."
  
  set cursor (2)*8+100,(21)*12+20
  print ":!: PLACE TOWERS BY CLICKING THE LEFT MOUSE BUTTON."
  set cursor (2)*8+100,(23)*12+20
  print ":!: SELECT DIFFERENT TOWERS BY PRESSING KEYS '1','2',"
  set cursor (2)*8+100,(24)*12+20
  print "    OR '3'"
  set cursor (2)*8+100,(26)*12+20
  print ":!: REMOVE A TOWER BY CLICKING THE RIGHT MOUSE BUTTON"
  
  set cursor (2)*8+100,(29)*12+20
  print "BETWEEN WAVES OF EVIL, EARTH MAULING LETTERS, THE PATH"
  set cursor (2)*8+100,(30)*12+20
  print "THEY WILL TAKE IS SHOWN IN DARK RED. ONCE A WAVE STARTS,"
  set cursor (2)*8+100,(31)*12+20
  print "LETTERS WILL BEGIN MOVING FROM THE LEFT GATE. YOUR TOWERS"
  set cursor (2)*8+100,(32)*12+20
  print "WILL AUTOMATICALLY SELECT THEIR TARGETS AND FIRE AT THEIR"
  set cursor (2)*8+100,(33)*12+20
  print "OWN DISCRETION. MAXIMISE THEIR CHANCE OF SUCCESS BY"
  set cursor (2)*8+100,(34)*12+20
  print "DELAYING THE LETTERS PROGRESS WITH YOUR TOWER PLACEMENT."
  set cursor (2)*8+100,(35)*12+20
  print "MAKING EFFICIENT 'MAZES' IS POINT OF THE GAME. POINTS FOR"
  set cursor (2)*8+100,(36)*12+20
  print "BUILDING MORE TOWERS ARE AWARDED FOR EACH LETTER KILL."
  
  set cursor (2)*8+100,(39)*12+20
  print "GOOD LUCK! (OH YEAH, PRESS ENTER TO BEGIN)"
  
  set cursor (2)*8+100,(41)*12+20
  print "PS. WATCH OUT FOR THE VOWELS, THEY'RE PARTICULARLY NASTY."
  set cursor (2)*8+100,(42)*12+20
  print "    YOU'LL NEED TO BUILD AN ANTI VOWEL TOWER TO NAIL 'EM."
  set cursor (2)*8+100,(43)*12+20
  print "    THEY START APPEARING AT WAVE 9, SO BE READY."
  
  
  ink rgb(0,0,255),0
  set cursor (2)*8+100,(21)*12+20
  print "                                 LEFT MOUSE BUTTON."
  set cursor (2)*8+100,(23)*12+20
  print "                                              1   2"
  set cursor (2)*8+100,(24)*12+20
  print "        3"
  set cursor (2)*8+100,(26)*12+20
  print "                                   RIGHT MOUSE BUTTON"
  
  set cursor (15)*8+100,(2)*12+20
  print "      _      _______   ___   "
  set cursor (15)*8+100,(3)*12+20
  print "     / \    |__   __| |   \  "
  set cursor (15)*8+100,(4)*12+20
  print "    / ^ \      | |    | |\ \ "
  set cursor (15)*8+100,(5)*12+20
  print "   / /_\ \     | |    | || |"
  set cursor (15)*8+100,(6)*12+20
  print "  / _____ \    | |    | |/ / "
  set cursor (15)*8+100,(7)*12+20
  print " /_/     \_\   |_|    |___/  "
  set cursor (15)*8+100,(9)*12+20
  print "-----ASCII-TOWER-DEFENSE-----"
  
  ink rgb(255,0,0),0
  set cursor (2)*8+100,(12)*12+20
  print "                        EVIL, EARTH MAULING LETTERS"
  set cursor (2)*8+100,(29)*12+20
  print "                 EVIL, EARTH MAULING LETTERS"
  
  ink rgb(100,0,0),0
  set cursor (2)*8+100,(30)*12+20
  print "                           DARK RED"
  
  sync
until returnkey()

oldtime=timer()
checkpoint=0
tickerbuffer$=""
ticker$="         "
tickertime#=0
tickerstep#=0.1
timeleft#=12
level=1
towerschanged=1
enemysteps=0
enemydelay=0
money=50
bounty=0
lives=10
cursortype=1



do
  newtime=timer()
  time#=(newtime-oldtime)/1000.0
  oldtime=newtime
  
  timestep#=timestep#+time#
  steps=0
  while timestep#>steplength#
    steps=steps+1
    timestep#=timestep#-steplength#
  endwhile
  
  key=scancode()
  if (key>1) and (key<5)
    cursortype=key-1
  endif
  
  
  if (timeleft#>0) And (enemycount=0) And (array count(enemies(0))=0)
    timeleft#=timeleft#-time#
    if (int(timeleft#+time#)<>int(timeleft#))
      if (int(timeleft#)+1)<11 then tickerbuffer$=str$(int(timeleft#)+1)
    endif
    showpath=1
  else
    if (enemycount=0) And (array count(enemies(0))=0)
      for c=0 to array count(towers(0))-1
        towers(c).target=-1
      next c
      select level
        case 1
          enemycount=10
          enemytype$="k"
        endcase
        case 2
          enemycount=10
          enemytype$="m"
        endcase
        case 3
          enemycount=10
          enemytype$="K"
        endcase
        case 4
          enemycount=15
          enemytype$="m"
        endcase
        case 5
          enemycount=10
          enemytype$="M"
        endcase
        case 6
          enemycount=10
          enemytype$="b"
        endcase
        case 7
          enemycount=25
          enemytype$="M"
        endcase
        case 8
          enemycount=20
          enemytype$="b"
        endcase
        case 9
          enemycount=25
          enemytype$="i"
        endcase
        case 10
          enemycount=1
          enemytype$="g"
        endcase
        case 11
          enemycount=15
          enemytype$="n"
        endcase
        case 12
          enemycount=10
          enemytype$="B"
        endcase   
        case 13
          enemycount=20
          enemytype$="n"
        endcase   
        case 14
          enemycount=15
          enemytype$="N"
        endcase  
        case 15
          enemycount=20
          enemytype$="I"
        endcase  
        case 16
          enemycount=0
          enemytype$=""
          lives=0
        endcase  
      endselect
      
      tickerbuffer$=".:: Wave "+str$(level)+" ::."
      
      timeleft#=12
      showpath=0
      
      select enemytype$
        case "k"
          enemyhealth=10
          bounty=2
          enemydelay=2
        endcase
        case "K"
          enemyhealth=14
          bounty=2
          enemydelay=2
        endcase
        case "m"
          enemyhealth=8
          bounty=1
          enemydelay=1
        endcase
        case "M"
          enemyhealth=14
          bounty=2
          enemydelay=1
        endcase
        case "b"
          enemyhealth=46
          bounty=2
          enemydelay=3
        endcase
        case "B"
          enemyhealth=150
          bounty=4
          enemydelay=3
        endcase
        case "i"
          enemyhealth=56
          bounty=3
          enemydelay=2
        endcase
        case "I"
          enemyhealth=200
          bounty=4
          enemydelay=2
        endcase
        case "g"
          enemyhealth=300
          bounty=70
          enemydelay=1
        endcase
        case "n"
          enemyhealth=70
          bounty=3
          enemydelay=1
        endcase
        case "N"
          enemyhealth=100
          bounty=3
          enemydelay=1
        endcase
      endselect
      
      level=level+1
    endif
  endif
  //if lmb=0 then cls
  cls
  
  lmb=0
  mmb=0
  rmb=0
  
  mv=mouseclick()
  if int(mv/8)=1
    mv=mv-8
  endif
  if int(mv/4)=1
    mv=mv-4
    mmb=1
  endif
  if int(mv/2)=1
    mv=mv-2
    rmb=1
  endif
  if mv=1
    lmb=1
  endif
  
  
  cursorx=int((mousex()/8)/3)
  cursory=int((mousey()/12)/3)
  if cursorx>19 then cursorx=19
  if cursory>14 then cursory=14
  
  if lmb=1 
    cursorsteplength#=0.05  
  else
    cursorsteplength#=cursorsteplength#+((0.2-cursorsteplength#)*0.7*time#) 
  endif
  

  cursortime#=cursortime#+time#
  while cursortime#>cursorsteplength#
    cursorstep=cursorstep+1
    cursortime#=cursortime#-cursorsteplength#
  endwhile
  while cursorstep>3
    cursorstep=cursorstep-4
  endwhile
  
  
  
  
  lasttower=-1
  
  if lmb=1
    occupied=0
    for c=0 to array count(towers(0))-1
      if (towers(c).x=cursorx) AND (towers(c).y=cursory) then occupied=1
    next c
    for c=0 to array count(enemies(0))-1
      if (enemies(c).x=cursorx) AND (enemies(c).y=cursory) then occupied=1
    next c
    if occupied=0
      select cursortype
        case 1
          cost=10
        endcase
        case 2
          cost=40
        endcase
        case 3
          cost=80
        endcase
      endselect
      if money>=cost
        money=money-cost
        towerschanged=1
        lasttower=addtower(cursorx,cursory,cursortype)
      endif
    endif
  endif
  
  if rmb=1
    
    for c=0 to array count(towers(0))-1
      if (towers(c).x=cursorx) AND (towers(c).y=cursory)
        deletetower(c)
        money=money+7
        towerschanged=1
        tickerbuffer$=" Deleted!"
      endif
    next c
  endif
  
  while towerschanged=1
    towerschanged=0
    for cx=0 to 19
      for cy=0 to 14
        pathcalc(cx,cy)=-1  
      next cy
    next cx
    
    for c=0 to array count(towers(0))-1 
      pathcalc(towers(c).x,towers(c).y)=-2
    next c
    foundnew=1
    
    pathnum=0
    while foundnew=1
      pathcalc(19,7)=0
      foundnew=0
      for cx=0 to 20
        for cy=0 to 15
          if pathcalc(cx,cy)=-1
            if cx>0
              if pathcalc(cx-1,cy)=pathnum 
                pathcalc(cx,cy)=pathnum+1
                foundnew=1
              endif
            endif
            if cx<19
              if pathcalc(cx+1,cy)=pathnum 
                pathcalc(cx,cy)=pathnum+1
                foundnew=1
              endif
            endif
            if cy>0
              if pathcalc(cx,cy-1)=pathnum
                pathcalc(cx,cy)=pathnum+1
                foundnew=1
              endif
            endif
            if cy<14
              if pathcalc(cx,cy+1)=pathnum
                pathcalc(cx,cy)=pathnum+1
                foundnew=1
              endif
            endif
          endif  
        next cy
      next cx
      pathnum=pathnum+1
    endwhile


    if (pathcalc(0,7)<0)
      deletetower(lasttower)
      select towers(lasttower).ttype
        case 1
          money=money+10
        endcase
        case 2
          money=money+40
        endcase
        case 3
          money=money+50
        endcase
      endselect
      towerschanged=1
    else
      if lasttower>-1
        if ((towers(lasttower).x=19) AND (towers(lasttower).y=7))
        deletetower(lasttower)
        select towers(lasttower).ttype
          case 1
            money=money+10
          endcase
          case 2
            money=money+40
          endcase
          case 3
            money=money+50
          endcase
        endselect
        endif
      endif
     
    
      dim path(0) as pathpos
      posx=0
      posy=7
      pathnum=pathcalc(0,7)
      loops=0
      num=0
      while (posx<>19) OR (posy<>7)
        
        dim path(num+1) as pathpos
        loops=loops+1
            changex=0
            changey=0
            if posx>0
              if pathcalc(posx-1,posy)=pathnum-1 
                path(num).xoff=-1
                path(num).yoff=0
                //changex=-1
                posx=posx-1
              endif
            endif
            if posx<19
              if pathcalc(posx+1,posy)=pathnum-1 
                path(num).xoff=1
                path(num).yoff=0
                //changex=1
                posx=posx+1
              endif
            endif
            if posy>0
              if pathcalc(posx,posy-1)=pathnum-1
                path(num).xoff=0
                path(num).yoff=-1
                //changey=-1
                posy=posy-1
              endif
            endif
            if posy<14
              if pathcalc(posx,posy+1)=pathnum-1
                path(num).xoff=0
                path(num).yoff=1
                //changey=1
                posy=posy+1
              endif
            endif
            posx=posx+changex
            posy=posy+changey
        
        pathnum=pathnum-1
        num=num+1
      endwhile
    endif
  endwhile
  
  
  
  ink rgb(255,128,0),0
  for c=0 to array count(bullets(0))-1
    if bullets(c).btype$="("
      if (timestep#/steplength#)>0.5  
        set cursor ((bullets(c).startx*3.0)-1)*8+100,((bullets(c).starty*3.0)-1)*12+20  
        print "/ ¯ \"  
        set cursor ((bullets(c).startx*3.0)-2)*8+100,((bullets(c).starty*3.0)+1)*12+20  
        print "|     |"  
        set cursor ((bullets(c).startx*3.0)-1)*8+100,((bullets(c).starty*3.0)+3)*12+20  
        print "\ _ /" 
      endif
    else
      px#=bullets(c).startx+((bullets(c).endx-bullets(c).startx)*(timestep#/steplength#))
      py#=bullets(c).starty+((bullets(c).endy-bullets(c).starty)*(timestep#/steplength#))
      set cursor (int((px#)*3.0)+1)*8+100,(int((py#)*3.0)+1)*12+20  
      print bullets(c).btype$  
    endif
  next c
  
  if steps>0
    for c=0 to array count(bullets(0))-1
      hit=-1
      if bullets(c).btype$="("
        for b=0 to array count(enemies(0))-1
          if (abs(enemies(b).x-bullets(c).startx)+abs(enemies(b).y-bullets(c).starty))<3 
            enemies(b).health=enemies(b).health-10
          endif
        next b
      else
        for b=0 to array count(enemies(0))-1
          if (enemies(b).x=bullets(c).endx) AND (enemies(b).y=bullets(c).endy)
            hit=b
          endif 
        next b
        select bullets(c).btype$
          case "·"
            enemies(hit).health=enemies(hit).health-2
          endcase
          case "*"
            if (enemies(hit).etype$="i") OR (enemies(hit).etype$="I")
              enemies(hit).health=enemies(hit).health-15
            endif
          endcase
        endselect
      endif
      
      
    next c
    dim bullets(0) as bullet
    
    c=0
    while c<array count(enemies(0))
      if enemies(c).health<1
        deleteenemy(c)
        money=money+bounty
        c=c-1
      endif
      c=c+1
    endwhile
  endif
  
  
  
  if (enemycount>0) or (array count(enemies(0))<>0)
    
    for n=1 to steps
      c=0
      while c<array count(enemies(0))
        if (enemies(c).x=19) AND (enemies(c).y=7)
          deleteenemy(c)
          lives=lives-1
          
          c=c-1
        endif
        c=c+1
      endwhile
      
      for c=0 to array count(enemies(0))-1
        moved=0
        enemies(c).movedx=0
        enemies(c).movedy=0
        if enemies(c).x>0
          if (pathcalc(enemies(c).x-1,enemies(c).y)=pathcalc(enemies(c).x,enemies(c).y)-1) AND moved=0
            enemies(c).x=enemies(c).x-1
            enemies(c).movedx=1
            moved=1
          endif
        endif
        if enemies(c).x<19
          if (pathcalc(enemies(c).x+1,enemies(c).y)=pathcalc(enemies(c).x,enemies(c).y)-1) AND moved=0 
           enemies(c).x=enemies(c).x+1
           enemies(c).movedx=-1
           moved=1
          endif
        endif
        if enemies(c).y>0
          if (pathcalc(enemies(c).x,enemies(c).y-1)=pathcalc(enemies(c).x,enemies(c).y)-1) AND moved=0
            enemies(c).y=enemies(c).y-1
            enemies(c).movedy=1
            moved=1
          endif
        endif
        if enemies(c).y<14
          if (pathcalc(enemies(c).x,enemies(c).y+1)=pathcalc(enemies(c).x,enemies(c).y)-1) AND moved=0
            enemies(c).y=enemies(c).y+1
            enemies(c).movedy=-1
            moved=1
          endif
        endif
        
      next c
      enemysteps=enemysteps+1
      if enemysteps>=enemydelay 
        enemysteps=enemysteps-enemydelay
        if enemycount>0
          addenemy(0,7,enemyhealth,enemytype$)
          enemycount=enemycount-1
        endif
      endif
    next n
  endif
  
  if lives<1
    repeat
      ink rgb(0,255,0),0
      set cursor (-1)*8+100,(-1)*12+20
      print "+------------------------------------------------------------+"
      set cursor (-1)*8+100,(45)*12+20
      print "+------------------------------------------------------------+"
      
      for c=0 to 20
        set cursor (-1)*8+100,(c)*12+20
        print ":"
      next c
      for c=24 to 44
        set cursor (-1)*8+100,(c)*12+20
        print ":"
      next c
      for c=0 to 20
        set cursor (60)*8+100,(c)*12+20
        print ":"
      next c
      for c=24 to 44
        set cursor (60)*8+100,(c)*12+20
        print ":"
      next c  
      
      if level>15
        ink rgb(0,255,0),0
        set cursor (4)*8+100,(12)*12+20
        print "CONGRATULATIONS! YOU HAVE SUCCESFULLY DIVERTED"
        set cursor (4)*8+100,(13)*12+20
        print "THE WRATH OF THE PIXELATED CHARACTER MENACE! "
        set cursor (4)*8+100,(16)*12+20
        print "(FOR NOW, ANYWAY)"
        set cursor (22)*8+100,(24)*12+20
        print "PRESS ENTER TO CONTINUE"  
      else    
        ink rgb(0,255,0),0
        set cursor (4)*8+100,(12)*12+20
        print "YOU HAVE SUCCUMBED TO THE SHEER ALPHABETICAL"
        set cursor (4)*8+100,(13)*12+20
        print "PRESSURE OF WAVE "+str$(level-1)+"!"
        set cursor (22)*8+100,(20)*12+20
        print "PRESS ENTER TO CONTINUE"
      endif     
      sync
    until returnkey()=1
    repeat
    until returnkey()<>1
    cls
            
    goto start
  endif
  
  ink rgb(255,255,255),0
  
  //for cx=0 to 19
  //  for cy=0 to 14
  //    set cursor ((cx*3)+1)*8+100,((cy*3)+1)*12+20 
  //    print pathcalc(cx,cy)
  //  next cy
  //next cx
  
  ink rgb(255,0,0),0
  enemystep=int((timestep#/steplength#)*3.0)
  for c=0 to array count(enemies(0))-1

    select enemystep 
      case 0
        set cursor (((enemies(c).x+enemies(c).movedx)*3)+1-enemies(c).movedx)*8+100,(((enemies(c).y+enemies(c).movedy)*3)+1-enemies(c).movedy)*12+20 
      endcase
      case 1
        set cursor (((enemies(c).x)*3)+1+enemies(c).movedx)*8+100,(((enemies(c).y)*3)+1+enemies(c).movedy)*12+20 
      endcase 
      case 2
        set cursor ((enemies(c).x*3)+1)*8+100,((enemies(c).y*3)+1)*12+20 
      endcase
    endselect
    
    print enemytype$
  next c
  
  
  
  if showpath=1
    tracksteps=tracksteps+steps
    while tracksteps>2
      tracksteps=tracksteps-3
    endwhile
    posx=0
    posy=7
    ink rgb(100,0,0),0
    for c=0 to array count(path(0))-1
      if tracksteps=0 
        set cursor ((posx*3)+1)*8+100,((posy*3)+1)*12+20
        print "O"
        set cursor (((posx+path(c).xoff)*3)+1-path(c).xoff)*8+100,(((posy+path(c).yoff)*3)+1-path(c).yoff)*12+20
        print "·"
      endif
      if tracksteps=1 
        set cursor ((posx*3)+1+path(c).xoff)*8+100,((posy*3)+1+path(c).yoff)*12+20
        print "O"
        set cursor ((posx*3)+1)*8+100,((posy*3)+1)*12+20
        print "·"
      endif
      if tracksteps=2 
        set cursor (((posx+path(c).xoff)*3)+1-path(c).xoff)*8+100,(((posy+path(c).yoff)*3)+1-path(c).yoff)*12+20
        print "O"
        set cursor ((posx*3)+1+path(c).xoff)*8+100,((posy*3)+1+path(c).yoff)*12+20
        print "·"
      endif
      //if tracksteps=1 then set cursor ((posx*3)+1+path(c).xoff)*8+100,((posy*3)+1+path(c).yoff)*12+20
      
      //if tracksteps=2 then set cursor (((posx+path(c).xoff)*3)+1-path(c).xoff)*8+100,(((posy+path(c).yoff)*3)+1-path(c).yoff)*12+20
      //print "o"
      //print "o"
      posx=posx+path(c).xoff
      posy=posy+path(c).yoff
    next c
  endif
  
  ink rgb(0,255,0),0
  set cursor 0,0
  print screen fps()," fps"
  

  
  
  for c=0 to array count(towers(0))-1 
  
      if towers(c).built>0
        mult=towers(c).built*towers(c).built
        if mult<int(towers(c).initbuilt*1.2) then mult=int(towers(c).initbuilt*1.2)
      else
        mult=0
      endif
      
      ink rgb(int((255.0*towers(c).built)/towers(c).initbuilt),int((255.0*towers(c).built)/towers(c).initbuilt),255),rgb(0,0,0)
      select towers(c).ttype
        case 1
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3))*12+20
          if rnd(mult)<towers(c).initbuilt then print "\ /" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3+1))*12+20
          if rnd(mult)<towers(c).initbuilt then print " # " else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3)+2)*12+20
          if rnd(mult)<towers(c).initbuilt then print "/ \" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
        endcase
        case 2
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3))*12+20
          if rnd(mult)<towers(c).initbuilt then print "\ /" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3+1))*12+20
          if rnd(mult)<towers(c).initbuilt then print "<=>" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3)+2)*12+20
          if rnd(mult)<towers(c).initbuilt then print "/ \" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
        endcase
        case 3
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3))*12+20
          if rnd(mult)<towers(c).initbuilt then print "/-\" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3+1))*12+20
          if rnd(mult)<towers(c).initbuilt then print ")O(" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
          set cursor ((towers(c).x*3))*8+100,((towers(c).y*3)+2)*12+20
          if rnd(mult)<towers(c).initbuilt then print "\-/" else print chr$(rnd(255))+chr$(rnd(255))+chr$(rnd(255))
        endcase
      endselect
    if towers(c).built>0 then towers(c).built=towers(c).built-steps
    
    towers(c).delaysteps=towers(c).delaysteps+steps    
    if (towers(c).built=0) AND (towers(c).delaysteps>=towers(c).delay)
      towers(c).delaysteps=towers(c).delaysteps-towers(c).delay
      if array count(enemies(0))>0
        newneeded=0
        if towers(c).target<>-1
          if array count(enemies(0))>(towers(c).target)
            select towers(c).ttype
              case 1
                if (abs(enemies(towers(c).target).x-towers(c).x)+abs(enemies(towers(c).target).y-towers(c).y))<5
                else
                  newneeded=1
                endif
              endcase
              case 2
                if (enemies(towers(c).target).etype$="i") OR (enemies(towers(c).target).etype$="I")
                  if (abs(enemies(towers(c).target).x-towers(c).x)+abs(enemies(towers(c).target).y-towers(c).y))<6
                  else
                    newneeded=1
                  endif
                endif
              endcase
              case 3
                if (abs(enemies(towers(c).target).x-towers(c).x)+abs(enemies(towers(c).target).y-towers(c).y))<3
                else
                  newneeded=1
                endif
              endcase
            endselect
          else
            newneeded=1
          endif
        else
          newneeded=1
        endif
        
        if newneeded=1
          towers(c).target=-1
          for b=0 to array count(enemies(0))-1 
            select towers(c).ttype
              case 1
                if (abs(enemies(b).x-towers(c).x)+abs(enemies(b).y-towers(c).y))<5
                  towers(c).target=b
                endif
              endcase
              case 2
                if (enemies(b).etype$="i") OR (enemies(b).etype$="I")
                  if (abs(enemies(b).x-towers(c).x)+abs(enemies(b).y-towers(c).y))<6
                    towers(c).target=b
                  endif
                endif
              endcase
              case 3
                if (abs(enemies(b).x-towers(c).x)+abs(enemies(b).y-towers(c).y))<3
                  towers(c).target=b
                endif
              endcase
            endselect
            
          next b
        endif
        
        if towers(c).target<>-1
          addbullet(towers(c).x,towers(c).y,enemies(towers(c).target).x,enemies(towers(c).target).y,towers(c).ttype)
        else
          towers(c).delaysteps=towers(c).delaysteps+steps
          if towers(c).delaysteps>towers(c).delay then towers(c).delaysteps=towers(c).delay
        endif
      endif
    endif
    
  next c
  
  ink rgb(0,255,0),0
  select cursorstep
    case 0
      set cursor ((cursorx*3))*8+100,((cursory*3))*12+20
      print "-\ "
      set cursor ((cursorx*3))*8+100,((cursory*3)+1)*12+20
      print " x "
      set cursor ((cursorx*3))*8+100,((cursory*3)+2)*12+20
      print " \-"
    endcase
    case 1
      set cursor ((cursorx*3))*8+100,((cursory*3))*12+20
      print " \|"
      set cursor ((cursorx*3))*8+100,((cursory*3)+1)*12+20
      print " x "
      set cursor ((cursorx*3))*8+100,((cursory*3)+2)*12+20
      print "|\ "
    endcase
    case 2
      set cursor ((cursorx*3))*8+100,((cursory*3))*12+20
      print "  |"
      set cursor ((cursorx*3))*8+100,((cursory*3)+1)*12+20
      print "/x/"
      set cursor ((cursorx*3))*8+100,((cursory*3)+2)*12+20
      print "|  "
    endcase
    case 3
      set cursor ((cursorx*3))*8+100,((cursory*3))*12+20
      print "-  "
      set cursor ((cursorx*3))*8+100,((cursory*3)+1)*12+20
      print "/x/"
      set cursor ((cursorx*3))*8+100,((cursory*3)+2)*12+20
      print "  -"
    endcase
  endselect
  
  set cursor (-1)*8+100,(-1)*12+20
  print "+------------------------------------------------------------+"
  set cursor (-1)*8+100,(45)*12+20
  print "+------------------------------------------------------------+"
  
  for c=0 to 20
    set cursor (-1)*8+100,(c)*12+20
    print ":"
  next c
  for c=24 to 44
    set cursor (-1)*8+100,(c)*12+20
    print ":"
  next c
  for c=0 to 20
    set cursor (60)*8+100,(c)*12+20
    print ":"
  next c
  for c=24 to 44
    set cursor (60)*8+100,(c)*12+20
    print ":"
  next c
  
  set cursor 200,200
  ink rgb(255,255,255),0
  
  
  tickertime#=tickertime#+time#
  while tickertime#>tickerstep#
    tickertime#=tickertime#-tickerstep#
    while len(ticker$)<60
      ticker$=ticker$+" "
    endwhile
    ticker$=right$(ticker$,59)+left$(tickerbuffer$,1)
    tickerbuffer$=right$(tickerbuffer$,len(tickerbuffer$)-1)
  endwhile
  
  set cursor 100,0
  print ticker$
  
  set cursor ((21*3))*8+100,((0))*12+20
  print "Tower points: "+str$(money)
  set cursor ((21*3))*8+100,((2))*12+20
  print "       Lives: "+str$(lives)
  
  if cursortype=1 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
  
  set cursor ((21*3))*8+100,((3*3))*12+20
  print "\ /"
  set cursor ((21*3))*8+100,((3*3+1))*12+20
  print " # "
  set cursor ((21*3))*8+100,((3*3)+2)*12+20
  print "/ \"
  
  set cursor (63)*8+100,(7)*12+20
  print "1: Pulse tower"
  set cursor (67)*8+100,(9)*12+20
  print "Cost:   10"
  set cursor (67)*8+100,(10)*12+20
  print "Attack: 2"
  set cursor (67)*8+100,(11)*12+20
  print "Range:  4"
  
  if cursortype=2 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
  
  set cursor ((21*3))*8+100,((5*3)+2)*12+20
  print "\ /"
  set cursor ((21*3))*8+100,((5*3)+3)*12+20
  print "<=>"
  set cursor ((21*3))*8+100,((5*3)+4)*12+20
  print "/ \"
  
  set cursor (63)*8+100,(15)*12+20
  print "2: Anti Vowel Tower"
  set cursor (67)*8+100,(17)*12+20
  print "Cost:   40"
  set cursor (67)*8+100,(18)*12+20
  print "Attack: 15"
  set cursor (67)*8+100,(19)*12+20
  print "Range:  6"
  set cursor (67)*8+100,(20)*12+20
  print "Only attacks vowels"
  
  if cursortype=3 then ink rgb(0,0,255),0 else ink rgb(255,255,255),0
  
  set cursor ((21*3))*8+100,((8*3)+1)*12+20
  print "/-\"
  set cursor ((21*3))*8+100,((8*3)+2)*12+20
  print ")O("
  set cursor ((21*3))*8+100,((8*3)+3)*12+20
  print "\-/"
  
  set cursor (63)*8+100,(23)*12+20
  print "3: Thump Tower"
  set cursor (67)*8+100,(25)*12+20
  print "Cost:   80"
  set cursor (67)*8+100,(26)*12+20
  print "Attack: 10"
  set cursor (67)*8+100,(27)*12+20
  print "Range:  2"
  set cursor (67)*8+100,(28)*12+20
  print "Area effect"
         
  //print cursorsteplength#
  sync
loop


function deletetower(towernum)
  for c=towernum to array count(towers(0))-2
    towers(c).x=towers(c+1).x
    towers(c).y=towers(c+1).y
    towers(c).ttype=towers(c+1).ttype
    towers(c).built=towers(c+1).built
    towers(c).initbuilt=towers(c+1).initbuilt
    towers(c).target=towers(c+1).target
    towers(c).delay=towers(c+1).delay
    towers(c).delaysteps=towers(c+1).delaysteps
  next c
  dim towers(array count(towers(0))-1) as tower
endfunction


function addtower(x,y,ttype)
  num= array count(towers(0))
  dim towers(num+1) as tower
  towers(num).x=x
  towers(num).y=y
  towers(num).ttype=ttype  
  towers(num).built=16
  towers(num).initbuilt=16
  towers(num).target=-1
  towers(num).delay=2
  towers(num).delaysteps=0
endfunction num


function addenemy(x,y,health,etype$)
  num= array count(enemies(0))
  dim enemies(num+1) as tower
  enemies(num).x=x
  enemies(num).y=y
  enemies(num).movedx=-1
  enemies(num).movedy=0
  enemies(num).health=health
  enemies(num).etype$=etype$
endfunction num

function deleteenemy(enemynum)
  for c=enemynum to array count(enemies(0))-2
    enemies(c).x=enemies(c+1).x
    enemies(c).y=enemies(c+1).y
    enemies(c).movedx=enemies(c+1).movedx
    enemies(c).movedy=enemies(c+1).movedy
    enemies(c).health=enemies(c+1).health
    enemies(c).etype$=enemies(c+1).etype$
  next c
  dim enemies(array count(enemies(0))-1) as tower
endfunction

function addbullet(startx,starty,endx,endy,ttype)
  num= array count(bullets(0))
  dim bullets(num+1) as bullet
  bullets(num).startx=startx
  bullets(num).starty=starty
  bullets(num).endx=endx
  bullets(num).endy=endy
  select ttype
    case 1
      bullets(num).btype$="·"
    endcase
    case 2
      bullets(num).btype$="*"
    endcase
    case 3
      bullets(num).btype$="("
    endcase
  endselect
endfunction num

function deletebullet(bulletnum)
  for c=bulletnum to array count(bullets(0))-2
    bullets(c).startx=bullets(c+1).startx
    bullets(c).starty=bullets(c+1).starty
    bullets(c).endx=bullets(c+1).endx
    bullets(c).endy=bullets(c+1).endy
    bullets(c).btype$=bullets(c+1).btype$
  next c
  dim bullets(array count(bullets(0))-1) as bullet
endfunction

Skyrift - Your game had everything it needed, and more. The intro screen was well done, and there were little extras everywhere throughout your game!

flashing snall - your game was devilishly addictive but lacked the colour and finishing touch that could have made it the winner. 

rem Challenge: Screen Saver
rem Author: Ace Lepage
rem Deadline: Apr 4/09
set display mode 1024,768,32
top = 200
tail = 100
DIM x(top, tail) as float
dim y(top, tail) as float
dim a(top) as float
dim b(top)as float
dim c(top,3) as byte
xmax = 1023
ymax = 767
xcen = xmax / 2
ycen = ymax / 2
dim quadrant(2)
quadrant(1)=1
quadrant(2)=-1
randomize timer()
FOR t = 1 TO top
  aq=quadrant(rnd(1)+1)
  bq=quadrant(rnd(1)+1)
  a = RND(155)
  b = (RND(55)+(100-a))*bq
  a=a*aq
  x(t, 0) = (xcen + a)
  y(t, 0) = (ycen + b)
  a(t) = aq*(60 - abs(xcen - a)) / 500
  b(t) = bq*(60 - abs(ycen - b)) / 500
  c(t,1)=rnd(255)
  c(t,2)=rnd(255)
  c(t,3)=rnd(255)
NEXT t
ptr = 0
lptr = 1
while not escapekey()
  FOR t = 1 TO top
    dot x(t, lptr), y(t, lptr), 0
    dot x(t, ptr), y(t, ptr), rgb(c(t,1),c(t,2),c(t,3))
    adiff# = xcen - x(t, ptr)
    bdiff# = ycen - y(t, ptr)
    c# = adiff# ^ 2 + bdiff# ^ 2
    a# = (1 / c#) * adiff#
    b# = (1 / c#) * bdiff#
    a(t) = a(t) + a#
    b(t) = b(t) + b#
    x(t,lptr)=x(t,ptr)+a(t)
    y(t,lptr)=y(t,ptr)+b(t)
    inc c(t,1)
    inc c(t,2)
    inc c(t,3)
  NEXT t
  lptr = lptr + 1
  IF lptr > tail THEN lptr = 0
  ptr = ptr + 1
  IF ptr > tail THEN ptr = 0
endwhile

set display mode 1024,768,32
backdrop on
color backdrop 0
sync on
top = 200
tail = 10
segdiv=50
plains=top/segdiv
camang as float
camang=180
camdist=100
DIM x(top, tail) as float
dim y(top, tail) as float
dim a(top) as float
dim b(top)as float
dim c(top,3) as byte
dim quadrant(2)
bitmap_size=100
plain_size=100
xmax = bitmap_size
ymax = bitmap_size
xcen = xmax / 2
ycen = ymax / 2
quadrant(1)=1
quadrant(2)=-1
set image colorkey 0,0,0
for x=1 to plains
  set current bitmap 0
  make object plain x,plain_size,plain_size
  position object x,0,0,0
  yrotate object x,(x*180)/plains
  create bitmap x,bitmap_size,bitmap_size
  ink 0,0
  box 0,0,bitmap_size,bitmap_size
rem  get image x,0,0,99,99,0
rem  texture object x,x
  set object transparency x,1
  set object emissive x,200
next x

randomize timer()
FOR t = 1 TO top
  aq=quadrant(rnd(1)+1)
  bq=quadrant(rnd(1)+1)
  a = RND(50)
  b = (RND(25)+(50-a))*bq
  a=a*aq
  x(t, 0) = (xcen + a)
  y(t, 0) = (ycen + b)
  a(t) = bq*(200 - abs(xcen - a)) / 500
  b(t) = aq*(200 - abs(ycen - b)) / 500
  c(t,1)=rnd(255)
  c(t,2)=rnd(255)
  c(t,3)=rnd(255)
NEXT t
ptr = 0
lptr = 1
ink rgb(255,255,255),0
while not escapekey()
  last_bitmap=1
  set current bitmap last_bitmap
  FOR t = 1 TO top
    current_bitmap=int((t-1)/segdiv)+1
    if (current_bitmap > last_bitmap)
      get image last_bitmap,0,0,bitmap_size-1,bitmap_size-1
      texture object last_bitmap,last_bitmap
      set current bitmap current_bitmap
      last_bitmap=current_bitmap
    endif
    dot x(t, lptr), y(t, lptr),0
    dot x(t, ptr), y(t, ptr),rgb(c(t,1),c(t,2),c(t,3))
    adiff# = xcen - x(t, ptr)
    bdiff# = ycen - y(t, ptr)
    c# = adiff# ^ 2 + bdiff# ^ 2
    a# = (1 / c#) * adiff#
    b# = (1 / c#) * bdiff#
    a(t) = a(t) + a#/3.0
    b(t) = b(t) + b#/3.0
    x(t,lptr)=x(t,ptr)+a(t)
    y(t,lptr)=y(t,ptr)+b(t)
    inc c(t,1)
    inc c(t,2)
    inc c(t,3)
  NEXT t
  get image current_bitmap,0,0,bitmap_size-1,bitmap_size-1
  texture object current_bitmap,current_bitmap
  set current bitmap 0
  lptr = lptr + 1
  IF lptr > tail THEN lptr = 0
  ptr = ptr + 1
  IF ptr > tail THEN ptr = 0
  position camera sin(camang)*camdist,0,cos(camang)*camdist
  point camera 0,0,0
  camang=wrapvalue(camang+0.5)
  sync
endwhile

`Monk's Screen saver
`Media free coding challenge

`Setup
Set display mode 1024,768,32
cls 0
ink rgb(255,255,255),rgb(255,255,255)
hide mouse

`Make it always different
randomize timer()

`number of bits of explosion
noflares = 41

`All the necessary Variables
dim length(noflares)
dim start(noflares)
dim angle(noflares)
dim colr(noflares) as float
dim colg(noflares) as float
dim colb(noflares) as float
dim colour(noflares) as dword
dim startx(noflares) as float
dim starty(noflares) as float
dim endx(noflares) as float
dim endy(noflares) as float

boom = 0
speed# = 0.1


do

cls

x = rnd(824)+100
y = rnd(568)+100

`if no fireworks on screen
if boom = 0
   `fire the bullet
   fireshot(x,y,speed#)
   `start the explosion
   fireworks(x,y)
   boom = 1
endif


if boom = 1
   `move explosion
   boom = movefire(centrex,centrey,speed#)
endif

`typical screensaver quit code
if mousemovex() <> 0 or mousemovey() <> 0 then exit
if scancode() > 0 then exit


loop
end


function fireshot(x,y,speed#)
`fire the bullet
`start at rndx of bottom of the screen
startx(1) = rnd(1024)
starty(1) = 768
length(1) = 5
angle(1) = atanfull(x-startx(1),768-y)

colr(1) = rnd(255)
colg(1) = rnd(255)
colb(1) = rnd(255)
colour(1) = rgb(colr(1),colg(1),colb(1))

`work out the end of the line
endx(1) = startx(1) + sin(angle(1))*length(1)
endy(1) = starty(1) - cos(angle(1))*length(1)

ink Colour(1),colour(1)
line startx(1),starty(1),endx(1),endy(1)

repeat
   `move the bullet
   startx(1) = startx(1) + 3*speed#*sin(angle(1))
   starty(1) = starty(1) - 3*speed#*cos(angle(1))
   endx(1) = startx(1) + sin(angle(1))*length(1)
   endy(1) = starty(1) - cos(angle(1))*length(1)

   cls

   line startx(1),starty(1),endx(1),endy(1)
`trigger explosion if shot reaches target
until starty(1) <= y

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

endfunction


function fireworks(x,y)

for fire = 2 to 41
   `same stuff as shot
   length(fire) = rnd(30)
   start(fire) = rnd(20)
   angle(fire) = rnd(360)
   colr(fire) = rnd(255)
   colg(fire) = rnd(255)
   colb(fire) = rnd(255)
   colour(fire) = rgb(colr(fire),colg(fire),colb(fire))

   startx(fire) = sin(angle(fire))*start(fire) + x
   starty(fire) = cos(angle(fire))*start(fire) + y
   endx(fire) = startx(fire) + sin(angle(fire))*length(fire)
   endy(fire) = starty(fire) + cos(angle(fire))*length(fire)

   ink colour(fire),colour(fire)
   line startx(fire), starty(fire), endx(fire), endy(fire)

next fire

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

endfunction


function movefire(x,y,speed#)

boom = 1
dead = 0

for fire = 2 to 41

   startx(fire) = startx(fire) + speed#*sin(angle(fire))
   starty(fire) = starty(fire) + speed#*cos(angle(fire))
   endx(fire) = startx(fire) + sin(angle(fire))*length(fire)
   endy(fire) = starty(fire) + cos(angle(fire))*length(fire)

   colr(fire) = colr(fire) - 0.3 : if colr(fire) < 0 then colr(fire) = 0
   colg(fire) = colg(fire) - 0.3 : if colg(fire) < 0 then colg(fire) = 0
   colb(fire) = colb(fire) - 0.3 : if colb(fire) < 0 then colb(fire) = 0
   colour(fire) = rgb(colr(fire),colg(fire),colb(fire))

   ink colour(fire),colour(fire)
   line startx(fire), starty(fire), endx(fire), endy(fire)
   `if the colour of the shot is black and it cant be seen, count it as dead
   if colour(fire) <= 4278190080
      dead = dead + 1
      `if all shots "dead" then have a new firework
      if dead = 20
         boom = 0
      endif
   endif

next fire

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

endfunction boom

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

sync on
sync rate 60
backdrop on
color backdrop 0
make object sphere 1,15
hide mouse
xres=80
yres=80
make matrix 1,1000.0,1000.0,xres,yres
position camera 400,400,-200
point camera 400,-20,400

cls rgb(30,10,180)
get image 1,0,0,32,32
prepare matrix texture 1,1,1,1

rem make light 1
rem set point light 1,1000.0,800.0,20.0
rem color light 1,rgb(255,200,150)

set matrix 1,1,1,1,1,1,1,0


numwaves=10
dim wavepos(numwaves,2)
dim wavestage(numwaves)
wave=1

dim g#(3,xres,yres)
prev=1
current=2
future=3
sep#=1000/xres
repeat
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
IF click=-1 AND mouseclick()=0 THEN click=0
IF mouseclick()=1 and click>-1
  click=1
ENDIF

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

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

prev=prev+1
current=current+1
future=future+1
if prev>3 then prev=1
if current>3 then current=1
if future>3 then future=1
for x=2 to xres-1
for y=2 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
for x=1 to xres
for y=1 to yres
set matrix height 1,x,y,g#(future,x,y)
next y
next x
box 10,10,20,rnd(30)
update matrix 1
sync
until 1=2

`water diffraction demo
`by monk

`setup
set display mode 1024,768,32,1
sync on
autocam off

`make water
make matrix 1,500,500,50,50

make object box 1,50,20,150
make object box 2,50,20,150

position object 1,300,0,100
position object 2,300,0,400

dim diff(2,3)
diff(1,1)= 150/10
diff(1,2) = (object position x(1)+0.5*object size x(1))/10
diff(1,3) = (object position z(1)+0.5*object size z(1))/10

dim height#(50,50,2) as float

startx = 0

position camera 0,250,100,-100
set camera range 1,1000
xrotate camera 10

do
if upkey() = 1
   move object 1,1
endif
if downkey() = 1
   move object 1,-1
endif

   for x = 0 to 50
      for y = 0 to 50
         height#(x,y,1) = 3*sin(100*(x-startx)-offset)
         set matrix height 1,x,y,height#(x,y,1)
      next
   next

   inc offset,3

   diff(1,1)= 150/10
   diff(1,2) = (object position x(1)+0.5*object size x(1))/10
   diff(1,3) = (object position z(1)+0.5*object size z(1))/10

   diff(2,1)= 150/10
   diff(2,2) = (object position x(2)+0.5*object size x(2))/10
   diff(2,3) = (object position z(2)+0.5*object size z(2))/10

   if object position z(1) > 250
      diff(1,1) = 00
      diff(2,1) = 30
   endif

   if object position z(1) > 251
      position object 1,300,0,251
   else
      if object position z(1) < 100
         position object 1,300,0,100
      endif
   endif

   for d = 1 to 2
      repeat
         for z = diff(d,3) to diff(d,3)-diff(d,1) step -1
            set matrix height 1,diff(d,2),z,0
         next z

         inc diff(d,2)
         dec diff(d,3)
         dec diff(d,1),2
      until diff(d,1) < 1
   next d

update matrix 1

sync
loop
end