QUOTE (Netham45 @ 10 Aug, 2007, 20:42) |
get-back-into-coding thing. |
QUOTE (Pong) |
ClrDraw randInt(1,4->PMT 46->N 2randInt(1,3->I% 5->C/Y 5->P/Y ->PV ->FV ->Xmin 94->Xmax ->Ymin 62->Ymax AxesOff ->r 2->(Theta) Line(7,30,7,22 While (PV!=10)(FV!=10 (Theta)+1->(Theta) While r=0 Text(0,0,PV Text(0,91,FV Vertical 3 Vertical 90 1->r End getkey->g while (g=25)(P/Y!=1 Line(7,0,7,62,0 P/Y-1->P/Y 1->g Line(7,62-(P/Y8-8),7,62-(P/Y8 End While (g=34)(P/Y!=8 Line(7,0,7,62,0 P/Y+1->P/Y 1->g Line(7,62-(P/Y8-8),7,62-(P/Y8 End While ((I%=0)+(I%=62)+(N=4)+(N=88))(g!=188 (4(I%=62)(PMT=3))+(2(I%=62)(PMT=1))+(3(I%=0)(PMT=4))+((I%=0)(PMT=2))+(4(N=4)(PMT=2))+((N=88)(PMT=3))+(2(N=88)(PMT=4))+(3(N=4)(I%=0))+($(N=4)(I%=62))+(2(N=88)(I%=62))+(N=88)(I%=->PMT 188->g End Pxl-Off(I%,N N-2(PMT=2)+2(PMT=4)-2(PMT-1)+2(PMT=3)->N I%+2(PMT=1)+2(PMT=3)-2(PMT=2)-2(PMT=4->I% Pxl-On(I%,N ->g While (N=84)(g!=154)(I%>C/Y8-9)(I%<C/Y8+1)((PMT=3)+(PMT=4 1(PMT=3)+2(PMT=4->PMT 154->g End While ((N=6)+(N=8))(g!=155)(I%>(P/Y-1)8-1)(I%<P/Y8+1)((PMT=1)+(PMT=2 3(PMT=1)+4(PMT=2->PMT 155->g End While ((N=4)+(N=88))(r!=0 PV+(N=88->PV FV+(N=4->FV ->r End While (Theta)=4 Line(85,0,85,62,0 C/Y+(C/Y!=8)(I%>C/Y8)-C/Y!=1)(I%<C/Y8-8->C/Y Line(85,62-(C/Y8-8),85,62(C/Y8 ->(Theta) End End If PV=10:Then Text(30,25,"Player Won! Else Text(28,25,"Calculator Won! Endif " |