0 Members and 2 Guests are viewing this topic.
If Tmin>0 and Z=1:Then:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:0->Tmax:If 0<L1(3:Then:L1(3:prgmZCE:35->Tmax:Text(35,9,Str9:Text(35,70+4(1-int(log(L1(19)))),L1(19:Text(35,78,"/",L1(23:End:If 0<L1(4:Then:L1(4:prgmZCE:41->Tmax:Text(41,9,Str9:Text(41,70+4(1-int(log(L1(20)))),L1(20:Text(41,78,"/",L1(24:End:If 0<L1(5:Then:L1(5:prgmZCE:47->Tmax:Text(47,9,Str9:Text(47,70+4(1-int(log(L1(21)))),L1(21:Text(47,78,"/",L1(25:End:If 0<L1(6:Then:L1(6:prgmZCE:53->Tmax:Text(53,9,Str9:Text(53,70+4(1-int(log(L1(22)))),L1(22:Text(53,78,"/",L1(26:End:5->W:While W=5:Text(A,5,">":getKey->K:If K:Text(A,5," ":A-6((K=34 and A<Tmax)-(K=25 and A>35->A:If K=31:Then:ClrDraw:1->W:End:If K=21:Then:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:RecallPic Pic1:If A=35:Then:If L1(19)>=L1(23:Then:Text(47,4,"ETHER INEFFECTIVE":prgmZWT:1->W:End:If L1(19)<L1(23:Then:Text(47,4,"USED ETHER!":10+L1(19->L1(19:If L1(19)>L1(23:L1(23->L1(19:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=41:Then:If L1(20)>=L1(24:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(20)<L1(24:Then:Text(47,4,"USED ETHER!":prgmZWT:10+L1(20->L1(20:If L1(20)>L1(24:L1(24->L1(20:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=47:Then:If L1(21)>=L1(25:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(21)<L1(25:Then:Text(47,4,"USED ETHER!":10+L1(21->L1(21:If L1(21)>L1(25:L1(25->L1(21:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=53:Then:If L1(22)>=L1(26:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(22)<L1(26:Then:Text(47,4,"USED ETHER!":10+L1(22->L1(22:If L1(22)>L1(26:L1(26->L1(22:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End:End:End:If iPart(W)=1:Return
The code for the party Pokemon is going to be many levels higher in complexity.
Rotom?