0 Members and 2 Guests are viewing this topic.
.TILENOSC[AA4400552200AA44]->Pic0[FFFFFFFFFFFFFFFFFF][020202020202010202020202]->GBD1[020000000000000000000002][020000000000000000000002][020000000000000000000002][020000000000000000000002][020000000000000000000002][020000000000000000000002][020202020202010202020202]48->X40->YRepeat getKey(56)For(B,0,7For(A,0,11{B*12+A+GBD1}->TIf TT--Pt-On(A*8,B*8,T*8+Pic0EndEndEndPt-On(X,Y,[7E81FFA57E5A7E42])DispGraphClrDrawIf getKey(4)!If sub(GT,X,Y-8)=2Y-8->YPause 500EndEndIf getKey(1)!If sub(GT,X,Y+8)=2Y+8->YPause 500EndEndIf getKey(2)!If sub(GT,X-8,Y)=2X-8->XPause 500EndEndIf getKey(3)!If sub(GT,X+8,Y)=2X+8->XPause 500EndEndEndReturnLbl GT{r[sub]2[/sub]/8+12+(r[sub]1[/sub]/8)+GBD1}Return
{r2/8+12+(r1/8)+GBD1}
{r2/8*12+(r1/8)+GBD1}
prgmASSETS //loads all my spritesprgmGDB //loads my GDBs (rn theres only 2)GDB1->G48->X40->Y32->S //S and T are the variables that mark where you32->T //need to go for the next GDBRepeat getKey(56)... //Stuff to load the GDBIf getKey(4) and (sub(GT,X,Y-8)=0 or (sub(GT,X,Y-8)=7))Y-8->YPause 500sub(LOC)End... //The rest of the keysEndReturnprgmSUB //Has all my routines
Lbl GT{r[sub]2[/sub]/8*12+(r[sub]1[/sub]/8)+G}ReturnLbl LOCIf X=S and Y=TIf G=GBD1GBD2->G80->S //These are just temporary numbers. I might change them later. I don't really48->T //think it matters thoughPause 2000EndReturnEnd
If X=S and Y=T
If X=S and (Y=T)