CP MCSIMAGEFILEñ Calc Random Value (CalRandom)ÿÿÿÿGraph Graph Sheet 2D (Sheet),ä&~ä+,ä0,ä1,ä3,ä4,ä5,(f1-f100),(Modify),(Graph2D)Graph Graph Sheet 3D (Sheet3D),ä2,(z1-z100),(Graph3D)Graph Graph Summary (summary)Graph View Window ä~ä#,äÐ,(ViewWindow)Graph View Window 3D ä~äGraph Factor ä$,ä%Graph Table ä/,ä,,ä-,ä.Graph Conics Eq ä\Graph Sequence äG,äE,äF,äH,äR,äS,äT,äI~äQ,(an-cn+2),(seq_hist),(Sequence)ÿÿÿÿRuncas Ans Memory (ANSMEM)Runcas Main History (HISTRY)Runcas eAct (EAC_TEMP)Runcas Geometry (GEO_TEMP)Runcas Clipboad (CLIP)ÿÿÿÿSetup Setup "system\StupList","system\StupPict","system\StupFLG1",(StupFLG2)ÿÿÿÿSolve Numeric Solve (NumericSolveData)ÿÿÿÿSetup Setup "system\STATSYS","system\LISTSYS"Stat Stat List "system\STATSYS","system\LISTSYS",ä]~äbStat Stat Result äc,äd~äu,(IntrnalCodeS)ÿÿÿÿAstero3D(ôNa3dstartpN LuaSource10>jÁÙÑ--[[------------------------ <> [][][] [][] * Prototype [] [] [] * (ver. 0.8) [][][] [] [] * Programmed by [] [] [] * Kilburn [][][] [][] * --]]------------------------ require("draw") require("table") showgraph() draw.onbuffer() function toRect(r,t) local x,y x=math.cos(math.rad(t))*r y=math.sin(math.rad(t))*r return x,y end --Draw a health bonus function lvcr(X,Y,Z) rr,xc,yc,bb=100/Z,78-(100/Z*(x-X)),105-(100/Z*(y-Y)),100/(Z+8) draw.rect(xc-rr,yc-rr,xc+rr,yc+rr,bb) draw.line(xc-rr*.6,yc-bb/2,xc+rr*.6,yc-bb/2,1,bb) draw.line(xc-bb/2,yc-rr*.6,xc-bb/2,yc+rr*.6,1,bb) end --Draws a bar (indicator) function bar(x,y,m,v) draw.point(x,y+1) draw.point(x+m+2,y+1) draw.line(x+1,y,x+m+1,y) draw.line(x+1,y+2,x+m+1,y+2) draw.line(x,y+1,x+1+v,y+1) end --Removes an item from 'astr' function eliminate(tt) for j=tt+1,n do tbl[j-1]=table.copy(tbl[j]) end n=n-1 return tbl end --Removes an item from 'las' function elimin2(tt) local j for j=tt+1,m do tbl1[j-1]=table.copy(tbl1[j]) end m=m-1 return tbl1 end --Removes an item from 'expl' function elimin3(tt) local k for k=tt+1,o do tbl2[k-1]=table.copy(tbl2[k]) end o=o-1 return tbl2 end --Returns a decimal number between l and u function ran(l,u) return (u-l+1)*math.random()+l end --Mask function mask() for y=-160,218,2 do draw.line(0,y,160,y+160) end end while 1 do require("main/a3dstart") if q then break end beg=nil endg=nil --sp=0.5 ready=50 lkdl,lkf=nil,nil abs=math.abs outmax=outz outf=100/outz score=0 hbc=0 nast=0 dist=0 astr={} las={} expl={} dly=0 x,y,z=0,0,0 ar=1.5 rblk=0 --stp=10 endgame=false lose=false cx,cy,cz,co=0,0,0,nil tgt=true n,m,o=0,0,0 sr=10/stp while not(endgame and n==0 and m==0 and o==0) do dist=dist+sp if ran(0,100)0 then ready=ready-1 draw.text(45,98,"Get Ready",1,12,1) end if co then lvcr(cx,cy,cz) draw.rect(cx*sr+10+135,cy*sr+10,cx*sr+10+137,cy*sr+10+2) cz=cz-1 if cz<=0 then co=nil if cz>x-4 and cxy-4 and cystp or x<-stp or y>stp or y<-stp) and outz>0 and not endgame then draw.text(1,200,"Out:") bar(30,202,100,outz*outf) if math.floor(outz/4)==outz/4 then draw.rect(1,200,156,210,1,2,1) draw.rect(136,1,156,21,1,2,1) end outz=outz-1 if outz==0 and not endgame then liv=0 endgame=true lose=true end elseif not lose then draw.point((x+stp)*sr+136,(y+stp)*sr+1) draw.point((x+stp)*sr+135,(y+stp)*sr+1) draw.point((x+stp)*sr+137,(y+stp)*sr+1) draw.point((x+stp)*sr+136,(y+stp)*sr) draw.point((x+stp)*sr+136,(y+stp)*sr+2) outz=outmax end draw.rect(135,0,157,22,1,0) draw.rect(111,0,133,22,1,0) draw.text(1,1,score) draw.text(30,1,math.floor(dist)) bar(60,1,4*ml,liv*4) bar(60,5,4*mw,4*(mw-m)) draw.circle(78-(100/((maxdst-dist-z))*(x)),105-(100/(maxdst-dist-z)*(y)),100/(maxdst-dist-z)*10,maxdst/(maxdst-(dist/1.2))) if n>0 then tbl=astr for i=1,n do if astr[i][3]<0 then ax,ay=astr[i][1],astr[i][2] if ax>x-ar and axy-ar and ay0 and not lkdl then liv=liv-1 end if liv==0 then endgame=true lose=true end end tbl=eliminate(i) else ast=astr[i] astr[i][3]=astr[i][3]-astr[i][4] if ast[1]>-stp and ast[1]-stp and ast[2]0 then tbl1=las for j=1,m do ls=las[j] lx,ly,lz=ls[1],ls[2],ls[3] draw.circle(78-(100/(ls[3]-z)*(x-ls[1])),105-(100/(ls[3]-z)*(y-ls[2])),lr*100/(ls[3]-z),1,1,0) if lz>100 then tbl1=elimin2(j) else tbl=astr for k=1,n do ax,ay,az=astr[k][1],astr[k][2],astr[k][3] if lxax-lr*ar and lyay-lr*ar and lzaz-2*ar then o=o+1 expl[o]={tbl[k][1],tbl[k][2],tbl[k][3],1} av=astr[k][4] if lr<4 then tbl1=elimin2(j) end tbl=eliminate(k) score=score+math.floor(5*av) nast=nast+1 break end end end las[j][3]=las[j][3]+1.5 if las[j][4] then if las[j][7] then ra=las[j][7] las[j][7]=las[j][7]-0.2 else ra=3 end las[j][4]=las[j][4]+12 if las[j][4]==360 then las[j][4]=0 end las[j][1],las[j][2]=toRect(ra,las[j][4]) las[j][1],las[j][2]=las[j][1]+las[j][5],las[j][2]+las[j][6] end end end if o>0 then tbl2=expl for k=1,o do ex=expl[k] draw.circle(78-(100/(ex[3]-z)*(x-ex[1])),105-(100/(ex[3]-z)*(y-ex[2])),100/(ex[3]-z)*ex[4],ex[4]/((ex[3]/10)+1)) if ex[4]>10 then tbl2=elimin3(k) end expl[k][4]=expl[k][4]+1 end end if tgt then draw.circle(78,105,10) draw.line(78+2,105,78+15,105) draw.line(78-2,105,78-15,105) draw.line(78,105+2,78,105+15) draw.line(78,105-2,78,105-15) end --astr=tbl if testkey(46) then tgt=not tgt end if testkey(K_LEFT) then x=x-sp elseif testkey(K_RIGHT) then x=x+sp end if testkey(K_UP) then y=y-sp elseif testkey(K_DOWN) then y=y+sp end if testkey(K_PLUS) then z=z-2*sp elseif testkey(K_MINUS) then z=z+2*sp end if (testkey(K_EXE) or testkey(K_EQUAL)) and dly==0 and m0 and m1 then las[m-1][4]=180 las[m-1][5]=x las[m-1][6]=y las[m][4]=0 las[m][5]=x las[m][6]=y end if trp>2 then las[m-1][7]=10+lr las[m][7]=10+lr end if trp>3 and m<=mw-2 then m=m+2 las[m-1]={x,y-3,0,90,x,y,10+lr} las[m]={x,y+3,0,270,x,y,10+lr} end if trp>4 and m<=mw-1 then m=m+1 las[m-5]={x,y,0} las[m-4]={x,y,0,0,x,y,10+lr} las[m-3]={x,y,0,72,x,y,10+lr} las[m-2]={x,y,0,144,x,y,10+lr} las[m-1]={x,y,0,216,x,y,10+lr} las[m]={x,y-3,0,288,x,y,10+lr} end end end if rblk>0 then draw.rect(0,0,160,215,1,1,1) rblk=rblk-1 end if dly>0 then dly=dly-1 end draw.update() if testkey(K_0) then mask() draw.rect(11,25,143,103,3,1,0) draw.line(12,26,141,26,0) draw.line(12,26,12,101,0) draw.text(15,30,"Abandon game?") draw.text(15,45,"EXE:Yes") draw.text(15,60,"Other Key:No") draw.update() repeat kk=getkey() until kk if kk==K_EXE then endg=1 break end end if dist>maxdst then endgame=true end end if not endg then mask() draw.rect(11,25,143,103,3,1,0) draw.line(12,26,141,26,0) draw.line(12,26,12,101,0) draw.rect(11,113,143,128,3,1,0) draw.line(12,114,12,126,0) draw.line(12,114,141,114,0) draw.text(15,30,"Score:"..score) draw.text(15,45,"Lives:"..liv) draw.text(15,60,"Destroyed asteroids:"..nast) draw.text(15,75,"Health bonuses caught:"..hbc) draw.text(15,90,"Total:"..score+liv*20+hbc*20) draw.text(15,116,"Press EXE to quit") draw.update() waitkey(K_EXE) end endour LuaSource10>jÁÙMrequire("draw") require("string") --require("a3dscrt") showgraph() draw.onbuffer() my={90,100,110,120,130,140,150,160,170} dstm,livs,msp,outm,aprob,hprob,tpl,lray,mspd,maxl,maxw,aga=800,4,8,60,80,1,0,1,.5,6,6,10 cod="" wp={"Standard","Triple Gun","Circle Gun <3>","Spiral Gun <3>","Spiral Gun <5>","Spiral Gun <6>"} pt={"Small","Medium","Large","Apocalypse"} function callscrt(weap,ptp,ml,mw,aga,spd) while 1 do repeat draw.clear() draw.text(2,20,"Cheat Menu",1,25,1) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(15,90,"Return") draw.text(15,100,"Weapon:"..wp[weap+1]) draw.text(15,110,"Plasma Type:"..pt[ptp]) draw.text(15,120,"Max. Lives:"..ml) draw.text(15,130,"Max. Weapon:"..mw) draw.text(15,140,"AGA Size:"..aga) draw.text(15,150,"Move Speed:"..spd) --draw.text(66,160,"Slowdown key:"..slw) --draw.text(67,170,"?") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat l=getkey() until l~=nil k=l if k==K_LEFT and i==2 then if weap>0 then weap=weap-1 else weap=5 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if weap<5 then weap=weap+1 else weap=0 end end if k==K_LEFT and i==3 then if ptp>1 then ptp=ptp-1 else ptp=4 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if ptp<4 then ptp=ptp+1 else ptp=1 end end if k==K_LEFT and i==4 then if ml>4 then ml=ml-1 else ml=10 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if ml<10 then ml=ml+1 else ml=4 end end if k==K_LEFT and i==5 then if mw>6 then mw=mw-1 else mw=10 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if mw<10 then mw=mw+1 else mw=6 end end if k==K_LEFT and i==6 then if aga>10 then aga=aga-5 else aprob=40 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aga<40 then aga=aga+5 else aga=10 end end if k==K_LEFT and i==7 then if spd>.5 then spd=spd-.5 else spd=2 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if spd<2 then spd=spd+.5 else spd=.5 end end if k==K_UP then if i>1 then i=i-1 else i=7 end end if k==K_DOWN then if i<7 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then return weap,ptp,ml,mw,aga,spd end end end function main() i=1 while 1 do val=0 repeat draw.clear() draw.text(13,20,"Asteroids",1,25) draw.text(14,20,"Asteroids",1,25) draw.text(13,21,"Asteroids",1,25) draw.text(15,20,"Asteroids",1,25) draw.text(13,22,"Asteroids",1,25) draw.text(14,22,"Asteroids",1,25) draw.text(15,21,"Asteroids",1,25) draw.text(15,22,"Asteroids",1,25) draw.text(53,42,"3D",1,35) draw.text(54,42,"3D",1,35) draw.text(53,43,"3D",1,35) draw.text(55,42,"3D",1,35) draw.text(53,44,"3D",1,35) draw.text(54,44,"3D",1,35) draw.text(55,43,"3D",1,35) draw.text(55,44,"3D",1,35) draw.text(55,45,"3D",1,35) draw.text(56,44,"3D",1,35) draw.text(56,45,"3D",1,35) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(65,90,"Play") draw.text(45,100,"Distance:"..dstm) draw.text(58,110,"Lives:"..livs) draw.text(45,120,"Max. Speed:"..msp) draw.text(33,130,"OoAGA Duration:"..outm) draw.text(33,140,"Asteroid Prob:"..aprob.."%") draw.text(43,150,"Health Prob:"..hprob.."%") draw.text(66,160,"Help") draw.text(67,170,"Quit") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat k=getkey() until k~=nil if k<255 and k~=K_EXE then cod=cod..i..string.char(k) end if k==K_LEFT and i==2 then if dstm>100 then dstm=dstm-100 else dstm=5000 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if dstm<5000 then dstm=dstm+100 else dstm=100 end end if k==K_LEFT and i==3 then if livs>1 then livs=livs-1 else livs=6 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if livs<6 then livs=livs+1 else livs=1 end end if k==K_LEFT and i==4 then if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}and i==2 then if dstm>100 then dstm=dstm-100 else dstm=5000 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if dstm<5000 then dstm=dstm+100 else dstm=100 end end if k==K_LEFT and i==3 then if livs>1 then livs=livs-1 else livs=6 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if livs<6 then livs=livs+1 else livs=1 end end if k==K_LEFT and i==4 then if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}pt("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}axl,mw=maxw,stp=aga,sp=mspd}axl,mw=maxw,stp=aga,sp=mspd}12,1) lkdl=1 end end draw.rect(136,1,156,21) draw.rect(112,1,132,21) draw.line(112,19,132,19) if co then if abs(x-cx)<=stp and abs(y-cy)<=stp then draw.line(122,11,122+(cx-x)*sr,11+(cy-y)*sr) draw.rect(121+(cx-x)*sr,10+(cy-y)*sr,123+(cx-x)*sr,12+(cy-y)*sr) end draw.line(112,20,112+cz*20/100,20) end if (x>stp or x<-stp or y>stp or y<-stp) and outz>0 and not endgame then draw.text(1,200,"Out:") bar(30,202,100,outz*outf) if math.floor(outz/4)==outz/4 then draw.rect(1,200,156,210,1,2,1) draw.rect(136,1,156,21,1,2,1) end outz=outz-1 if outz==0 and not endgame then liv=0 endgame=true lose=true end elseif not lose then draw.point((x+stp)*sr+136,(y+stp)*sr+1) draw.point((x+stp)*sr+135,(y+stp)*sr+1) draw.point((x+stp)*sr+137,(y+stp)*sr+1) draw.point((x+stp)*sr+136,(y+stp)*sr) draw.point((x+stp)*sr+136,(y+stp)*sr+2) outz=outmax end draw.rect(135,0,157,22,1,0) draw.rect(111,0,133,22,1,0) draw.text(1,1,score) draw.text(30,1,math.floor(dist)) bar(60,1,4*ml,liv*4) bar(60,5,4*mw,4*(mw-m)) draw.circle(78-(100/((maxdst-dist-z))*(x)),105-(100/(maxdst-dist-z)*(y)),100/(maxdst-dist-z)*10,maxdst/(maxdst-(dist/1.2))) if n>0 then tbl=astr for i=1,n do if astr[i][3]<0 then ax,ay=astr[i][1],astr[i][2] if ax>x-ar and axy-ar and ay0 and not lkdl then liv=liv-1 end if liv==0 then endgame=true lose=true end end tbl=eliminate(i) else ast=astr[i] astr[i][3]=astr[i][3]-astr[i][4] if ast[1]>-stp and ast[1]-stp and ast[2]0 then tbl1=las for j=1,m do ls=las[j] lx,ly,lz=ls[1],ls[2],ls[3] draw.circle(78-(100/(ls[3]-z)*(x-ls[1])),105-(100/(ls[3]-z)*(y-ls[2])),lr*100/(ls[3]-z),1,1,0) if lz>100 then tbl1=elimin2(j) else tbl=astr for k=1,n do ax,ay,az=astr[k][1],astr[k][2],astr[k][3] if lxax-lr*ar and lyay-lr*ar and lzaz-2*ar then o=o+1 expl[o]={tbl[k][1],tbl[k][2],tbl[k][3],1} av=astr[k][4] if lr<4 then tbl1=elimin2(j) end tbl=eliminate(k) score=score+math.floor(5*av) nast=nast+1 break end end end las[j][3]=las[j][3]+1.5 if las[j][4] then if las[j][7] then ra=las[j][7] las[j][7]=las[j][7]-0.2 else ra=3 end las[j][4]=las[j][4]+12 if las[j][4]==360 then las[j][4]=0 end las[j][1],las[j][2]=toRect(ra,las[j][4]) las[j][1],las[j][2]=las[j][1]+las[j][5],las[j][2]+las[j][6] end end end if o>0 then tbl2=expl for k=1,o do ex=expl[k] draw.circle(78-(100/(ex[3]-z)*(x-ex[1])),105-(100/(ex[3]-z)*(y-ex[2])),100/(ex[3]-z)*ex[4],ex[4]/((ex[3]/10)+1)) if ex[4]>10 then tbl2=elimin3(k) end expl[k][4]=expl[k][4]+1 end end if tgt then draw.circle(78,105,10) draw.line(78+2,105,78+15,105) draw.line(78-2,105,78-15,105) draw.line(78,105+2,78,105+15) draw.line(78,105-2,78,105-15) end --astr=tbl if testkey(46) then tgt=not tgt end if testkey(K_LEFT) then x=x-sp elseif testkey(K_RIGHT) then x=x+sp end if testkey(K_UP) then y=y-sp elseif testkey(K_DOWN) then y=y+sp end if testkey(K_PLUS) then z=z-2*sp elseif testkey(K_MINUS) then z=z+2*sp end if (testkey(K_EXE) or testkey(K_EQUAL)) and dly==0 and m0 and m1 then las[m-1][4]=180 las[m-1][5]=x las[m-1][6]=y las[m][4]=0 las[m][5]=x las[m][6]=y end if trp>2 then las[m-1][7]=10+lr las[m][7]=10+lr end if trp>3 and m<=mw-2 then m=m+2 las[m-1]={x,y-3,0,90,x,y,10+lr} las[m]={x,y+3,0,270,x,y,10+lr} end if trp>4 and m<=mw-1 then m=m+1 las[m-5]={x,y,0} las[m-4]={x,y,0,0,x,y,10+lr} las[m-3]={x,y,0,72,x,y,10+lr} las[m-2]={x,y,0,144,x,y,10+lr} las[m-1]={x,y,0,216,x,y,10+lr} las[m]={x,y-3,0,288,x,y,10+lr} end end end if rblk>0 then draw.rect(0,0,160,215,1,1,1) rblk=rblk-1 end if dly>0 then dly=dly-1 end draw.update() if testkey(K_0) then mask() draw.rect(11,25,143,103,3,1,0) draw.line(12,26,141,26,0) draw.line(12,26,12,101,0) draw.text(15,30,"Abandon game?") draw.text(15,45,"EXE:Yes") draw.text(15,60,"Other Key:No") draw.update() repeat kk=getkey() until kk if kk==K_EXE then endg=1 break end end if dist>maxdst then endgame=true end end if not endg then mask() draw.rect(11,25,143,103,3,1,0) draw.line(12,26,141,26,0) draw.line(12,26,12,101,0) draw.rect(11,113,143,128,3,1,0) draw.line(12,114,12,126,0) draw.line(12,114,141,114,0) draw.text(15,30,"Score:"..score) draw.text(15,45,"Lives:"..liv) draw.text(15,60,"Destroyed asteroids:"..nast) draw.text(15,75,"Health bonuses caught:"..hbc) draw.text(15,90,"Total:"..score+liv*20+hbc*20) draw.text(15,116,"Press EXE to quit") draw.update() waitkey(K_EXE) end endour LuaSource10>jÁÙMrequire("draw") require("string") --require("a3dscrt") showgraph() draw.onbuffer() my={90,100,110,120,130,140,150,160,170} dstm,livs,msp,outm,aprob,hprob,tpl,lray,mspd,maxl,maxw,aga=800,4,8,60,80,1,0,1,.5,6,6,10 cod="" wp={"Standard","Triple Gun","Circle Gun <3>","Spiral Gun <3>","Spiral Gun <5>","Spiral Gun <6>"} pt={"Small","Medium","Large","Apocalypse"} function callscrt(weap,ptp,ml,mw,aga,spd) while 1 do repeat draw.clear() draw.text(2,20,"Cheat Menu",1,25,1) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(15,90,"Return") draw.text(15,100,"Weapon:"..wp[weap+1]) draw.text(15,110,"Plasma Type:"..pt[ptp]) draw.text(15,120,"Max. Lives:"..ml) draw.text(15,130,"Max. Weapon:"..mw) draw.text(15,140,"AGA Size:"..aga) draw.text(15,150,"Move Speed:"..spd) --draw.text(66,160,"Slowdown key:"..slw) --draw.text(67,170,"?") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat l=getkey() until l~=nil k=l if k==K_LEFT and i==2 then if weap>0 then weap=weap-1 else weap=5 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if weap<5 then weap=weap+1 else weap=0 end end if k==K_LEFT and i==3 then if ptp>1 then ptp=ptp-1 else ptp=4 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if ptp<4 then ptp=ptp+1 else ptp=1 end end if k==K_LEFT and i==4 then if ml>4 then ml=ml-1 else ml=10 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if ml<10 then ml=ml+1 else ml=4 end end if k==K_LEFT and i==5 then if mw>6 then mw=mw-1 else mw=10 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if mw<10 then mw=mw+1 else mw=6 end end if k==K_LEFT and i==6 then if aga>10 then aga=aga-5 else aprob=40 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aga<40 then aga=aga+5 else aga=10 end end if k==K_LEFT and i==7 then if spd>.5 then spd=spd-.5 else spd=2 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if spd<2 then spd=spd+.5 else spd=.5 end end if k==K_UP then if i>1 then i=i-1 else i=7 end end if k==K_DOWN then if i<7 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then return weap,ptp,ml,mw,aga,spd end end end function main() i=1 while 1 do val=0 repeat draw.clear() draw.text(13,20,"Asteroids",1,25) draw.text(14,20,"Asteroids",1,25) draw.text(13,21,"Asteroids",1,25) draw.text(15,20,"Asteroids",1,25) draw.text(13,22,"Asteroids",1,25) draw.text(14,22,"Asteroids",1,25) draw.text(15,21,"Asteroids",1,25) draw.text(15,22,"Asteroids",1,25) draw.text(53,42,"3D",1,35) draw.text(54,42,"3D",1,35) draw.text(53,43,"3D",1,35) draw.text(55,42,"3D",1,35) draw.text(53,44,"3D",1,35) draw.text(54,44,"3D",1,35) draw.text(55,43,"3D",1,35) draw.text(55,44,"3D",1,35) draw.text(55,45,"3D",1,35) draw.text(56,44,"3D",1,35) draw.text(56,45,"3D",1,35) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(65,90,"Play") draw.text(45,100,"Distance:"..dstm) draw.text(58,110,"Lives:"..livs) draw.text(45,120,"Max. Speed:"..msp) draw.text(33,130,"OoAGA Duration:"..outm) draw.text(33,140,"Asteroid Prob:"..aprob.."%") draw.text(43,150,"Health Prob:"..hprob.."%") draw.text(66,160,"Help") draw.text(67,170,"Quit") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat k=getkey() until k~=nil if k<255 and k~=K_EXE then cod=cod..i..string.char(k) end if k==K_LEFT and i==2 then if dstm>100 then dstm=dstm-100 else dstm=5000 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if dstm<5000 then dstm=dstm+100 else dstm=100 end end if k==K_LEFT and i==3 then if livs>1 then livs=livs-1 else livs=6 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if livs<6 then livs=livs+1 else livs=1 end end if k==K_LEFT and i==4 then if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}t,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}rob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}axw,stp=aga,sp=mspd}te() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}K_EXE) and i==3 then if ptp<4 then ptp=ptp+1 else ptp=1 end end if k==K_LEFT and i==4 then if ml>4 then ml=ml-1 else ml=10 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if ml<10 then ml=ml+1 else ml=4 end end if k==K_LEFT and i==5 then if mw>6 then mw=mw-1 else mw=10 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if mw<10 then mw=mw+1 else mw=6 end end if k==K_LEFT and i==6 then if aga>10 then aga=aga-5 else aprob=40 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aga<40 then aga=aga+5 else aga=10 end end if k==K_LEFT and i==7 then if spd>.5 then spd=spd-.5 else spd=2 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if spd<2 then spd=spd+.5 else spd=.5 end end if k==K_UP then if i>1 then i=i-1 else i=7 end end if k==K_DOWN then if i<7 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then return weap,ptp,ml,mw,aga,spd end end end function main() i=1 while 1 do val=0 repeat draw.clear() draw.text(13,20,"Asteroids",1,25) draw.text(14,20,"Asteroids",1,25) draw.text(13,21,"Asteroids",1,25) draw.text(15,20,"Asteroids",1,25) draw.text(13,22,"Asteroids",1,25) draw.text(14,22,"Asteroids",1,25) draw.text(15,21,"Asteroids",1,25) draw.text(15,22,"Asteroids",1,25) draw.text(53,42,"3D",1,35) draw.text(54,42,"3D",1,35) draw.text(53,43,"3D",1,35) draw.text(55,42,"3D",1,35) draw.text(53,44,"3D",1,35) draw.text(54,44,"3D",1,35) draw.text(55,43,"3D",1,35) draw.text(55,44,"3D",1,35) draw.text(55,45,"3D",1,35) draw.text(56,44,"3D",1,35) draw.text(56,45,"3D",1,35) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(65,90,"Play") draw.text(45,100,"Distance:"..dstm) draw.text(58,110,"Lives:"..livs) draw.text(45,120,"Max. Speed:"..msp) draw.text(33,130,"OoAGA Duration:"..outm) draw.text(33,140,"Asteroid Prob:"..aprob.."%") draw.text(43,150,"Health Prob:"..hprob.."%") draw.text(66,160,"Help") draw.text(67,170,"Quit") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat k=getkey() until k~=nil if k<255 and k~=K_EXE then cod=cod..i..string.char(k) end if k==K_LEFT and i==2 then if dstm>100 then dstm=dstm-100 else dstm=5000 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if dstm<5000 then dstm=dstm+100 else dstm=100 end end if k==K_LEFT and i==3 then if livs>1 then livs=livs-1 else livs=6 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if livs<6 then livs=livs+1 else livs=1 end end if k==K_LEFT and i==4 then if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}d end if (k==K_RIGHT or k==K_EXE) and i==5 then if mw<10 then mw=mw+1 else mw=6 end end if k==K_LEFT and i==6 then if aga>10 then aga=aga-5 else aprob=40 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aga<40 then aga=aga+5 else aga=10 end end if k==K_LEFT and i==7 then if spd>.5 then spd=spd-.5 else spd=2 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if spd<2 then spd=spd+.5 else spd=.5 end end if k==K_UP then if i>1 then i=i-1 else i=7 end end if k==K_DOWN then if i<7 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then return weap,ptp,ml,mw,aga,spd end end end function main() i=1 while 1 do val=0 repeat draw.clear() draw.text(13,20,"Asteroids",1,25) draw.text(14,20,"Asteroids",1,25) draw.text(13,21,"Asteroids",1,25) draw.text(15,20,"Asteroids",1,25) draw.text(13,22,"Asteroids",1,25) draw.text(14,22,"Asteroids",1,25) draw.text(15,21,"Asteroids",1,25) draw.text(15,22,"Asteroids",1,25) draw.text(53,42,"3D",1,35) draw.text(54,42,"3D",1,35) draw.text(53,43,"3D",1,35) draw.text(55,42,"3D",1,35) draw.text(53,44,"3D",1,35) draw.text(54,44,"3D",1,35) draw.text(55,43,"3D",1,35) draw.text(55,44,"3D",1,35) draw.text(55,45,"3D",1,35) draw.text(56,44,"3D",1,35) draw.text(56,45,"3D",1,35) draw.rect(10,87,146,182,3,1,0) draw.line(11,88,145,88,0) draw.line(11,88,11,181,0) draw.text(65,90,"Play") draw.text(45,100,"Distance:"..dstm) draw.text(58,110,"Lives:"..livs) draw.text(45,120,"Max. Speed:"..msp) draw.text(33,130,"OoAGA Duration:"..outm) draw.text(33,140,"Asteroid Prob:"..aprob.."%") draw.text(43,150,"Health Prob:"..hprob.."%") draw.text(66,160,"Help") draw.text(67,170,"Quit") draw.rect(13,my[i],143,my[i]+9,1,2,1) draw.update() repeat k=getkey() until k~=nil if k<255 and k~=K_EXE then cod=cod..i..string.char(k) end if k==K_LEFT and i==2 then if dstm>100 then dstm=dstm-100 else dstm=5000 end end if (k==K_RIGHT or k==K_EXE) and i==2 then if dstm<5000 then dstm=dstm+100 else dstm=100 end end if k==K_LEFT and i==3 then if livs>1 then livs=livs-1 else livs=6 end end if (k==K_RIGHT or k==K_EXE) and i==3 then if livs<6 then livs=livs+1 else livs=1 end end if k==K_LEFT and i==4 then if msp>1 then msp=msp-1 else msp=16 end end if (k==K_RIGHT or k==K_EXE) and i==4 then if msp<16 then msp=msp+1 else msp=1 end end if k==K_LEFT and i==5 then if outm>10 then outm=outm-10 else outm=100 end end if (k==K_RIGHT or k==K_EXE) and i==5 then if outm<100 then outm=outm+10 else outm=10 end end if k==K_LEFT and i==6 then if aprob>1 then aprob=aprob-1 else aprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==6 then if aprob<100 then aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd}stp=aga,sp=mspd}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l2l3l4l5l6l7l8l9l0e,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0n aprob=aprob+1 else aprob=1 end end if k==K_LEFT and i==7 then if hprob>1 then hprob=hprob-1 else hprob=100 end end if (k==K_RIGHT or k==K_EXE) and i==7 then if hprob<100 then hprob=hprob+1 else hprob=1 end end if k==K_UP then if i>1 then i=i-1 else i=9 end end if k==K_DOWN then if i<9 then i=i+1 else i=1 end end until testkey(K_EXE) if i==1 then if cod=="2c3p4-536070" then tpl,lray,maxl,maxw,aga,mspd=callscrt(tpl,lray,maxl,maxw,aga,mspd) else draw.clear() draw.text(1,1,"Now loading...") draw.update() return nil end cod="" elseif i==8 then doscript("main/a3dhelp") elseif i==9 then return true end end end qt=main() export{q=qt,maxdst=dstm,liv=livs,vt=msp,outz=outm,apr=aprob,hpr=hprob,trp=tpl,lr=lray,ml=maxl,mw=maxw,stp=aga,sp=mspd} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l00,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l00}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0hen c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0d c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l01] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0rre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0}l1l2l3l4l5l6l7l8l9l01,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l00,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l0l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l8l9l0ce,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0suit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l0urn full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0int(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0el(x,y) draw.pixel(x+1,y) draw.pixel(x,y+1) draw.pixel(x+1,y+1) draw.update() xo,yo=x,y end x1,x2=xb-tol,xb+tol y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) vx0,vy0,x0,y0=(xs-xb)*5,(ys-yb)*5,xb,yb until vx0^2+vy0^2<8 nx=nx+1 ex[nx]={xb,yb} enden LuaSource10>jÁÙ require("draw") function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} y0=int(100*rand()) draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 y0=y0+(4*rand()-2) draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end x,y=1,2 repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.update() xo,yo=x,y end draw.pixel(x,y,0) x1,x2=xb-6,xb+6 y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l03,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0n sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0eif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l0eif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l01³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0r c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0lseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l0 end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l02) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0e=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00}l1l2l3l4l5l6l7l8l9l0 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l01,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0mbin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l03,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l0 return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0n draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0rt{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l7l8l9l0 (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0t(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ce,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0rt{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l7l8l9l0 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00}l1l2l3l4l5l6l7l8l9l0Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0l2l3l4l5l6l7l8l9l00,0,0}l1l2l3l4l5l6l7l8l9l0rt{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0}l1l2l3l4l5l6l7l8l9l00}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l3l4l5l6l7l8l9l0ur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l00}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l00{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0l3l4l5l6l7l8l9l0x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0int(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l3l4l5l6l7l8l9l0l1l2l3l4l5l6l7l8l9l0l4l5l6l7l8l9l0f v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l6l7l8l9l0l6l7l8l9l0l6l7l8l9l0l7l8l9l0l6l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l0l5l6l7l8l9l00,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l1l2l3l4l5l6l7l8l9l00}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0l2l3l4l5l6l7l8l9l0,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l01³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0ÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ Êrequire("draw") --mtr=1 vs=2 s=0 dm=5 chg=6 am=6 ax=6 lat=8 ct=0 crx,cry=0,0 lc=100 lcs=100 r=2 if mtr then am,ax=100,100 lat=0 r=1 end if dm>10 then error("Pas plus de 10 ennemis") elseif dm<2 then error("Au moins 2 ennemis") end function rand(l,u) return math.floor((u-l+1)*math.random()+l) end function ransgn() if math.random()<.5 then return 1*rand(1,3) else return -1*rand(1,3) end end function ammo(x,y,z) draw.rect(x-4,y-4,x+4,y+4,1,z) draw.line(x-2,y-2,x-2,y+2,z) draw.line(x,y-2,x,y+2,z) draw.line(x+2,y-2,x+2,y+2,z) end function bullet(x) if mtr then draw.line(x,211,x,202) else draw.line(x-2,211,x-2,203) draw.line(x-1,211,x-1,202) draw.line(x,211,x,202) draw.line(x+1,211,x+1,202) draw.line(x+2,211,x+2,203) end end function bonom(x,y,z) draw.line(x,y,x,y-3,z) draw.line(x-1,y+1,x+1,y+1,z) draw.line(x-2,y+2,x+2,y+2,z) draw.line(x-2,y+2,x-2,y+5,z) draw.line(x+2,y+2,x+2,y+5,z) draw.line(x-1,y-1,x+1,y-1,z) draw.line(x-3,y-2,x+3,y-2,z) draw.line(x-1,y-4,x+1,y-4,z) draw.line(x-2,y-5,x+2,y-5,z) draw.line(x-2,y-7,x+2,y-7,z) draw.line(x-1,y-8,x+1,y-8,z) draw.pixel(x-2,y-6,z) draw.pixel(x,y-6,z) draw.pixel(x+2,y-6,z) end function viseur(x,y,z) draw.line(x-8,y,x+8,y,z) draw.line(x,y-8,x,y+8,z) draw.circle(x,y,6,1,z) end showgraph() draw.onbuffer() dd=210/(dm+1) bx={rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153)} by={dd,dd*2,dd*3,dd*4,dd*5,dd*6,dd*7,dd*8,dd*9,dd*10} bc={40,40,40,40,40,40,40,40,40,40} bd={ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn()} x,y=78,110 repeat draw.rect(0,202,156,215,0,0,0) for i=1,am do if mtr then bullet(2*i-1) else bullet(7*i-3) end end draw.text(45,202,"x"..chg) draw.text(110,202,s) if crx>0 then ammo(crx,cry,0) cry=cry+2 ammo(crx,cry,1) if cry>210 then crx=0 end end for i=1,dm do if bc[i]==40 then bonom(bx[i],by[i],0) bx[i]=bx[i]+bd[i] if bx[i]<3 or bx[i]>153 or math.random()<0.05 then bd[i]=-bd[i] end bonom(bx[i],by[i],1) else bc[i]=bc[i]-1 if bc[i]==0 then bc[i]=40 bx[i]=rand(3,153) end end end viseur(x,y,0) if testkey(K_LEFT) and x>1 then x=x-vs elseif testkey(K_RIGHT) and x<156 then x=x+vs end if testkey(K_UP) and y>1 then y=y-vs elseif testkey(K_DOWN) and y<211 then y=y+vs end if testkey(K_EQUAL) and ct==0 and am>0 then am=am-1 ct=lat draw.circle(x,y,r,1,0,0) if x>crx-5 and xcry-5 and y0 then ammo(crx,cry,0) crx=0 chg=chg+1 end for i=1,dm do a,b=bx[i],by[i] if x>a-2 and xb-8 and bc[i]==40 then s=s+10*math.abs(bd[i]) bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ --[[------------------------ <> Version 1.0 CPLua 0.71 or higher Programmed by Kilburn --]]------------------------ require("draw") fullscreen() ss,l,z=0,0,0 lvup=0 lm=2 showgraph() draw.onbuffer() function ply(i,j) if lvup>0 then draw.text(50,100,"Level Up",1,10,1) lvup=lvup-1 end draw.text(1,214,"L:"..l) draw.text(50,214,"Z:"..z) draw.text(120,214,ss) draw.line(0,213,160,213) draw.line(0,225,160,225) draw.line(3+10*(i-1),1+10*j,3+10*i,1+10*j) draw.line(3+10*(i-1),1+10*j,8+10*(i-1),1+10*(j-1)) draw.line(3+10*i,1+10*j,8+10*(i-1),1+10*(j-1)) end function crt(x,y,z) draw.rect(3+10*(x-1),1+10*(y-1),3+10*x,1+10*y) if z==2 then draw.text(5+10*(x-1),2+10*(y-1),"L") elseif z==3 then draw.text(5+10*(x-1),2+10*(y-1),"Z") end end function ran(l,u) return math.floor((u-l+1)*math.random())+l end m={} for a=1,21 do n={} for b=1,14 do n[b]=0 end m[a]=n end p=7 mm=1 int=math.floor mx=5 repeat if mx>0 then mx=mx-0.002 end mm=mm+0.002 if int(mm)==lm then lvup,lm=15,lm+1 end draw.clear() for y=21,1,-1 do for x=1,15 do if m[y][x] and m[y][x]~=0 then if m[y][x]==1 then draw.circle(8+10*(x-1),6+10*(y-1),5,1,1,1) else crt(x,y,m[y][x]) end if y~=21 then m[y+1][x]=m[y][x] elseif m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end end ply(p,21) if ran(0,70)==0 then r=ran(1,16) m[1][r]=2 elseif ran(0,200)==0 then r=ran(1,16) m[1][r]=3 end if ran(0,int(mx))==0 then for l=1,int(mm) do repeat r=ran(1,16) until m[1][r]==0 m[1][r]=1 end end draw.update() if m[21][p]==2 then l=l+1 end if m[21][p]==3 then z=z+1 end if testkey(K_EQUAL) and l>0 then l=l-1 draw.line(10*(p-1)+8,1,10*(p-1)+8,201,2,3) for i=1,21 do if m[i][p]==1 then ss=ss+15 end m[i][p]=0 end draw.update() elseif testkey(8) and z>0 then z=z-1 draw.rect(0,0,160,212,1,1,1) for x=1,15 do for y=1,21 do if m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end draw.update() end if testkey(K_LEFT) and p>1 then p=p-1 elseif testkey(K_RIGHT) and p<15 then p=p+1 end until m[21][p]==1 print("You lose!\nLevel:"..int(mm).."\nScore:"..ss)he LuaSource10>jÁÙ Ârequire("draw") tol=3 function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end function drawland() for i=1,149 do draw.line(2+i,152,2+i,152-tbl[i]) end for i=1,nx do draw.circle(ex[i][1],ex[i][2],10,0,0,0) end draw.rect(2,2,152,152,2) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} ex={} nx=0 y0=int(100*rand()) ro=0 sgn=function(x) if x>0 then return 1 elseif x<0 then return -1 end return 0 end abs=math.abs draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 r=6*rand()-3 if r*ro<0 or abs(r-ro)>2 then r=r-sgn(r)*2*rand() end y0=y0+r ro=r draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end while 1 do x,y=1,2 draw.clear() drawland() repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do draw.clear() drawland() t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.pixel(x+1,y) draw.pixel(x,y+1) draw.pixel(x+1,y+1) draw.update() xo,yo=x,y end x1,x2=xb-tol,xb+tol y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) vx0,vy0,x0,y0=(xs-xb)*5,(ys-yb)*5,xb,yb until vx0^2+vy0^2<8 nx=nx+1 ex[nx]={xb,yb} enden LuaSource10>jÁÙ require("draw") function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} y0=int(100*rand()) draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 y0=y0+(4*rand()-2) draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end x,y=1,2 repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.update() xo,yo=x,y end draw.pixel(x,y,0) x1,x2=xb-6,xb+6 y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0 draw.pixel(x+1,y+1) draw.update() xo,yo=x,y end x1,x2=xb-tol,xb+tol y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) vx0,vy0,x0,y0=(xs-xb)*5,(ys-yb)*5,xb,yb until vx0^2+vy0^2<8 nx=nx+1 ex[nx]={xb,yb} enden LuaSource10>jÁÙ require("draw") function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} y0=int(100*rand()) draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 y0=y0+(4*rand()-2) draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end x,y=1,2 repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.update() xo,yo=x,y end draw.pixel(x,y,0) x1,x2=xb-6,xb+6 y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l08,dd*9,dd*10} bc={40,40,40,40,40,40,40,40,40,40} bd={ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn()} x,y=78,110 repeat draw.rect(0,202,156,215,0,0,0) for i=1,am do if mtr then bullet(2*i-1) else bullet(7*i-3) end end draw.text(45,202,"x"..chg) draw.text(110,202,s) if crx>0 then ammo(crx,cry,0) cry=cry+2 ammo(crx,cry,1) if cry>210 then crx=0 end end for i=1,dm do if bc[i]==40 then bonom(bx[i],by[i],0) bx[i]=bx[i]+bd[i] if bx[i]<3 or bx[i]>153 or math.random()<0.05 then bd[i]=-bd[i] end bonom(bx[i],by[i],1) else bc[i]=bc[i]-1 if bc[i]==0 then bc[i]=40 bx[i]=rand(3,153) end end end viseur(x,y,0) if testkey(K_LEFT) and x>1 then x=x-vs elseif testkey(K_RIGHT) and x<156 then x=x+vs end if testkey(K_UP) and y>1 then y=y-vs elseif testkey(K_DOWN) and y<211 then y=y+vs end if testkey(K_EQUAL) and ct==0 and am>0 then am=am-1 ct=lat draw.circle(x,y,r,1,0,0) if x>crx-5 and xcry-5 and y0 then ammo(crx,cry,0) crx=0 chg=chg+1 end for i=1,dm do a,b=bx[i],by[i] if x>a-2 and xb-8 and bc[i]==40 then s=s+10*math.abs(bd[i]) bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ Êrequire("draw") --mtr=1 vs=2 s=0 dm=5 chg=6 am=6 ax=6 lat=8 ct=0 crx,cry=0,0 lc=100 lcs=100 r=2 if mtr then am,ax=100,100 lat=0 r=1 end if dm>10 then error("Pas plus de 10 ennemis") elseif dm<2 then error("Au moins 2 ennemis") end function rand(l,u) return math.floor((u-l+1)*math.random()+l) end function ransgn() if math.random()<.5 then return 1*rand(1,3) else return -1*rand(1,3) end end function ammo(x,y,z) draw.rect(x-4,y-4,x+4,y+4,1,z) draw.line(x-2,y-2,x-2,y+2,z) draw.line(x,y-2,x,y+2,z) draw.line(x+2,y-2,x+2,y+2,z) end function bullet(x) if mtr then draw.line(x,211,x,202) else draw.line(x-2,211,x-2,203) draw.line(x-1,211,x-1,202) draw.line(x,211,x,202) draw.line(x+1,211,x+1,202) draw.line(x+2,211,x+2,203) end end function bonom(x,y,z) draw.line(x,y,x,y-3,z) draw.line(x-1,y+1,x+1,y+1,z) draw.line(x-2,y+2,x+2,y+2,z) draw.line(x-2,y+2,x-2,y+5,z) draw.line(x+2,y+2,x+2,y+5,z) draw.line(x-1,y-1,x+1,y-1,z) draw.line(x-3,y-2,x+3,y-2,z) draw.line(x-1,y-4,x+1,y-4,z) draw.line(x-2,y-5,x+2,y-5,z) draw.line(x-2,y-7,x+2,y-7,z) draw.line(x-1,y-8,x+1,y-8,z) draw.pixel(x-2,y-6,z) draw.pixel(x,y-6,z) draw.pixel(x+2,y-6,z) end function viseur(x,y,z) draw.line(x-8,y,x+8,y,z) draw.line(x,y-8,x,y+8,z) draw.circle(x,y,6,1,z) end showgraph() draw.onbuffer() dd=210/(dm+1) bx={rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153)} by={dd,dd*2,dd*3,dd*4,dd*5,dd*6,dd*7,dd*8,dd*9,dd*10} bc={40,40,40,40,40,40,40,40,40,40} bd={ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn()} x,y=78,110 repeat draw.rect(0,202,156,215,0,0,0) for i=1,am do if mtr then bullet(2*i-1) else bullet(7*i-3) end end draw.text(45,202,"x"..chg) draw.text(110,202,s) if crx>0 then ammo(crx,cry,0) cry=cry+2 ammo(crx,cry,1) if cry>210 then crx=0 end end for i=1,dm do if bc[i]==40 then bonom(bx[i],by[i],0) bx[i]=bx[i]+bd[i] if bx[i]<3 or bx[i]>153 or math.random()<0.05 then bd[i]=-bd[i] end bonom(bx[i],by[i],1) else bc[i]=bc[i]-1 if bc[i]==0 then bc[i]=40 bx[i]=rand(3,153) end end end viseur(x,y,0) if testkey(K_LEFT) and x>1 then x=x-vs elseif testkey(K_RIGHT) and x<156 then x=x+vs end if testkey(K_UP) and y>1 then y=y-vs elseif testkey(K_DOWN) and y<211 then y=y+vs end if testkey(K_EQUAL) and ct==0 and am>0 then am=am-1 ct=lat draw.circle(x,y,r,1,0,0) if x>crx-5 and xcry-5 and y0 then ammo(crx,cry,0) crx=0 chg=chg+1 end for i=1,dm do a,b=bx[i],by[i] if x>a-2 and xb-8 and bc[i]==40 then s=s+10*math.abs(bd[i]) bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ --[[------------------------ <> Version 1.0 CPLua 0.71 or higher Programmed by Kilburn --]]------------------------ require("draw") fullscreen() ss,l,z=0,0,0 lvup=0 lm=2 showgraph() draw.onbuffer() function ply(i,j) if lvup>0 then draw.text(50,100,"Level Up",1,10,1) lvup=lvup-1 end draw.text(1,214,"L:"..l) draw.text(50,214,"Z:"..z) draw.text(120,214,ss) draw.line(0,213,160,213) draw.line(0,225,160,225) draw.line(3+10*(i-1),1+10*j,3+10*i,1+10*j) draw.line(3+10*(i-1),1+10*j,8+10*(i-1),1+10*(j-1)) draw.line(3+10*i,1+10*j,8+10*(i-1),1+10*(j-1)) end function crt(x,y,z) draw.rect(3+10*(x-1),1+10*(y-1),3+10*x,1+10*y) if z==2 then draw.text(5+10*(x-1),2+10*(y-1),"L") elseif z==3 then draw.text(5+10*(x-1),2+10*(y-1),"Z") end end function ran(l,u) return math.floor((u-l+1)*math.random())+l end m={} for a=1,21 do n={} for b=1,14 do n[b]=0 end m[a]=n end p=7 mm=1 int=math.floor mx=5 repeat if mx>0 then mx=mx-0.002 end mm=mm+0.002 if int(mm)==lm then lvup,lm=15,lm+1 end draw.clear() for y=21,1,-1 do for x=1,15 do if m[y][x] and m[y][x]~=0 then if m[y][x]==1 then draw.circle(8+10*(x-1),6+10*(y-1),5,1,1,1) else crt(x,y,m[y][x]) end if y~=21 then m[y+1][x]=m[y][x] elseif m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end end ply(p,21) if ran(0,70)==0 then r=ran(1,16) m[1][r]=2 elseif ran(0,200)==0 then r=ran(1,16) m[1][r]=3 end if ran(0,int(mx))==0 then for l=1,int(mm) do repeat r=ran(1,16) until m[1][r]==0 m[1][r]=1 end end draw.update() if m[21][p]==2 then l=l+1 end if m[21][p]==3 then z=z+1 end if testkey(K_EQUAL) and l>0 then l=l-1 draw.line(10*(p-1)+8,1,10*(p-1)+8,201,2,3) for i=1,21 do if m[i][p]==1 then ss=ss+15 end m[i][p]=0 end draw.update() elseif testkey(8) and z>0 then z=z-1 draw.rect(0,0,160,212,1,1,1) for x=1,15 do for y=1,21 do if m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end draw.update() end if testkey(K_LEFT) and p>1 then p=p-1 elseif testkey(K_RIGHT) and p<15 then p=p+1 end until m[21][p]==1 print("You lose!\nLevel:"..int(mm).."\nScore:"..ss)he LuaSource10>jÁÙ Ârequire("draw") tol=3 function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end function drawland() for i=1,149 do draw.line(2+i,152,2+i,152-tbl[i]) end for i=1,nx do draw.circle(ex[i][1],ex[i][2],10,0,0,0) end draw.rect(2,2,152,152,2) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} ex={} nx=0 y0=int(100*rand()) ro=0 sgn=function(x) if x>0 then return 1 elseif x<0 then return -1 end return 0 end abs=math.abs draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 r=6*rand()-3 if r*ro<0 or abs(r-ro)>2 then r=r-sgn(r)*2*rand() end y0=y0+r ro=r draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end while 1 do x,y=1,2 draw.clear() drawland() repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do draw.clear() drawland() t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.pixel(x+1,y) draw.pixel(x,y+1) draw.pixel(x+1,y+1) draw.update() xo,yo=x,y end x1,x2=xb-tol,xb+tol y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) vx0,vy0,x0,y0=(xs-xb)*5,(ys-yb)*5,xb,yb until vx0^2+vy0^2<8 nx=nx+1 ex[nx]={xb,yb} enden LuaSource10>jÁÙ require("draw") function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} y0=int(100*rand()) draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 y0=y0+(4*rand()-2) draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end x,y=1,2 repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.update() xo,yo=x,y end draw.pixel(x,y,0) x1,x2=xb-6,xb+6 y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0turn d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l08,dd*9,dd*10} bc={40,40,40,40,40,40,40,40,40,40} bd={ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn()} x,y=78,110 repeat draw.rect(0,202,156,215,0,0,0) for i=1,am do if mtr then bullet(2*i-1) else bullet(7*i-3) end end draw.text(45,202,"x"..chg) draw.text(110,202,s) if crx>0 then ammo(crx,cry,0) cry=cry+2 ammo(crx,cry,1) if cry>210 then crx=0 end end for i=1,dm do if bc[i]==40 then bonom(bx[i],by[i],0) bx[i]=bx[i]+bd[i] if bx[i]<3 or bx[i]>153 or math.random()<0.05 then bd[i]=-bd[i] end bonom(bx[i],by[i],1) else bc[i]=bc[i]-1 if bc[i]==0 then bc[i]=40 bx[i]=rand(3,153) end end end viseur(x,y,0) if testkey(K_LEFT) and x>1 then x=x-vs elseif testkey(K_RIGHT) and x<156 then x=x+vs end if testkey(K_UP) and y>1 then y=y-vs elseif testkey(K_DOWN) and y<211 then y=y+vs end if testkey(K_EQUAL) and ct==0 and am>0 then am=am-1 ct=lat draw.circle(x,y,r,1,0,0) if x>crx-5 and xcry-5 and y0 then ammo(crx,cry,0) crx=0 chg=chg+1 end for i=1,dm do a,b=bx[i],by[i] if x>a-2 and xb-8 and bc[i]==40 then s=s+10*math.abs(bd[i]) bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ Êrequire("draw") --mtr=1 vs=2 s=0 dm=5 chg=6 am=6 ax=6 lat=8 ct=0 crx,cry=0,0 lc=100 lcs=100 r=2 if mtr then am,ax=100,100 lat=0 r=1 end if dm>10 then error("Pas plus de 10 ennemis") elseif dm<2 then error("Au moins 2 ennemis") end function rand(l,u) return math.floor((u-l+1)*math.random()+l) end function ransgn() if math.random()<.5 then return 1*rand(1,3) else return -1*rand(1,3) end end function ammo(x,y,z) draw.rect(x-4,y-4,x+4,y+4,1,z) draw.line(x-2,y-2,x-2,y+2,z) draw.line(x,y-2,x,y+2,z) draw.line(x+2,y-2,x+2,y+2,z) end function bullet(x) if mtr then draw.line(x,211,x,202) else draw.line(x-2,211,x-2,203) draw.line(x-1,211,x-1,202) draw.line(x,211,x,202) draw.line(x+1,211,x+1,202) draw.line(x+2,211,x+2,203) end end function bonom(x,y,z) draw.line(x,y,x,y-3,z) draw.line(x-1,y+1,x+1,y+1,z) draw.line(x-2,y+2,x+2,y+2,z) draw.line(x-2,y+2,x-2,y+5,z) draw.line(x+2,y+2,x+2,y+5,z) draw.line(x-1,y-1,x+1,y-1,z) draw.line(x-3,y-2,x+3,y-2,z) draw.line(x-1,y-4,x+1,y-4,z) draw.line(x-2,y-5,x+2,y-5,z) draw.line(x-2,y-7,x+2,y-7,z) draw.line(x-1,y-8,x+1,y-8,z) draw.pixel(x-2,y-6,z) draw.pixel(x,y-6,z) draw.pixel(x+2,y-6,z) end function viseur(x,y,z) draw.line(x-8,y,x+8,y,z) draw.line(x,y-8,x,y+8,z) draw.circle(x,y,6,1,z) end showgraph() draw.onbuffer() dd=210/(dm+1) bx={rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153),rand(3,153)} by={dd,dd*2,dd*3,dd*4,dd*5,dd*6,dd*7,dd*8,dd*9,dd*10} bc={40,40,40,40,40,40,40,40,40,40} bd={ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn(),ransgn()} x,y=78,110 repeat draw.rect(0,202,156,215,0,0,0) for i=1,am do if mtr then bullet(2*i-1) else bullet(7*i-3) end end draw.text(45,202,"x"..chg) draw.text(110,202,s) if crx>0 then ammo(crx,cry,0) cry=cry+2 ammo(crx,cry,1) if cry>210 then crx=0 end end for i=1,dm do if bc[i]==40 then bonom(bx[i],by[i],0) bx[i]=bx[i]+bd[i] if bx[i]<3 or bx[i]>153 or math.random()<0.05 then bd[i]=-bd[i] end bonom(bx[i],by[i],1) else bc[i]=bc[i]-1 if bc[i]==0 then bc[i]=40 bx[i]=rand(3,153) end end end viseur(x,y,0) if testkey(K_LEFT) and x>1 then x=x-vs elseif testkey(K_RIGHT) and x<156 then x=x+vs end if testkey(K_UP) and y>1 then y=y-vs elseif testkey(K_DOWN) and y<211 then y=y+vs end if testkey(K_EQUAL) and ct==0 and am>0 then am=am-1 ct=lat draw.circle(x,y,r,1,0,0) if x>crx-5 and xcry-5 and y0 then ammo(crx,cry,0) crx=0 chg=chg+1 end for i=1,dm do a,b=bx[i],by[i] if x>a-2 and xb-8 and bc[i]==40 then s=s+10*math.abs(bd[i]) bc[i]=bc[i]-1 elseif x>a-3 and xb-8 and bc[i]==40 then s=s+5*math.abs(bd[i]) bc[i]=bc[i]-1 end end end if testkey(8) and am==0 then chg=chg-1 am=ax end viseur(x,y,1) draw.update() if ct>0 then ct=ct-1 end if s>=lc then lcs=lcs+20 lc=lc+lcs crx=rand(3,153) cry=5 end until chg<=0 and am==0 print("Score:"..s) LuaSource10>jÁÙ --[[------------------------ <> Version 1.0 CPLua 0.71 or higher Programmed by Kilburn --]]------------------------ require("draw") fullscreen() ss,l,z=0,0,0 lvup=0 lm=2 showgraph() draw.onbuffer() function ply(i,j) if lvup>0 then draw.text(50,100,"Level Up",1,10,1) lvup=lvup-1 end draw.text(1,214,"L:"..l) draw.text(50,214,"Z:"..z) draw.text(120,214,ss) draw.line(0,213,160,213) draw.line(0,225,160,225) draw.line(3+10*(i-1),1+10*j,3+10*i,1+10*j) draw.line(3+10*(i-1),1+10*j,8+10*(i-1),1+10*(j-1)) draw.line(3+10*i,1+10*j,8+10*(i-1),1+10*(j-1)) end function crt(x,y,z) draw.rect(3+10*(x-1),1+10*(y-1),3+10*x,1+10*y) if z==2 then draw.text(5+10*(x-1),2+10*(y-1),"L") elseif z==3 then draw.text(5+10*(x-1),2+10*(y-1),"Z") end end function ran(l,u) return math.floor((u-l+1)*math.random())+l end m={} for a=1,21 do n={} for b=1,14 do n[b]=0 end m[a]=n end p=7 mm=1 int=math.floor mx=5 repeat if mx>0 then mx=mx-0.002 end mm=mm+0.002 if int(mm)==lm then lvup,lm=15,lm+1 end draw.clear() for y=21,1,-1 do for x=1,15 do if m[y][x] and m[y][x]~=0 then if m[y][x]==1 then draw.circle(8+10*(x-1),6+10*(y-1),5,1,1,1) else crt(x,y,m[y][x]) end if y~=21 then m[y+1][x]=m[y][x] elseif m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end end ply(p,21) if ran(0,70)==0 then r=ran(1,16) m[1][r]=2 elseif ran(0,200)==0 then r=ran(1,16) m[1][r]=3 end if ran(0,int(mx))==0 then for l=1,int(mm) do repeat r=ran(1,16) until m[1][r]==0 m[1][r]=1 end end draw.update() if m[21][p]==2 then l=l+1 end if m[21][p]==3 then z=z+1 end if testkey(K_EQUAL) and l>0 then l=l-1 draw.line(10*(p-1)+8,1,10*(p-1)+8,201,2,3) for i=1,21 do if m[i][p]==1 then ss=ss+15 end m[i][p]=0 end draw.update() elseif testkey(8) and z>0 then z=z-1 draw.rect(0,0,160,212,1,1,1) for x=1,15 do for y=1,21 do if m[y][x]==1 then ss=ss+10 end m[y][x]=0 end end draw.update() end if testkey(K_LEFT) and p>1 then p=p-1 elseif testkey(K_RIGHT) and p<15 then p=p+1 end until m[21][p]==1 print("You lose!\nLevel:"..int(mm).."\nScore:"..ss)he LuaSource10>jÁÙ Ârequire("draw") tol=3 function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end function drawland() for i=1,149 do draw.line(2+i,152,2+i,152-tbl[i]) end for i=1,nx do draw.circle(ex[i][1],ex[i][2],10,0,0,0) end draw.rect(2,2,152,152,2) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} ex={} nx=0 y0=int(100*rand()) ro=0 sgn=function(x) if x>0 then return 1 elseif x<0 then return -1 end return 0 end abs=math.abs draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 r=6*rand()-3 if r*ro<0 or abs(r-ro)>2 then r=r-sgn(r)*2*rand() end y0=y0+r ro=r draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end while 1 do x,y=1,2 draw.clear() drawland() repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do draw.clear() drawland() t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.pixel(x+1,y) draw.pixel(x,y+1) draw.pixel(x+1,y+1) draw.update() xo,yo=x,y end x1,x2=xb-tol,xb+tol y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) vx0,vy0,x0,y0=(xs-xb)*5,(ys-yb)*5,xb,yb until vx0^2+vy0^2<8 nx=nx+1 ex[nx]={xb,yb} enden LuaSource10>jÁÙ require("draw") function sym(x,y,x0,y0,c) local m,p,p2,sx,sy if c~="Inf" then m=-1/c else sx=x+2*(x0-x) sy=y return sx,sy end p=y-x*m p2=y0-x0*c sx=-(p-p2)/(m-c) sy=m*sx+p return x+2*(sx-x),y+2*(sy-y) end showgraph() draw.onbuffer() rand=math.random int=math.floor tbl={} y0=int(100*rand()) draw.rect(2,2,152,152,2) for i=1,149 do tbl[i]=y0 y0=y0+(4*rand()-2) draw.line(2+i,152,2+i,152-tbl[i]) end draw.update() function arrow(x,y,c) if c==nil then c=1 end draw.pixel(x,y,c) draw.pixel(x-1,y-1,c) draw.pixel(x-1,y+1,c) end x,y=1,2 repeat arrow(x,y,0) if testkey(K_UP) and y>2 then y=y-.5 elseif testkey(K_DOWN) and y<152 then y=y+.5 end arrow(x,y) draw.update() until testkey(K_EXE) f=0 while testkey(K_EXE) and f<40 do draw.rect(1,160,1+f,163) draw.update() f=f+.5 end arrow(x,y,0) draw.rect(1,160,1+f,163,0,0,0) draw.update() x0,y0,xo,yo=x+3,y,x+3,y vx0,vy0=f,0 repeat t=0 d=0.5 while 1 do t=t+0.1 x=vx0*t+x0 y=(9.8*t^2)/2+vy0*t+y0 if (draw.pxltest(x,y) and t>d) or x>152 then xb,yb=x,y vx,vy=x-xo,y-yo break end draw.pixel(x,y) draw.update() xo,yo=x,y end draw.pixel(x,y,0) x1,x2=xb-6,xb+6 y1,y2=yb,yb b01,b02=draw.pxltest(x1,y1),draw.pxltest(x1,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x1,y1) b2=draw.pxltest(x1,y2) if b01~=b1 then X1,Y1=x1,y1 break elseif b02~=b2 then X1,Y1=x1,y2 break end end y1,y2=yb,yb b01,b02=draw.pxltest(x2,y1),draw.pxltest(x2,y2) while 1 do y1=y1+1 y2=y2-1 b1=draw.pxltest(x2,y1) b2=draw.pxltest(x2,y2) if b01~=b1 then X2,Y2=x2,y1 break elseif b02~=b2 then X2,Y2=x2,y2 break end end --[[draw.circle(X1,Y1,3,1,1,0) draw.circle(X2,Y2,3,1,1,0) draw.update() waitkey() showconsole()]] ac=(Y2-Y1)/(X2-X1) acn=-1/ac if ac-ac~=0 then ac,acn="Inf",0 end if acn-acn~=0 then ac,acn=0,"Inf" end --[[ print("Coef.Tangente="..ac) print("Coef.Normale="..acn) waitkey() showgraph() if ac~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*ac,2) draw.line(xb,yb,-1,yb+(-1-xb)*ac,2) else draw.line(xb,-1,xb,220,2) end if acn~="Inf" then draw.line(xb,yb,157,yb+(157-xb)*acn,2) draw.line(xb,yb,-1,yb+(-1-xb)*acn,2) else draw.line(xb,-1,xb,220,2) end draw.update() waitkey() ]] cdv=vy/vx xs,ys=sym(xo,yo,xb,yb,acn) --[[ print(xs) print(ys) print(xo) print(yo) draw.circle(xs,ys,3,1,1,0) draw.circle(xo,yo,3,1,1,0) draw.update() waitkey() ]] vx0,vy0,x0,y0=(xs-xb)*8,(ys-yb)*8,xb,yb until 1==0  Ád75ÐE$1³¹Õ¢)v3ª¢ªàª*"#mUJ¡*¢ª ²+2Ý"¯VK*ªD@ª*"UU"+TR‰)6¤€±³¡Õtº)t*±9"¤à DQ€±™%`´ÄÆ­ª¢ªàª*³TTªªªÉ*ªJ@ª+!UXªªÆ…*ªD€±™¦T”¢¤‚Œ¹¨à29»¸P‚@›6D qJ‘Ž°Š¢ ¨‰¢ ‘"R$*ê£è¨A‘³“¸‹¹Ä ¢R qI’Š¢ˆ‰¨"R!à+â(;°³£²Pˆ6AñJ”Žÿÿpda@locate 60,1,"eee" print 1 print 1 print 1 print 1 print 1 print 1 print 1 print 1 wait print 1ÿé 60,1,"eee"é 1é 1é 1é 1é 1é 1é 1é 1è(é 1ÿ 1È c»!yÐ$@x} LuaSource10>jÁÙ ¤require("string") require("draw") carre=25 full=20 psuit=30 gsuit=40 yam=50 function combin(d,p) c={} s=d[1]..d[2]..d[3]..d[4]..d[5] for i=1,6 do f=string.find(s,i) if f then c[i]=true end end c[7],c[8]=nil,nil m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end s=m[1]..m[2]..m[3]..m[4]..m[5]..m[6] f=string.find(s,5) if f then c[9],c[10],c[14]=true,true,true end f=string.find(s,4) if f then c[9],c[10]=true,true end f=string.find(s,3) g=string.find(s,2) if f and g then c[9],c[11]=true,true end if f then c[9]=true end if (c[1] and c[2] and c[3] and c[4] and c[5]) or (c[2] and c[3] and c[4] and c[5] and c[6]) then c[13]=true end if (c[1] and c[2] and c[3] and c[4]) or (c[2] and c[3] and c[4] and c[5]) or (c[3] and c[4] and c[5] and c[6]) then c[12]=true end c[15],c[16],c[17]=true,nil,nil for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end T=nil if c[1] or c[2] or c[3] or c[4] or c[5] or c[6] or c[9] or c[10] or c[11] or c[12] or c[13] or c[14] or c[15] then T=true end if not(T) then c={1,1,1,1,1,1,nil,nil,1,1,1,1,1,1,1,nil,nil} for i=1,17 do if c[i] and p[i]~=0 then c[i]=nil end end end return c,T end function score(d,L,t) if not(t) then return -1 end m={0,0,0,0,0,0} for i=1,5 do for j=1,6 do if d[i]==j then m[j]=m[j]+1 end end end if L>=1 and L<=6 then return L*m[L] elseif L==9 or L==15 then return d[1]+d[2]+d[3]+d[4]+d[5] elseif L==10 then return carre elseif L==11 then return full elseif L==12 then return psuit elseif L==13 then return gsuit elseif L==14 then return yam end end function dice(x,y,v) draw.rect(x,y,x+13,y+13) draw.point(x,y,0) draw.point(x+13,y,0) draw.point(x,y+13,0) draw.point(x+13,y+13,0) if v==1 then draw.point(x+7,y+7,1,2) elseif v==2 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) elseif v==3 then draw.point(x+3,y+3,1,2) draw.point(x+7,y+7,1,2) draw.point(x+11,y+11,1,2) elseif v==4 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) elseif v==5 then draw.point(x+3,y+3,1,2) draw.point(x+11,y+11,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) draw.point(x+7,y+7,1,2) elseif v==6 then draw.point(x+3,y+3,1,2) draw.point(x+3,y+7,1,2) draw.point(x+11,y+11,1,2) draw.point(x+11,y+7,1,2) draw.point(x+3,y+11,1,2) draw.point(x+11,y+3,1,2) end end function sel(x,y) draw.rect(x-1,y-1,x+14,y+14,1,2,1) end export{combin=combin,score=score,dice=dice,cur=cur,sel=sel}0`Àð P€°àèðø (0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}0{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l00,0,0,0,0,0,0,0,0}l1l2l3l4l5l6l7l8l9l0