CODE |
ec1 AxesOff FuncOff 1->X:1->Y ->S:->T 16->W:16->H prgmMAP1 1->[A](S+Y+1,T+X+1 ->C:->D 1->I While 1 If I=1:Then:2->I:Else:1->I:End real(2,0,T,S,W,H,0,12,0,8,I,0,1 getkey->K If K=45:Then:real(0:Return:End (K=34)-(K=25->C (K=26)-(K=24->D ->[A](Y+S+1,X+T+1 If not([A](Y+S+C+1,X+T+D+1:Then:X+D->X:Y+C->Y:End 1->[A](Y+S+1,X+T+1 If T=/=4 and X>6:Then:6->X:T+1->T:End:If T=/=0 and X<5:Then:5->X:T-1->T:End If S=/=8 and Y>4:Then:4->Y:S+1->S:End:If S=/=0 and Y<3:Then:3->Y:S-1->S:End End c2 |
QUOTE (Kevin @ July 19, 2005, 07:27) | ||
c1-->
ec2 I dunno if I have fully optimised it but it run prety fast right now, around 3 fps even when scrolling. |
QUOTE (crzyrbl @ July 28, 2005, 14:16) |
umm....y were you using storepic? |