Sorry your browser is not supported!

rem Date: Oct. 25, 2006
rem Title: projectile
rem Author: acelepage
rem coding challenge: maths game

if check display mode (1024,768,32)
  set display mode 1024,768,32
else
  if check display mode (800,600,32)
    set display mode 800,600,32
  else
    end
  endif
endif
sync on
sync rate 60
backdrop on
color backdrop 0
hide mouse
dim player(2)
dim x(2)
dim hutx#(2)
dim color(2)
dim angle(2)
dim power(2)
dim score(2)
dim scoreboard(2)
dim direction#(2)
dim mountain#(500,2)
dim adjust#(2)
x(1)=20
x(2)=700
hutx#(1)=400.0:hutx#(2)=-200.0
score(1)=0:score(2)=0
screenx=1024
centerx=screenx/2
ground=3
boom=4
mountain=5
wind=rnd(99)-50
skyback=10
instruct=12
scoreboard(1)=13:scoreboard(2)=14
lava=15
color(1)=rgb(255,0,0):color(2)=rgb(0,255,0)
direction#(1)=-1.0:direction#(2)=1.0
gravity#=.1
bomb=3
plane#=110.0
for i=1 to 3
  make light i
  set spot light i,90.0,120.0
  set light range i,100.0
  color light i,rgb(255,0,0)
  hide light i
next i
for i=4 to 5
  make light i
  set spot light i,60.0,120.0
  set light range i,100.0
next i
gosub draw_ground
gosub make_boom
gosub make_mountain
gosub make_hut_boom
position light 0,0.0,80.0,600.0
set light range 0,1000
return_value$=title_page(centerx)
gameplay=val(left$(return_value$,1))
playsound=val(right$(return_value$,1))
if playsound
  for i=1 to 3
    make_sound(i)
  next i
endif
if gameplay=3 then end
for y#=500.0 to 75.0 step -1.0
  position camera 100.0,y#,600.0
  point camera 100.0,y#,0.0
  sync
next y#
show mouse
quit=0
player=1
while quit=0
  wind=wind+(rnd(40)-20)
  if wind<-50 then wind=-50
  if wind>50 then wind=50
  if (gameplay=2) or (gameplay=1 and player=1)
    value#=projectile(player,angle(player),power(player),wind,centerx,instruct)
  endif
  if (gameplay=1 and player=2) or (gameplay=0)
    value#=computer(adjust#(player),angle(player),power(player))
  endif
  instruct=0
  gosub fire_bomb
  if collide
    if playsound then stop sound 1
    x#=x#-vectorx#*direction#(player)
    if y#<get ground height(1,x#,plane#) then y#=get ground height(1,x#,plane#)
    if y#<0.0 then y#=0.0
  endif
  adjust#(player)=(hutx#(3-player)-x#)*direction#(3-player)
  hide object bomb
  player=3-player
  if x# > hutx#(player)-20.0 and x# < hutx#(player)+20.0
    inc score(3-player)
    update_score(3-player,score(3-player))
    gosub explode_hut
    wind=rnd(99)-50
  else
    explode_bomb(x#,y#,boom,plane#,player,playsound)
  endif
  if score(3-player)=10 then quit=1
endwhile
player=3-player
xlast#=hutx#(player)+70.0*direction#(player)
ylast#=10.0
zlast#=plane#+200.0
while not escapekey()
  x#=camera position x()
  y#=camera position y()
  z#=camera position z()
  movex#=(x#-xlast#)/100.0
  movey#=(y#-ylast#)/100.0
  movez#=(z#-zlast#)/100.0
  position camera x#-movex#,y#-movey#,z#-movez#
  sync
endwhile
end
fire_bomb:
  angle(player)=int(value#/256)
  power(player)=value#-angle(player)*256
  x#=hutx#(player)
  y#=20.0
  vectorx#=cos(angle(player))*power(player)/10.0
  vectory#=sin(angle(player))*power(player)/10.0
  position object bomb,x#,y#,0.0
  show object bomb
  collide=0
  volume=100
  if playsound then play sound 1
  while not collide
    x#=x#+vectorx#*direction#(player)-wind/50.0
    y#=y#+vectory#
    vectory#=vectory#-gravity#
    position object bomb,x#,y#,plane#
    sync
    if y#<0.0 then collide=1
    if x#<200.0 and x#>0.0 and y#<get ground height(1,x#,plane#)
      collide=1
      mountainy#=get matrix height(1,int(x#/10),int(plane#/10))
      set matrix height 1,int(x#/10),int(plane#/10),mountainy#-5.0
      update matrix 1
    endif
    if playsound then set sound volume 1,volume
    dec volume
    if volume<0 then volume=0
  endwhile
return
draw_ground:
  make matrix 2,2000.0,1000.0,10,10
  create bitmap 1,4,4
  ink rgb(170,126,0),0:line 1,1,4,1
  ink rgb(180,136,0),0:line 1,2,4,2
  ink rgb(190,146,0),0:line 1,3,4,3
  ink rgb(200,156,0),0:line 1,4,4,4
  get image ground,1,1,4,4,1
  set current bitmap 0
  prepare matrix texture 2,ground,1,1
  set matrix texture 2,1,1
  position matrix 2,-800.0,0.5,-400.0
  update matrix 2
  make object plain skyback,2000,1000
  create bitmap 2,400,200
  for i=1 to 100
    color=rnd(255)
    ink rgb(color,color,color),0
    dot rnd(400)+1,rnd(200)+1
  next i
  ink rgb(255,255,255),0
  get image skyback,1,1,400,200,1
  delete bitmap 2
  texture object skyback,skyback
  yrotate object skyback,180.0
  position object skyback,0.0,500.0,-500.0
  for i=1 to 2
    make object cube i,20
    set object i,1,1,1,1,1,1
    color object i,color(i)
    set current bitmap 1
    ink color(i),0
    box 1,1,4,4
    get image i,1,1,4,4,1
    set current bitmap 0
    texture object i,i
    position object i,hutx#(i),10.0,plane#
    make object cylinder 11,20
    scale object 11,10,100,10
    make mesh from object 1,11
    delete object 11
    make object box scoreboard(i),40,10,1
    add limb scoreboard(i),1,1
    offset limb scoreboard(i),1,-18.0,-10.0,-2.0
    add limb scoreboard(i),2,1
    offset limb scoreboard(i),2,18.0,-10.0,-2.0
    delete mesh 1
    position object scoreboard(i),hutx#(i)+70.0*direction#(i),10.0,plane#+150.0
    position light i+3,hutx#(i)+70.0*direction#(i),10.0,plane#+200.0
    point light i+3,hutx#(i)+70.0*direction#(i),10.0,plane#+150.0
    update_score(i,score(i))
  next i
  make object sphere bomb,5
  color object bomb,rgb(192,192,192)
  hide object bomb
return
make_boom:
  make object sphere boom,50
  color object boom,rgb(255,0,0)
  ghost object on boom
  hide object boom
return
make_mountain:
  make matrix 1,200.0,200.0,20,20
  for i=1 to 10
    for j=1 to 10
      height#=(i-1)*(j-1)*2.0
      set matrix height 1,i,j,height#
      set matrix height 1,21-i,j,height#
      set matrix height 1,21-i,21-j,height#
      set matrix height 1,i,21-j,height#
    next j
  next i
  position matrix 1,0.0,0.0,0.0
  create bitmap 1,20,20
  for i=1 to 400
    g=rnd(128)+127
    r=g/2
    b=g/4
    ink rgb(r,g,b),0
    dot (i mod 9)+1,int((i-1)/9)+1
  next i
  get image mountain,1,1,20,20,1
  delete bitmap 1
  set current bitmap 0
  prepare matrix texture 1,mountain,2,2
  set matrix texture 1,1,1
  update matrix 1
return
make_hut_boom:
  for i=5 to 9
    make object box i,20.0,20.0,2.0
    hide object i
  next i
  yrotate object 6,90.0
  yrotate object 8,90.0
  xrotate object 9,90.0
return
explode_hut:
  for i=5 to 9
    texture object i,player
    show object i
  next i
  position object 5,hutx#(player),10.0,plane#+10.0
  position object 6,hutx#(player)+10.0,0.0,plane#
  position object 7,hutx#(player),10.0,plane#-10.0
  position object 8,hutx#(player)-10.0,20.0,plane#
  position object 9,hutx#(player),20.0,plane#
  hide object player
  position object boom,hutx#(player),0.0,plane#
  show object boom
  up#=3.0
  volume#=100.0
  if score(3-player)=10
    bigboom=2
  else
    bigboom=1
  endif
  if playsound then play sound 3
  for i=100 to 400 step 2
    scale object boom,i*bigboom,i*bigboom,i*bigboom
    fade object boom,int((400-i)/3)
    position object 5,object position x(5),object position y(5)+up#,object position z(5)+2.0
    position object 6,object position x(6)+2.0*direction#(player),object position y(6)+up#,object position z(6)
    position object 7,object position x(7),object position y(7)+up#,object position z(7)-2.0
    position object 8,object position x(8)-2.0*direction#(player),object position y(8)+up#,object position z(8)
    position object 9,object position x(9),object position y(9)+up#*2,object position z(9)
    rotate object 5,object angle x(5)+5.0,object angle y(5)+4.0,object angle z(5)+3.0
    rotate object 6,object angle x(6)+3.0,object angle y(6)+4.0,object angle z(6)+5.0
    rotate object 7,object angle x(7)+2.0,object angle y(7)+5.0,object angle z(7)+3.0
    rotate object 8,object angle x(8)+5.0,object angle y(8)+2.0,object angle z(8)+4.0
    rotate object 9,object angle x(9)+5.0,object angle y(9)+5.0,object angle z(9)+5.0
    if i>300 and bigboom=2
      xrotate object scoreboard(player),(i-300)*0.9
      position object scoreboard(player),object position x(scoreboard(player)),(400-i)*0.1+1.0,plane#+150.0+(i-300)*0.1
    endif
    sync
    up#=up#-gravity#/2
    if playsound then set sound volume 3,int(volume#)
    volume#=volume#-0.5
    if volume#<0.0 then volume#=0.0
  next i
  for i=5 to 9
    hide object i
  next i
  show object player
return
function update_score(player,score)
  create bitmap 2,80,20
  ink rgb(0,0,255),0
  box 1,1,80,20
  ink rgb(255,255,255),0
  set text font "courier"
  set text size 16
  set cursor 7,2
  print "HITS= ";score
  get image scoreboard(player),1,1,80,20,3
  delete bitmap 2
  texture object scoreboard(player),scoreboard(player)
endfunction
function explode_bomb(x#,y#,boom,plane#,player,playsound)
  position object boom,x#,y#,plane#
  position light 1,x#,y#+30.0,plane#+50.0
  point light 1,x#,y#,plane#
  position light 2,x#,y#,plane#+30.0
  point light 2,x#,y#,plane#
  position light 3,x#,y#,plane#
  point light 3,object position x(player),object position y(player),object position z(player)
  show light 1:show light 2:show light 3
  show object boom
  volume=100
  if playsound then play sound 2
  for i=1 to 200 step 2
    scale object boom,i,i*2,i
    fade object boom,100-i/2
    color light 1,rgb(201-i,0,0):color light 2,rgb(201-i,0,0):color light 3,rgb(201-i,0,0)
    sync
    if playsound then set sound volume 2,volume
    dec volume
    if volume<0 then volume=0
  next i
  hide object boom
  hide light 1:hide light 2:hide light 3
endfunction
function projectile(player,angle,power,wind,centerx,instruct)
  fire=0
  while not fire
    ink rgb(255,255,255),0
    if wind<0
      direction=-1
      tp=centerx+wind
      box centerx+wind,9,centerx,15
    else
      direction=1
      tp=centerx
      box centerx,9,centerx+wind,15
    endif
    for i=1 to 10
      line centerx+wind+(10-i)*direction,12-i,centerx+wind+(10-i)*direction,12+i
    next i
    set text size 16
    set text to normal
    set text font "arial"
    set cursor tp,26
    wind$=right$("0"+str$(wind),2)
    print "Wind: ";left$(wind$,1);".";right$(wind$,1)
    ink rgb(0,0,255),0
    line x(player),100,x(player),190
    line x(player),190,x(player)+90,190
    yoffset=sin(angle)*90
    xoffset=cos(angle)*90
    xp1=cos(angle+135)*10
    yp1=sin(angle+135)*10
    xp2=cos(angle+225)*10
    yp2=sin(angle+225)*10
    line x(player),190,x(player)+xoffset,190-yoffset
    line x(player)+xoffset,190-yoffset,x(player)+xoffset+xp1,190-yoffset-yp1
    line x(player)+xoffset,190-yoffset,x(player)+xoffset+xp2,190-yoffset-yp2
    ink rgb(128,128,128),0
    box x(player)-5,200,x(player)+95,220
    ink 0,0
    line x(player)+angle,203,x(player)+angle,217
    ink rgb(255,0,0),0
    box x(player)+102,200,x(player)+138,220
    box x(player)+100,202,x(player)+140,218
    ink rgb(0,255,0),0
    box x(player)+100,190-power,x(player)+140,195
    ink rgb(255,255,255),0
    for i=1 to 5
      ink rgb(0,255,0),0
      line x(player)+140-i,190-power-i,x(player)+135,190-power-i
      ink 0,0
      line x(player)+140-i,190-power+i,x(player)+135,190-power+i
      line x(player)+angle-i/2,218-i,x(player)+angle+i/2,218-i
    next i
    ink rgb(255,255,255),0
    for i=0 to 95 step 5
      xlim=x(player)+150
      xpos=xlim+int(i mod 10)-10
      line xpos,i+90,xlim,i+90
      if i<95 then line x(player)+i,223,x(player)+i,223+int(i mod 10)+5
    next i
    if instruct>0
      instructions(instruct)
    endif
    set text size 16
    set text font "arial"
    set text to bold
    text x(player)+104,202,"FIRE"
    set text font "arial"
    set text size 20
    set text to normal
    text x(player)+10,80,"Angle: "+str$(angle)+"°"
    text x(player)+100,60,"Power: "+left$(str$(power),len(str$(power))-1)+"."+right$(str$(power),1)
    sync
    if mouseclick()=1
      if mousex()>=x(player) and mousex()<=x(player)+90 and mousey()>=200 and mousey()<=220
        angle=abs(mousex()-x(player))
      endif
      if mousex()>=x(player)+100 and mousex()<=x(player)+140 and mousey()>=100 and mousey()<=200
        power=200-mousey()
      endif
      if mousex()>=x(player)+100 and mousex()<=x(player)+140 and mousey()>=200 and mousey()<=220
        if ready=1 then fire=1
      endif
    endif
    if mouseclick()=0
      if mousex()>=x(player)+100 and mousex()<=x(player)+140 and mousey()>=200 and mousey()<=220
        ready=1
      else
        ready=0
      endif
    endif
  endwhile
  return_value#=angle*256+power
endfunction return_value#
function computer(adjust#,angle,power)
  if angle=0 or power=0
    angle=55
    power=75
  else
    if adjust#>200.0
      inc angle
      inc power
    else
      if adjust#>0.0
        inc angle
        dec power
      else
        dec angle
        inc power
      endif
    endif
 endif
  return_value#=angle*256+power
endfunction return_value#
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
      length=2000
      wave#=0.0
      increment#=1.0
      gain#=-0.01
      amplitude=65535
      decay=0
      speed=sampleRate
    endcase
    case 2
      length=500
      wave#=0.0
      increment#=2.0
      gain#=0.001
      amplitude=65000
      decay=1
      speed=6000
    endcase
    case 3
      length=2000
      wave#=0.0
      increment#=-1.0
      gain#=0.0
      amplitude=65000
      decay=500
      speed=8000
    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
  set sound speed number,speed
endfunction
function title_page(centerx)
  set image colorkey 0,0,0
  make object box 11,40.0,7.0,1.0
  create bitmap 2,100,15
  ink rgb(255,255,255),0
  set text font "courier"
  set text size 12
  set text to bold
  text 0,0,"Projectile"
  get image 11,1,1,100,15,1
  delete bitmap 2
  texture object 11,11
  set object texture 11,2,1
  set object transparency 11,1
  position camera 100.0,500.0,600.0
  point camera 100.0,500.0,0.0
  for i#=-500.0 to 600.0 step 5
    position object 11,95.0,500.0,i#
    sync
  next i
  delete image 11
  delete object 11
  set text size 40
  set text font "arial"
  text centerx-300,200,"A) 2 players"
  text centerx-300,240,"B) 1 player"
  text centerx-300,280,"C) 0 players"
  sync
  answer=-1
  while answer=-1
    i$=inkey$()
    if i$="a" or i$="A" then answer=2
    if i$="b" or i$="B" then answer=1
    if i$="c" or i$="C" then answer=0
  endwhile
  while inkey$()<>""
  endwhile
  text centerx-300,200,"Sound? (Y/N)"
  sync
  playsound=-1
  while playsound=-1
    i$=inkey$()
    if i$="y" or i$="Y" then playsound=1
    if i$="n" or i$="N" then playsound=0
  endwhile
  return_value$=str$(answer)+str$(playsound)
endfunction return_value$
function instructions(instruct)
  ink rgb(0,0,192),0
  box 200,600,800,700
  ink rgb(0,0,128),0
  box 210,610,790,690
  ink rgb(255,255,255),0
  set text font "arial"
  set text size 14
  text 220,615, "Object: hit and destroy your opponent"
  text 220,630, "Play: Use mouse to select firing angle and firing power to send projectile over the hill and hit your opponent"
  text 220,645, "    Click and drag arrow in gray bar to select angle"
  text 220,660, "    Click and drag arrow in green bar to select power"
  text 220,675, "    Click on red FIRE button to fire projectile"
endfunction

do

gosub set_problems
gosub draw_stuff
gosub check_input

sync
loop

set_problems:
 <code>
return

draw_stuff:
<code>
return

check_input:
<code>
return

do

`draw gui
box ......
line......
print......

sync
loop

`draw gui
create bitmap 1,screen width(),screen height()
box ......
line......
print......
get image 1,0,0,screen width(),screen height()
delete bitmap 1

sprite 1,0,0,1

do

sync
loop

do
cls
userinput$=entry$(1)
text 0,0,userinput$
if returnkey()=1 then clear entry buffer
loop

in the next code tags...

Acelepage's MAXIMUM game
The runner up was:
Rburke's GravMath

REM Project: tictactoe
REM Created: 11/5/2006 11:51:49 AM
REM
REM ***** Main Source File *****
REM

sync on
sync rate 60
disable escapekey

randomize timer()

set text font "arial"

set text size 20

global dim squares(10,10)
squares(0,0)=5
global first
global mids
global sw
global sh
global comp
global back
global center

comp=5

mids=screen width()/2

sw=screen width()

sh=screen height()


do
   cls
   repeat

      ink rgb(91,246,181),rgb(91,246,181)

      box 100,100,screen width()-100,screen height()-100

      ink rgb(25,163,255),rgb(25,163,255)

      box 100,100,screen width()-100,110

      box 100,100,110,screen height()-100

      box screen width()-110,110,screen width()-100,screen height()-100

      box 100,screen height()-110,screen width()-100,screen height()-100

      center text mids,150,"Welcome to Tic Tac Toe or naughts and crosses"

      if 1=button("Play",200,0,0,3)
         play=1
      endif

      if 1=button("Options",250,0,0,3)
         gosub options
      endif

      if 1=button("EXIT",300,0,0,3)
         end
      endif

      sync

   until play=1

   play=0

   Cls

   repeat
      again=0
      move=0
      first=0
      sync

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

      box 0,0,screen width(),screen height()

      ink 0,rgb(255,255,255)

      Line screen width()/3,100,screen width()/3,screen height()-100
      Line (screen width()/3)*2,100,(screen width()/3)*2,screen height()-100
      Line 100,screen height()/3,screen width()-100,screen height()/3
      Line 100,(screen height()/3)*2,screen width()-100,(screen height()/3)*2

      sync



     repeat
        place(1)

        if back=1 then exit

        move=move+1

        if 1=win(1)
           sync
           wait 1000
           cls rgb(255,255,255)
           sync
           text 0,0,"Player 1 wins"
           sync
           suspend for key
           exit
        endif

        if move=9
           cls rgb(255,255,255)
           sync
           text 0,0,"Tie"
           sync
           suspend for key
           exit
        endif

        sync

        if comp=5 then compplaceexpt()
        if comp=4 then compplacehard()
        if comp=3 then compplacemed()
        if comp=2 then compplaceeasy()
        if comp=1 then place(2)

        if back=1 then exit

        move=move+1

        if 1=win(2)
           sync
           wait 1000
           cls rgb(255,255,255)
           sync
           text 0,0,"Player 2 wins"
           sync
           suspend for key
           exit
        endif



        sync

     until again=1 or back=1

     undim squares(10,10)
     global dim squares(10,10)
     squares(0,0)=5


   until back=1

   back=0
loop

`The options menu

options:

ink rgb(91,246,181),rgb(91,246,181)

box 100,100,screen width()-100,screen height()-100

ink rgb(25,163,255),rgb(25,163,255)

box 100,100,screen width()-100,110

box 100,100,110,screen height()-100

box screen width()-110,110,screen width()-100,screen height()-100

box 100,screen height()-110,screen width()-100,screen height()-100

center text mids,150,"Options"

repeat

   if 1=button("Easy",200,0,0,3)
      comp=2
   endif

   if 1=button("Medium",250,0,0,3)
      comp=3
   endif

   if 1=button("Hard",300,0,0,3)
      comp=4
   endif

   if 1=button("Expert",350,0,0,3)
      comp=5
   endif

   if 1=button("Player",400,0,0,3)
      comp=1
   endif

   if 1=button("BACK",450,0,0,3)
      back1=1
   endif

   sync

until back1=1

back1=0

wait 200
cls
sync

return


`Makes buttons and checks if they are being pressed

function button(but$,y,in,bac,size)

   if size=2
      set text size 30
   endif

   if size=3
      set text size 40
   endif

   if in=0
      in=rgb(25,163,255)
   endif

   if bac=0
      bac=rgb(91,246,181)
   endif

   length=text width(but$)/2

   if mids-length<mousex() and mids+length>mousex() and y<mousey() and y+text height(but$)>mousey()
      bac=rgb(91,196,181)
      if mouseclick()=1
         selected=1
      endif
   endif

   ink in,bac
   center text mids,y,but$

   set text size 20

endfunction selected

`Alows the player to pick their own space

function place(play)

repeat
   x=mousex()
   y=mousey()

   click=mouseclick()

   if click=1
      if x<sw/3
         xpos#=.166666
         if y<sh/3
            plac=1
            ypos#=.166666
         endif
         if y>sh/3 and y<2*(sh/3)
            plac=4
            ypos#=.5
         endif
         if y>2*(sh/3)
            plac=7
            ypos#=.83333
         endif
      endif

      if x>sw/3 and x<(sw/3)*2
         xpos#=.5
         if y<sh/3
            plac=2
            ypos#=.166666
         endif
         if y>sh/3 and y<2*(sh/3)
            plac=5
            ypos#=.5
         endif
         if y>2*(sh/3)
            plac=8
            ypos#=.83333
         endif
      endif

      if x>(sw/3)*2
         xpos#=.8333333
         if y<sh/3
            plac=3
            ypos#=.166666
         endif
         if y>sh/3 and y<2*(sh/3)
            plac=6
            ypos#=.5
         endif
         if y>2*(sh/3)
            plac=9
            ypos#=.83333
         endif
      endif

   endif

   row=(plac-0.5)/3+1
   column=((plac-1) mod 3)+1

   if squares(row,column)=0 and play=1

      squares(row,column)=1
      nex=1
      circle screen width()*xpos#,screen height()*ypos#,50
   ENDIF

   if squares(row,column)=0 and play=2

      squares(row,column)=2
      nex=1
      box screen width()*xpos#-20,screen height()*ypos#-20,screen width()*xpos#+20,screen height()*ypos#+20
   ENDIF

   if escapekey()=1
      back=1
   endif

until nex=1 or back=1

endfunction nex

`Easy Chosses only random places

function compplaceeasy()

repeat

   plac=rnd(8)+1

   row=(plac-0.5)/3+1
   column=((plac-1) mod 3)+1

until squares(row,column)=0

squares(row,column)=2

xpos#=column*2-1
xpos#=xpos#/6

ypos#=row*2-1
ypos#=ypos#/6

box screen width()*xpos#-20,screen height()*ypos#-20,screen width()*xpos#+20,screen height()*ypos#+20


endfunction nex

`Pretty easy to beat only checks for a win

function compplacemed()

skip=0

`checks for a win

plac=check(2)

if plac>0

   row=(plac-0.5)/3+1
   column=((plac-1) mod 3)+1
   skip=1

endif

`Chosses a random place

if skip=0
   repeat

      plac=rnd(8)+1

      row=(plac-0.5)/3+1
      column=((plac-1) mod 3)+1

   until squares(row,column)=0
endif

squares(row,column)=2

xpos#=column*2-1
xpos#=xpos#/6

ypos#=row*2-1
ypos#=ypos#/6

box screen width()*xpos#-20,screen height()*ypos#-20,screen width()*xpos#+20,screen height()*ypos#+20


endfunction nex

`Difficult however beatable

function compplacehard()

skip=0


`checks to see if it can make a win

plac=check(1)

if plac>0

   row=(plac-0.5)/3+1
   column=((plac-1) mod 3)+1
   skip=1

endif

`Checks to see if it can make a block

plac=check(2)

if plac>0

   row=(plac-0.5)/3+1
   column=((plac-1) mod 3)+1
   skip=1

endif

`Choses a random spot if there is not a good spot

if skip=0
   repeat

      plac=rnd(8)+1

      row=(plac-0.5)/3+1
      column=((plac-1) mod 3)+1

   until squares(row,column)=0
endif

squares(row,column)=2

xpos#=column*2-1
xpos#=xpos#/6

ypos#=row*2-1
ypos#=ypos#/6

box screen width()*xpos#-20,screen height()*ypos#-20,screen width()*xpos#+20,screen height()*ypos#+20


endfunction nex

`Unbeatable difficulty.... At least I think

function compplaceexpt()

`If it is the first move it does this

if first=0

   plac=firstcompmove()

   if plac>0

      row=(plac-0.5)/3+1
      column=((plac-1) mod 3)+1
      skip=1

   endif

else
   skip=0


   `checks to see if it can make a block

   plac=check(1)

   if plac>0

      row=(plac-0.5)/3+1
      column=((plac-1) mod 3)+1
      skip=1

   endif

   `checks to see if it can make a win

   plac=check(2)

   if plac>0

      row=(plac-0.5)/3+1
      column=((plac-1) mod 3)+1
      skip=1

   endif

   `checks to see if it can make an educated move (if the space is avalible)
   `if it went center first then it goes edges
   `if it went corner first then it goes corners

   if skip=0
      plac=conner()

      if plac>0

         row=(plac-0.5)/3+1
         column=((plac-1) mod 3)+1
         skip=1

      endif
   endif

   `If there isnt a better move then it picks a random spot

   if skip=0
      repeat

         plac=rnd(8)+1

         row=(plac-0.5)/3+1
         column=((plac-1) mod 3)+1

      until squares(row,column)=0
   endif
endif

squares(row,column)=2

xpos#=column*2-1
xpos#=xpos#/6

ypos#=row*2-1
ypos#=ypos#/6

box screen width()*xpos#-20,screen height()*ypos#-20,screen width()*xpos#+20,screen height()*ypos#+20


endfunction nex

`Determines if anyone has won

function win(player)

   for x=1 to 3
      for y=1 to 3
         if squares(x,y)=player then row=row+1
      next y
      if row=3 then yes=1
      if row<3 then row=0
   next x

   for y=1 to 3
      for x=1 to 3
         if squares(x,y)=player then col=col+1
      next x
      if col=3 then yes=1
      if col<3 then col=0
   next y

   for x=1 to 3
      if squares(x,x)=player then dig=dig+1
   next x

   for x=1 to 3
      if squares(x,4-x)=player then dig2=dig2+1
   next x

   if dig=3 or dig2=3 then yes=1

endfunction yes


`Check- decides if there is a block (Wi=1) or a win (wi=2)

function check(wi)

   for i=1 to 3
      for j=1 to 3

         if squares(i,j)=wi
            col=col+1
         endif
         if squares(i,j)=0
            notcheck=j
         endif

      next j

      if col=2 and notcheck>0
         row=i
         column=notcheck
         skip=1
         col=0
         notcheck=0
      else
         col=0
         notcheck=0
      endif

   next i

   for j=1 to 3
      for i=1 to 3

         if squares(i,j)=wi
            ro=ro+1
         endif
         if squares(i,j)=0
            notcheck=i
         endif

      next i

      if ro=2 and notcheck>0
         column=j
         row=notcheck
         skip=1
         ro=0
         notcheck=0
      else
         ro=0
         notcheck=0
      endif

   next j



   for j=1 to 3

         if squares(j,j)=wi
            ro=ro+1
         endif
         if squares(j,j)=0
            notcheck=j
         endif

   next j

   if ro=2 and notcheck>0
      column=notcheck
      row=notcheck
      skip=1
      ro=0
      notcheck=0
   else
      ro=0
      notcheck=0
   endif

   for j=1 to 3

         if squares(j,4-j)=wi
            ro=ro+1
         endif
         if squares(j,4-j)=0
            notcheck=j
         endif

   next j

   if ro=2 and notcheck>0
      column=4-notcheck
      row=notcheck
      skip=1
      ro=0
      notcheck=0
   else
      ro=0
      notcheck=0
   endif

   plac=column+3*(row-1)

endfunction plac

`Makes the first move on expert, if your first move was the center it goes on a corner
`Otherwise it goes in the center

function firstcompmove()

   first=1
   if squares(2,2)=1
      center=0
      choice=rnd(3)
      if choice=1 then plac=1
      if choice=2 then plac=3
      if choice=3 then plac=7
      if choice=4 then plac=9
   else
      center=1
      plac=5
   endif

endfunction plac

`Makes an educated move on expert

function conner()
   if center=0
      if squares(1,1)=0 then plac=1
      if squares(1,3)=0 then plac=3
      if squares(3,1)=0 then plac=7
      if squares(3,3)=0 then plac=9
   else
      if squares(1,2)=0 then plac=2
      if squares(2,1)=0 then plac=4
      if squares(2,3)=0 then plac=6
      if squares(3,2)=0 then plac=8
   endif


endfunction plac

setup()
type user_input
   click as integer
   mmx as integer
   mmy as integer
   mx as integer
   my as integer
endtype
global user as user_input

`________________
`|              |
`|   Main Loop  |
`________________

do
time=timer()/25
update_user()
color backdrop rgb(abs(sin(time+30))*255,abs(sin(time))*255,abs(cos(time))*255)
select user.click
   case 1
      po=pick object(user.mx,user.my,1,1)
      if po=1
         climb=select_limb()
         repeat
            update_user()
         until user.click=0
         repeat
            sync
            update_user()
            cls
            text 0,0,"  |  |"
            text 0,10,"__|__|__"
            text 0,20,"  |  |"
            text 0,30,"__|__|__"
            text 0,40,"  |  |"
            text 0,50,"  |  |"
            for x=1 to 3
               for y=1 to 3
                  if board(climb+1,x,y)=1
                     text (x-1)*23+5,(y-1)*23+5,"X"
                  endif
                  if board(climb+1,x,y)=2
                     text (x-1)*23+5,(y-1)*23+5,"O"
                  endif
               next y
            next x
            if user.mx<60 and user.my<60
               x=user.mx/20+1
               y=user.my/20+1
               if board(climb+1,x,y)=0
                  ink rgb(100,210,250),0
                  text (x-1)*23+5,(y-1)*23+5,"X"
                  ink -1,0
               else
                  x=-1
               endif
            else
               x=-1
            endif
         until user.click=1
         if x>-1
            board(climb+1,x,y)=1
            set current bitmap climb+1
            dec x
            dec y
            ink 0,0
            line x*16/3,y*16/3+1,(x+1)*16/3-1,(y+1)*16/3
            line x*16/3,(y+1)*16/3-1,(x+1)*16/3-1,y*16/3
            get image climb+1,0,0,16,16,1
            texture limb 1,climb,climb+1
            check_win(climb+1,1)
            cbd=artificial_intelligence()
            check_win(cbd,2)
            set current bitmap 0
         endif
      endif
   endcase
   case 2
      rotate object 1,object angle x(1)+user.mmy/4,object angle y(1)-user.mmx/4,0
   endcase
endselect
sync
loop

`___________________
`|                 |
`|    Functions    |
`___________________

function setup()
sync on
sync rate 60
randomize timer()
autocam off
move camera -150
vectors()
make_cube()
for i=1 to 6
   create_board(i)
next i
global dim board(6,3,3) as integer
endfunction

function vectors()
null=make vector3(1)
null=make vector3(2)
null=make vector3(3)
global dim dist(6) as float
endfunction

function make_cube()
make object plain 1,100,100
make mesh from object 1,1
offset limb 1,0,0,0,-50
add limb 1,1,1
offset limb 1,1,0,0,50
add limb 1,2,1
rotate limb 1,2,0,90,0
offset limb 1,2,50,0,0
add limb 1,3,1
rotate limb 1,3,0,-90,0
offset limb 1,3,-50,0,0
add limb 1,4,1
rotate limb 1,4,90,0,0
offset limb 1,4,0,-50,0
add limb 1,5,1
rotate limb 1,5,-90,0,0
offset limb 1,5,0,50,0
set object light 1,0
endfunction

function create_board(board)
create bitmap board,16,16
cls rgb(rnd(255),rnd(255),rnd(255))
box 1,16/3-1,15,16/3+1,rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55)
box 1,32/3-1,15,32/3+1,rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55)
box 16/3-1,1,16/3+1,15,rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55)
box 32/3-1,1,32/3+1,15,rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55),rgb(rnd(200)+55,rnd(200)+55,rnd(200)+55)
get image board,0,0,16,16,1
texture limb 1,board-1,board
set current bitmap 0
endfunction

function update_user()
user.click=mouseclick()
user.mmx=mousemovex()
user.mmy=mousemovey()
user.mx=mousex()
user.my=mousey()
endfunction

function select_limb()
gx#=get pick vector x()+camera position x()
gy#=get pick vector y()+camera position y()
gz#=get pick vector z()+camera position z()
set vector3 1,gx#,gy#,gz#
for i=1 to 6
   set vector3 2,limb position x(1,i-1),limb position y(1,i-1),limb position z(1,i-1)
   subtract vector3 3,2,1
   dist(i)=length vector3(3)
next i
lowestdist=dist(1)
lowestdistpos=1
for i=2 to 6
   if dist(i)<lowestdist
      lowestdist=dist(i)
      lowestdistpos=i
   endif
next i
climb=lowestdistpos-1
endfunction climb

function check_win(bd,player)
total=0
for x=1 to 3
   for y=1 to 3
      if board(bd,x,y)=0
         inc total
      endif
   next y
next x
if total=0
   for x=1 to 3
      for y=1 to 3
         board(bd,x,y)=0
      next y
   next x
   create_board(bd)
   exitfunction
endif
if board(bd,1,1)=player and board(bd,2,1)=player and board(bd,3,1)=player or board(bd,1,2)=player and board(bd,2,2)=player and board(bd,3,2)=player or board(bd,1,3)=player and board(bd,2,3)=player and board(bd,3,3)=player or board(bd,1,1)=player and board(bd,1,2)=player and board(bd,1,3)=player or board(bd,2,1)=player and board(bd,2,2)=player and board(bd,2,3)=player or board(bd,3,1)=player and board(bd,3,2)=player and board(bd,3,3)=player or board(bd,1,1)=player and board(bd,2,2)=player and board(bd,3,3)=player or board(bd,1,3)=player and board(bd,2,2)=player and board(bd,3,1)=player
   select bd
      case 1
         x=0
         y=0
      endcase
      case 2
         x=0
         y=180
      endcase
      case 3
         x=0
         y=90
      endcase
      case 4
         x=0
         y=-90
      endcase
      case 5
         x=90
         y=0
      endcase
      case 6
         x=-90
         y=0
      endcase
   endselect
   set current bitmap 0
   for i=1 to 250
      sync
      rotate object 1,curveangle(x,object angle x(1),80),curveangle(y,object angle y(1),80),0
   next i
   wait 1000
   if player=1
      exit prompt "You Win","Yay..."
      end
   else
      exit prompt "You Lose","Boo..."
      end
   endif
endif
endfunction

function artificial_intelligence()
`Checks to see if it can win
for i=1 to 6
   if board(i,1,1)=0
      if board(i,1,2)=2 and board(i,1,3)=2 or board(i,2,2)=2 and board(i,3,3)=2 or board(i,2,1)=2 and board(i,3,1)=2
         ax=1
         ay=1
         exit
      endif
   endif
   if board(i,2,1)=0
      if board(i,1,1)=2 and board(i,3,1)=2 or board(i,2,2)=2 and board(i,2,3)=2
         ax=2
         ay=1
         exit
      endif
   endif
   if board(i,3,1)=0
      if board(i,1,1)=2 and board(i,2,1)=2 or board(i,3,2)=2 and board(i,3,3)=2 or board(i,2,2)=2 and board(i,1,3)=2
         ax=3
         ay=1
         exit
      endif
   endif
   if board(i,1,2)=0
      if board(i,1,1)=2 and board(i,1,3)=2 or board(i,2,2)=2 and board(i,3,2)=2
         ax=1
         ay=2
         exit
      endif
   endif
   if board(i,2,2)=0
      if board(i,1,1)=2 and board(i,3,3)=2 or board(i,2,1)=2 and board(i,2,3)=2 or board(i,3,1)=2 and board(i,1,3)=2 or board(i,1,2)=2 and board(i,3,2)=2
         ax=2
         ay=2
         exit
      endif
   endif
   if board(i,3,2)=0
      if board(i,3,1)=2 and board(i,3,3)=2 or board(i,1,2)=2 and board(i,2,2)=2
         ax=3
         ay=2
         exit
      endif
   endif
   if board(i,1,3)=0
      if board(i,1,1)=2 and board(i,1,2)=2 or board(i,2,3)=2 and board(i,3,3)=2 or board(i,2,2)=2 and board(i,3,1)=2
         ax=1
         ay=3
         exit
      endif
   endif
   if board(i,2,3)=0
      if board(i,1,3)=2 and board(i,3,3)=2 or board(i,2,2)=2 and board(i,2,1)=2
         ax=2
         ay=3
         exit
      endif
   endif
   if board(i,3,3)=0
      if board(i,1,1)=2 and board(i,2,2)=2 or board(i,3,1)=2 and board(i,3,2)=2 or board(i,1,3)=2 and board(i,2,3)=2
         ax=3
         ay=3
         exit
      endif
   endif
next i
if ax=0
   `Checks to see if player can win
   for i=1 to 6
      if board(i,1,1)=0
         if board(i,1,2)=1 and board(i,1,3)=1 or board(i,2,2)=1 and board(i,3,3)=1 or board(i,2,1)=1 and board(i,3,1)=1
            ax=1
            ay=1
            exit
         endif
      endif
      if board(i,2,1)=0
         if board(i,1,1)=1 and board(i,3,1)=1 or board(i,2,2)=1 and board(i,2,3)=1
            ax=2
            ay=1
            exit
         endif
      endif
      if board(i,3,1)=0
         if board(i,1,1)=1 and board(i,2,1)=1 or board(i,3,2)=1 and board(i,3,3)=1 or board(i,2,2)=1 and board(i,1,3)=1
            ax=3
            ay=1
            exit
         endif
      endif
      if board(i,1,2)=0
         if board(i,1,1)=1 and board(i,1,3)=1 or board(i,2,2)=1 and board(i,3,2)=1
            ax=1
            ay=2
            exit
         endif
      endif
      if board(i,2,2)=0
         if board(i,1,1)=1 and board(i,3,3)=1 or board(i,2,1)=1 and board(i,2,3)=1 or board(i,3,1)=1 and board(i,1,3)=1 or board(i,1,2)=1 and board(i,3,2)=1
            ax=2
            ay=2
            exit
         endif
      endif
      if board(i,3,2)=0
         if board(i,3,1)=1 and board(i,3,3)=1 or board(i,1,2)=1 and board(i,2,2)=1
            ax=3
            ay=2
            exit
         endif
      endif
      if board(i,1,3)=0
         if board(i,1,1)=1 and board(i,1,2)=1 or board(i,2,3)=1 and board(i,3,3)=1 or board(i,2,2)=1 and board(i,3,1)=1
            ax=1
            ay=3
            exit
         endif
      endif
      if board(i,2,3)=0
         if board(i,1,3)=1 and board(i,3,3)=1 or board(i,2,2)=1 and board(i,2,1)=1
            ax=2
            ay=3
            exit
         endif
      endif
      if board(i,3,3)=0
         if board(i,1,1)=1 and board(i,2,2)=1 or board(i,3,1)=1 and board(i,3,2)=1 or board(i,1,3)=1 and board(i,2,3)=1
            ax=3
            ay=3
            exit
         endif
      endif
   next i
endif
if ax=0
   repeat
      i=rnd(5)+1
      ax=rnd(2)+1
      ay=rnd(2)+1
   until board(i,ax,ay)=0
endif
board(i,ax,ay)=2
set current bitmap i
circle (ax-0.5)*16/3,(ay-0.5)*16/3,1
ink -1,0
get image i,0,0,16,16,1
texture limb 1,i-1,i
endfunction i

sync on
sync rate 60

disable escapekey

color backdrop rgb(0,0,0)
global blackimage = 1
get image blackimage, 0, 0, screen width(), screen height(), 1

global greenimage = 2
create bitmap 1, 10, 10
box 0, 0, 10, 10, rgb(0, 255, 0), rgb(0, 255, 0), rgb(0, 255, 0), rgb(0, 255, 0)
get image greenimage, 0, 0, 10, 10
delete bitmap 1

global redimage = 3
create bitmap 1, 10, 10
box 0, 0, 10, 10, rgb(255, 0, 0), rgb(255, 0, 0), rgb(255, 0, 0), rgb(255, 0, 0)
get image redimage, 0, 0, 10, 10
delete bitmap 1

`board
type boardtype
   objid
   xpos
   ypos
   piece$
   player
endtype

dim board(3,3) as boardtype

overlap = 1

for x = 1 to 3
   for y = 1 to 3
      board(x,y).objid = freeid()
      make object cube board(x,y).objid, 10 + overlap
      ghost object on board(x,y).objid
      position object board(x,y).objid, x*10 - 20, y*10 - 20, 0
      board(x,y).xpos = x*10 - 20
      board(x,y).ypos = y*10 - 20
   next y
next x
`/board

`pieces
type piecetype
   objoid
   objxid
   type$
endtype

dim piece(3,3) as piecetype

osize = 6
xsize = 8

for x = 1 to 3
   for y = 1 to 3
      `O
      piece(x,y).objoid = freeid()
      make object sphere piece(x,y).objoid, osize
      
      set object ambient piece(x,y).objoid, 0
      exclude object on piece(x,y).objoid
      
      `X
      piece(x,y).objxid = freeid()
      make object box piece(x,y).objxid, xsize, xsize/5, xsize/5
      
      make mesh from object 1, piece(x,y).objxid
      zrotate object piece(x,y).objxid, 135
      
      add limb piece(x,y).objxid, 1, 1
      rotate limb piece(x,y).objxid, 1, 0, 0, 90  
      delete mesh 1
      
      set object ambient piece(x,y).objxid, 0
      exclude object on piece(x,y).objxid
   next y
next x

`/pieces

`camera
position camera 0, 0, -30
point camera 0,0,0
`/camera

`does the computer go first?
global computerfirst = 0

menuplace:
gosub menu

`if the computer gets to go first
if computerfirst = 1
   `place it's first piece in any one of the four corners
   select (rnd(3) + 1)
      case 1
         place_piece(1, 1, "X", 1)
      endcase
      case 2
         place_piece(1, 3, "X", 1)
      endcase
      case 3
         place_piece(3, 1, "X", 1)
      endcase
      case 4
         place_piece(3, 3, "X", 1)
      endcase
   endselect
endif

`records what the human player does
dim playermove(4) as string
global currentplayermove = 0

global placed = 0
global playertype$
global computertype$

if computerfirst = 1
   playertype$ = "O"
   computertype$ = "X"
else
   playertype$ = "X"
   computertype$ = "O"
endif

do
   center text screen width()/2, 30, "Place your " + playertype$
   
   if placed = 0
      gosub selectsquare
   endif
   
   gosub check_for_win
   
   if placed = 1
      gosub computerturn
   endif
   
   gosub check_for_win
   
   if escapekey() = 1
      gosub clearpieces
      goto menuplace
   endif
 
   sync   
loop

function place_piece(x as integer, y as integer, type$, computer)
   if type$ = "O"
      tempid = piece(x,y).objoid
   endif
   if type$ = "X"
      tempid = piece(x,y).objxid
   endif
   
   exclude object off tempid
      
   if computer = 1
      texture object tempid, redimage
      board(x,y).player = 1
   else
      texture object tempid, greenimage
      board(x,y).player = -10
   endif
   
   position object tempid, board(x,y).xpos, board(x,y).ypos, 0
   
   board(x,y).piece$ = type$
endfunction


`this function goes through the objects and finds the first object id that is not used
function freeid() 
   id = 0 
   i = 0 
   repeat
      inc i 
      if object exist(i) = 0 then id = i 
   until id > 0 `go until we find a "empty" i and assign it to id
   lastfreeobject = id
endfunction id

computerturn:
   computerplayed = 0
   
   `first check to see if we can win

   `horizontals
   for y = 1 to 3
      `if we have two on a row
      if (board(1,y).player + board(2,y).player + board(3,y).player) = 2
         for x = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next x
      endif
   next y
   `verticals
   for x = 1 to 3
      `if we have two on a column
      if (board(x,1).player + board(x,2).player + board(x,3).player) = 2
         for y = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next y
      endif
   next x
   `diagonals
   if (board(1,1).player + board(2,2).player + board(3,3).player) = 2
      for i = 1 to 3
         if board(i,i).piece$ = "" and computerplayed = 0
            place_piece(i, i, computertype$, 1)
            computerplayed = 1
         endif
      next i
   endif
   if (board(1,3).player + board(2,2).player + board(3,1).player) = 2
      if board(1,3).piece$ = "" and computerplayed = 0
         place_piece(1, 3, computertype$, 1)
         computerplayed = 1
      endif
      if board(3,1).piece$ = "" and computerplayed = 0
         place_piece(3, 1, computertype$, 1)
         computerplayed = 1
      endif
      if board(2,2).piece$ = "" and computerplayed = 0
         place_piece(2, 2, computertype$, 1)
         computerplayed = 1
      endif
   endif
   
   `if we haven't moved yet, see if we need to block the human player
   `horizontals
   for y = 1 to 3
      if board(1,y).player + board(2,y).player + board(3,y).player = -20
         for x = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next x
      endif
   next y
   `verticals
   for x = 1 to 3
      if board(x,1).player + board(x,2).player + board(x,3).player = -20
         for y = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next y
      endif
   next x
   
   `diagonals
   if (board(1,1).player + board(2,2).player + board(3,3).player) = -20
      for i = 1 to 3
         if board(i,i).piece$ = "" and computerplayed = 0
            place_piece(i, i, computertype$, 1)
            computerplayed = 1
         endif
      next i
   endif
   if (board(1,3).player + board(2,2).player + board(3,1).player) = -20
      if board(1,3).piece$ = "" and computerplayed = 0
         place_piece(1, 3, computertype$, 1)
         computerplayed = 1
      endif
      if board(3,1).piece$ = "" and computerplayed = 0
         place_piece(3, 1, computertype$, 1)
         computerplayed = 1
      endif
      if board(2,2).piece$ = "" and computerplayed = 0
         place_piece(2, 2, computertype$, 1)
         computerplayed = 1
      endif
   endif
   
   
   `now if we haven't moved we need to use some strategy
   if computerplayed = 0
      `if the computer is the X
      if computerfirst = 1
         if playermove(0) = "Corner"
            if currentplayermove = 1 or currentplayermove = 2
               `play a open corner square
               if board(1,1).piece$ = ""
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               else
                  if board(1,3).piece$ = ""
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(3,3).piece$ = ""
                        place_piece(3, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(3,1).piece$ = ""
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
               `/play a open corner square
            endif
         endif
         
         if playermove(0) = "Edge"
            if currentplayermove = 1
               `play the center
               place_piece(2, 2, computertype$, 1)
               computerplayed = 1
            endif
            if currentplayermove = 2
               `play a corner not bordered by a human edge piece
               if board(1,1).piece$ = "" and board(1,2).piece$ <> playertype$ and board(2,1).piece$ <> playertype$
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               else
                  if board(3,1).piece$ = "" and board(2,1).piece$ <> playertype$ and board(3,2).piece$ <> playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(3,3).piece$ = "" and board(2,3).piece$ <> playertype$ and board(3,2).piece$ <> playertype$
                        place_piece(3, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(1,3).piece$ = "" and board(1,2).piece$ <> playertype$ and board(2,3).piece$ <> playertype$
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
            endif
         endif
         if playermove(0) = "Center"
            if currentplayermove = 1
               `play the opposite corner from our original play
               if board(1,1).player = 1
                  place_piece(3, 3, computertype$, 1)
                  computerplayed = 1
               endif
               if board(1,3).player = 1
                  place_piece(3, 1, computertype$, 1)
                  computerplayed = 1
               endif
               if board(3,1).player = 1
                  place_piece(1, 3, computertype$, 1)
                  computerplayed = 1
               endif
               if board(3,3).player = 1
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               endif
            endif      
         endif
         
      endif
  
   
      `if the computer is the O
      if computerfirst = 0
         if playermove(0) <> "Center" `the human player played somewhere besides the center
            if currentplayermove = 1
               `play the center
               if board(2,2).piece$ = ""
                  place_piece(2, 2, computertype$, 1)
                  computerplayed = 1
               endif
               `/play the center
            endif
            
            if currentplayermove = 2
               if (playermove(0) = "Corner" and playermove(1) = "Edge") or (playermove(1) = "Corner" and playermove(0) = "Edge")
                  if board(1,1).piece$ = playertype$
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(1,3).piece$ = playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,1).piece$ = playertype$
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,3).piece$ = playertype$
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endif
               endif
               
               if playermove(0) = "Corner" and playermove(1) = "Corner"
                  select (rnd(3)+1)
                     case 1
                        place_piece(1, 2, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 2
                        place_piece(2, 1, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 3
                        place_piece(3, 2, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 4
                        place_piece(2, 3, computertype$, 1)
                        computerplayed = 1
                     endcase  
                  endselect
               endif
               
               if playermove(0) = "Edge" and playermove(1) = "Edge"
                  if board(1,1).piece$ = "" and board(2,1).piece$ = playertype$ and board(1,2).piece$ = playertype$
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,1).piece$ = "" and board(2,1).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,3).piece$ = "" and board(2,3).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(1,3).piece$ = "" and board(1,2).piece$ = playertype$ and board(2,3).piece$ = playertype$
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  
                  if board(1,2).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     if rnd(1)
                        place_piece(2, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        place_piece(2, 1, computertype$, 1)
                        computerplayed = 1
                     endif
                  endif
                  if board(2,3).piece$ = playertype$ and board(2,1).piece$ = playertype$
                     if rnd(1)
                        place_piece(1, 2, computertype$, 1)
                        computerplayed = 1
                     else
                        place_piece(3, 2, computertype$, 1)
                        computerplayed = 1
                     endif
                  endif
               endif
            endif
            
            if currentplayermove = 3
               if playermove(0) = "Edge" and playermove(1) = "Edge"
                  if board(1,2).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     if board(2, 3).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                     if board(2, 1).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 1, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
                  if board(2,3).piece$ = playertype$ and board(2,1).piece$ = playertype$
                     if board(1, 2).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(1, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                     if board(3, 2).piece$ = computertype$
                        if rnd(1)
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
            endif
         else `the human player played to the center
            if currentplayermove = 1
               `play a random corner square
               select (rnd(3) + 1)
                  case 1
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 2
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 3
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 4
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endcase
               endselect
               `/play a open corner square
            endif
            
            
            if currentplayermove = 2
               if playermove(1) = "Corner"
                  `play a open corner square
                  if board(1,1).piece$ = ""
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(1,3).piece$ = ""
                        place_piece(1, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(3,3).piece$ = ""
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           if board(3,1).piece$ = ""
                              place_piece(3, 1, computertype$, 1)
                              computerplayed = 1
                           endif
                        endif
                     endif
                  endif
                  `/play a open corner square
               endif
            endif
            
         endif
      endif
   endif
   
   `if there is no possible strategy left, just pick a random square man!
   if computerplayed = 0
      found = 0
      repeat
         x = rnd(2) + 1 ` a 1 to 3 range
         y = rnd(2) + 1
         if board(x,y).piece$ = ""
            place_piece(x, y, computertype$, 1)
            computerplayed = 1
            found = 1
         endif
      until found = 1
   endif
 
   `reset this so the player can go again
   placed = 0
return

selectsquare:
   tempid = pick object(mousex(), mousey(), 1, 9)
   
   for i = 1 to 9
      ghost object on i
   next i
   
   if tempid > 0
      if tempid < 4
         x = 1
         y = tempid
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
         
      if tempid > 3 and tempid < 7
         x = 2
         y = tempid - 3
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
      
      if tempid > 6
         x = 3
         y = tempid - 6
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
      
      if placed = 1
         `if computerfirst = 1
            `player is the Os
            `if currentplayermove = 0
               if (x = 1 and y = 1) or (x = 1 and y = 3) or (x = 3 and y = 1) or (x = 3 and y = 3)
                  playermove(currentplayermove) = "Corner"
               endif
               if (x = 1 and y = 2) or (x = 2 and y = 1) or (x = 3 and y = 2) or (x = 2 and y = 3)
                  playermove(currentplayermove) = "Edge"
               endif
               if (x = 2 and y = 2)
                  playermove(currentplayermove) = "Center"
               endif
            `endif
            
         `else
            `player is the Xs
         `endif
         
         inc currentplayermove
      endif
      
   endif
return

check_for_win:
   `horizontals
   for y = 1 to 3
      if board(1, y).piece$ = playertype$ and board(2, y).piece$ = playertype$ and board(3, y).piece$ = playertype$
         humanwin = 1
      endif
      if board(1, y).piece$ = computertype$ and board(2, y).piece$ = computertype$ and board(3, y).piece$ = computertype$
         computerwin = 1
      endif
   next y
   `verticals
   for x = 1 to 3
      if board(x, 1).piece$ = playertype$ and board(x, 2).piece$ = playertype$ and board(x, 3).piece$ = playertype$
         humanwin = 1
      endif
      if board(x, 1).piece$ = computertype$ and board(x, 2).piece$ = computertype$ and board(x, 3).piece$ = computertype$
         computerwin = 1
      endif
   next x
   `diagonals
   if board(1, 1).piece$ = playertype$ and board(2, 2).piece$ = playertype$ and board(3, 3).piece$ = playertype$
      humanwin = 1
   endif
   if board(1, 1).piece$ = computertype$ and board(2, 2).piece$ = computertype$ and board(3, 3).piece$ = computertype$
      computerwin = 1
   endif
   if board(1, 3).piece$ = playertype$ and board(2, 2).piece$ = playertype$ and board(3, 1).piece$ = playertype$
      humanwin = 1
   endif
   if board(1, 3).piece$ = computertype$ and board(2, 2).piece$ = computertype$ and board(3, 1).piece$ = computertype$
      computerwin = 1
   endif
   
   if humanwin = 1
      `the human won!
      `what! impossible! :P
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "You win!"
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
   
   if computerwin = 1
      `the computer won!
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "The computer won!"
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
   
   
   `Check for a tie!
   empty = 0
   for x = 1 to 3
      for y = 1 to 3
         if board(x, y).piece$ = "" then empty = 1   
      next y
   next x
   if empty = 0
      `ze cat got the game
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "The cat got the game..."
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
return

clearpieces:
   for x = 1 to 3
      for y = 1 to 3
         board(x,y).piece$ = ""
         board(x,y).player = 0
         exclude object on piece(x,y).objoid
         exclude object on piece(x,y).objxid
      next y
   next x
   
   humanwin = 0
   computerwin = 0
return 

menu:
   clear entry buffer
   
   if escapekey() = 1 then escapehold = 1
   do
      cls
      paste image blackimage, 0, 0
      center text screen width()/2, screen height()/2, "Which do you want to play as? X or O? (X goes first)"
      center text screen width()/2, screen height()/2 + 20, entry$()
      
      if right$(entry$(), 1) = "O" or right$(entry$(), 1) = "o"  or right$(entry$(), 1) = "0" 
         computerfirst = 1
         exit
      else
         if right$(entry$(), 1) = "X" or right$(entry$(), 1) = "x"
            computerfirst = 0
            exit
         else
            if scancode() > 0 and escapekey() = 0
               cls
               paste image blackimage, 0, 0
               center text screen width()/2, screen height()/2, "Please enter either X or O"
               sync
               wait 1000
               clear entry buffer
               paste image blackimage, 0, 0
            endif
         endif
      endif
      
      if escapekey() = 1 and escapehold = 0 then end
      
      if escapekey() = 0 then escapehold = 0
      
      sync
   loop
return

set display mode 1024,768,32
show mouse:sync on:backdrop on:color backdrop 0
size=80
linewidth=10
dim gridx(3)
dim gridy(3)
dim board(3,3)
dim player$(2)
dim cx(9)
dim cy(9)
dim ox(9)
dim oy(9)
player$(0)="":player$(1)="X":player$(2)="O"
for i=1 to 3
  gridx(i)=(size+linewidth)*(i-1)
  gridy(i)=(size+linewidth)*(i-1)
next i
for i=1 to 9
  read cx(i),cy(i)
next i
for i=1 to 9
  read ox(i),oy(i)
next i
data 2,2,1,1,1,3,3,1,3,3,1,2,3,2,2,3,2,1,2,2,1,2,3,2,2,3,2,1,1,1,1,3,3,1,3,3
player=1
computer=2
moves=0
while not escapekey()
  ink rgb(255,255,255),0
  box gridx(1),gridy(1),gridx(3)+size,gridy(3)+size
  mposx=0:mposy=0
  set text font "arial":set text size size:set text to bold
  for x=1 to 3
    for y=1 to 3
      ink 0,0
      box gridx(x),gridy(y),gridx(x)+size,gridy(y)+size
      ink rgb(0,0,255),0
      text gridx(x)+linewidth,gridy(y)+linewidth,player$(board(x,y))
      if mousex()>gridx(x) and mousex()<gridx(x)+size and mousey()>gridy(y) and mousey()<gridy(y)+size
        mposx=x:mposy=y
      endif
    next y
    if board(x,1)>0 and board(x,1)=board(x,2) and board(x,2)=board(x,3) then win=3-player
    if board(1,x)>0 and board(1,x)=board(2,x) and board(2,x)=board(3,x) then win=3-player
  next x
  if board(1,1)>0 and board(1,1)=board(2,2) and board(2,2)=board(3,3) then win=3-player
  if board(1,3)>0 and board(1,3)=board(2,2) and board(2,2)=board(3,1) then win=3-player
  if computer=player and play=0 and win=0
    gosub computer_move
    board(mposx,mposy)=player
    player=3-player
    inc moves
  endif
  if mouseclick()=1 and play=0 and win=0 and player<>computer
    if mposx>0 and mposy>0
      if board(mposx,mposy)=0
        board(mposx,mposy)=player
        play=1:player=3-player
        inc moves
        if moves=9 then win=3
      endif
    endif
  endif
  if mouseclick()=0 then play=0
  if win>0
    set text size 16
    set cursor gridx(3)+200,0
    if win=3
      print "Draw"
    else
      print player$(win);" wins"
    endif
    set cursor gridx(3)+200,40
    print "Press ENTER to play again"
  endif
  if win>0 and returnkey()
    gosub reset_board
  endif
  sync
endwhile
end
reset_board:
  for i=1 to 3
    for j=1 to 3
      board(i,j)=0
    next j
  next i
  win=0:moves=0:player=1
return
computer_move:
  mposx=0:mposy=0:opp3=0:opp4=0:me3=0:me4=0:posx3=0:posx4=0:posy3=0:posy4=0
  for x=1 to 3
    opp1=0:opp2=0:me1=0:me2=0:posy1=0:posx2=0
    for y=1 to 3
      if board(x,y)=3-player then inc opp1
      if board(x,y)=player then inc me1
      if board(x,y)=0 then posy1=y
      if board(y,x)=3-player then inc opp2
      if board(y,x)=player then inc me2
      if board(y,x)=0 then posx2=y
    next y
    if me1=2 and opp1=0
      mposx=x:mposy=posy1
    else
      if me2=2 and opp2=0
        mposx=posx2:mposy=x
      endif
    endif
    if mposx=0 and mposy=0
      if opp1=2 and me1=0
        mposx=x:mposy=posy1
      else
        if opp2=2 and me2=0
          mposx=posx2:mposy=x
        endif
      endif
    endif
    if board(x,x)=3-player then inc opp3
    if board(x,x)=player then inc me3
    if board(x,x)=0 then posx3=x:posy3=x
    if board(x,(4-x))=3-player then inc opp4
    if board(x,(4-x))=player then inc me4
    if board(x,(4-x))=0 then posx4=x:posy4=4-x
  next x
  if me3=2 and opp3=0
    mposx=posx3:mposy=posy3
  else
    if me4=2 and opp4=0
      mposx=posx4:mposy=posy4
    endif
  endif
  if mposx=0 and mposy=0
    if opp3=2 and me3=0
      mposx=posx3:mposy=posy3
    else
      if opp4=2 and me4=0
        mposx=posx4:mposy=posy4
      endif
    endif
  endif
  if mposx=0 and mposy=0
    if board(2,2)=player
      for x=1 to 9
        if board(ox(x),oy(x))=0
          mposx=ox(x):mposy=oy(x)
          x=9
        endif
      next x
    else
      for x=1 to 9
        if board(cx(x),cy(x))=0
          mposx=cx(x):mposy=cy(x)
          x=9
        endif
      next x
    endif
  endif
return

sync on
sync rate 60

disable escapekey

color backdrop rgb(0,0,0)
global blackimage = 1
get image blackimage, 0, 0, screen width(), screen height(), 1

global greenimage = 2
create bitmap 1, 10, 10
box 0, 0, 10, 10, rgb(0, 255, 0), rgb(0, 255, 0), rgb(0, 255, 0), rgb(0, 255, 0)
get image greenimage, 0, 0, 10, 10
delete bitmap 1

global redimage = 3
create bitmap 1, 10, 10
box 0, 0, 10, 10, rgb(255, 0, 0), rgb(255, 0, 0), rgb(255, 0, 0), rgb(255, 0, 0)
get image redimage, 0, 0, 10, 10
delete bitmap 1

`board
type boardtype
   objid
   xpos
   ypos
   piece$
   player
endtype

dim board(3,3) as boardtype

overlap = 1

for x = 1 to 3
   for y = 1 to 3
      board(x,y).objid = freeid()
      make object cube board(x,y).objid, 10 + overlap
      ghost object on board(x,y).objid
      position object board(x,y).objid, x*10 - 20, y*10 - 20, 0
      board(x,y).xpos = x*10 - 20
      board(x,y).ypos = y*10 - 20
   next y
next x
`/board

`pieces
type piecetype
   objoid
   objxid
   type$
endtype

dim piece(3,3) as piecetype

osize = 6
xsize = 8

for x = 1 to 3
   for y = 1 to 3
      `O
      piece(x,y).objoid = freeid()
      make object sphere piece(x,y).objoid, osize
      
      set object ambient piece(x,y).objoid, 0
      exclude object on piece(x,y).objoid
      
      `X
      piece(x,y).objxid = freeid()
      make object box piece(x,y).objxid, xsize, xsize/5, xsize/5
      
      make mesh from object 1, piece(x,y).objxid
      zrotate object piece(x,y).objxid, 135
      
      add limb piece(x,y).objxid, 1, 1
      rotate limb piece(x,y).objxid, 1, 0, 0, 90  
      delete mesh 1
      
      set object ambient piece(x,y).objxid, 0
      exclude object on piece(x,y).objxid
   next y
next x

`/pieces

`camera
position camera 0, 0, -30
point camera 0,0,0
`/camera

`does the computer go first?
global computerfirst = 0

menuplace:
gosub menu

`if the computer gets to go first
if computerfirst = 1
   `place it's first piece in any one of the four corners
   select (rnd(3) + 1)
      case 1
         place_piece(1, 1, "X", 1)
      endcase
      case 2
         place_piece(1, 3, "X", 1)
      endcase
      case 3
         place_piece(3, 1, "X", 1)
      endcase
      case 4
         place_piece(3, 3, "X", 1)
      endcase
   endselect
endif

`records what the human player does
dim playermove(4) as string
global currentplayermove = 0

global placed = 0
global playertype$
global computertype$

if computerfirst = 1
   playertype$ = "O"
   computertype$ = "X"
else
   playertype$ = "X"
   computertype$ = "O"
endif

do
   center text screen width()/2, 30, "Place your " + playertype$
   
   if placed = 0
      gosub selectsquare
   endif
   
   gosub check_for_win
   
   if placed = 1
      gosub computerturn
   endif
   
   gosub check_for_win
   
   if escapekey() = 1
      gosub clearpieces
      goto menuplace
   endif
 
   sync   
loop

function place_piece(x as integer, y as integer, type$, computer)
   if type$ = "O"
      tempid = piece(x,y).objoid
   endif
   if type$ = "X"
      tempid = piece(x,y).objxid
   endif
   
   exclude object off tempid
      
   if computer = 1
      texture object tempid, redimage
      board(x,y).player = 1
   else
      texture object tempid, greenimage
      board(x,y).player = -10
   endif
   
   position object tempid, board(x,y).xpos, board(x,y).ypos, 0
   
   board(x,y).piece$ = type$
endfunction


`this function goes through the objects and finds the first object id that is not used
function freeid() 
   id = 0 
   i = 0 
   repeat
      inc i 
      if object exist(i) = 0 then id = i 
   until id > 0 `go until we find a "empty" i and assign it to id
   lastfreeobject = id
endfunction id

computerturn:
   computerplayed = 0
   
   `first check to see if we can win

   `horizontals
   for y = 1 to 3
      `if we have two on a row
      if (board(1,y).player + board(2,y).player + board(3,y).player) = 2
         for x = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next x
      endif
   next y
   `verticals
   for x = 1 to 3
      `if we have two on a column
      if (board(x,1).player + board(x,2).player + board(x,3).player) = 2
         for y = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next y
      endif
   next x
   `diagonals
   if (board(1,1).player + board(2,2).player + board(3,3).player) = 2
      for i = 1 to 3
         if board(i,i).piece$ = "" and computerplayed = 0
            place_piece(i, i, computertype$, 1)
            computerplayed = 1
         endif
      next i
   endif
   if (board(1,3).player + board(2,2).player + board(3,1).player) = 2
      if board(1,3).piece$ = "" and computerplayed = 0
         place_piece(1, 3, computertype$, 1)
         computerplayed = 1
      endif
      if board(3,1).piece$ = "" and computerplayed = 0
         place_piece(3, 1, computertype$, 1)
         computerplayed = 1
      endif
      if board(2,2).piece$ = "" and computerplayed = 0
         place_piece(2, 2, computertype$, 1)
         computerplayed = 1
      endif
   endif
   
   `if we haven't moved yet, see if we need to block the human player
   `horizontals
   for y = 1 to 3
      if board(1,y).player + board(2,y).player + board(3,y).player = -20
         for x = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next x
      endif
   next y
   `verticals
   for x = 1 to 3
      if board(x,1).player + board(x,2).player + board(x,3).player = -20
         for y = 1 to 3
            if board(x,y).piece$ = "" and computerplayed = 0
               place_piece(x, y, computertype$, 1)
               computerplayed = 1
            endif
         next y
      endif
   next x
   
   `diagonals
   if (board(1,1).player + board(2,2).player + board(3,3).player) = -20
      for i = 1 to 3
         if board(i,i).piece$ = "" and computerplayed = 0
            place_piece(i, i, computertype$, 1)
            computerplayed = 1
         endif
      next i
   endif
   if (board(1,3).player + board(2,2).player + board(3,1).player) = -20
      if board(1,3).piece$ = "" and computerplayed = 0
         place_piece(1, 3, computertype$, 1)
         computerplayed = 1
      endif
      if board(3,1).piece$ = "" and computerplayed = 0
         place_piece(3, 1, computertype$, 1)
         computerplayed = 1
      endif
      if board(2,2).piece$ = "" and computerplayed = 0
         place_piece(2, 2, computertype$, 1)
         computerplayed = 1
      endif
   endif
   
   
   `now if we haven't moved we need to use some strategy
   if computerplayed = 0
      `if the computer is the X
      if computerfirst = 1
         if playermove(0) = "Corner"
            if currentplayermove = 1 or currentplayermove = 2
               `play a open corner square
               if board(1,1).piece$ = ""
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               else
                  if board(1,3).piece$ = ""
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(3,3).piece$ = ""
                        place_piece(3, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(3,1).piece$ = ""
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
               `/play a open corner square
            endif
         endif
         
         if playermove(0) = "Edge"
            if currentplayermove = 1
               `play the center
               place_piece(2, 2, computertype$, 1)
               computerplayed = 1
            endif
            if currentplayermove = 2
               `play a corner not bordered by a human edge piece
               if board(1,1).piece$ = "" and board(1,2).piece$ <> playertype$ and board(2,1).piece$ <> playertype$
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               else
                  if board(3,1).piece$ = "" and board(2,1).piece$ <> playertype$ and board(3,2).piece$ <> playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(3,3).piece$ = "" and board(2,3).piece$ <> playertype$ and board(3,2).piece$ <> playertype$
                        place_piece(3, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(1,3).piece$ = "" and board(1,2).piece$ <> playertype$ and board(2,3).piece$ <> playertype$
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
            endif
         endif
         if playermove(0) = "Center"
            if currentplayermove = 1
               `play the opposite corner from our original play
               if board(1,1).player = 1
                  place_piece(3, 3, computertype$, 1)
                  computerplayed = 1
               endif
               if board(1,3).player = 1
                  place_piece(3, 1, computertype$, 1)
                  computerplayed = 1
               endif
               if board(3,1).player = 1
                  place_piece(1, 3, computertype$, 1)
                  computerplayed = 1
               endif
               if board(3,3).player = 1
                  place_piece(1, 1, computertype$, 1)
                  computerplayed = 1
               endif
            endif      
         endif
         
      endif
  
   
      `if the computer is the O
      if computerfirst = 0
         if playermove(0) <> "Center" `the human player played somewhere besides the center
            if currentplayermove = 1
               `play the center
               if board(2,2).piece$ = ""
                  place_piece(2, 2, computertype$, 1)
                  computerplayed = 1
               endif
               `/play the center
            endif
            
            if currentplayermove = 2
               if (playermove(0) = "Corner" and playermove(1) = "Edge") or (playermove(1) = "Corner" and playermove(0) = "Edge")
                  if board(1,1).piece$ = playertype$
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(1,3).piece$ = playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,1).piece$ = playertype$
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,3).piece$ = playertype$
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endif
               endif
               
               if playermove(0) = "Corner" and playermove(1) = "Corner"
                  select (rnd(3)+1)
                     case 1
                        place_piece(1, 2, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 2
                        place_piece(2, 1, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 3
                        place_piece(3, 2, computertype$, 1)
                        computerplayed = 1
                     endcase
                     case 4
                        place_piece(2, 3, computertype$, 1)
                        computerplayed = 1
                     endcase  
                  endselect
               endif
               
               if playermove(0) = "Edge" and playermove(1) = "Edge"
                  if board(1,1).piece$ = "" and board(2,1).piece$ = playertype$ and board(1,2).piece$ = playertype$
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,1).piece$ = "" and board(2,1).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(3,3).piece$ = "" and board(2,3).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  if board(1,3).piece$ = "" and board(1,2).piece$ = playertype$ and board(2,3).piece$ = playertype$
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endif
                  
                  if board(1,2).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     if rnd(1)
                        place_piece(2, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        place_piece(2, 1, computertype$, 1)
                        computerplayed = 1
                     endif
                  endif
                  if board(2,3).piece$ = playertype$ and board(2,1).piece$ = playertype$
                     if rnd(1)
                        place_piece(1, 2, computertype$, 1)
                        computerplayed = 1
                     else
                        place_piece(3, 2, computertype$, 1)
                        computerplayed = 1
                     endif
                  endif
               endif
            endif
            
            if currentplayermove = 3
               if playermove(0) = "Edge" and playermove(1) = "Edge"
                  if board(1,2).piece$ = playertype$ and board(3,2).piece$ = playertype$
                     if board(2, 3).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                     if board(2, 1).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 1, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
                  if board(2,3).piece$ = playertype$ and board(2,1).piece$ = playertype$
                     if board(1, 2).piece$ = computertype$
                        if rnd(1)
                           place_piece(1, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(1, 1, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                     if board(3, 2).piece$ = computertype$
                        if rnd(1)
                           place_piece(3, 1, computertype$, 1)
                           computerplayed = 1
                        else
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        endif
                     endif
                  endif
               endif
            endif
         else `the human player played to the center
            if currentplayermove = 1
               `play a random corner square
               select (rnd(3) + 1)
                  case 1
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 2
                     place_piece(1, 3, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 3
                     place_piece(3, 1, computertype$, 1)
                     computerplayed = 1
                  endcase
                  case 4
                     place_piece(3, 3, computertype$, 1)
                     computerplayed = 1
                  endcase
               endselect
               `/play a open corner square
            endif
            
            
            if currentplayermove = 2
               if playermove(1) = "Corner"
                  `play a open corner square
                  if board(1,1).piece$ = ""
                     place_piece(1, 1, computertype$, 1)
                     computerplayed = 1
                  else
                     if board(1,3).piece$ = ""
                        place_piece(1, 3, computertype$, 1)
                        computerplayed = 1
                     else
                        if board(3,3).piece$ = ""
                           place_piece(3, 3, computertype$, 1)
                           computerplayed = 1
                        else
                           if board(3,1).piece$ = ""
                              place_piece(3, 1, computertype$, 1)
                              computerplayed = 1
                           endif
                        endif
                     endif
                  endif
                  `/play a open corner square
               endif
            endif
            
         endif
      endif
   endif
   
   `if there is no possible strategy left, just pick a random square man!
   if computerplayed = 0
      found = 0
      repeat
         x = rnd(2) + 1 ` a 1 to 3 range
         y = rnd(2) + 1
         if board(x,y).piece$ = ""
            place_piece(x, y, computertype$, 1)
            computerplayed = 1
            found = 1
         endif
      until found = 1
   endif
 
   `reset this so the player can go again
   placed = 0
return

selectsquare:
   tempid = pick object(mousex(), mousey(), 1, 9)
   
   for i = 1 to 9
      ghost object on i
   next i
   
   if tempid > 0
      if tempid < 4
         x = 1
         y = tempid
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
         
      if tempid > 3 and tempid < 7
         x = 2
         y = tempid - 3
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
      
      if tempid > 6
         x = 3
         y = tempid - 6
         if board(x, y).piece$ = ""
            ghost object off tempid
            if mouseclick() = 1
               place_piece(x, y, playertype$, 0)
               placed = 1
               ghost object on tempid
            endif
         endif
      endif
      
      if placed = 1
         `if computerfirst = 1
            `player is the Os
            `if currentplayermove = 0
               if (x = 1 and y = 1) or (x = 1 and y = 3) or (x = 3 and y = 1) or (x = 3 and y = 3)
                  playermove(currentplayermove) = "Corner"
               endif
               if (x = 1 and y = 2) or (x = 2 and y = 1) or (x = 3 and y = 2) or (x = 2 and y = 3)
                  playermove(currentplayermove) = "Edge"
               endif
               if (x = 2 and y = 2)
                  playermove(currentplayermove) = "Center"
               endif
            `endif
            
         `else
            `player is the Xs
         `endif
         
         inc currentplayermove
      endif
      
   endif
return

check_for_win:
   `horizontals
   for y = 1 to 3
      if board(1, y).piece$ = playertype$ and board(2, y).piece$ = playertype$ and board(3, y).piece$ = playertype$
         humanwin = 1
      endif
      if board(1, y).piece$ = computertype$ and board(2, y).piece$ = computertype$ and board(3, y).piece$ = computertype$
         computerwin = 1
      endif
   next y
   `verticals
   for x = 1 to 3
      if board(x, 1).piece$ = playertype$ and board(x, 2).piece$ = playertype$ and board(x, 3).piece$ = playertype$
         humanwin = 1
      endif
      if board(x, 1).piece$ = computertype$ and board(x, 2).piece$ = computertype$ and board(x, 3).piece$ = computertype$
         computerwin = 1
      endif
   next x
   `diagonals
   if board(1, 1).piece$ = playertype$ and board(2, 2).piece$ = playertype$ and board(3, 3).piece$ = playertype$
      humanwin = 1
   endif
   if board(1, 1).piece$ = computertype$ and board(2, 2).piece$ = computertype$ and board(3, 3).piece$ = computertype$
      computerwin = 1
   endif
   if board(1, 3).piece$ = playertype$ and board(2, 2).piece$ = playertype$ and board(3, 1).piece$ = playertype$
      humanwin = 1
   endif
   if board(1, 3).piece$ = computertype$ and board(2, 2).piece$ = computertype$ and board(3, 1).piece$ = computertype$
      computerwin = 1
   endif
   
   if humanwin = 1
      `the human won!
      `what! impossible! :P
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "You win!"
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
   
   if computerwin = 1
      `the computer won!
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "The computer won!"
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
   
   
   `Check for a tie!
   empty = 0
   for x = 1 to 3
      for y = 1 to 3
         if board(x, y).piece$ = "" then empty = 1   
      next y
   next x
   if empty = 0
      `ze cat got the game
      sync `this sync is nessecary to make the last piece played shown
      center text screen width()/2, screen height()/2, "The cat got the game..."
      sync
      wait key
      gosub clearpieces
      goto menuplace
   endif
return

clearpieces:
   for x = 1 to 3
      for y = 1 to 3
         board(x,y).piece$ = ""
         board(x,y).player = 0
         exclude object on piece(x,y).objoid
         exclude object on piece(x,y).objxid
      next y
   next x
   
   humanwin = 0
   computerwin = 0
return 

menu:
   clear entry buffer
   
   if escapekey() = 1 then escapehold = 1
   do
      cls
      paste image blackimage, 0, 0
      center text screen width()/2, screen height()/2, "Which do you want to play as? X or O? (X goes first)"
      center text screen width()/2, screen height()/2 + 20, entry$()
      
      if right$(entry$(), 1) = "O" or right$(entry$(), 1) = "o"  or right$(entry$(), 1) = "0" 
         computerfirst = 1
         exit
      else
         if right$(entry$(), 1) = "X" or right$(entry$(), 1) = "x"
            computerfirst = 0
            exit
         else
            if right$(entry$(), 1) <> "" and escapekey() = 0
               cls
               paste image blackimage, 0, 0
               center text screen width()/2, screen height()/2, "Please enter either X or O"
               sync
               wait 1000
               clear entry buffer
               paste image blackimage, 0, 0
            endif
         endif
      endif
      
      if escapekey() = 1 and escapehold = 0 then end
      
      if escapekey() = 0 then escapehold = 0
      
      sync
   loop
return

REM Project: TicTacToe
REM Created: 11/13/2006 7:51:11 PM
REM
REM ***** Main Source File *****
REM

set display mode 640,480,32
Hide Mouse
Sync On

REM Horizontal and Vertical Dividers
Vertical = 559/3
Horizontal = 439/3

REM Mark 1 = 'X' and 2 = 'O'
Mark = 1

REM ttt values are 0 by default
dim ttt (3,3)

grow = 0 ; c = 0
Randomize (3)

REM //////// Initial Selection Process ///////////
   while ReturnKey() = 0
      box 60,60,screen width() - 60 ,screen height() - 60
      ink RGB(0,0,75),1
      box 65,65,screen width() - 65, screen height() - 65
      ink RGB(255,255,255),1
      Set Text Size 50
      set cursor 70,70
      ink RGB(200,0,0),1
      print "     Tic Tac Toe"
      ink RGB(255,255,255),1
      set cursor 80,150
      Set Text Size 35
      print "      Select Game Option"
      Set Text Size 50
      set cursor 70,230
      print "  Play Versus Human"
      set cursor 60,300
      Print " Play Versus Computer"
      if c => 0 and grow = 0
         c = c + 10
         if c = 150 Then grow = 1
      endif
      if c <= 200 and grow = 1
         c = c - 10
         if c = 0 Then grow = 0
      endif
      if UpKey() = 1 Then Selection = 0
      if DownKey() = 1 Then Selection = 2
      if Selection = 0
         ink RGB(255,255,100),1
         box 65,230,screen width() - 65,280
         ink RGB(c,c/2,50),1
         box 67,232,screen width() - 67,278
      endif
      if Selection = 2
         ink RGB(255,255,100),1
         box 65,370 - 73,screen width() - 65,426 - 73
         ink RGB(c,c/2,50),1
         box 67,372 - 73,screen width() - 67,424 - 73
      endif
      ink RGB(255,255,255),1

      set cursor 70,230
      print "  Play Versus Human"
      set cursor 60,300
      Print " Play Versus Computer"
      if ReturnKey() = 1
         if Selection = 0
            for i = 1 to 3
               for d = 1 to 3
                  ttt(i,d) = 0
               next d
            next i
            Winner = 0
         endif
      endif
      sync
      cls
   EndWhile

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

do
   REM Draws the Tic Tac Toe Board on the screen
   ink RGB(255,255,255),1
   box 30,30,screen width() - 30,screen height() - 30
   ink RGB(0,0,0),1
   box 40,40,screen width() - 40,screen height() - 40
   ink RGB(255,255,255),1
   box 40,Horizontal*2,screen width() - 40, Horizontal*2 + 10
   box 40,Horizontal,screen width() - 40, Horizontal + 10
   box Vertical + 40,40,Vertical + 50,screen height() - 40
   box Vertical*2 + 40,40,Vertical*2 + 50,screen height() - 40



   REM Draw Mouse Position for the 'O' Mark
   if Mark = 2 and Winner = 0 and selection = 0
      for i = 35 to 45
         Circle MouseX(), MouseY(),i
      next i
   endif

   REM Artifical Intelligence ############### ARTIFICIAL INTELLIGENCE
   if Mark = 2 and Winner = 0 and selection = 2
      if ttt(1,1) = 0 and ttt(1,2) = 0 and ttt(1,3) = 0
         if ttt(2,1) = 0 and ttt(2,2) = 0 and ttt(2,3) = 0
            if ttt(3,1) = 0 and ttt(3,2) = 0 and ttt(3,3) = 0
               x = RND(3) ; y = RND(3)
               if x = 0 Then x = x + 1
               if y = 0 Then y = y + 1
               if Mark = 2 and ttt(x,y) = 0
               ttt(x,y) = 2 ; Mark = 1
               endif
            endif
         endif
      endif
      if ttt(1,1) = 1 and ttt(1,3) = 1 and Mark = 2
         ttt(1,2) = 2 ; Mark = 1
      endif
      if ttt(2,1) = 1 and ttt(2,3) = 1 and Mark = 2
         ttt(2,2) = 2 ; Mark = 1
      endif
      if ttt(3,1) = 1 and ttt(3,3) = 1 and Mark = 2
         ttt(3,2) = 2 ; Mark = 1
      endif
      if ttt(1,1) = 1 and ttt(3,1) = 1 and Mark = 2
         ttt(2,1) = 2 ; Mark = 1
      endif
      if ttt(2,1) = 1 and ttt(3,2) = 1 and Mark = 2
         ttt(2,2) = 2 ; Mark = 1
      endif
      if ttt(3,1) = 1 and ttt(3,3) = 1 and Mark = 2
         ttt(3,2) = 2 ; Mark = 1
      endif
      if ttt(1,1) = 1 and ttt(3,3) = 1 and Mark = 2
         ttt(2,2) = 2 ; Mark = 1
      endif
      if ttt(3,1) = 1 and ttt(1,3) = 1 and Mark = 2
         ttt(2,2) = 2 ; Mark = 1
      endif
      for i = 1 to 3
         for b = 1 to 3
            if Mark = 2 and ttt(i,b) = 0
               ttt(i,b) = 2 ; Mark = 1
            endif
         next b
      next i
      while Mark = 2
         x = RND(3) ; y = RND(3)
         if x = 0 Then x = x + 1
         if y = 0 Then y = y + 1
         if ttt(x,y) = 0 and Mark = 2
            ttt(x,y) = 2 ; Mark = 1
         endif
      endwhile
   endif

   REM Draw Mouse Position for the 'X' mark
   if Mark = 1 and Winner = 0
      for i = 1 to 10
         line MouseX() - 40 - i, MouseY() - 40,MouseX() + 40 - i, MouseY() + 40
         line MouseX() - 40 - i, MouseY() + 40,MouseX() + 40 - i, MouseY() - 40
      next i
   endif

   REM Check where the mouse was clicked and record marking data
   if mouseclick() = 1
      if mouseX() > 40 and mouseY() > 40 and MouseX() < 225 and MouseY() < 145 and ttt(1,1) = 0
         ttt(1,1) = Mark
         REM To make sure the players take turns
         if ttt(1,1) = 1 Then Mark = 2
         if ttt(1,1) = 2 Then Mark = 1
      endif
      if mouseX() > 236 and mouseY() > 40 and MouseX() < 412 and MouseY() < 145 and ttt(1,2) = 0
         ttt(1,2) = Mark
         if ttt(1,2) = 1 Then Mark = 2
         if ttt(1,2) = 2 Then Mark = 1
      endif
      if mouseX() > 424 and mouseY() > 41 and MouseX() < 599 and MouseY() < 145 and ttt(1,3) = 0
         ttt(1,3) = Mark
         if ttt(1,3) = 1 Then Mark = 2
         if ttt(1,3) = 2 Then Mark = 1
      endif
      if mouseX() > 42 and mouseY() > 158 and MouseX() < 224 and MouseY() < 290 and ttt(2,1) = 0
         ttt(2,1) = Mark
         if ttt(2,1) = 1 Then Mark = 2
         if ttt(2,1) = 2 Then Mark = 1
      endif
      if mouseX() > 236 and mouseY() > 156 and mouseX() < 409 and mouseY() < 290 and ttt(2,2) = 0
         ttt(2,2) = Mark
         if ttt(2,2) = 1 Then Mark = 2
         if ttt(2,2) = 2 Then Mark = 1
      endif
      if mouseX() > 424 and mouseY() > 157 and mouseX() < 598 and mouseY() < 289 and ttt(2,3) = 0
         ttt(2,3) = Mark
         if ttt(2,3) = 1 Then Mark = 2
         if ttt(2,3) = 2 Then Mark = 1
      endif
      if mouseX() > 41 and mouseY() > 304 and mouseX() < 223 and mouseY() < 438 and ttt(3,1) = 0
         ttt(3,1) = Mark
         if ttt(3,1) = 1 Then Mark = 2
         if ttt(3,1) = 2 Then Mark = 1
      endif
      if mouseX() > 238 and mouseY() > 303 and mouseX() < 411 and mouseY() < 438 and ttt(3,2) = 0
         ttt(3,2) = Mark
         if ttt(3,2) = 1 Then Mark = 2
         if ttt(3,2) = 2 Then Mark = 1
      endif
      if mouseX() > 422 and mouseY() > 303 and mouseX() < 598 and mouseY() < 438 and ttt(3,3) = 0
         ttt(3,3) = Mark
         if ttt(3,3) = 1 Then Mark = 2
         if ttt(3,3) = 2 Then Mark = 1
      endif
   endif

   REM Draw all recorded marks
      for b = 1 to 3
         for a = 1 to 3
            REM Will Check Cell Blocks to see if an 'X' was marked
            if ttt(b,a) = 1
               for i = 1 to 10
                  if b = 1 and a = 1
                     line 130 - 40 - i, 93 - 40,130 + 40 - i, 93 + 40
                     line 130 - 40 - i, 93 + 40,130 + 40 - i, 93 - 40
                  endif
                  if b = 1 and a = 2
                     line 328 - 40 - i, 93 - 40,328 + 40 - i, 93 + 40
                     line 328 - 40 - i, 93 + 40,328 + 40 - i, 93 - 40
                  endif
                  if b = 1 and a = 3
                     line 517 - 40 - i, 93 - 40,517 + 40 - i, 93 + 40
                     line 517 - 40 - i, 93 + 40,517 + 40 - i, 93 - 40
                  endif
                  if b = 2 and a = 1
                     line 130 - 40 - i, 223 - 40,130 + 40 - i, 223 + 40
                     line 130 - 40 - i, 223 + 40,130 + 40 - i, 223 - 40
                  endif
                  if b = 2 and a = 2
                     line 328 - 40 - i, 223 - 40,328 + 40 - i, 223 + 40
                     line 328 - 40 - i, 223 + 40,328 + 40 - i, 223 - 40
                  endif
                  if b = 2 and a = 3
                     line 517 - 40 - i, 223 - 40,517 + 40 - i, 223 + 40
                     line 517 - 40 - i, 223 + 40,517 + 40 - i, 223 - 40
                  endif
                  if b = 3 and a = 1
                     line 130 - 40 - i, 370 - 40,130 + 40 - i, 370 + 40
                     line 130 - 40 - i, 370 + 40,130 + 40 - i, 370 - 40
                  endif
                  if b = 3 and a = 2
                     line 328 - 40 - i, 370 - 40,328 + 40 - i, 370 + 40
                     line 328 - 40 - i, 370 + 40,328 + 40 - i, 370 - 40
                  endif
                  if b = 3 and a = 3
                     line 517 - 40 - i, 370 - 40,517 + 40 - i, 370 + 40
                     line 517 - 40 - i, 370 + 40,517 + 40 - i, 370 - 40
                  endif

               next i
            endif
         next a
      next b

      for b = 1 to 3
         for a = 1 to 3
            REM Will Check Cell Blocks to see if an 'O' was marked
            if ttt(b,a) = 2
               for i = 35 to 45
                  if b = 1 and a = 1
                     Circle 130,93,i
                  endif
                  if b = 1 and a = 2
                     Circle 328,93,i
                  endif
                  if b = 1 and a = 3
                     Circle 517,93,i
                  endif
                  if b = 2 and a = 1
                     Circle 130,223,i
                  endif
                  if b = 2 and a = 2
                     Circle 328,223,i
                  endif
                  if b = 2 and a = 3
                     Circle 517,223,i
                  endif
                  if b = 3 and a = 1
                     Circle 130,370,i
                  endif
                  if b = 3 and a = 2
                     Circle 328,370,i
                  endif
                  if b = 3 and a = 3
                     Circle 517,370,i
                  endif

               next i
            endif
         next a
      next b
   REM Check To see if Player 1 Won : These are all possible combinations
   if ttt(1,1) = 1 and ttt(1,2) = 1 and ttt(1,3) = 1 Then Winner = 1
   if ttt(2,1) = 1 and ttt(2,2) = 1 and ttt(2,3) = 1 Then Winner = 1
   if ttt(3,1) = 1 and ttt(3,2) = 1 and ttt(3,3) = 1 Then Winner = 1
   if ttt(1,1) = 1 and ttt(2,1) = 1 and ttt(3,1) = 1 Then Winner = 1
   if ttt(1,2) = 1 and ttt(2,2) = 1 and ttt(3,2) = 1 Then Winner = 1
   if ttt(1,3) = 1 and ttt(2,3) = 1 and ttt(3,3) = 1 Then Winner = 1
   if ttt(1,1) = 1 and ttt(2,2) = 1 and ttt(3,3) = 1 Then Winner = 1
   if ttt(1,3) = 1 and ttt(2,2) = 1 and ttt(3,1) = 1 Then Winner = 1

   Rem Check to see if Player 2 Won : These are all possible combinations
   if ttt(1,1) = 2 and ttt(1,2) = 2 and ttt(1,3) = 2 Then Winner = 2
   if ttt(2,1) = 2 and ttt(2,2) = 2 and ttt(2,3) = 2 Then Winner = 2
   if ttt(3,1) = 2 and ttt(3,2) = 2 and ttt(3,3) = 2 Then Winner = 2
   if ttt(1,1) = 2 and ttt(2,1) = 2 and ttt(3,1) = 2 Then Winner = 2
   if ttt(1,2) = 2 and ttt(2,2) = 2 and ttt(3,2) = 2 Then Winner = 2
   if ttt(1,3) = 2 and ttt(2,3) = 2 and ttt(3,3) = 2 Then Winner = 2
   if ttt(1,1) = 2 and ttt(2,2) = 2 and ttt(3,3) = 2 Then Winner = 2
   if ttt(1,3) = 2 and ttt(2,2) = 2 and ttt(3,1) = 2 Then Winner = 2

   REM Display who the winner is
   if ttt(1,1) > 0 and ttt(1,2) > 0 and ttt(1,3) > 0
      if ttt(2,1) > 0 and ttt(2,2) > 0 and ttt(2,3) > 0
         if ttt(3,1) > 0 and ttt(3,2) > 0 and ttt(3,3) > 0
         Tie = 1
      box 60,60,screen width() - 60 ,screen height() - 60
      ink RGB(0,0,75),1
      box 65,65,screen width() - 65, screen height() - 65
      ink RGB(255,255,255),1
      Set Text Size 50
      set cursor 70,70
      ink RGB(200,0,0),1
      print "      Tie Game"
      ink RGB(255,255,255),1
      set cursor 80,150
      Set Text Size 35
      print "      Select Game Option"
      Set Text Size 50
      set cursor 70,230
      print "  Play Versus Human"
      set cursor 60,300
      Print " Play Versus Computer"
         endif
      endif
   endif
   if Winner = 1
      box 60,60,screen width() - 60 ,screen height() - 60
      ink RGB(0,0,75),1
      box 65,65,screen width() - 65, screen height() - 65
      ink RGB(255,255,255),1
      Set Text Size 50
      set cursor 70,70
      ink RGB(200,0,0),1
      print "   PLAYER ONE WINS"
      ink RGB(255,255,255),1
      set cursor 80,150
      Set Text Size 35
      print "      Select Game Option"
      Set Text Size 50
      set cursor 70,230
      print "  Play Versus Human"
      set cursor 60,300
      Print " Play Versus Computer"
   endif
   if Winner = 2
      box 60,60,screen width() - 60 ,screen height() - 60
      ink RGB(0,0,75),1
      box 65,65,screen width() - 65, screen height() - 65
      ink RGB(255,255,255),1
      Set Text Size 50
      set cursor 70,70
      ink RGB(200,0,0),1
      print "   PLAYER TWO WINS"
      ink RGB(255,255,255),1
      set cursor 80,150
      Set Text Size 35
      print "      Select Game Option"
      Set Text Size 50
   endif
   REM Display Selection If there has been a winner
   if Winner = 1 or Winner = 2 or Tie = 1
      if c => 0 and grow = 0
         c = c + 10
         if c = 150 Then grow = 1
      endif
      if c <= 200 and grow = 1
         c = c - 10
         if c = 0 Then grow = 0
      endif
      if UpKey() = 1 Then Selection = 0
      if DownKey() = 1 Then Selection = 2
      if Selection = 0
         ink RGB(255,255,100),1
         box 65,230,screen width() - 65,280
         ink RGB(c,c/2,50),1
         box 67,232,screen width() - 67,278
      endif
      if Selection = 2
         ink RGB(255,255,100),1
         box 65,370 - 73,screen width() - 65,426 - 73
         ink RGB(c,c/2,50),1
         box 67,372 - 73,screen width() - 67,424 - 73
      endif
      ink RGB(255,255,255),1

      set cursor 70,230
      print "  Play Versus Human"
      set cursor 60,300
      Print " Play Versus Computer"
      if ReturnKey() = 1
         if Selection = 0
            for i = 1 to 3
               for d = 1 to 3
                  ttt(i,d) = 0
               next d
            next i
            Winner = 0 ; Tie = 0
         endif
         if Selection = 2
            for i = 1 to 3
               for d = 1 to 3
                  ttt(i,d) = 0
               next d
            next i
            Winner = 0
            Tie = 0
         endif
      endif
   endif
   Sync
   cls
loop

Rem Project: Noughts and Crosses
Rem Created: 12/11/2006 10:25:57

Rem ***** Main Source File *****

set display mode 1024,768,32
color backdrop 0
autocam off
sync on

`constants
global sw#
global sh#
sw#=screen width()
sh#=screen height()
global highestentitynumber
global menuseed
menuseed=1000
global highestmenuentitynumber
segments=3
computerturn=1:chosencomputer=1
playerturn=0::chosenplayer=0
turn=1
level=1

`arrays
global dim square(segments,segments)
global dim gridlinex(segments)
global dim gridliney(segments)
global dim nought(segments,segments)
global dim cross(segments,segments)
global dim crosson(segments,segments)



`setup background and board
make_grid(segments)
make_noughts(segments)
make_crosses(segments)
gosub setup_plasma
gosub make_menu
gosub setup_cursor

ink -1,0
set text size 20
set text to normal


starttime=timer()
do



`timing routine to keep movement constant
time=timer()-starttime
dtperloop#=time-oldtime
inc totaldt#,dtperloop#
oldtime=time

inc loopnumber
if loopnumber=10
  loopnumber=0
  dt#=totaldt#/10.0
  totaldt#=0
endif
`_____________________________________________

`main events

if mousedown=1 and mouseclick()=0 then mousedown=0


sprite cursor,mousex(),mousey(),cursor

if menuoff=0 then gosub menu_select

if menuoff=1
  if playerturn=1 then gosub player
  gosub checkforwinner
  gosub checkfordraw
endif

if menuoff=1
  if computerturn=1 then gosub computer
  gosub checkforwinner
  gosub checkfordraw
endif

gosub update_plasma

sync
loop

`subroutines

make_menu:

  ink -1,0
  set text size 100
  set text font "Arial"
  set text to bold

  `make title
  title=free_menu_entity()
  make_text_button(title,0,0,"TicTacToe")
  sprite title,screen width()/2.0-sprite width(title)/2.0,screen height()/4.0,title
  set sprite alpha title,100

  logo=free_menu_entity()
  make_text_button(logo,sprite x(title)-20,sprite y(title)-20,"X")
  set sprite alpha logo,20
  size sprite logo,300,300


  `make menu buttons:
  easy=free_menu_entity()
  make_text_button(easy,sprite x(title),sprite y(title)+sprite height(title)+20,"Easy")
  size sprite easy,sprite width(easy)/4.0,sprite height(easy)/4.0

  hard=free_menu_entity()
  make_text_button(hard,sprite x(title),sprite y(easy)+sprite height(easy)+5,"Hard")
  set sprite alpha hard,50
  size sprite hard,sprite width(hard)/4.0,sprite height(hard)/4.0

  igofirst=free_menu_entity()
  make_text_button(igofirst,sprite x(title),sprite y(hard)+sprite height(hard)+20,"Computer goes first")
  set sprite alpha igofirst,250
  size sprite igofirst,sprite width(igofirst)/4.0,sprite height(igofirst)/4.0

  yougofirst=free_menu_entity()
  make_text_button(yougofirst,sprite x(title),sprite y(igofirst)+sprite height(igofirst)+5,"Player goes first")
  set sprite alpha yougofirst,50
  size sprite yougofirst,sprite width(yougofirst)/4.0,sprite height(yougofirst)/4.0

  size3x3=free_menu_entity()
  make_text_button(size3x3,sprite x(title),sprite y(yougofirst)+sprite height(yougofirst)+20,"3 in a row")
  set sprite alpha size3x3,250
  size sprite size3x3,sprite width(size3x3)/4.0,sprite height(size3x3)/4.0

  size4x4=free_menu_entity()
  make_text_button(size4x4,sprite x(title),sprite y(size3x3)+sprite height(size3x3)+5,"4 in a row")
  set sprite alpha size4x4,50
  size sprite size4x4,sprite width(size4x4)/4.0,sprite height(size4x4)/4.0

  size5x5=free_menu_entity()
  make_text_button(size5x5,sprite x(title),sprite y(size4x4)+sprite height(size4x4)+5,"5 in a row")
  set sprite alpha size5x5,50
  size sprite size5x5,sprite width(size5x5)/4.0,sprite height(size5x5)/4.0

  play=free_menu_entity()
  make_text_button(play,sprite x(title)+sprite width(title)/2.0,sprite y(size5x5)+sprite height(size5x5)+30,"Play Game")
  sprite play,sprite x(play)-sprite width(play)/4.0,sprite y(play),sprite image(play)
  size sprite play,sprite width(play)/2.0,sprite height(play)/2.0

return

menu_select:


if mouseclick()=1 and sprite collision(cursor,easy)=1
mousedown=1
  set sprite alpha easy,250
  set sprite alpha hard,50
  level=1
endif

if mouseclick()=1 and sprite collision(cursor,hard)=1
mousedown=1
  set sprite alpha easy,50
  set sprite alpha hard,250
  level=2
endif

if mouseclick()=1 and sprite collision(cursor,igofirst)=1
mousedown=1
  set sprite alpha yougofirst,50
  set sprite alpha igofirst,250
  playerturn=0:chosenplayer=0
  computerturn=1:chosencomputer=1

endif

if mouseclick()=1 and sprite collision(cursor,yougofirst)=1
mousedown=1
  set sprite alpha yougofirst,250
  set sprite alpha igofirst,50
  playerturn=1:chosenplayer=1
  computerturn=0:chosencomputer=0
endif

if mouseclick()=1 and sprite collision(cursor,size3x3)=1
mousedown=1
  set sprite alpha size3x3,250
  set sprite alpha size4x4,50
  set sprite alpha size5x5,50
  segments=3
  gosub delete_all
  make_grid(segments)
  make_noughts(segments)
  make_crosses(segments)
endif

if mouseclick()=1 and sprite collision(cursor,size4x4)=1
mousedown=1
  set sprite alpha size3x3,50
  set sprite alpha size4x4,250
  set sprite alpha size5x5,50
  segments=4
  gosub delete_all
  make_grid(segments)
  make_noughts(segments)
  make_crosses(segments)
endif

if mouseclick()=1 and sprite collision(cursor,size5x5)=1
mousedown=1
  set sprite alpha size3x3,50
  set sprite alpha size4x4,50
  set sprite alpha size5x5,250
  segments=5
  gosub delete_all
  make_grid(segments)
  make_noughts(segments)
  make_crosses(segments)
endif


if mouseclick()=1 and sprite collision(cursor,play)=1

  `flag mouse press in order to wait for release
  mousedown=1

  `hide menu items
  for n=menuseed+1 to highestmenuentitynumber
    hide sprite n
  next n

  `show gridlines
  for x=1 to segments-1
    show sprite gridlinex(x)
  next x
  for y=1 to segments-1
    show sprite gridliney(y)
  next y

 menuoff=1

endif



return

delete_all:


for n=1 to highestentitynumber
  if sprite exist(n)=1 then delete sprite n
  if image exist(n)=1 then delete image n
next n


highestentitynumber=0

`resize arrays to hold new amount of segments
undim square(0)
undim gridlinex(0)
undim gridliney(0)
undim nought(0)
undim cross(0)
undim crosson(0)

global dim square(segments,segments)
global dim gridlinex(segments)
global dim gridliney(segments)
global dim nought(segments,segments)
global dim cross(segments,segments)
global dim crosson(segments,segments)


return



function make_text_button(entity,x,y,text$)

  create bitmap 1,text width(text$),text height(text$)
  text 0,0,text$

  blur bitmap 1,4
  get image entity,0,0,text width(text$),text height(text$),1
  alpha(entity,255,255,255)
  delete bitmap 1

  sprite entity,x,y,entity

endfunction

update_plasma:

roll camera right 0.005*dt#
y#=amp#*sin(theta#)
theta#=theta#+0.01*dt#
set matrix height 1,a,b,y#
for x=1+1 to rows-1
for z=1+1 to columns-1
if x<rows
distxp1#=get matrix height(1,x+1,z)-get matrix height (1,x,z)
endif
if x>1
distxm1#=get matrix height(1,x-1,z)-get matrix height (1,x,z)
endif
if z<columns
distzp1#=get matrix height(1,x,z+1)-get matrix height (1,x,z)
endif
if z>1
distzm1#=get matrix height(1,x,z-1)-get matrix height (1,x,z)
endif
vectorsumx#=(distxp1#+distxm1#)
vectorsumz#=(distzp1#+distzm1#)
vectorsum#=vectorsumx#+vectorsumz#
a#=vectorsum#*elasticity#
v#(obnum(x,z))=v#(obnum(x,z))+a#*dt#
if v#(obnum(x,z))>0.01 then v#(obnum(x,z))=0.01
if v#(obnum(x,z))<-0.01 then v#(obnum(x,z))=-0.01
set matrix height 1,x,z,get matrix height(1,x,z)+v#(obnum(x,z))*dt#
if get matrix height(1,x,z)>amp# then set matrix height 1,x,z,amp#
if get matrix height(1,x,z)<-amp# then set matrix height 1,x,z,-amp#
next z
next x
update matrix 1

return

function free_entity()

n=0
repeat
  inc n
until sprite exist(n)=0 and image exist(n)=0 and object exist(n)=0
if n>highestentitynumber then highestentitynumber=n


endfunction n

function free_menu_entity()

n=menuseed
repeat
  inc n
until sprite exist(n)=0 and image exist(n)=0 and object exist(n)=0
if n>highestmenuentitynumber then highestmenuentitynumber=n
endfunction n


function make_noughts(segments)


ink -1,0
set text size 100
set text font "Arial"
set text to bold

text$="O"
create bitmap 1,text width(text$),text height(text$)
text 0,0,text$
nought=free_entity()
blur bitmap 1,5
get image nought,0,0,text width(text$),text height(text$),1
alpha(nought,255,255,255)
delete bitmap 1

for x=1 to segments
  for y=1 to segments
    nought(x,y)=free_entity()
    sprite nought(x,y),sprite x(square(x,y)),sprite y(square(x,y)),nought
    set sprite alpha nought(x,y),40
    set sprite diffuse nought(x,y),0,0,0
    size sprite nought(x,y),sprite width(square(x,y)),sprite height(square(x,y))
    hide sprite nought(x,y)
  next y
next x

endfunction

function make_crosses(segments)


ink -1,0
set text size 100
set text font "Arial"
set text to bold
text$="X"

create bitmap 1,text width(text$),text height(text$)

text 0,0,text$
crosses=free_entity()
blur bitmap 1,5
get image crosses,0,0,text width(text$),text height(text$),1
alpha(crosses,255,255,255)
delete bitmap 1

for x=1 to segments
  for y=1 to segments
    cross(x,y)=free_entity()
    sprite cross(x,y),sprite x(square(x,y)),sprite y(square(x,y)),crosses
    set sprite alpha cross(x,y),40
    set sprite diffuse cross(x,y),0,0,0
    size sprite cross(x,y),sprite width(square(x,y)),sprite height(square(x,y))
    hide sprite cross(x,y)
  next y
next x

endfunction

function make_grid(segments)

create bitmap 1,10,10
  black=free_entity()
  get image black,0,0,1,1
  ink rgb(0,0,255),0
  box 0,0,10,10,rgb(0,0,255),0,rgb(255,255,255),-1
  blue=free_entity()
  get image blue,0,0,10,10,1
  alpha(blue,255,255,255)
delete bitmap 1

gridstartx#=sw#*0.25
gridend#=sw#*0.75
gridwidth#=gridend#-gridstartx#
gridstarty#=sh#/2.0-gridwidth#/2.0
linewidth#=5
squaresize#=(gridwidth#/segments)-(linewidth#*(segments-1))/segments

`squares
for x=1 to segments
  for y=1 to segments
    square(x,y)=free_entity()
    sprite square(x,y),gridstartx#+((squaresize#+linewidth#)*(x-1)),gridstarty#+((squaresize#+linewidth#)*(y-1)),black
    size sprite square(x,y),squaresize#,squaresize#
  next y
next x

`lines

for x=1 to segments-1
  gridlinex(x)=free_entity()
  sprite gridlinex(x),sprite x(square(x,1))+squaresize#,gridstarty#,blue
  set sprite alpha gridlinex(x),40
  size sprite gridlinex(x),linewidth#,gridwidth#
  hide sprite gridlinex(x)
next x

for y=1 to segments-1
  gridliney(y)=free_entity()
  sprite gridliney(y),gridstartx#,sprite y(square(1,y))+squaresize#,blue
  set sprite alpha gridliney(y),40
  size sprite gridliney(y),gridwidth#,linewidth#
  hide sprite gridliney(y)
next y




endfunction


player:



  for x=1 to segments
    for y=1 to segments
      if sprite collision(cursor,square(x,y))>0 and mousedown=0 and mouseclick()>0 and sprite visible(cross(x,y))=0 and sprite visible(nought(x,y))=0
        show sprite nought(x,y)
        `determine whether player played an edge or a corner
        if x=1 and y=segments or x=segments and y=1 or x=1 and y=1 or x=segments and y=segments
          playeredge=0
        else
          playeredge=1
        endif
        playerturn=0
        computerturn=1
        inc turn
      endif
    next y
  next x

return


computer:

`level 1 - (easy), computer moves are random
if level=1
  if squareselected=0
    x=rnd(segments-1)+1
    y=rnd(segments-1)+1

    if sprite visible(cross(x,y))=0 and sprite visible(nought(x,y))=0
      selectedx=x
      selectedy=y
      waitabit=30
      squareselected=1
    endif
  endif

  if waitabit>0
    dec waitabit
  endif
endif


`level 2 (hard) - computer uses some AI
if level=2



  `check ahead one move by testing all possible spaces and giving a rating for each space
  bestrating=0
  rating=0
  bestopprating=0
  blockneeded=0
  for x=1 to segments
    for y=1 to segments
      `test possibilities at x,y

      `check square is free
      if sprite visible(cross(x,y))=0 and sprite visible(nought(x,y))=0

         `give a rating of 1 if the square is available
         rating=1
         `assign this square temporarily as a fail safe, incase a better one isn't found
         tempx=x
         tempy=y

        `create a 'marker' for this squaresquare
        crosson(x,y)=1

        `check for strength of following moves

        `check row
        rowscore=0 `the computers score for this row
        opprowscore=0  `the oppositions score for this row
        void=0
        for checkx=1 to segments
          if crosson(checkx,y)=1 or sprite visible(cross(checkx,y))=1 then inc rowscore
          if sprite visible(nought(checkx,y))=1 then inc opprowscore:void=1
        next checkx
        if void=1 then rowscore=0
        if rowscore>rating then rating=rowscore
        if opprowscore>bestopprating then bestopprating=opprowscore

       `check column
       columnscore=0
       oppcolumnscore=0
       void=0
       for checky=1 to segments
         if crosson(x,checky)=1 or sprite visible(cross(x,checky))=1 then inc columnscore
         if sprite visible(nought(x,checky))=1 then inc oppcolumnscore:void=1 `if a nought exists in this column them the score will be void
       next checky
       if void=1 then columnscore=0
       if columnscore>rating then rating=columnscore
       if oppcolumnscore>bestopprating then bestopprating=oppcolumnscore

       `check diagonals
       `top left to bottom right

       diagonalscore1=0
       oppdiagonalscore1=0
       void=0
    if x=y
       for xy=1 to segments
         if crosson(xy,xy)=1 or sprite visible(cross(xy,xy))=1 then inc diagonalscore1
         if sprite visible(nought(xy,xy))=1 then inc oppdiagonalscore1:void=1
       next xy
       if void=1 then diagonalscore1=0
       if diagonalscore1>rating then rating=diagonalscore1
       if oppdiagonalscore1>bestopprating then bestopprating=oppdiagonalscore1
    endif
       `top right to bottom left
       diagonalscore2=0
       oppdiagonalscore2=0
       void=0
    if x=segments-y+1
       checky=segments
       for checkx=1 to segments
         if crosson(checkx,checky)=1 or sprite visible(cross(checkx,checky))=1 then inc diagonalscore2
         if sprite visible(nought(checkx,checky))=1 then inc oppdiagonalscore2:void=1
         dec checky
       next checkx
       if void=1 then diagonalscore2=0
       if diagonalscore2>rating then rating=diagonalscore2
       if oppdiagonalscore2>bestopprating then bestopprating=oppdiagonalscore2
     endif
       `remove marker
       crosson(x,y)=0


       `check for winning moves
       if rowscore=segments then selectedx=x:selectedy=y:squareselected=1:goto stopchecking
       if columnscore=segments then selectedx=x:selectedy=y:squareselected=1:goto stopchecking
       if diagonalscore1=segments then selectedx=x:selectedy=y:squareselected=1:goto stopchecking
       if diagonalscore2=segments then selectedx=x:selectedy=y:squareselected=1:goto stopchecking

       `check to see if a block is necessary
       if bestopprating=segments-1 then blockneeded=1:bestopprating=0:selectedx=x:selectedy=y:squareselected=1

     if blockneeded=0
       `attack rating:
       `if a move gives advantage in more than one direction then increase the rating by two
       if rowscore>1 and columnscore>1 then inc rating,2
       if rowscore>1 and diagonalscore1>1 then inc rating,2
       if rowscore>1 and diagonalscore2>1 then inc rating,2
       if columnscore>1 and diagonalscore1>1 then inc rating,2
       if columnscore>1 and diagonalscore2>1 then inc rating,2
       if diagonalscore1>1 and diagonalscore2>1 then inc rating,2

       `defensive rating:
       `if a move blocks in more than one direction then increase the rating of this move by one
       if opprowscore>0 and oppcolumnscore>0 then inc rating
       if opprowscore>0 and oppdiagonalscore1>0 then inc rating
       if opprowscore>0 and oppdiagonalscore2>0 then inc rating
       if oppcolumnscore>0 and oppdiagonalscore1>0 then inc rating
       if oppcolumnscore>0 and oppdiagonalscore2>0 then inc rating
       if oppdiagonalscore1>0 and oppdiagonalscore2>0 then inc rating

       `Set Plays **************************************************
       `these are preprogrammed opening strategies, not AI

        `if it is turn two, then anywhere around the edges or corners is not a good move:
        if turn=2
          if x=1 or y=1 or x=segments or y=segments
            rating=0
          endif
        endif

        `if it is turn 3, a corner is best
        if turn=3
          if x=1 and y=segments or x=segments and y=1 or x=1 and y=1 or x=segments and y=segments
            inc rating
          else
              rating=0
          endif
        endif


        `if it is turn 4, an edge is the best response to a corner, and vice versa, unless player has the centre, in which case a corner is better
        if turn=4
          if x=1 and y=segments or x=segments and y=1 or x=1 and y=1 or x=segments and y=segments
            if playeredge=0 and sprite visible(nought(2,2))=0
              rating=0
            else
              inc rating
            endif
          endif
        endif



       `check if the rating for this choice of square is the best choice so far
       if rating>bestrating
         bestrating=rating
         squareselected=1
         selectedx=x
         selectedy=y
       endif
     endif


      endif
    next y
  next x

  `if no good squares are found, use the temporary one assigned at the beginning of this routine
  if squareselected=0
    selectedx=tempx
    selectedy=tempy
    squareselected=1
  endif


endif


stopchecking:

`once a square is selected, show the cross in the square
if squareselected and waitabit=0
  show sprite cross(selectedx,selectedy)
  inc turn
  playerturn=1
  computerturn=0
  squareselected=0
endif


return


checkforwinner:

`check noughts

`check rows
for y=1 to segments
  win=0
  for x=1 to segments
    if sprite visible(nought(x,y))=1 then inc win
  next x
  if win=segments
    gosub noughtswintext
    gosub restart
    goto getout
  endif
next y

`check columns
for x=1 to segments
  win=0
  for y=1 to segments
    if sprite visible(nought(x,y))=1 then inc win
  next x
  if win=segments
    gosub noughtswintext
    gosub restart
    goto getout
  endif
next x

`check diagonals
`top left to bottom right
win=0
for xy=1 to segments
  if sprite visible(nought(xy,xy))=1 then inc win
next xy
if win=segments
  gosub noughtswintext
  gosub restart
  goto getout
endif
`top right to bottom left
y=segments
win=0
for x=1 to segments
  if sprite visible(nought(x,y))=1 then inc win
  dec y
next x
if win=segments
  gosub noughtswintext
  gosub restart
  goto getout
endif

`check crosses

`check rows
for y=1 to segments
  win=0
  for x=1 to segments
    if sprite visible(cross(x,y))=1 then inc win
  next x
  if win=segments
    gosub crosseswintext
    gosub restart
    goto getout
  endif
next y

`check columns
for x=1 to segments
  win=0
  for y=1 to segments
    if sprite visible(cross(x,y))=1 then inc win
  next x
  if win=segments
    gosub crosseswintext
    gosub restart
    goto getout
  endif
next x

`check diagonals
`top left to bottom right
win=0
for xy=1 to segments
  if sprite visible(cross(xy,xy))=1 then inc win
next xy
if win=segments
  gosub crosseswintext
  gosub restart
  goto getout
endif
`top right to bottom left
y=segments
win=0
for x=1 to segments
  if sprite visible(cross(x,y))=1 then inc win
  dec y
next x
if win=segments
  gosub crosseswintext
  gosub restart
  goto getout
endif

getout:


return

crosseswintext:
ink -1,0
set text size 20
set text to normal

  text$="I win!  Press any key."
  text screen width()/2.0-text width(text$)/2.0,screen height()/2.0,text$
  sync
  wait key
return

noughtswintext:
ink -1,0
set text size 20
set text to normal

  text$="You win!  Press any key."
  text screen width()/2.0-text width(text$)/2.0,screen height()/2.0,text$
  sync
  wait key
return

checkfordraw:

if turn>segments*segments
ink -1,0
set text size 20
set text to normal
  text$="Draw.  Press any key."
  text screen width()/2.0-text width(text$)/2.0,screen height()/2.0,text$
  sync
  wait key
  gosub restart
endif

return

restart:

playerturn=chosenplayer
computerturn=chosencomputer
turn=1


for n=1 to highestentitynumber
  if sprite exist(n)=1 then hide sprite n
next n


for n=menuseed to highestmenuentitynumber
if sprite exist(n)
  show sprite n
endif
next n


menuoff=0


return

function alpha(image,red,green,blue)
`this is for converting an image with no alpha layer into a monochrome image with alpha layer created from rgb values.
`image: image number
`red, gree, blue:  the single colour the final image will be
memblock=1
make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
for x=0 to sx-1
   for y=0 to sy-1
      pos=(y*sx+x)*4+12
      b=memblock byte(memblock,pos)
      g=memblock byte(memblock,pos+1)
      r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)
      b=blue
      g=green
      r=red

      if a>255 then a=255
      if a<0 then a=0
      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r
      write memblock byte memblock,pos+3,a
   next y
next x
make image from memblock image,memblock
endfunction

setup_plasma:

amp#=20.0
rows=100
columns=100
elasticity#=0.0002
a=20
b=5

position camera rows/2,50,columns/2
yrotate camera -90
point camera rows/2,0,columns/2

plasma=2000
create bitmap 1,10,10
box 0,0,10,10,rgb(0,255,0),rgb(255,0,0),rgb(0,0,255),rgb(255,255,0)
get image plasma,0,0,10,10
delete bitmap 1

num=rows*columns
dim obnum(rows+1,columns+1)
dim v#(rows,columns)
make matrix 1,rows,columns,rows,columns
for x=1 to rows
for z=1 to columns
obnum(x,z)=ob
ob=ob+1
next z
next x

prepare matrix texture 1,plasma,rows,columns
tile=1
for x=rows-1 to 0 step -1
for z=0 to columns-1
set matrix tile 1,z,x,tile
inc tile
next z
next x

return

setup_cursor:

cursor=10000
create bitmap 1,1,1
get image cursor,0,0,1,1
delete bitmap 1
sprite cursor,0,0,cursor

return