0 Members and 2 Guests are viewing this topic.
.SPRITE[FF818181818181FF0000000000000000]->Pic1[3C7EFFFFFFFF7EC30000000000000000]->Pic2DiagnosticOff0->{L4}Fill(L4, 63)0->X->YRepeat geyKey(15)For(A, 0, 7)For(B, 0, 7){L4+A*8+B}If AnsRect(A*8, B*8, 8, 8)EndEndEnd{L4+X+Y*8}If AnsPt-On(X, Y, Pic2)ElsePt-On(X, Y, Pic1)EndIf getKey(2)If X!=0X-8->XEndEndIf getKey(3)If X!=56X+8->XEndEndIf getKey(4)If Y!=0Y-8->YEndEndIf getKey(1)If Y!=56Y+8->YEndEndIf getKey(54){L4+X+Y*8}If Ans0->{L4+X+Y*8}Else1->{L4+X+Y*8}EndEndDispGraphClrDrawEnd