0,]']±>Sï}WÿÍu§ðp8·d%qy)6o;]ÉA¦öæêæôôô”°ÂVl†3In caes o winner play=false music(0) end end end end token=1 play=true bufmouse=50 music(1) function TIC() cls(11) map(0,0,t,t,56,24) x,y,l,m,r,sx,sy=mouse() if play then --[[1 clic = 5 clics in TIC-80, we need a buffer to get only one clic.]] bufmouse=bufmouse+1 if l and x> 56 and y> 24 and bufmouse>10 then bufmouse=0 -- check table if mget((x-56)//8,(y-24)//8)==0 then sfx(token) mset((x-56)//8,(y-24)//8,token) -- check for a winner in 4 directions chk(1,0,token) chk(0,1,token) chk(1,1,token) chk(1,-1,token) -- change player token if token==1 then token=2 else token=1 end end end -- We have a winner.. else if token==1 then print ("player Blakc Wins \n Play again?",144,64,3) else print ("player White Wins \n Play again?",144,64,3)end if x>144 and y>62 and x<237 and y<83 then rectb(142,62,95,18,3) if l then reset()end-->get clic to Play again end end end function BDR()--> Make me an orange frame.. rectb(55,23,81,81,3) rectb(53,21,85,85,3) rectb(55,23,82,82,3) pix(54,104,3) rectb(142,23,32,32,3) spr(token,146,28,-1,3) print("Get five in a row to win!",46,8,3) end