0 D$404mNJN…L04e$аFHuqaY}Юв},…•ЁmЊ,вЊ™mТЪкд^оюж P4"БмўяЭ2ьџџяюЭ4"бўџџя ўџџяюЭ2Tv˜Кмў2Tv˜КмўЉЫмнэюонЬЛšxV4""xVE3"2CDUf‡з """""""""""""""т"""ю""тт"""т"""т""""""""."""."""."""."""."""."""""""""""""тю""т."""""""""""""""т""""""""."""ю"""ю.""ю.""ю.""ю"""""""""""""тю"""""""""""""""т""""""""""""ю"""т.""т.""т"""."""т.""""""""""""т.""т.""т.""т.""тю""""""""""""т.""т.""т.""т.""ю.""т.""""""""""""тю""т.""т.""т.""тю""""""""""""ю.""""""""""""""ю.""т."""""""""""""ю""т.""т.""т.""тю""т.""""""""ю.""""""""""""""ю.""т."""""т"""т""тю""""""""""""""""""""."""."""ю.""""""""""""""""""""""""т.""т.""тю""""""""""""""""""""""""""""ю.""""""""""""""""""""""""""""""""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""""""""""""""""""""""""""""""""""т.""т.""т.""""""""""""""""""""""""""""""""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""""т.""т.""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""""""""""""юю"""""""""""""""т"""т""""""""ю.""т.""т.""т."".""".""""""""""""""ю""т.""т.""т.""тю""т.""""""""ю.""т.""т.""т.""ю.""т."""""""""""""ю""т.""т.""т.""тю""""""""""""ю.""т.""т.""т.""ю.""т."""""""""""""ю""т.""т.""т.""т.""т.""""""""ю.""т.""т.""т.""т.""т.""0sww1s7w3s371s7w3sw71s7w3s371s7www7ws7sw373ss7sww73ss7sw373ss7s```f```ff```````ff""т.""т.""т.""""""""""""""""""""""""""""""""""""""""""""""""""""""т.""т.""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""""""""""""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""""т.""т.""тю""""""""""""""""""""т.""т.""ю"""""""""""""""""""""""3sw71s7w3s371s7w3sww03wwww73ss7sw373ws7sww73ww3`````ffff№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџ№џ№џџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџ№џџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџ№џ№џџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџє !"#$%&123456 F000000000000000000000000000000@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Л`   ` €€ € € € € € €€€ € €€ €` €` ` ` @ @C CC CCC C „ „„ „ „„ „ „ „„ dd d d DE1h:ffffffffffffffffffffffffffffff```f```ff`€ˆ€€ˆf`f``ff`ˆˆˆˆˆ€ˆˆˆ€ˆˆˆˆˆˆ€ff```````ˆˆˆˆˆˆ€ˆ€ˆ```````f`ˆˆˆˆˆˆˆ€ˆ`fffff`€ˆˆˆˆˆ€ˆˆ€ˆˆˆ€ˆ`ˆˆ`````ffffffffffffffffffffffffffffffџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ``џџџџџџџџџџџџџџџџџџџџ`fџџџџџџџџџџџџџџџџџџџџџџ``џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџppwpwwwwwwpwwwwwwpwwwwwpwpwwwwwwwpwpwpwwwpwwwpw8$ -- title: Pig dice -- author: farvardin -- desc: a traditional game ported to TIC-80 (WIP). -- script: lua t=0 x=96 y=27 clic=false -- to detect mouse clic lastclic=false -- to trace previous clic and prevent several clics in a row displayhints=true onwait = 0 -- to detect if a waiting function is on --DICE01={65,66,81,82} --variables diceindex01=1 diceindex02=1 --dicetotal=0 dicesubtotal=0 indexx=16 indexy=8 nbindex={} dicesize = 2 you = {label="You", x=20, y=20, color = 6, dicetotal=0, turn=1, step=0} opponent = {label="Opponent", x=120, y=20, color = 8, dicetotal=0, turn=0, step=0} -- sprites DICE01=65 DICE02=67 DICE03=69 DICE04=71 DICE05=73 DICE06=75 NB01=1 NB02=3 NB03=5 NB04=7 NB05=9 NB06=11 NB07=33 NB08=35 NB09=37 CLOSE=41 HAND=43 BOX=45 BLANK=13 --position (position x, position y, size wide, size height) dice1={x=50,y=55,sw=16*dicesize,sh=16*dicesize} dice2={x=90,y=55,sw=16*dicesize,sh=16*dicesize} cursor={x=0,y=0,sw=4,sh=4} -- flags number01={sprite=NB01, x=indexx+(1-1)*16, y=indexy, sw=16, sh=16, val=1, hint=false, covered=false, selectable=false, validated=false, switched=false} number02={sprite=NB02, x=indexx+(2-1)*16, y=indexy, sw=16, sh=16, val=2, hint=false, covered=false, selectable=false, validated=false, switched=false} number03={sprite=NB03, x=indexx+(3-1)*16, y=indexy, sw=16, sh=16, val=3, hint=false, covered=false, selectable=false, validated=false, switched=false} number04={sprite=NB04, x=indexx+(4-1)*16, y=indexy, sw=16, sh=16, val=4, hint=false, covered=false, selectable=false, validated=false, switched=false} number05={sprite=NB05, x=indexx+(5-1)*16, y=indexy, sw=16, sh=16, val=5, hint=false, covered=false, selectable=false, validated=false, switched=false} number06={sprite=NB06, x=indexx+(6-1)*16, y=indexy, sw=16, sh=16, val=6, hint=false, covered=false, selectable=false, validated=false, switched=false} number07={sprite=NB07, x=indexx+(7-1)*16, y=indexy, sw=16, sh=16, val=7, hint=false, covered=false, selectable=false, validated=false, switched=false} number08={sprite=NB08, x=indexx+(8-1)*16, y=indexy, sw=16, sh=16, val=8, hint=false, covered=false, selectable=false, validated=false, switched=false} number09={sprite=NB09, x=indexx+(9-1)*16, y=indexy, sw=16, sh=16, val=9, hint=false, covered=false, selectable=false, validated=false, switched=false} -- functions function collision(item1, item2) if (item2.x+item2.sw > item1.x+item1.sw and item2.y+item2.sh > item1.y+item1.sh and item2.x < item1.x+item1.sw and item2.y < item1.y+item1.sh) then return true else --cursor.x=item1.x+item1.sw --cursor.y=item1.y+item1.sh return false end end function checknumbers(nb) if (nb==1) then number01.hint=true number01.selectable=true end if (nb==2) then number02.hint=true number02.selectable=true end if (nb==3) then number03.hint=true number03.selectable=true end if (nb==4) then number04.hint=true number04.selectable=true end if (nb==5) then number05.hint=true number05.selectable=true end if (nb==6) then number06.hint=true number06.selectable=true end if (nb==7) then number07.hint=true number07.selectable=true end if (nb==8) then number08.hint=true number08.selectable=true end if (nb==9) then number09.hint=true number09.selectable=true end end function cleanhints() --spr(BLANK,indexx,indexy,-1,1,0,0,2,2) number01.hint=false number02.hint=false number03.hint=false number04.hint=false number05.hint=false number06.hint=false number07.hint=false number08.hint=false number09.hint=false end function cleancover() number01.covered=false number02.covered=false number03.covered=false number04.covered=false number05.covered=false number06.covered=false number07.covered=false number08.covered=false number09.covered=false end function wait(a) t=0 t=t+1 if t 4 then opponent.dicetotal=opponent.dicetotal+dicesubtotal you.turn = 1 you.step = 1 opponent.turn = 0 dicesubtotal = 0 opponent.step = 0 end end -- display dices --spr(roll01,dice1.x,dice1.y,0,dicesize,0,0,2,2) spr(roll02,dice2.x,dice2.y,0,dicesize,0,0,2,2) --spr(DICE02,40,25,0,1,0,0,2,2) --spr(DICE03,55,25,0,2,0,0,2,2) -- spr(1+t%60//30*2,x,y,14,3,0,0,2,2) --print("HELLO ERIC!",84,84) if (onwait==0) then spr(HAND,cursor.x,cursor.y,0,1,1) else spr(0,0,0,0,1,1) end t=t+1 --t=t+1 end function wait(a) t1=time() t2=time() while ((t2-t1)<=a) do onwait=1 t2=time() --trace('t1 '..t1) --trace('t2 '..t2) end --onwait=0 end function ooowait(a) t=t+1 -- wait 1 seconds if t<1*60 then return end end