0 Members and 2 Guests are viewing this topic.
I think you can do tokens fairly easily like so:Data(TDisp ,T",TH,TE,TL,TL,TO,T ,TW,TO,TR,TL,TD,T!This only works for single-byte tokens, though. If you have a two-byte token, you can do the following for example:Data(TDisp ,TStr1/256, TStr1
.BAGetCalc("prgmPIC1",700)->Z[3004630A3E393404630B3E310463023E310463033E3004630C3E363304630D3F7E093F]->Str1conj(Str1,Z,3535->S0->X->Y->A->NRepeat N=1Repeat getKey(9)If getKey(15):1->N:EndIf X<95 and getKey(3):X+1->X:Pause 30EndIf Y>0 and getKey(4):Y-1->Y:Pause 30EndIf X>0 and getKey(2):X-1->X:Pause 30EndIf Y<62 and getKey(1):Y+1->Y:Pause 30EndDispGraphEndPxl-On(X,Y)If A=0conj([9C],Z+S,1):S+1->SX->D:Y->E95-D->I:62-E->JEndIf A=1X->F:Y->G95-F->K:62-G->LLine(D,E,F,G)EndFor(M,1,2)If M=1 and (A=0):I->H:EndIf M=2 and (A=0):J->H:EndIf M=1 and (A=1):K->H:EndIf M=2 and (A=1):L->H:EndIf H(less than or equal to)9:conj([30],Z+S,1):S+1->S:EndIf H(less than or equal to)19 and (H(greater than or equal to)10):conj([31],Z+S,1):S+1->S:H-10->H:EndIf H(less than or equal to)29 and (H(greater than or equal to)20):conj([32],Z+S,1):S+1->S:H-20->H:EndIf H(less than or equal to)39 and (H(greater than or equal to)30):conj([33],Z+S,1):S+1->S:H-30->H:EndIf H(less than or equal to)49 and (H(greater than or equal to)40):conj([34],Z+S,1:S+1->S:H-40->H:EndIf H(less than or equal to)59 and (H(greater than or equal to)50):conj([35],Z+S,1:S+1->S:H-50->H:EndIf H(less than or equal to)69 and (H(greater than or equal to)60):conj([36],Z+S,1:S+1->S:H-60->H:EndIf H(less than or equal to)79 and (H(greater than or equal to)70):conj([37],Z+S,1):S+1->S:H-70->H:EndIf H(less than or equal to)89 and (H(greater than or equal to)80):conj([38],Z+S,1):S+1->S:H-80->H:EndIf H(less than or equal to)99 and (H(greater than or equal to)90):conj([39],Z+S,1):S+1->S:H-90->H:EndIf H=0:conj([30],Z+S,1:EndIf H=1:conj([31],Z+S,1:EndIf H=2:conj([32],Z+S,1:EndIf H=3:conj([33],Z+S,1:EndIf H=4:conj([34],Z+S,1:EndIf H=5:conj([35],Z+S,1:EndIf H=6:conj([36],Z+S,1:EndIf H=7:conj([37],Z+S,1:EndIf H=8:conj([38],Z+S,1:EndIf H=9:conj([39],Z+S,1:EndS+1->SIf A=0 or ((A=1) and (M=1))conj([2B],Z+S,1):S+1->S:EndIf A=1 and (M=2):conj([3F],Z+S,1):1+S->S:EndEndA+1->AIf A=2:0->AEndEnd
I can has new shell?
Quote from: Raylin on September 28, 2010, 11:57:18 amI can has new shell? That, and it would be awesome to list external levels for a specific game