Woo! I can't wait to see those new changes
I hope some of my suggestions and requests have made it into the tokens files?
I hope some of my suggestions and requests have made it into the tokens files?
If Tmin>0 and Z=1:Then:
ClrDraw:RecallPic Pic1:
If L1(1)=L1(2:Then:
Text(47,4,"HYPER POTION":Text(53,4,"INEFFECTIVE!":
prgmZWT:1->W:For(F,3,14:Line(3,F,90,F,0:End:End:
If L1(1)<L1(2):Then:
"rowSwap(ZNA"->Str0:0->theta:L1(43:prgmZCE:
Text(47,4,"USED HYPER POTION!":
L1(1)->X:L1(2)->V:
If V-X<200:Then:V-X->J:
If V-X>=200:200->J:X+J->|N:
While X!=|N:
min(|N,X+5)->X:
iPart((|E2(X/V)).25->K:
Line(65,25,65+K,25:
End:
For(F,4,14):Line(4,F,90,F,0):End
Text(47,4,Str9," GAINED":
Text(53,4,J," HP!":
prgmZWT:
End:
If (Tmin>0 and Z>1) or Tmin=0:Then:
"|LP"+sub("123456",Z,1)->Str7:
4->theta:"ZTMP3"->Str0:prgmZCE:
3->theta:prgmZCE:
Str7+"(1)"+sub(str9,1,1)+"X:"
+Str7+"(2)"+sub(Str9,1,1)+"V:
For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":
prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:
If X=V:Then:
Text(47,4,"+sub(Str9,2,1)+"HYPER POTION"+sub(Str9,2,1)+":
Text(53.4."+sub(Str9,2,1)+"INEFFECTIVE!"+sub(Str9,2,1)+":
1.5"+sub(Str9,1,1)+"W:Return:
End:
If X<V:Then:
If V-X<200:V-X"+sub(Str9,1,1)+"J:
If V-X>=200:200"+sub(Str9,1,1)+"J:
X+J"+sub(Str9,1,1)+"|N:
Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":
While X!=|N:
min(|N,X+5)"+sub(Str9,1,1)+"X:
Text(7+21(Z!=4 and Z>1)+21(Z=3 or Z=6),(2+52(Z>3))+4(2-int(log(X))),X:
iPart((|E2(X/V)).25"+sub(Str9,1,1)+"K:
68-21(Z-3(Z>3))"+sub(Str9,1,1)+"I:
Line(2+52(Z>3),I,2+(52(Z>3))+K,I:
End:
X"+sub(Str9,1,1)+Str7+"(1):
For(F,4,14:Line(4,F,90,F,0:End:
0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"ZPNA"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:"+
Str7+"(43):prgmZCE:
Text(47,4,"+Str9+","+sub(Str9,2,1)+" 'S HP INCREASED BY"+sub(Str9,2,1)+":
Text(53,4,J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":
prgmZWT:1"+sub(Str9,1,1)+"W:Return:End:End
If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(1)=L1(2):Then:Text(47,4,"HYPER POTION"):Text(53,4,"INEFFECTIVE!"):prgmZWT:1->W:For(F,3,14):Line(3,F,90,F,0):End:End:If L1(1)<L1(2):Then:"rowSwap(ZPNA"->Str0:0->theta:L1(43):prgmZCE:Text(47,4,"USED HYPER POTION!"):L1(1)->X:L1(2)->V:If V-X<200:V-X->J:If V-X>=200:200->J:X+J->|N:While X!=|N:min(|N,X+5)->X:iPart((|E2(X/V)).25->K:Line(65,25,65+K,25):End:For(F,4,14):Line(4,F,90,F,0):End:Text(47,4,Str9," GAINED"):Text(53,4,J," HP!"):X->L1(1):prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:StorePic Pic1:DelVar Pic2:1.5->W:End:
If (Tmin>0 and Z>1) or Tmin=0:Then:"|LP"+sub("123456",Z,1)->Str7:4->theta:"ZTMP3"->Str0:prgmZCE:3->theta:prgmZCE:expr(Str7+"(1)")->X:expr(Str7+"(2)")->V:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:If X=V:Then:Text(47,4,"+sub(Str9,2,1)+"HYPER POTION"+sub(Str9,2,1)+":Text(53.4."+sub(Str9,2,1)+"INEFFECTIVE!"+sub(Str9,2,1)+":1.5"+sub(Str9,1,1)+"W:Return:End:If X<V:Then:If V-X<200:V-X"+sub(Str9,1,1)+"J:If V-X>=200:200"+sub(Str9,1,1)+"J:X+J"+sub(Str9,1,1)+"|N:Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":While X!=|N:min(|N,X+5)"+sub(Str9,1,1)+"X:Text(7+21(Z!=4 and Z>1)+21(Z=3 or Z=6),(2+52(Z>3))+4(2-int(log(X))),X:iPart((|E2(X/V)).25"+sub(Str9,1,1)+"K:68-21(Z-3(Z>3))"+sub(Str9,1,1)+"I:Line(2+52(Z>3),I,2+(52(Z>3))+K,I:End:X"+sub(Str9,1,1)+Str7+"(1):X"+sub(Str9,1,1)+Str7+"(1):For(F,4,14:Line(4,F,90,F,0:End:0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"ZPNA"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:"+Str7+"(43):prgmZCE:Text(47,4,"+Str9+","+sub(Str9,2,1)+" 'S HP INCREASED BY"+sub(Str9,2,1)+":Text(53,4,J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W"->Str9:1->theta:"ZTMP3"->Str0:prgmZCE:prgmZTMP3:6-theta:prgmZCE:End
If (Tmin>0 and Z>1) or Tmin=0:Then:
"|LP"+sub("123456",Z,1)->Str7:4->theta:
"ZTMP3"->Str0:prgmZCE:3->theta:prgmZCE
:expr(Str7+"(1)")->X:expr(Str7+"(2)")->V:
For(F,0,30:Line(0,F,94,F,0:End:
"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:
"If X=V:Then:Text(47,4,"+sub(Str9,2,1)+"HYPER POTION"+sub(Str9,2,1)+":Text(53.4."+sub(Str9,2,1)+"INEFFECTIVE!"+sub(Str9,2,1)+":1.5"+sub(Str9,1,1)+"W:Return:End:If X<V:Then:If V-X<200:V-X"+sub(Str9,1,1)+"J:If V-X>=200:200"+sub(Str9,1,1)+"J:X+J"+sub(Str9,1,1)+"|N:Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":While X!=|N:min(|N,X+5)"+sub(Str9,1,1)+"X:Text(7+21(Z!=4 and Z>1)+21(Z=3 or Z=6),(2+52(Z>3))+4(2-int(log(X))),X:iPart((|E2(X/V)).25"+sub(Str9,1,1)+"K:68-21(Z-3(Z>3))"+sub(Str9,1,1)+"I:Line(2+52(Z>3),I,2+(52(Z>3))+K,I:End:X"+sub(Str9,1,1)+Str7+"(1):X"+sub(Str9,1,1)+Str7+"(1):For(F,4,14:Line(4,F,90,F,0:End:0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"ZPNA"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:"+Str7+"(43):prgmZCE:Text(47,4,"+Str9+","+sub(Str9,2,1)+" 'S HP INCREASED BY"+sub(Str9,2,1)+":Text(53,4,J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W"->Str9:1->theta:"ZTMP3"->Str0:
prgmZCE:prgmZTMP3:6-theta:prgmZCE:End
If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(1)=L1(2:Then:Text(47,4,"HYPER POTION":Text(53,4,"INEFFECTIVE!":prgmZWT:1->W:For(F,3,14:Line(3,F,90,F,0:End:End:If L1(1)<L1(2:Then:"rowSwap(ZPNA"->Str0:0->theta:L1(43:prgmZCE:Text(47,4,"USED HYPER POTION!":L1(1)->X:L1(2)->V:If V-X<200:V-X->J:If V-X>=200:200->J:X+J->|N:While X!=|N:min(|N,X+5)->X:iPart((|E2(X/V)).25->K:Line(65,25,65+K,25:End:For(F,4,14:Line(4,F,90,F,0:End:Text(47,4,Str9," GAINED":Text(53,4,J," HP!":X->L1(1):prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:StorePic Pic1:DelVar Pic2:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or Tmin=0:Then:"|LP"+sub("123456",Z,1)->Str7:4->theta:"ZTMP3"->Str0:prgmZCE:3->theta:prgmZCE:expr(Str7+"(1)")->X:expr(Str7+"(2)")->V:"If X=V:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"HYPER POTION"+sub(Str9,2,1)+":Text(53.4."+sub(Str9,2,1)+"INEFFECTIVE!"+sub(Str9,2,1)+":1.5"+sub(Str9,1,1)+"W:Return:End:If X<V:Then:If V-X<200:V-X"+sub(Str9,1,1)+"J:If V-X>=200:200"+sub(Str9,1,1)+"J:X+J"+sub(Str9,1,1)+"|N:While X!=|N:min(|N,X+5)"+sub(Str9,1,1)+"X:Text(7+21(Z!=4 and Z>1)+21(Z=3 or Z=6),(2+52(Z>3))+4(2-int(log(X))),X:iPart((|E2(X/V)).25"+sub(Str9,1,1)+"K:68-21(Z-3(Z>3))"+sub(Str9,1,1)+"I:Line(2+52(Z>3),I,2+(52(Z>3))+K,I:End:X"+sub(Str9,1,1)+Str7+"(1):X"+sub(Str9,1,1)+Str7+"(1):For(F,4,14:Line(4,F,90,F,0:End:0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"ZPNA"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:"+Str7+"(43):prgmZCE:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":Text(47,4,"+Str9+","+sub(Str9,2,1)+" 'S HP INCREASED BY"+sub(Str9,2,1)+":Text(53,4,J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W"->Str9:1->theta:"ZTMP3"->Str0:prgmZCE:prgmZTMP3:6-theta:prgmZCE:End
Advertisement