Sorry your browser is not supported!

sync on
sync rate 0
set display mode 1024,768,32
color backdrop 0
cls
autocam off
set camera range 0.01,200
hide mouse
global health=100
global highest_obj=0
level_floor=freeobj()
make object box level_floor,100,1,100
position object level_floor,0,-0.5,0
position camera 0,0.5,0
global dummy
dummy=freeobj()
make object cube dummy,0
set text size 12

type weapon_type
   ammo
   img
endtype

dim prime(20)
prime(1)=2
prime(2)=3
prime(3)=5
prime(4)=7
prime(5)=11
prime(6)=13
prime(7)=17
prime(8)=19
prime(9)=23
prime(10)=29
prime(11)=31
prime(12)=37
prime(13)=41
prime(14)=43
prime(15)=47
prime(16)=53
prime(17)=59
prime(18)=61
prime(19)=67
prime(20)=71
global last_shot_time
dim weapon(20) as weapon_type
health_img=freeimg()
      ink rgb(255,0,0),0
      box 0,0,80,80
      ink -1,0
      center text 40,40-text height("X")*0.5,"Health"
      get image health_img,0,0,80,80,0

for n=1 to 20
   ink rgb(0,255,0),0
   box 0,0,40,40
   ink 0,0
   center text 20,20-text height("X")*0.5,str$(prime(n))
   img=freeimg()
   get image img,0,0,40,40,0
   weapon(n).img=img
next n
global selected_gun
global level=1
selected_gun=1
weapon(1).ammo=50

type item_type
   value1
   value2
   typ
   obj
endtype

dim item(10) as item_type



for n=1 to 10
   item(n).obj=freeobj()
   make object sphere item(n).obj,1
   position object item(n).obj,rnd(100)-50,0.5,rnd(100)-50
   if rnd(4)=1
      item(n).typ=1
      item(n).value1=50
      texture object item(n).obj,health_img
   else
      item(n).typ=0
      item(n).value1=rnd(level-1)+1
      item(n).value2=20
      texture object item(n).obj,weapon(item(n).value1).img
   endif
   set object filter item(n).obj,0
next n
move_speed#=15
timer0=timer()
time#=0


type evil_number_type
   number
   prime
   obj
   angle as float
endtype
dim evil_number(100) as evil_number_type

for n=1 to 20
   evil_number(n).prime=prime(rnd(level-1)+1)
   evil_number(n).number=evil_number(n).prime*(prime(rnd(3)+1+level))
   evil_number(n).obj=freeobj()
   ink rgb(0,0,255),0
   box 0,0,40,40
   ink -1,0
   center text 20,20-text height("X")*0.5,str$(evil_number(n).number)
   img=freeimg()
   get image img,0,0,40,40,0
   make object box evil_number(n).obj,1,1,1
   texture object evil_number(n).obj,img
   position object evil_number(n).obj,rnd(100)-50,60+rnd(20),rnd(100)-50
   yrotate object evil_number(n).obj,rnd(360)
   set object filter evil_number(n).obj,0

next n
global detection_range#=20.0
global seperation_range#=8.0
   set text size 36


ink 0,0
box 0,0,500,500
ink -1,0
for n=1 to 3000
x=rnd(500)
y=rnd(500)
box x,y,x+1,y+1
next n
background_img=freeimg()
get image background_img,0,0,500,500
level_skybox=freeobj()
make object box level_skybox,200,200,200
set object cull level_skybox,0
set object light level_skybox,0
texture object level_skybox,background_img

ink 0,0
box 0,0,500,500
ink -1,0
for n=1 to 3000
x=rnd(400)
y=rnd(400)
ink rgb(rnd(255),rnd(255),rnd(255)),0
box x,y,x+rnd(100),y+rnd(100)
next n
floor_img=freeimg()
get image floor_img,0,0,500,500
texture object level_floor,floor_img
vy#=0
global shot_amount=0
globaL score=0
do
   time#=(timer()-timer0)*0.001
   timer0=timer()
   gosub ai
   gosub screen
   gosub control_camera
   gosub items
   gosub gun
   gosub end_of_level
   sync
loop

end_of_level:
   all_dead=1
   for n=1 to 100
      if evil_number(n).obj>0
         if object exist(evil_number(n).obj)
            all_dead=0
            exit
         endif
      endif
   next n
   if all_dead=1
      t=timer()
      while timer()<t+500
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      center text screen width()/2,screen height()/2-text height("X")/2.0,"LEVEL COMPLETE!"
      sync
      endwhile
      t=timer()
      while timer()<t+1000
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      center text screen width()/2,screen height()/2-text height("X")/2.0-((timer()-t)*200/1000.0),"LEVEL COMPLETE!"
      sync
      endwhile
      t=timer()
      while timer()<t+3000
         ink rgb(0,255,0),0
         center text screen width()/2,screen height()/2-text height("X")/2.0-200,"LEVEL "+str$(level)+" COMPLETE!"
         ink rgb(255,0,0),0
         center text screen width()/2,screen height()/2-text height("X")/2.0,"Accuracy: "+str$(2000.0/shot_amount)+"%"
         sync
      endwhile
      shot_amount=0
      inc level
      set text size 12
      for n=1 to 20
         evil_number(n).prime=prime(rnd(level-1)+1)
         evil_number(n).number=evil_number(n).prime*(prime(rnd(3)+1+level))
         evil_number(n).obj=freeobj()
         ink rgb(0,0,255),0
         box 0,0,40,40
         ink -1,0
         center text 20,20-text height("X")*0.5,str$(evil_number(n).number)
         img=freeimg()
         get image img,0,0,40,40,0
         make object box evil_number(n).obj,1,1,1
         texture object evil_number(n).obj,img
         position object evil_number(n).obj,rnd(100)-50,60+rnd(20),rnd(100)-50
         yrotate object evil_number(n).obj,rnd(360)
         set object filter evil_number(n).obj,0
      next n
      set text size 36
      timer0=timer()
   endif
return

items:
   for n=1 to 10
      if item(n).obj>0
         if object exist(item(n).obj)
            turn object right item(n).obj,180*time#
            dist2#=(object position x(item(n).obj)-camera position x())^2+(object position z(item(n).obj)-camera position z())^2
            if dist2#<4
               if item(n).typ=0
                  weapon(item(n).value1).ammo=weapon(item(n).value1).ammo+item(n).value2
               endif
               if item(n).typ=1
                  health=health+item(n).value1
               endif
               position object item(n).obj,rnd(100)-50,0.5,rnd(100)-50
               if rnd(4)=1
                  item(n).typ=1
                  item(n).value1=50
                  texture object item(n).obj,health_img
               else
                  item(n).typ=0
                  item(n).value1=rnd(level-1)+1
                  item(n).value2=20
                  texture object item(n).obj,weapon(item(n).value1).img
               endif
            endif
         endif
      endif
   next n
return

ai:
for n=1 to 100
   if evil_number(n).obj>0
      if object exist(evil_number(n).obj)
         move object evil_number(n).obj,sqrt(evil_number(n).prime)*3*time#
         evil_number(n).angle=object angle y(evil_number(n).obj)
         if object position y(evil_number(n).obj)>0.5
            position object evil_number(n).obj,object position x(evil_number(n).obj),object position y(evil_number(n).obj)-20*time#,object position z(evil_number(n).obj)
         endif
         if object position y(evil_number(n).obj)<0.5
            position object evil_number(n).obj,object position x(evil_number(n).obj),0.5,object position z(evil_number(n).obj)
         endif
      endif
   endif
next n
for n=1 to 100
   if evil_number(n).obj>0
      if object exist(evil_number(n).obj)
         totalx#=0
         totalz#=0
         for n2=1 to 100
            if evil_number(n2).obj>0
               if object exist(evil_number(n2).obj)
                  dist2#=(object position x(evil_number(n).obj)-object position x(evil_number(n2).obj))^2+(object position z(evil_number(n).obj)-object position z(evil_number(n2).obj))^2
                  if dist2#>seperation_range#^2
                     if dist2#<detection_range#^2
                        if evil_number(n).prime=evil_number(n2).prime
                           totalx#=totalx#+sin(evil_number(n2).angle)
                           totalz#=totalz#+cos(evil_number(n2).angle)
                        else
                           totalx#=totalx#-sin(evil_number(n2).angle)*0.1
                           totalz#=totalz#-cos(evil_number(n2).angle)*0.1
                        endif
                     endif
                  else
                     ang#=atanfull(object position x(evil_number(n2).obj)-object position x(evil_number(n).obj),object position z(evil_number(n2).obj)-object position z(evil_number(n).obj))
                     totalx#=totalx#-seperation_range#*sin(ang#)/dist2#
                     totalz#=totalz#-seperation_range#*cos(ang#)/dist2#
                  endif
               endif
            endif
         next n2
         dist2#=(object position x(evil_number(n).obj)-camera position x())^2+(object position z(evil_number(n).obj)-camera position z())^2
         if dist2#<detection_range#^2
            targetang#=atanfull(camera position x()-object position x(evil_number(n).obj),camera position z()-object position z(evil_number(n).obj))
            totalx#=totalx#+evil_number(n).prime*3*sin(targetang#)
            totalz#=totalz#+evil_number(n).prime*3*cos(targetang#)
         endif
         totalx#=totalx#-object position x(evil_number(n).obj)*0.08
         totalz#=totalz#-object position z(evil_number(n).obj)*0.08
         yrotate object evil_number(n).obj,curveangle(atanfull(totalx#,totalz#)+rnd(20)-10,object angle y(evil_number(n).obj),60)
      endif
   endif
next n
return

function line3d(x#,y#,z#,x2#,y2#,z2#)
   position object dummy,x#,y#,z#
   `if object in screen(dummy)=0 then exitfunction
   x=object screen x(dummy)
   y=object screen y(dummy)
   position object dummy,x2#,y2#,z2#
   `if object in screen(dummy)
      line x,y,object screen x(dummy),object screen y(dummy)
   `endif
endfunction
gun:
   mmz=mousemovez()
   if mmz>0
      old_gun=selected_gun
      inc selected_gun
      while weapon(selected_gun).ammo<=0
         inc selected_gun
         if selected_gun>20
            selected_gun=1
         endif
         if selected_gun=old_gun
            exit
         endif
      endwhile
   endif
   if mmz<0
      old_gun=selected_gun
      dec selected_gun
      while weapon(selected_gun).ammo<=0
         dec selected_gun
         if selected_gun<1
            selected_gun=20
         endif
         if selected_gun=old_gun
            exit
         endif
      endwhile
   endif
   if mouseclick()=1
      shoot_weapon(selected_gun)
   endif
return

function shoot_weapon(weapon)
   if weapon(weapon).ammo>0 and timer()>last_shot_time+100
      inc shot_amount
      last_shot_time=timer()
      weapon(weapon).ammo=weapon(weapon).ammo-1
      obj=pick object(screen width()/2,screen height()/2,1, highest_obj)
      if obj>0
         for n=1 to 100
            if evil_number(n).obj=obj
               if object exist(evil_number(n).obj)
                  if evil_number(n).number/prime(weapon)=(0.0+evil_number(n).number)/prime(weapon)
                     delete object evil_number(n).obj
                     evil_number(n).obj=0
                  endif
               endif
            endif
         next n
      endif
   endif
endfunction

screen:
   set cursor 0,0
   ink -1,0
   print "Level:",level
   print "Weapon:",prime(selected_gun)
   print "Ammo:",weapon(selected_gun).ammo
   print "Health:",health
   ink rgb(255,0,0),0
   box screen width()/2,screen height()/2-20,screen width()/2+1,screen height()/2+20+1
   box screen width()/2-20,screen height()/2,screen width()/2+20+1,screen height()/2+1
   center text screen width()/2,screen height()/2-0.5*text height("X"),str$(prime(selected_gun))
   ink rgb(55,55,55),0
   text screen width()/2+30,screen height()/2-0.5*text height("X")+30,str$(weapon(selected_gun).ammo)
return

control_camera:
   rotate camera curveangle(camera_angle_x#,camera angle x(),8),curveangle(camera_angle_y#,camera angle y(),8),0
   camera_angle_x#=camera_angle_x#+mousemovey()
   camera_angle_y#=camera_angle_y#+mousemovex()
   xr#=camera angle x()
   xrotate camera 0
   move camera (keystate(17)-keystate(31))*move_speed#*time#
   yrotate camera camera angle y()+90
   move camera (keystate(32)-keystate(30))*move_speed#*time#
   yrotate camera camera angle y()-90
   xrotate camera xr#
   position object level_skybox,camera position x(),camera position y(),camera position z()
   for n=1 to 100
      if evil_number(n).obj>0
         if object exist(evil_number(n).obj)
            dx#=object position x(evil_number(n).obj)-camera position x()
            dy#=object position y(evil_number(n).obj)-camera position y()
            dz#=object position z(evil_number(n).obj)-camera position z()
            dist#=sqrt((dx#)^2+(dz#)^2+(dy#)^2)
            if dist#<1.1
               nx#=dx#/dist#
               nz#=dz#/dist#
               move#=(1.1-dist#)*0.5
               position camera camera position x()-nx#*move#,camera position y(),camera position z()-nz#*move#
               position object evil_number(n).obj,object position x(evil_number(n).obj)+nx#*move#,object position y(evil_number(n).obj),object position z(evil_number(n).obj)+nz#*move#
            endif
         endif
      endif
   next n
   if spacekey()=1 and jump<2 and sp=0
      if jump>0
         if abs(vy#)<5
            inc jump
            vy#=6
         endif
      else
         inc jump
         vy#=6
      endif
   endif
   sp=spacekey()
   if jump>0
      vy#=vy#-12.0*time#
   endif
   print jump
   if camera position y()<0.5
      jump=0
      position camera camera position x(),0.5,camera position z()
      vy#=0
   endif
   position camera camera position x(),camera position y()+vy#*time#,camera position z()
return

function freeobj()
   o=1:while object exist(o):inc o:endwhile
   if o>highest_obj
      highest_obj=o
   endif
endfunction o

function freeimg()
   o=1:while image exist(o):inc o:endwhile
endfunction o

rem Date: Oct. 20, 2006
rem Author: acelepage
rem Program: Maximum
rem coding challenge: maths game

set display mode 1024,768,32
hide mouse
backdrop on
color backdrop 0
sync on
dim titleblock#(7)
dim screenx#(2)
dim direction#(2)
dim score(2)
dim name$(2)
dim score_image(2)
dim playerbox(2)
dim selection$(2)
title$="MAXIMUM"
place$="2559232"
selection$(1)="row"
selection$(2)="column"
screenx#(1)=-50.0:screenx#(2)=270.0
direction#(1)=-4.0:direction#(2)=4.0
score(1)=0:score(2)=0
screeny#=-25.0
centerx#=105.0:centery#=105.0
factor=250
namefont$="arial"
scorefont$="courier"
rem Images
rem cubes: 1 - 64
rem title blocks: 65 - 71
score_image(1)=72
score_image(2)=73
boxframe_image=74
scorebox=75
rem Objects
rem cubes: 1 - 64
rem title blocks: 65 - 71
frame1=72
frame2=73
boxframe=74
playerbox(1)=75
playerbox(2)=76

rem Generate some arcade sounds
for num=1 to 3
  make_sound(num)
next num
set sound volume 1,100
set sound volume 2,90
set sound volume 3,90
rem Make the number cubes
create bitmap 1,20,20
for i=1 to 64
  make object cube i,20
  color object i,rgb(255,250,240)
  set object i,1,1,1,1,1,0,1
  set current bitmap 1
  ink rgb(0,0,255),0
  box 1,1,20,20
  set cursor 12-len(str$(i))*5,3
  ink rgb(255,255,255),0
  set text size 10
  print i
  get image i,1,1,20,20,1
  set current bitmap 0
  texture object i,i
  set object texture i,2,1
  hide object i
next i
delete bitmap 1

rem Title blocks
create bitmap 1,40,40
for x=1 to 7
  make object cube x+64,20
  ink rgb(0,0,255),0
  box 1,1,40,40
  set text font "arial"
  set text size 35
  for i=1 to 8
    ink rgb(i*25,i*25,i*25),0
    set cursor i+val(mid$(place$,x))+2,i
    print mid$(title$,x)
  next i
  get image x+64,1,1,40,40,1
  texture object x+64,x+64
  set object texture x+64,2,1
  hide object x+64
next x

rem selection box
create bitmap 1,2,2
ink rgb(255,0,0),0
box 1,1,2,2
get image boxframe,1,1,2,2
delete bitmap 1
make object box frame2,250,3,20
make mesh from object frame2,frame2
delete object frame2
make object plain boxframe,250,30
texture object boxframe,boxframe_image
add limb boxframe,1,frame2
offset limb boxframe,1,0.0,16.5,10.0
texture limb boxframe,1,boxframe_image
add limb boxframe,2,frame2
offset limb boxframe,2,0.0,-16.5,10.0
texture limb boxframe,2,boxframe_image
fade object boxframe,0
hide object boxframe
delete object frame2
delete mesh frame2
row=0
col=3
framex#=centerx#
framey#=row*30.0
framez#=15.0

rem score boxes
create bitmap 1,2,2
ink rgb(0,255,0),0
box 1,1,2,2
get image scorebox,1,1,2,2,1
delete bitmap 1
for x=1 to 2
  make object box playerbox(x),30,30,3
  texture object playerbox(x),scorebox
  make mesh from object frame2,playerbox(x)
  add limb playerbox(x),1,frame2
  rotate limb playerbox(x),1,0.0,90.0,0.0
  offset limb playerbox(x),1,13.9,0.0,13.6
  texture limb playerbox(x),1,scorebox
  add limb playerbox(x),2,frame2
  rotate limb playerbox(x),2,0.0,90.0,0.0
  offset limb playerbox(x),2,-13.9,0.0,13.6
  texture limb playerbox(x),2,scorebox
  add limb playerbox(x),3,frame2
  offset limb playerbox(x),3,0.0,0.0,28.5
  texture limb playerbox(x),3,scorebox
next x
delete object frame2
delete mesh frame2
rem Prepare for applying player names to score boxes
create bitmap 1,60,60
set current bitmap 0

camx#=120.0:camy#=120.0:camz#=-300.0
position light 0,100.0,100.0,-250.0
position camera camx#,camy#,camz#
point camera camx#,camy#,0.0

start_main:
hide object playerbox(1)
hide object playerbox(2)
position object playerbox(1),screenx#(1),screeny#,framez#-45.0
position object playerbox(2),screenx#(2),screeny#,framez#-45.0
show_title(boxframe,centerx#)

rem Get player's names
name$(1)=""
name$(2)=""
pick=0
player=1
while player<3
  ink rgb(0,0,255),0
  box factor*player-20,360,factor*player+200,460
  ink rgb(0,0,64),0
  box factor*player-15,365,factor*player+195,455
  if player=2
    ink rgb(0,0,255),0
    box factor-20,360,factor+200,460
    ink rgb(0,0,64),0
    box factor-15,365,factor+195,455
    ink rgb(255,255,255),0
    set text font "courier"
    set text size 10:set cursor factor,380
    print "Player 1"
    set cursor factor,405
    print "Name: ";name$(1)
  endif
  ink rgb(255,255,255),0
  set text font "courier"
  if pick=0
    set text size 10:set cursor factor*player,380
    print "Player ";player
    set cursor factor*player,405
    print "A) Human"
    set cursor factor*player,430
    print "B) Computer"
  endif
  i$=entry$():clear entry buffer
  if (i$="A" or i$="a") and pick=0
    pick=1
    i$="":while inkey$()<>"":endwhile
  endif
  if (i$="B" or i$="b") and pick=0
    pick=2
    i$="":while inkey$()<>"":endwhile
  endif
  if pick=1
    set text size 10:set cursor factor*player,380
    print "Player ";player
    set cursor factor*player,405
    print "Name: ";name$(player);
    if ((int(timer()/500)) && 1) then print "_"
    if i$=chr$(13)
      pick=3
    else
      if i$=chr$(8)
        if len(name$(player))>1
          name$(player)=left$(name$(player),len(name$(player))-1)
        else
          name$(player)=""
        endif
      else
        name$(player)=name$(player)+i$
      endif
    endif
  endif
  if pick=2
    name$(player)="Computer"
    pick=3
  endif
  if pick=3
    inc player
    pick=0
  endif
  instructions()
  sync
endwhile
for x=1 to 7
  hide object x+64
next x
hide object boxframe

rem Put names on score boxes
for player=1 to 2
  set current bitmap 1
  ink rgb(0,255,0),0
  box 1,1,60,60
  ink rgb(255,0,0),0
  set text font namefont$
  set text size 12
  set text to bold
  text 30-len(name$(player))*3,10,name$(player)
  get image score_image(player),1,1,60,60,1
  set current bitmap 0
  texture limb playerbox(player),0,score_image(player)
next player

rem Randomize the numbers on screen
dim num(64)
dim numz#(64)
initialz#=300.0
zoom#=10.0
for i=1 to 64
  num(i)=0
next i
match=1
randomize timer()
play sound 1
while ( match <= 64)
  if (match = 64)
    for i=1 to 64
      if (num(i)=0) then x=i
    next i
  else
    x=rnd(63)+1
  endif
  if num(x)=0
    num(x)=match
    numz#(x)=initialz#
    position object match,int((x-1)/8)*30,(8-((x-1) mod 8))*30,numz#(x)
    show object match
    inc match
  endif
  for i=1 to 64
    if num(i)>0 and numz#(i)>0.0
      numz#(i)=numz#(i)-zoom#
      position object num(i),int((i-1)/8)*30,((i-1) mod 8)*30,numz#(i)
    endif
  next i
  sync
endwhile
lineup=0
while not lineup
  lineup=1
  for i=1 to 64
    if num(i)>0 and numz#(i)>0.0
      lineup=0
      numz#(i)=numz#(i)-zoom#
      position object num(i),int((i-1)/8)*30,((i-1) mod 8)*30,numz#(i)
    endif
  next i
  sync
endwhile

fade=0
show object playerbox(1)
show object playerbox(2)
show object boxframe
position object boxframe,framex#,framey#,framez#
while fade<100
  fade object boxframe,fade
  fade=fade+2
  sync
endwhile

rem Start with horizontal player
picks=0
player=1
if name$(player)="Computer"
  computer_pick=1
  hide mouse
else
  computer_pick=0
  show mouse
endif

while (picks<64)
  if mouseclick()=1 or computer_pick=1
    if computer_pick=0
      test=pick object(mousex(),mousey(),1,64)
    else
      gosub computer_move
    endif
    if test>0
      posx#=object position x(test)
      posy#=object position y(test)
      posz#=object position z(test)
      correct=0
      if player=1
        if posy#=(row*30.0)
          correct=1
        endif
      else
        if posx#=(col*30.0)
          correct=1
        endif
      endif
      if correct=1
        inc picks
        row=int(posy#/30.0)
        col=int(posx#/30.0)
        if player=2
          movementy#=(posy#-framey#)/45
          movementx#=0.0
        else
          movementx#=(posx#-framex#)/45
          movementy#=0.0
        endif
        rem Shrink frame to selected block
        play sound 2
        for size=99 to 9 step -2
          scale object boxframe,size,100,100
          framex#=framex#+movementx#
          framey#=framey#+movementy#
          position object boxframe,framex#,framey#,framez#
          sync
        next size
        framex#=posx#
        framey#=posy#
        rem Move block forward
        for z#=framez# to framez#-20.0 step -1.0
          position object boxframe,framex#,framey#,z#
          posz#=posz#-0.5
          position object test,posx#,posy#,posz#
          sync
        next z#
        rem Rotate frame
        if player=2
          for a#=90.0 to 0.0 step -5.0
            zrotate object boxframe,a#
            sync
          next a#
        endif
        rem Move block to side of screen
        set sound volume 3,100
        play sound 3
        for x#=posx# to screenx#(player) step direction#(player)
          position object test,x#,posy#,posz#
          sync
        next x#
        rem Move block into score box
        for y#=posy# to screeny# step -4.0
          position object test,x#,y#,posz#
          sync
        next y#
        hide object test
        rem Update score
        set text transparent
        set text to normal
        newscore=score(player)+test
        while score(player)<newscore
          if sound volume(3)>0 then set sound volume 3,sound volume(3)-1
          set current bitmap 1
          ink rgb(0,255,0),0
          box 1,1,60,60
          ink rgb(255,0,0),0
          jump=int((newscore-score(player))/10+1)
          score(player)=score(player)+jump
          set text font namefont$
          set text size 12
          set text to bold
          text 30-len(name$(player))*3,10,name$(player)
          set text font scorefont$
          set text size 20
          text 30-len(str$(score(player)))*8,30,str$(score(player))
          get image score_image(player),1,1,60,60,3
          set current bitmap 0
          texture limb playerbox(player),0,score_image(player)
          sync
        endwhile
        fade object playerbox(player),100
        rem Rotate frame
        if player=1
          for a#=0.0 to 90.0 step 5.0
            zrotate object boxframe,a#
            sync
          next a#
        endif
        rem Move frame back into play
        for z#=framez#-20.0 to framez#
          position object boxframe,framex#,framey#,z#
          sync
        next z#
        rem Expand frame
        if player=1
          movementy#=(centery#-framey#)/45
          movementx#=0.0
        else
          movementx#=(centerx#-framex#)/45
          movementy#=0.0
        endif
        for size=10 to 100 step 2
          scale object boxframe,size,100,100
          framex#=framex#+movementx#
          framey#=framey#+movementy#
          position object boxframe,framex#,framey#,framez#
          sync
        next size
        if player=1
          framex#=col*30.0
          framey#=centery#
        else
          framey#=row*30.0
          framex#=centerx#
        endif
        rem Remove number from grid
        for x=1 to 64
          if num(x)=test then num(x)=0
        next x
        rem Switch to other player
        inc player
        if player=3 then player=1
        if (name$(player) = "Computer")
          hide mouse
          computer_pick=1
        else
          show mouse
          computer_pick=0
          gosub check_for_end
        endif
      endif
    endif
  else
    set text font "arial"
    set text size 30
    set text to bold
    ink rgb(255,255,255),0
    text 250,10,name$(player)+", select a number from the "+selection$(player)
  endif
  sync
endwhile
if score(1)>score(2)
  score(1)=1
  score(2)=0
else
  if score(2)>score(1)
    score(2)=1
    score(1)=0
  else
    score(1)=1
    score(2)=1
  endif
endif
hide object boxframe
grow=100
play sound 1
while grow<200
  for x=1 to 2
    if score(x)=1
      scale object playerbox(x),grow,grow,grow
      position object playerbox(x),object position x(playerbox(x))-direction#(x)/2.0,object position y(playerbox(x))+2.0,object position z(playerbox(x))
    else
      fade object playerbox(x),fade
      dec fade
    endif
  next x
  grow=grow+2
  sync
endwhile
set text font "arial"
set text size 20
set text to bold
text 450,10,"Press any key"
sync
while inkey$()<>"":endwhile
while inkey$()="":endwhile
scale object playerbox(1),100,100,100
scale object playerbox(2),100,100,100
for x=1 to 64
  hide object x
next x
goto start_main
end

check_for_end:
  found=0
  set cursor 0,10
  for x=1 to 8
    if player=1
      i=(x-1)*8+row+1
    else
      i=col*8+x
    endif
    if num(i)>0
      found=1
    endif
  next x
  if found=0
    picks=65
  endif
return
computer_move:
  count=1
  top=-64
  comppick=0
  found=0
  set cursor 0,10
  for x=1 to 8
    if player=1
      i=(x-1)*8+row+1
    else
      i=col*8+x
    endif
    if num(i)>0
      found=1
      max=0
      for y=0 to 7
        if player=1
          j=(x-1)*8+y+1
        else
          j=y*8+x
        endif
        if j<>i
          if num(j)>max then max=num(j)
        endif
      next y
      diff=num(i)-max
      if diff>top
        top=diff
        comppick=num(i)
      endif
    endif
  next x
  if found=0
    picks=65
    test=0
  else
    test=comppick
  endif
return
function make_sound(number)
  format as dword
  channels as dword
  sampleRate as dword
  adr as dword
  chunkSize as dword
  sampleSize as dword
  dword7 as dword
  format=1
  channels=1
  sampleRate=22050
  sampleSize=16
  chunkSize=(int(sampleSize / 8.0+0.5))*channels
  adr=sampleRate*chunkSize
  dword7=0
  select number
    case 1
      wave#=0.0
      increment#=10.0
      gain#=0.05
      amplitude=65535
      decay=0
      length = 3000
    endcase
    case 2
      wave#=0.0
      increment#=1.0
      gain#=0.01
      amplitude=65000
      decay=100
      length = 1000
    endcase
    case 3
      wave#=0.0
      increment#=-1.0
      gain#=0.0
      amplitude=65000
      decay=1
      length = 2000
    endcase
  endselect
  samples = length*sampleRate/1000
  size = samples*int(sampleSize/8.0+0.5) + 28
  make memblock 1, size
  write memblock dword 1, 0, format
  write memblock dword 1, 4, channels
  write memblock dword 1, 8, sampleRate
  write memblock dword 1, 12, adr
  write memblock dword 1, 16, chunkSize
  write memblock dword 1, 20, sampleSize
  write memblock dword 1, 24, dword7
  pos=28
  out as word
  for i=1 to samples
      out=sin(wave#)*amplitude
      write memblock word 1, pos, out
      inc pos, 2
      wave#=wave#+increment#
      if wave#>360.0
        wave#=wave#-360.0
        increment#=increment#-gain#
      endif
      amplitude=amplitude-decay
  next i
  make sound from memblock number,1
  delete memblock 1
endfunction
function instructions()
  left=50
  top=550
  ink rgb(0,255,0),0
  box left-10,top-10,left+900,top+140
  ink rgb(0,64,0),0
  box left-5,top-5,left+895,top+135
  ink rgb(255,255,255),0
  set text font "arial"
  set text size 16
  set text to normal
  set cursor left,top
  print "Object: get a higher score than your opponent"
  set cursor left,top+30
  print "Game Play: players take turns picking numbers from an 8x8 grid or 64 numbers."
  set cursor left+70,top+50
  print " First player selects from a row, second player selects from a column."
  set cursor left+70,top+70
  print " The number you pick defines the next row or column for the next move."
  set cursor left,top+110
  print "Winning: the game is completed when all numbers have been picked, or no numbers are left in your column/row"
endfunction
function show_title(boxframe,centerx#)
  show object boxframe
  fade object boxframe,100
  position object boxframe,centerx#,162.0,-60.0
  play sound 3
  for x=1 to 7
    show object x+64
    for y=300 to centerx#+(x-4)*30 step -8
      position object x+64,y,160.0,-80.0
      sync
    next y
    y=centerx#+(x-4)*30
    position object x+64,y,160.0,-80.0
  next x
endfunction

set display mode 1280, 1024, 32
set camera fov 150
set text font "Courier New"
set text size 32
set text to bold
randomize timer()
sync on
sync rate 0

#constant O_MASS 0.1

make memblock 1, 16
write memblock dword 1, 0, 1
write memblock dword 1, 4, 1
write memblock dword 1, 8, 32
write memblock dword 1, 12, 0x33000000
make image from memblock 1, 1
sprite 1, 0, 0, 1
size sprite 1, screen width(), screen height()
set sprite 1, 1, 1
hide sprite 1


print "0"
print "1"
print "2"
print "3"
print "4"
print "5"
print "6"
print "7"
print "8"
print "9"
for i = 0 to 9
   get image i+10, 0, i*31, 31, (i+1)*31, 1
next i
cls


Type Coord3D
   x as float
   y as float
   z as float
EndType
Type Num
   p as Coord3D
   s as Coord3D
   fired as boolean
EndType
#constant FIRE_QUEUE_SIZE 40

dim n(FIRE_QUEUE_SIZE) as Num
Dim FiringQueue()

for i = 1 to FIRE_QUEUE_SIZE
   make object plain i, 4, 4
   texture object i, rnd(9) + 10
   scroll object texture i, -0.25, 0.0
   set object texture i, 0, 1
   setupNum(i)
next i






position camera 0, 20, 40
point camera 0, 15, 0



lastFired = timer()
#constant FIRE_DELAY 250

backdrop off
frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()

   if timer() - lastFired > FIRE_DELAY AND array count(FiringQueue()) > 0
      array index to queue FiringQueue()
      n(FiringQueue()).fired = 1
      remove from queue FiringQueue()
      lastFired = timer()
   endif


   for i = 1 to FIRE_QUEUE_SIZE
      if n(i).fired
         inc n(i).s.y, frameTime# * -0.098 * O_MASS
         inc n(i).p.x, n(i).s.x * frameTime# * 0.001
         inc n(i).p.y, n(i).s.y * frameTime# * 0.001
         inc n(i).p.z, n(i).s.z * frameTime# * 0.001

         if n(i).p.z > camera position z()
            setupNum(i)
         else
            position object i, n(i).p.x, n(i).p.y, n(i).p.z
            if n(i).p.z < 15
               a# = 100.0 * n(i).p.z / 15.0
               if a# > 100.0 then a# = 100.0
               set alpha mapping on i, a#
            else
               set alpha mapping on i, 100.0
            endif
         endif
      endif
   next i

   paste sprite 1, 0, 0
   sync
loop
end


function setupNum(i)
   n(i).p.x = 0.0
   n(i).p.y = 0.0
   n(i).p.z = 0.0

   n(i).s.x = (rndFloat() * 8.0) - 4.0
   n(i).s.y = 20.0 * (1.0 + (rndFloat() * 0.25))
   n(i).s.z = 10.0 * (1.0 + (rndFloat() * 0.25))

   position object i, n(i).p.x, n(i).p.y, n(i).p.z
   point object i, n(i).p.x, n(i).p.y, n(i).p.z + 1

   add to queue FiringQueue() : FiringQueue() = i
   n(i).fired = 0
   set alpha mapping on i, 0
   if rnd(1)
      set object emissive i, 0xFF0000
   else
      set object emissive i, 0x00FF00
   endif
endfunction





function rndFloat()
  f as float
  f = rnd(1048575.0) / 1048575.0
endfunction f

`set display mode 1280, 1024, 32
set camera fov 150
set camera range 0.5, 50
set text font "Courier New"
set text size 32
randomize timer()
sync on
sync rate 60
hide mouse


#constant O_MASS 0.1

make memblock 1, 16
write memblock dword 1, 0, 1
write memblock dword 1, 4, 1
write memblock dword 1, 8, 32
write memblock dword 1, 12, 0x2F000000
make image from memblock 1, 1
delete memblock 1
sprite 1, 0, 0, 1
size sprite 1, screen width(), screen height()
set sprite 1, 1, 1
hide sprite 1


text 0,0, "+": text 0,0, "O"
get image 2, 0, 0, 31, 31, 1
cls









set text to bold
print "0"
print "1"
print "2"
print "3"
print "4"
print "5"
print "6"
print "7"
print "8"
print "9"
for i = 0 to 9
   get image i+10, 0, i*31, 31, (i+1)*31, 1
next i
cls


Type Coord3D
   x as float
   y as float
   z as float
EndType
Type Num
   p as Coord3D
   s as Coord3D
   fired as boolean
   val as byte
EndType
#constant FIRE_QUEUE_SIZE 20

dim n(FIRE_QUEUE_SIZE) as Num
Dim FiringQueue()

for i = 1 to FIRE_QUEUE_SIZE
   make object plain i, 4, 4
   scroll object texture i, -0.25, 0.0
   set object texture i, 0, 1
   setupNum(i)
next i







make object triangle 100, 0.5,0,0,   0,0,-10,   -0.5,0,0
position object 100, 0, 15, 40
color object 100, 0xCC0000FF : set object transparency 100, 3
hide object 100



position camera 0, 20, 40
point camera 0, 15, 0


lastFired = timer()
#constant FIRE_DELAY 250

temp = timer()

backdrop off

frameTime# = 1.0
startTime = timer()
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()

   if timer() - lastFired > FIRE_DELAY AND array count(FiringQueue()) > 0
      array index to queue FiringQueue()
      n(FiringQueue()).fired = 1
      exclude object off FiringQueue()
      remove from queue FiringQueue()
      lastFired = timer()
   endif


   for i = 1 to FIRE_QUEUE_SIZE
      if n(i).fired
         inc n(i).s.y, frameTime# * -0.098 * O_MASS
         inc n(i).p.x, n(i).s.x * frameTime# * 0.001
         inc n(i).p.y, n(i).s.y * frameTime# * 0.001
         inc n(i).p.z, n(i).s.z * frameTime# * 0.001

         if n(i).p.z > camera position z()
            setupNum(i)
         else
            position object i, n(i).p.x, n(i).p.y, n(i).p.z
            if n(i).p.z < 15
               a# = 100.0 * n(i).p.z / 15.0
               if a# > 100.0 then a# = 100.0
               set alpha mapping on i, a#
            else
               set alpha mapping on i, 100.0
            endif
         endif
      endif
   next i


   paste image 2, mousex()-7, mousey()-15, 1
   obj = pick object(mousex(), mousey(), 1, FIRE_QUEUE_SIZE)

   if object visible(100)
      hide object 100
   else
      if obj > 0
         if mouseclick() = 1
            if timer() - temp > FIRE_DELAY
               temp = timer()
               show object 100
               lock vertexdata for limb 100, 0, 1
               set vertexdata position 1, get pick vector x(), get pick vector y()+5, get pick vector z()
               unlock vertexdata

               setupNum(obj)
            endif
         endif
      endif
   endif

   paste sprite 1, 0, 0
   sync
loop
end


function setupNum(i)
   n(i).val = rnd(9) + 10
   texture object i, n(i).val

   n(i).p.x = 0.0
   n(i).p.y = 0.0
   n(i).p.z = 0.0

   n(i).s.x = (rndFloat() * 8.0) - 4.0
   n(i).s.y = 20.0 * (1.0 + (rndFloat() * 0.25))
   n(i).s.z = 10.0 * (1.0 + (rndFloat() * 0.25))

   position object i, n(i).p.x, n(i).p.y, n(i).p.z
   point object i, n(i).p.x, n(i).p.y, n(i).p.z + 1

   add to queue FiringQueue() : FiringQueue() = i
   n(i).fired = 0
   exclude object on i

   if rnd(1)
      set object emissive i, 0xFF0000
   else
      set object emissive i, 0x00FF00
   endif
endfunction





function rndFloat()
  f as float
  f = rnd(1048575.0) / 1048575.0
endfunction f

REM Project: GravMath
REM Created: 10/21/2006 7:58:11 PM
REM Author: Rburke87
REM ***** Main Source File *****
REM

Set Display Mode 800,600,32
Sync On
Hide Mouse

Rem Initial Values
r = 0 ; g = 0 ; b = 25 ` Default Values for coloring the background
bgY = 0 ` Controls position for stacking colored boxes for background
Level = 1 ` Game Starts with the first level
barTotal# = 220 ; bar# = 200` Start with the bar empty
mG = 250; mB = 100` Mouse Cursor Color Values
`Problem$ = "Addition" ` Game Will Start with Addition
Speed# = 3 ` Starting falling speed of the math problems
`Nextdigit = 1 ` Value to contain selected answers
ProbCount = 1 ` If reaches a certain number, will get next problem
dim Num1(20) ; dim Num2(20) ; dim NumAns(20) ; dim NumY(20) ; dim NumX(20)
dim Digit1(20) ; dim Digit2(20) ; dim Digit3(20) dim NumYchance(20) ; dim NumColor(20)
dim NumStart(20) ; dim NumSelect(20) ; dim Nextdigit(20) ; dim Cht$(16) ; dim ChtX(50) ; dim ChtY(50)
dim ChtFall(50)
NumSelect(0) = 1 ` The First problem is selected at the start

for i = 0 to 20
   Nextdigit(i) = 1
   Digit1(i) = -1 ; Digit2(i) = -1 ; Digit3(i) = -1
next i

   Rem Draw the background
   For bgGrad = 1 to 60
      ink RGB(r,g,b),1
      box 0,bgY,screen width(),bgY + 10
      bgY = bgY + 10
      if b <= 255 Then b = b + 2
      if b >= 50
         g = g + 1
         r = r + 1
      endif
      if bgY >= screen height()
         bgY = 0 ; r = 0 ; g = 0 ; b = 25
      endif
   next bgGrad

   Set Current Bitmap 0
   Get Image 1,0,0,screen width(),screen height()

   set text font "Arial Black"

   for i = 0 to 50
      ChtX(i) = RND(screen width() - 50)
      ChtFall(i) = 100 * i
   next i


REM MAIN LOOP ####################################################################
REM ########## MAIN LOOP #########################################################
REM ##################### MAIN LOOP ##############################################

do

   Randomize (Timer())

   Rem Display The Title Screen
   While TitleScreen = 0
      FallCount = FallCount + 10
      Ink RGB(0,20,0),1 ; box 0,0,screen width(),screen height()
      Ink RGB(255,255,255),1 `; Text 100,100,"§»«¬¥¤£¢µ±Ø×çæ¿ÿþ"
      Cht$(0) = "§" ; Cht$(1) = "»" ; Cht$(2) = "«" ; Cht$(3) = "¬" ; Cht$(4) = "¥" ; Cht$(5) = "¤"
      Cht$(6) = "£" ; Cht$(7) = "¢" ; Cht$(8) = "µ" ; Cht$(9) = "±" ; Cht$(10) = "Ø" ; Cht$(11) = "×"
      Cht$(12) = "ç" ; Cht$(13) = "æ" ; Cht$(14) = "¿" ; Cht$(15) = "ÿ" ; Cht$(16) = "þ"
      Ink RGB(0,255,150),1
      set text size 70 ; Text 325,150,"Grav" ; set text size 100 ; Text 250,225,"M A T H"
      set text size 20

      for i = 0 to 50
         Ink RGB(0,255,150),1
         if ChtY(i) >= screen height() Then ChtY(i) = 0
         if ChtY(i) >= screen height() Then ChtX(i) = RND(screen width()-50)
         if FallCount >= ChtFall(i)Then ChtY(i) = ChtY(i) + 10
         Text ChtX(i),ChtY(i),Cht$(RND(16))
         Text ChtX(i),ChtY(i) - 20 ,Cht$(RND(16))
         Text ChtX(i),ChtY(i) - 40 ,Cht$(RND(16))
         text 320,550,"Press Enter to Begin"
         Ink RGB(0,20,0),1 ; Box 0,0,Screen Width(),50
      next i
      sync
      cls
      if ReturnKey() = 1 Then TitleScreen = 1
   endwhile

   Paste Image 1,0,0 ` Paste The Background Image

`   if SpaceKey() = 1
 `  ProbCount = ProbCount + 500
  ` Speed# = Speed# + 3
   `endif

   if Level = 1 Then Problem$ = "Addition"
   if Level = 2 Then Problem$ = "Subtraction"
   if Level = 3 Then Problem$ = "Multiplication"
   if Level = 4 Then Problem$ = "Addition"
   if Level = 5 Then Problem$ = "Subtraction"
   if Level = 6 Then Problem$ = "Multiplication"
   if Level = 7 Then Problem$ = "Addition"
   if Level = 8 Then Problem$ = "Subtraction"
   if Level = 9 Then Problem$ = "Multiplication"

   Rem Set Up Math Problems
   if Problem$ = "Addition"
      if SetProblem = 0
         for i = 0 to 20
            Num1(i) = RND(10) ; Num2(i) = RND(10)
            if Num1(i) <> 10 or Num2(i) <> 10 Then NumAns(i) = Num1(i) + Num2(i)
            if Num1(i) = 10 and Num2(i) = 0 Then NumAns(i) = 10
            if Num1(i) = 0 and Num2(i) = 10 Then NumAns(i) = 10
            if Num1(i) = 10 and Num2(i) = 10 Then NumAns(i) = 20
            NumX(i) = RND(Screen Width())
            while NumX(i) > 650 ` Prevent Problems reaching off screen
               NumX(i) = RND(Screen Width())
            endwhile
         next i
         SetProblem = 1
      endif
   endif

   If Problem$ = "Subtraction"
      if SetProblem = 0
         for i = 0 to 20
            Num1(i) = RND(10) ; Num2(i) = RND(10)
            while Num2(i) > Num1(i) ` First Number generated will always be greater than the second term
               Num1(i) = RND(10)
            endwhile
            NumAns(i) = Num1(i) - Num2(i)
            NumX(i) = RND(Screen Width())
            while NumX(i) > 650 ` Prevent Problems reaching off screen
               NumX(i) = RND(Screen Width())
            endwhile
         next i
         SetProblem = 1
      endif
   endif

   If Problem$ = "Multiplication"
      if SetProblem = 0
         for i = 0 to 20
            Num1(i) = RND(10) ; Num2(i) = RND(10)
            NumAns(i) = Num1(i) * Num2(i)
            NumX(i) = RND(Screen Width())
            while NumX(i) > 650 ` Prevent Problems reaching off screen
               NumX(i) = RND(Screen Width())
            endwhile
         next i
         SetProblem = 1
      endif
   endif

   Rem Set up timing sequence for Problems
   if SetProblem = 1
      for i = 0 to 20
         NumStart(i) = 600*i - NumStart(i) - 5
      next i
      SetProblem = 2
   endif

   Rem Adjust Speed
   if Speed# <= 7 Then Speed# = Speed# + 0.01 ` Speed Adjustment. Max speed is 7
   if Level = 4 Then Speed# = 7
   if Level = 5 Then Speed# = 7
   if Level = 6 Then Speed# = 7
   if Level = 7 Then Speed# = 9
   if Level = 8 Then Speed# = 9
   if Level = 9 Then Speed# = 9

      Rem Draw Math Problems
      for a = 0 to 20

      if numColor(a) = 1 Then ink RGB(0,255,0),1
      if numColor(a) = 2 Then ink RGB(255,0,0),1
      if numColor(a) = 0 Then ink RGB(255,255,255),1
      if numSelect(a) = 1 Then ink RGB(255,255,150),1
      Set Cursor NumX(a),NumY(a)

      Rem Setup Score and Bar Display information
      If Score > ScoreTotal Then Score = Score - 1 ` Number Decreases by 1 until correct Score is reached
      If Score < ScoreTotal Then Score = Score + 1 ` Number Increases by 1 until correct Score is reached
      If bar# > barTotal# Then bar# = bar# - 0.1
      if bar# < barTotal# Then bar# = bar# + 0.1
      if bar# > 500 Then bar# = 500 ` Fix the red bar running over frame

      Rem Actions taken if Problems hit bottom of screen
      if NumY(a) >= 500 and numColor(a) > 0
         NumYchance(a) = 1 ; NumY(a) = 0
      endif
      if NumY(a) >= 500 and numColor(a) = 0
         NumYchance(a) = 1
         ScoreTotal = ScoreTotal - 100
         barTotal# = barTotal# - 15
         NumY(a) = 0
         if NumSelect(20) = 0 Then NumSelect(a+1) = 1
         if NumSelect(20) = 0 Then NumSelect(a) = 0
      endif

      Rem Print Addition Problems
      if nextdigit(a) = 1  and digit1(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Addition"
         Print Num1(a)," + ",Num2(a)," = "
      endif
      if nextdigit(a) = 1 and digit1(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Addition"
         Print Num1(a)," + ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Addition"
         print Num1(a)," + ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Addition"
         Print Num1(a)," + ",Num2(a)," = ",digit1(a),digit2(a)
      endif

      Rem Print Subtraction Problems
      if nextdigit(a) = 1  and digit1(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Subtraction"
         Print Num1(a)," - ",Num2(a)," = "
      endif
      if nextdigit(a) = 1 and digit1(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Subtraction"
         Print Num1(a)," - ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Subtraction"
         print Num1(a)," - ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Subtraction"
         Print Num1(a)," - ",Num2(a)," = ",digit1(a),digit2(a)
      endif

      Rem Print Multiplication Problems
      if nextdigit(a) = 1  and digit1(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         Print Num1(a)," x ",Num2(a)," = "
      endif
      if nextdigit(a) = 1 and digit1(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         Print Num1(a)," x ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) <= -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         print Num1(a)," x ",Num2(a)," = ",digit1(a)
      endif
      if nextdigit(a) = 2 and digit2(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         Print Num1(a)," x ",Num2(a)," = ",digit1(a),digit2(a)
      endif
      if nextdigit(a) = 3 and digit2(a) > -1 and digit3(a) = -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         Print Num1(a)," x ",Num2(a)," = ",digit1(a),digit2(a)
      endif
      if nextdigit(a) = 3 and digit3(a) > -1 and NumYchance(a) <> 1 and Problem$ = "Multiplication"
         Print Num1(a)," x ",Num2(a)," = ",digit1(a),digit2(a),digit3(a)
      endif

      Rem Move Problems
      if ProbCount >= NumStart(a) and NumYchance(a) <> 1 Then NumY(a) = NumY(a) + Speed#

      Rem Keyboard Input
      if ReturnKey() = 1 and NumSelect(a) = 1 and Submit = 1 ` Will Submit Selected Problem
         Rem For :: ADDITION :: ADDITION :: ADDITION :: ADDITION :: ADDITION :: ADDITION ::
         if digit1(a) = NumAns(a) and Problem$ = "Addition" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0 ` Deselects Attempted Problem
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a)*10 + digit2(a) = NumAns(a) and Problem$ = "Addition" and numColor(a) = 0 and NumAns(a) >= 10 `Double Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) <> NumAns(a) and Problem$ = "Addition" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a)*10 + digit2(a) <> NumAns(a) and Problem$ = "Addition" and numColor(a) = 0 and NumAns(a) > 10 `Double Digit  Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         Rem For :: SUBTRACTION :: SUBTRACTION :: SUBTRACTION :: SUBTRACTION :: SUBTRACTION :: SUBTRACTION ::
         if digit1(a)  = NumAns(a) and Problem$ = "Subtraction" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0 ` Deselects Attempted Problem
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a)*10 - digit2(a) = NumAns(a) and Problem$ = "Subtraction" and numColor(a) = 0 and NumAns(a) >= 10 `Double Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) <> NumAns(a) and Problem$ = "Subtraction" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a)*10 - digit2(a) <> NumAns(a) and Problem$ = "Subtraction" and numColor(a) = 0 and NumAns(a) > 10 `Double Digit  Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         Rem For :: MULTIPLICATION :: MULTIPLICATION :: MULTIPLICATION :: MULTIPLICATION :: MULTIPLICATION ::
         if digit1(a) * 1 + digit2(a) + 1 = NumAns(a) and Problem$ = "Multiplication" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0 ` Deselects Attempted Problem
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) * 10 + digit2(a) + digit3(a)+1 = NumAns(a) and Problem$ = "Multiplication" and numColor(a) = 0 and NumAns(a) >= 10 `Double Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) * 100 = NumAns(a) and Problem$ = "Multiplication" and numColor(a) = 0 and NumAns(a) >= 100 `Triple Digit Correct Answers
            NumColor(a) = 1 ; ScoreTotal = ScoreTotal + 100 ; barTotal# = barTotal# + 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) * 1 + digit2(a) + 1 <> NumAns(a) and Problem$ = "Multiplication" and numColor(a) = 0 and NumAns(a) < 10 `Single Digit Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
         if digit1(a) * 10 + digit2(a) + 1 <> NumAns(a) and Problem$ = "Multiplication" and numColor(a) = 0 and NumAns(a) > 10 `Double Digit  Wrong Answers
            NumColor(a) = 2 ; ScoreTotal = ScoreTotal - 100 ; barTotal# = barTotal# - 15
            Submit = 0 ; srtCount = 0 ; Count = 0 ; NumSelect(a) = 0
            if NumColor(20) = 0 Then NumSelect(a+1) = 1
         endif
      endif

      `set Cursor 10,screen height()-100
      `If NumSelect(a) = 1 Then Print "D1-D2: ",Digit1(a)-Digit2(a)," NumAns(a): ",NumAns(a), "  Color = ",NumColor(a),"  Submit ",Submit,"  Count: ",Count
      `set Cursor 10,screen height()-75
      `If NumSelect(a) = 1 Then Print "D1 ",Digit1(a),"   D2 ",Digit2(a),"  D3 ",Digit3(a)," nextdigit(a): ",nextdigit(a)
      Rem Enter the First digit
      if nextdigit(a) = 1 and NumSelect(a) = 1 and NumColor(a) = 0
         if inkey$() = "0"
            digit1(a) = 0
            nextdigit(a) = 2 ;srtCount = 1 ; Submit = 1
         endif
         if inkey$() = "1"
            digit1(a) = 1
            nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
         endif
      if inkey$() = "2"
         digit1(a) = 2
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "3"
         digit1(a) = 3
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "4"
         digit1(a) = 4
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "5"
         digit1(a) = 5
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "6"
         digit1(a) = 6
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "7"
         digit1(a) = 7
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "8"
         digit1(a) = 8
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "9"
         digit1(a) = 9
         nextdigit(a) = 2 ; srtCount = 1 ; Submit = 1
      endif
      if scancode() = 14 and numColor(a) = 0 ` Backspace and if answer not chosen yet
         nextdigit(a) = 1 ; digit1(a) = -1 ; Submit = 1
      endif
   endif

REM Enter the second digit
if nextdigit(a) = 2 and Count >= 40 and NumSelect(a) = 1 and NumColor(a) = 0
      if inkey$() = "0"
         digit2(a) = 0
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "1"
         digit2(a) = 1
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "2"
         digit2(a) = 2
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "3"
         digit2(a) = 3
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "4"
         digit2(a) = 4
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "5"
         digit2(a) = 5
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "6"
         digit2(a) = 6
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "7"
         digit2(a) = 7
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "8"
         digit2(a) = 8
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if inkey$() = "9"
         digit2(a) = 9
         if Problem$ <> "Multiplication" Then nextdigit(a) = 2 ;
         if Problem$ = "Multiplication" Then nextdigit(a) = 3
         Submit = 1 ; srtCount = 1 ; Count = 0
      endif
      if ScanCode() = 14 and numColor(a) = 0 ` Backspace and if answer not chosen yet
         nextdigit(a) = 1 ; digit2(a) = -1 ; Count = 0 ; srtCount = 0 ; Submit = 1
      endif
   endif

REM Enter the Third digit
if nextdigit(a) = 3 and Count >= 40 and NumSelect(a) = 1 and NumColor(a) = 0 and Problem$ = "Multiplication"
      if inkey$() = "0"
         digit3(a) = 0
         nextdigit(a) = 3 ;srtCount = 1 ; Submit = 1
      endif
      if inkey$() = "1"
         digit3(a) = 1
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "2"
         digit3(a) = 2
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "3"
         digit3(a) = 3
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "4"
         digit3(a) = 4
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "5"
         digit3(a) = 5
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "6"
         digit3(a) = 6
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "7"
         digit3(a) = 7
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "8"
         digit3(a) = 8
         nextdigit(a) = 3 ; Submit = 1
      endif
      if inkey$() = "9"
         digit3(a) = 9
         nextdigit(a) = 3 ; Submit = 1
      endif
      if ScanCode() = 14 and numColor(a) = 0 ` Backspace and if answer not chosen yet
         nextdigit(a) = 2 ; digit3(a) = -1 ; Count = 0 ; srtCount = 0 ; Submit = 1
      endif
   endif
   if srtCount = 1
      Count = Count + 1
   endif
   ProbCount = ProbCount + 1
   next a

   Rem Draw The Hud
   Set Text Font "Impact"
   ink rgb(35,0,50),1
   box 0,0,Screen width(),50
   ink rgb(15,0,25),1
   box 2,2,screen width() - 2,48
   Set Text Size 30
   Set Cursor 12,12
   ink rgb(0,0,100),1
   Print "L e v e l ","       ",Level
   ink rgb(50,200,100),1
   Set Cursor 10,10
   Print "L e v e l ","       ",Level
   Set Cursor 550,12
   ink rgb(0,100,200),1
   Print "S C O R E ","       ",Score
   ink rgb(255,255,255),1
   box 199,9,501,41
   ink rgb(0,0,0),1
   box 200,10,500,40
   ink rgb(100*(bar#/500),0,0),1
   box 200,10,bar#,15
   box 200,35,bar#,40
   ink rgb(150*(bar#/500),25*(bar#/500),25*(bar#/500)),1
   box 200,15,bar#,20
   box 200,30,bar#,35
   ink rgb(200*(bar#/500),50*(bar#/500),50*(bar#/500)),1
   box 200,20,bar#,23
   box 200,29,bar#,32
   ink rgb(250*(bar#/500),100*(bar#/500),100*(bar#/500)),1
   box 200,23,bar#,29

   Rem The Problem
   ink RGB(0,0,0),1 ; Set Text Font "Modern"
   Set Cursor 299,12 ; Print Problem$
   Set Cursor 301,12 ; Print Problem$
   Set Cursor 300,11 ; Print Problem$
   Set Cursor 300,13 ; Print Problem$
   Set Cursor 300,12 ; ink RGB(255,255,255),1
   Print Problem$

   Rem Check If the Player Lost
   if barTotal# <= 200
      Speed# = 0
      if ReturnKey() = 1 Then Ready = 1
      ink RGB(200,0,200),1 ; Box 50,100,Screen Width() - 50,200
      ink RGB(0,0,0),1 ; Box 51,101,Screen Width() - 51,199
      ink RGB(0,100,255),1 ; Set Cursor 325,110 ; Set Text Size 30
      Print "GAME OVER "
      ink RGB(0,150,255),1 ; Box 55,150,Screen Width() - 55,190
      if b <= 100 and AddBlue = 0 ` Will Add Blue if 0
         b = b + 10
         if b >= 100 Then AddBlue = 1
      endif
      if AddBlue = 1
         b = b - 10
         if b <= 0 Then b = 0
         if b <= 0 Then AddBlue = 0
      endif
      if Ready = 1 Then b = 255
      ink RGB(b*0.3,b*0,b*0.7),1 ; Box 56,151,Screen Width() - 56,158
      ink RGB(b*0.35,b*0,b*0.7),1 ; Box 56,158,Screen Width() - 56,168
      ink RGB(b*0.40,b*0,b*0.7),1 ; Box 56,168,Screen Width() - 56,172
      ink RGB(b*0.30,b*0,b*0.7),1 ; Box 56,172,Screen Width() - 56,182
      ink RGB(b*0.3,b*0,b*0.7),1 ; Box 56,182,Screen Width() - 56,189 ` Do not exceed 189
      Set Cursor 373-40,155 ; Ink RGB(0,0,50),1 ; Print "Play Again"
      Set Cursor 377-40,155 ; Ink RGB(0,0,50),1 ; Print "Play Again"
      Set Cursor 375-40,153 ; Ink RGB(0,0,50),1 ; Print "Play Again"
      Set Cursor 375-40,157 ; Ink RGB(0,0,50),1 ; Print "Play Again"
      Set Cursor 375-40,155 ; Ink RGB(150,150,255),1 ; Print "Play Again"
      if Ready = 1
         SetProblem = 0
         for i = 0 to 20
            Nextdigit(i) = 1
            Digit1(i) = -1 ; Digit2(i) = -1 ; NumYchance(i) = 0
            NumColor(i) = 0 ; NumSelect(i) = 0
            NumStart(i) = 600*i - NumStart(i) - 5 ; NumY(i) = 0 ; ScoreTotal = 0
         next i
         ProbCount = 0 ; Submit = 0 ; NumSelect(0) = 1 ; barTotal# = 220 ; Speed# = 3
         LevelIncrease = 0 ; Ready = 0 ; b = 0
      endif

   endif

   Rem If the player has completed the level
   if NumyChance(20) <> 0 and Ready = 0
      if barTotal# = 500 Then ScoreTotal = ScoreTotal + 1000
      if LevelIncrease = 0
         Level = Level + 1
         LevelIncrease = 1
      endif
      if Level = 2 Then Problem$ = "Subtraction"
      if Level = 3 Then Problem$ = "Multiplication"
      if Level = 4 Then Problem$ = "Addition"
      if Level = 5 Then Problem$ = "Subtraction"
      if Level = 6 Then Problem$ = "Multiplication"
      if Level = 7 Then Problem$ = "Addition"
      if Level = 8 Then Problem$ = "Subtraction"
      if Level = 9 Then Problem$ = "Multiplication"

      if ReturnKey() = 1 Then Ready = 1
      ink RGB(200,0,200),1 ; Box 50,100,Screen Width() - 50,200
      ink RGB(0,0,0),1 ; Box 51,101,Screen Width() - 51,199
      ink RGB(0,100,255),1 ; Set Cursor 150,110 ; Set Text Size 30
      Print "CONGRATULATIONS! You finished level ", Level - 1
      ink RGB(0,150,255),1 ; Box 55,150,Screen Width() - 55,190
      if b <= 100 and AddBlue = 0 ` Will Add Blue if 0
         b = b + 10
         if b >= 100 Then AddBlue = 1
      endif
      if AddBlue = 1
         b = b - 10
         if b <= 0 Then b = 0
         if b <= 0 Then AddBlue = 0
      endif
      if Ready = 1 Then b = 255
      ink RGB(b*0.3,b*0,b*0.7),1 ; Box 56,151,Screen Width() - 56,158
      ink RGB(b*0.35,b*0,b*0.7),1 ; Box 56,158,Screen Width() - 56,168
      ink RGB(b*0.40,b*0,b*0.7),1 ; Box 56,168,Screen Width() - 56,172
      ink RGB(b*0.30,b*0,b*0.7),1 ; Box 56,172,Screen Width() - 56,182
      ink RGB(b*0.3,b*0,b*0.7),1 ; Box 56,182,Screen Width() - 56,189 ` Do not exceed 189
      Set Cursor 373,155 ; Ink RGB(0,0,50),1 ; Print "O.K"
      Set Cursor 377,155 ; Ink RGB(0,0,50),1 ; Print "O.K"
      Set Cursor 375,153 ; Ink RGB(0,0,50),1 ; Print "O.K"
      Set Cursor 375,157 ; Ink RGB(0,0,50),1 ; Print "O.K"
      Set Cursor 375,155 ; Ink RGB(150,150,255),1 ; Print "O.K"
      if Ready = 1
         SetProblem = 0
         for i = 0 to 20
            Nextdigit(i) = 1
            Digit1(i) = -1 ; Digit2(i) = -1 ; NumYchance(i) = 0
            NumColor(i) = 0 ; NumSelect(i) = 0
            NumStart(i) = 600*i - NumStart(i) - 5
         next i
         ProbCount = 0 ; Submit = 0 ; NumSelect(0) = 1 ; barTotal# = 220 ; Speed# = 3
         LevelIncrease = 0 ; Ready = 0 ; b = 0
      endif

   endif

   Sync
   Cls

loop