0 Members and 2 Guests are viewing this topic.
.EESKETCHFulldiognosticoffDispGraphClrDraw0->S->O->P+1->L+9->X->Y+90->AText(82,0,A|>DecText(1,0,L|>DecUntill G=15getKey->Gasm(DB00E6036F2600)->IIf I=0:For(J,0,L):Pxl-Off(rand^96,rand^65):End:DispGraph:EndIf X<95 and getKey(3):X+1->X:sub(A):EndIf Y>7 and getKey(4):Y-1->Y:sub(A):EndIf X>0 and getKey(2):X-1->X:sub(A):EndIf Y<62 and getKey(1):Y+1->Y:sub(A):EndIf G>4While getKey(29) and (G=29):Text(1,0,L|>Dec):If L>1:L-1->L:Pause 125:End:EndWhile getKey(21) and (G=21):If L<255:L+1->L:Text(1,0,L|>Dec):Pause 125:End:EndWhile getKey(10) and (G=10):A+1->A:Text(82,0,A|>Dec):Pause 110:EndWhile getKey(11) and (G=11):Text(82,0,A|>Dec):If A>1:A-1->A:Pause 110:End:EndIf G=13 and getKey(13):StorePic :X->O:Y->P:EndIf G=12 and getKey(12):RecallPic :O->X:P->Y:DispGraph:EndIf G=56 and getKey(56):ClrDraw:DispGraph:EndIf G=14 and getKey(14):DrawInv :DispGraph:EndEndEndLbl APxl-On(X,Y):DispGraph:Pause AReturnNormal
.EESKETCHFulldiognosticoffDispGraphClrDraw0→S→O→P+1→L+9→X→Y+90→AText(82,0,A|>DecText(1,0,L|>DecUntill G=15getKey→Gasm(DB00E6036F2600→I!If IFor(J,0,LPxl-Off(rand^96,rand^65End:DispGraph:EndIf X<95 and getKey(3X+1→X:sub(AEndIf Y>7 and getKey(4Y-1→Y:sub(AEndIf X>0 and getKey(2X-1→X:sub(AEndIf Y<62 and getKey(1Y+1→Y:sub(AEndIf G>4While G=29 and getKey(29Text(1,0,L|>DecIf L>1:L-1→L:Pause 125:End:EndWhile G=21 and getKey(21If L<255:L+1→L:Text(1,0,L|>DecPause 125:End:EndWhile G=10 and getKey(10A+1→A:Text(82,0,A|>Dec):Pause 110:EndWhile G=11 and getKey(11Text(82,0,A|>DecIf A>1:A-1→A:Pause 110:End:EndIf G=13 and getKey(13StorePic :X→O:Y→P:EndIf G=12 and getKey(12RecallPic :O→X:P→Y:DispGraph:EndIf G=56 and getKey(56ClrDraw:DispGraph:EndIf G=14 and getKey(14DrawInv :DispGraph:EndEndEndLbl APxl-On(X,YDispGraph:Pause A
i'M NOT SURE WHAT A SWORD SKILL IS BUT HERE'S THE SWORD ANIMATION FROM THE TWO SPRITES ON PG 13
huh, I thought that there needed to be an opening parenthesis whenever you used 'and' or 'or' in if/while/repeat statements for each extra item after the first.ex.if X=9 and (Y=2if X=9 and (Y=2 or (Z=6
If X<95 and getKey(3):X+1->X:sub(A):EndIf Y>7 and getKey(4):Y-1->Y:sub(A):EndIf X>0 and getKey(2):X-1->X:sub(A):EndIf Y<62 and getKey(1):Y+1->Y:sub(A):End...Lbl APxl-On(X,Y):DispGraph:Pause AReturn
If X<95 and getKey(3)sub(A,X+1->X,Y)EndIf Y>7 and getKey(4)sub(A,X,Y-1->Y)EndIf X>0 and getKey(2)sub(A,X-1->X,Y)EndIf Y<62 and getKey(1)sub(A,X,Y+1->Y)End...Lbl APxl-On(r1,r2DispGraphPause AReturn