[PP] ZITU - Cemetech | Forum | TI-Freak8x [Topic]

tifreak8x
Guru (Posts: 11009)

[PP] ZITU
09 Aug 2011 08:01:47 am
Last edited by tifreak8x on 29 Jun 2012 01:32:42 pm; edited 2 times in total

This is just the lines of code I am using to make the items work; Click Here to discuss any of the code snippets in the posts below.

Admins: Please don't post in this topic so I can keep it clean flowing to show the item code off in the order they are in the calc. It helps me keep a backup of the code incase something goes wrong. Thakns Smile

Antidote:

Code:

If Tmin>0 and Z=1:Then:If L1(44)!=2:Then:ClrDraw:RecallPic Pic1:Text(47,4,"ANTIDOTE INEFFECTIVE":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1->W:End:If L1(44)=2:Then:ClrDraw:RecallPic Pic1:"rowSwap(ZPNA"->Str0:0->theta:L1(43:prgmZCE:0->L1(44:Text(47,4,Str9," WAS CURED":Text(53,4,"OF POISON!":Text(29,79,"            ":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:StorePic Pic1:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0:Then:expr("|LP"+sub("123456",|LPRTY(iPart(Z)),1)+"(44"->K:If K!=2:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"ANTIDOTE INEFFECTIVE":prgmZWT:ClrDraw:1->W:Return:End:If K=2:Then:4->theta:"ZTMP2"->Str0:prgmZCE:"|LP"+sub("123456",|LPRTY(iPart(Z)),1->Str7:3->theta:prgmZCE:"UnArchive "+Str7+":0"+sub(Str9,1,1)+Str7+"(44"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:prgmZCE:expr(Str7+"(43"->PMT:0->theta:"rowSwap(ZPNA"->Str0:PMT:prgmZCE:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43":prgmZCE:Text(47,4,Str9," WAS CURED":Text(54,4,"OF POISON!":prgmZWT:If Tmin>0:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

09 Aug 2011 08:02:20 am

Awakening:

Code:

If Tmin>0 and Z=1:Then:If L1(44)!=4:Then:ClrDraw:RecallPic Pic1:Text(47,4,"AWAKENING INEFFECTIVE":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1->W:End:If L1(44)=4:Then:ClrDraw:RecallPic Pic1:"rowSwap(ZPNA"->Str0:0->theta:L1(43:prgmZCE:0->L1(44:Text(47,4,Str9," WOKE UP!":Text(29,79,"            ":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:StorePic Pic1:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0:Then:expr("|LP"+sub("123456",|LPRTY(iPart(Z)),1)+"(44"->K:If K!=4:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"AWAKENING INEFFECTIVE":prgmZWT:ClrDraw:1->W:End:If K=4:Then:4->theta:"ZTMP2"->Str0:prgmZCE:"|LP"+sub("123456",|LPRTY(iPart(Z)),1->Str7:3->theta:prgmZCE:"UnArchive "+Str7+":0"+sub(Str9,1,1)+Str7+"(44"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:"ZTMP2"->Str0:6->theta:prgmZCE:expr(Str7+"(43"->PMT:0->theta:"rowSwap(ZPNA"->Str0:PMT:prgmZCE:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43":prgmZCE:Text(47,4,Str9," WOKE UP!":prgmZWT:If Tmin>0:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

09 Aug 2011 08:02:41 am

Burn Heal:

Code:

If Tmin>0 and Z=1:Then:If L1(44)!=1:Then:ClrDraw:RecallPic Pic1:Text(47,4,"BURN HEAL INEFFECTIVE":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1->W:End:If L1(44)=1:Then:ClrDraw:RecallPic Pic1:"rowSwap(ZPNA"->Str0:0->theta:L1(43:prgmZCE:0->L1(44:Text(47,4,Str9,"'S BURN":Text(53,4,"WAS HEALED!":Text(29,79,"            ":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:StorePic Pic1:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0:Then:expr("|LP"+sub("123456",|LPRTY(iPart(Z)),1)+"(44"->K:If K!=1:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"BURN HEAL":Text(53,4,"INEFFECTIVE!":prgmZWT:ClrDraw:1->W:End:If K=1:Then:4->theta:"ZTMP2"->Str0:prgmZCE:"|LP"+sub("123456",|LPRTY(iPart(Z)),1->Str7:3->theta:prgmZCE:"UnArchive "+Str7+":0"+sub(Str9,1,1)+Str7+"(44"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:expr(Str7+"(43"->PMT:0->theta:"rowSwap(ZPNA"->Str0:PMT:prgmZCE:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43":prgmZCE:Text(47,4,Str9,"'S BURN":Text(53,4,"WAS HEALED!":prgmZWT:If Tmin>0:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

09 Aug 2011 08:03:28 am

Elixer:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(19)=L1(23) and L1(20)=L1(24) and L1(21)=L1(25) and L1(22)=L1(26):Then:Text(47,4,"ELIXER INEFFECTIVE!":prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1->W:End:If L1(19)!=L1(23) or L1(20)!=L1(24) or L1(21)!=L1(25) or L1(22)!=L1(26):Then:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:":For(F,19,22):10+L1(F)"+sub(Str9,1,1)+"L1(F):If L1(F)>L1(F+4):L1(F+4)"+sub(Str9,1,1)+"L1(F):End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:Text(47,4,"ALL MOVES":Text(53,4,"GAINED 10 PP!":prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0):Then:"|LP"+sub("123456",|LPRTY(iPart(Z)),1)->Str7:"ZTMP2"->Str0:4->theta:prgmZCE:3->theta:prgmZCE:"If "+Str7+"(19)="+Str7+"(23) and "+Str7+"(20)="+Str7+"(24) and "+Str7+"(21)="+Str7+"(25) and "+Str7+"(22)="+Str7+"(26):1"+sub(Str9,1,1)+"K:If "+Str7+"(19)!="+Str7+"(23) or "+Str7+"(20)!="+Str7+"(24) or "+Str7+"(21)!="+Str7+"(25) or "+Str7+"(22)!="+Str7+"(26):2"+sub(Str9,1,1)+"K"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:For(F,0,17):Line(0,F,94,F,0):End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:If K=1:Then:Text(47,4,"ELIXER INEFFECTIVE!":prgmZWT:ClrDraw:1->W:End:If K=2:Then:Text(47,4,"USED ELIXER!":prgmZWT:3->theta:prgmZCE:"K:For(F,19,22):"+Str7+"(F)+10"+sub(Str9,1,1)+Str7+"(F):If "+Str7+"(F)>"+Str7+"(F+4):"+Str7+"(F+4)"+sub(Str9,1,1)+Str7+"(F):End"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:28:10 pm

Escape Rope: (This is far from finished, I have to make edits to the map system before I can finish this routine)

Code:

If Tmin>0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"CANNOT USE ITEM":Text(53,4,"DURING BATTLES!":prgmZWT:ClrDraw:1->W:End:If W=1:Return:

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:29:59 pm
Last edited by tifreak8x on 12 Jul 2012 04:01:54 pm; edited 1 time in total

Ether:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:For(F,3,6:If 0<L1(F:Then:L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:End: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:12+int(.2A)->C:Ans+4->D:If L1(C)=L1(D:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:Else:min(L1(D),L1(C)+10->L1(C:Text(47,4,"USED ETHER!":prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or Tmin=0:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:For(F,3,6:If 0<"+Str7+"(F:Then:"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:End:End:5"+sub(Str9,1,1)+"W:While W=5:Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+"   "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:End:If K=21:Then:For(F,0,30:Line(0,F,94,F,0:End:RecallPic Pic2:For(F,0,17):Line(0,F,94,F,0):End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:12+int(.2A)"+sub(Str9,1,1)+"C:Ans+4"+sub(Str9,1,1)+"D:If "+Str7+"(C)="+Str7+"(D:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:Else:min("+Str7+"(D),"+Str7+"(C)+10"+sub(Str9,1,1)+Str7+"(C:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:1.5"+sub(Str9,1,1)+"W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:End

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:32:26 pm

Fire Stone: (Not finished, I don't remember why I didn't complete this section of code, will most likely finish it off when I'm done with the rest of the items minus the other evolution stones)

Code:

If Tmin>0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"CANNOT USE ITEM":Text(53,4,"DURING BATTLES!":prgmZWT:ClrDraw:1->W:End:If W=1:Return:

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:35:37 pm

Full Heal:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(44)=0 and L1(45)=0:Then:Text(47,4,"FULL HEAL INEFFECTIVE":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1->W:End:If L1(44)>0 or L1(45)>0:Then:0->L1(44:0->L1(45:Text(47,4,"ALL STATUS EFFECTS":Text(53,4,"HEALED!":prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1.5->W:End:End:If iPart(W)=1:Return:If (Z>1 and Tmin>0) or (Tmin=0 and Z>0:Then:"|LP"+sub("123456",Z,1)->Str7:expr(Str7+"(44))"->N:expr(Str7+"(45))"->O:If N=0 and O=0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"FULL HEAL":Text(53,4,"INEFFECTIVE!":prgmZWT:ClrDraw:1->W:0->N:0->O:Return:End:If N>0 or O>0:Then:"ZTMP2"->Str0:4->theta:prgmZCE:3->theta:prgmZCE:"UnArchive "+Str7+":0"+sub(Str9,1,1)+Str7+"(44):0"+sub(Str9,1,1)+Str7+"(45)"->Str9:1->theta:"ZTMP2"->Str0:prgmZCE:prgmZTMP2:6->theta:prgmZCE:prgmZCE:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43)"):prgmZCE:Text(47,4,Str9,"'S STATUSES":Text(53,4,"WERE HEALED!":prgmZWT:If Tmin>0:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:37:12 pm

Full Restore:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(1)=L1(2) and L1(44)=0 and L1(45)=0:Then:Text(47,4,"FULL RESTORE":Text(53,4,"INEFFECTIVE"):prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1.5->W:End:If L1(1)<L1(2) or L1(44)>0 or L1(45)>0:Then:L1(2)->L1(1):0->L1(44):0->L1(45):Text(47,4,"USED FULL RESTORE!"):prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1->W:End:End:If (Z>1 and Tmin>0) or (Tmin=0 and Z>0:Then:"|LP"+sub("123456",Z,1)->Str7:expr(Str7+"(1))"->N:expr(Str7+"(2))"->O:expr(Str7+"(44"->C:expr(Str7+"(45"->D:If N=O and C=0 and D=0:Then:Text(47,4,"FULL RESTORE":Text(53,4,"INEFFECTIVE":prgmZWT:For(F,4,14):Line(4,F,90,F,0):End:1->W:End:If N<O or C>0 or D>0:Then:"ZTMP2"->Str0:4->theta:prgmZCE:3->theta:prgmZCE:Str7+"(2)"+sub(Str9,1,1)+Str7+"(1):0"+sub(Str9,1,1)+Str7+"(44):0"+sub(Str9,1,1)+"(45)"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:Text(47,4,"USED FULL RESTORE!":rand(90):For(F,4,14):Line(4,F,90,F,0):End:expr(Str7+"(43)"->N:"rowSwapZPNA"->Str0:0->theta:N:prgmZCE:Text(47,4,Str9,"'S HP and":Text(53,4,"STATUSES RECOVERED!":prgmZWT:"ZTMP2"->Str0:6->theta:prgmZCE:If Tmin>0:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:37:45 pm

HP UP:

Code:

If Tmin>0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15}:prgmTEMP:prgmZC1:Text(47,4,"CANNOT USE HP UP"):Text(53,4,"DURING BATTLES!"):prgmZWT:ClrDraw:1->W:End:If W=1:Return:If Tmin=0:Then:"|LP"+sub("123456",Z,1)->Str7:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:"1+"+Str7+"(2)"+sub(Str9,1,1)+Str7+"(2):1+"+Str7+"(1)"+sub(Str9,1,1)+Str7+"(1)"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:6->theta:prgmZCE:ClrDraw:RecallPic Pic1:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

29 Jun 2012 12:38:51 pm

Hyper Potion:

Code:

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",|LPRTY(Z),1)->Str7:4->theta:"ZTMP3"->Str0:prgmZCE:expr(Str7+"(1)")->X:expr(Str7+"(2)")->V:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43)"):prgmZCE:Str9->Str4:3->theta:prgmZCE:"If X=V:Then:For(F,0,17):Line(0,F,94,F,0):End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15}: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,0,17:Line(0,F,94,F,0:End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":For(F,1,100:End:For(F,3,14:Line(3,F,90,F,0:End:Text(47,4,"+sub(Str9,2,1)+Str4+sub(Str9,2,1)+","+sub(Str9,2,1)+" 'S HP"+sub(Str9,2,1)+":Text(53,4,"+sub(Str9,2,1)+"INCREASED BY"+sub(Str9,2,1)+",J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":prgmZWT:1.5"+sub(Str9,1,1)+"W"->Str9:1->theta:"ZTMP3"->Str0:1:prgmZCE:prgmZTMP3:6->theta:prgmZCE:End

tifreak8x
Guru (Posts: 11009)

02 Jul 2012 02:08:40 pm

Ice Heal:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(44)!=6:Then:Text(47,4,"ICE HEAL INEFFECTIVE!":prgmZWT:1->W:For(F,4,14:Line(3,F,90,F,0:End:End:If L1(44)=6:Then:Text(47,4,"USED ICE HEAL!":For(F,1,99:End:For(F,4,14:Line(4,F,90,F,0:End:Text(29,79,"            ":0->L1(44:"rowSwap(ZPNA"->Str0:0->theta:L1(43:prgmZCE:Text(47,4,Str9," WAS":Text(53,4,"THAWED OUT!":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:StorePic Pic1:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0:Then:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:expr(Str7+"(44)"->K:If K!=6:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:Text(47,4,"ICE HEAL":Text(54,4,"INEFFECTIVE!":prgmZWT:ClrDraw:1->W:End:If K=6:Then:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43":prgmZCE:Str9->Str4:"ZTMP2"->Str0:4->theta:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+Str7+"(44"->Str9:"ZTMP2"->Str0:1->theta:prgmZCE:prgmZTMP2:6->theta:prgmZCE:"0ZBD":prgmZRS:For(F,1,17:Line(0,F,94,F,0:End:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,Str4,"WAS":Text(53,4,"THAWED OUT!":prgmZWT:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

12 Jul 2012 03:18:09 pm

Leaf Stone:

(Currently unfinished)

Code:

If Tmin>0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"CANNOT USE ITEM":Text(53,4,"DURING BATTLES!":prgmZWT:ClrDraw:1->W:End:If W=1:Return:

tifreak8x
Guru (Posts: 11009)

12 Jul 2012 03:53:21 pm

Max Elixir:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(19)=L1(23) and L1(20)=L1(24) and L1(21)=L1(25) and L1(22)=L1(26):Then:Text(47,4,"MAX ELIXER":Text(53,4,"INEFFECTIVE!":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1->W:End:If L1(19)!=L1(23) or L1(20)!=L1(24) or L1(21)!=L1(25) or L1(22)!=L1(26):Then:For(F,19,22:L1(F+4)->L1(F:End:Text(47,4,"ALL MOVES":Text(53,4,"GAINED MAX PP!":prgmZWT:For(F,4,14:Line(4,F,90,F,0:End:1.5->W:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or (Tmin=0 and Z>0):Then:"|LP"+sub("123456",|LPRTY(iPart(Z)),1)->Str7:"ZTMP2"->Str0:4->theta:prgmZCE:3->theta:prgmZCE:"If "+Str7+"(19)="+Str7+"(23) and "+Str7+"(20)="+Str7+"(24) and "+Str7+"(21)="+Str7+"(25) and "+Str7+"(22)="+Str7+"(26):1"+sub(Str9,1,1)+"K:If "+Str7+"(19)!="+Str7+"(23) or "+Str7+"(20)!="+Str7+"(24) or "+Str7+"(21)!="+Str7+"(25) or "+Str7+"(22)!="+Str7+"(26):2"+sub(Str9,1,1)+"K"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:If K=1:Then:Text(47,4,"MAX ELIXER":Text(53,4,"INEFFECTIVE!":prgmZWT:ClrDraw:1->W:End:If K=2:Then:Text(47,4,"USED MAX ELIXER!":prgmZWT:3->theta:prgmZCE:"K:For(F,19,22:"+Str7+"(F+4)"+sub(Str9,1,1)+Str7+"(F):End"->Str9:"ZTMP2"->Str0:1->theta:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:1.5->W:End:End

tifreak8x
Guru (Posts: 11009)

12 Jul 2012 03:54:12 pm

Max Ether:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:For(F,3,6:If 0<L1(F:Then:L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:End: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:12+int(.2A)->C:Ans+4->D:If L1(C)=L1(D:Then:Text(47,4,"MAX ETHER":Text(53,4,"INEFFECTIVE!":prgmZWT:1->W:Else:L1(D)->L1(C:Text(47,4,"USED MAX ETHER!":prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or Tmin=0:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:For(F,3,6:If 0<"+Str7+"(F:Then:"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:End:End:5"+sub(Str9,1,1)+"W:While W=5:Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+"   "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:End:If K=21:Then:For(F,0,30:Line(0,F,94,F,0:End:RecallPic Pic2:For(F,0,17):Line(0,F,94,F,0):End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:12+int(.2A)"+sub(Str9,1,1)+"C:Ans+4"+sub(Str9,1,1)+"D:If "+Str7+"(C)="+Str7+"(D:Then:Text(47,4,"+sub(Str9,2,1)+"MAX ETHER"+sub(Str9,2,1)+":Text(53,4,"+sub(Str9,2,1)+"INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:Else:"+Str7+"(D)"+sub(Str9,1,1)+Str7+"(C:Text(47,4,"+sub(Str9,2,1)+"USED MAX ETHER!"+sub(Str9,2,1)+":prgmZWT:1.5"+sub(Str9,1,1)+"W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:End

tifreak8x
Guru (Posts: 11009)

12 Jul 2012 04:00:39 pm

Max Potion:

Code:

If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:If L1(1)=L1(2:Then:Text(47,4,"MAX 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 MAX POTION!":L1(1)->X:L1(2)->V:V-X->J:X+J->|N:While X!=|N:min(|N,X+15)->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",|LPRTY(Z),1)->Str7:4->theta:"ZTMP3"->Str0:prgmZCE:expr(Str7+"(1)"->X:expr(Str7+"(2)"->V:"rowSwap(ZPNA"->Str0:0->theta:expr(Str7+"(43)":prgmZCE:Str9->Str4:3->theta:prgmZCE:"If X=V:Then:For(F,0,17:Line(0,F,94,F,0:End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15}:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"MAX 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:V-X"+sub(Str9,1,1)+"J:X+J"+sub(Str9,1,1)+"|N:While X!=|N:min(|N,X+15)"+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,0,17:Line(0,F,94,F,0:End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"USED MAX POTION!"+sub(Str9,2,1)+":For(F,1,100:End:For(F,3,14:Line(3,F,90,F,0:End:Text(47,4,"+sub(Str9,2,1)+Str4+sub(Str9,2,1)+","+sub(Str9,2,1)+" 'S HP"+sub(Str9,2,1)+":Text(53,4,"+sub(Str9,2,1)+"INCREASED BY"+sub(Str9,2,1)+",J,"+sub(Str9,2,1)+" POINTS!"+sub(Str9,2,1)+":prgmZWT:1.5"+sub(Str9,1,1)+"W"->Str9:1->theta:"ZTMP3"->Str0:1:prgmZCE:prgmZTMP3:6->theta:prgmZCE:End

tifreak8x
Guru (Posts: 11009)

12 Jul 2012 04:03:12 pm

Max Repel (Going to need to edit the mapping system for this to work, will be done at a later time)

Code:

If Tmin>0:Then:For(F,0,17:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:Text(47,4,"CANNOT USE ITEM":Text(53,4,"DURING BATTLES!":prgmZWT:ClrDraw:1->W:End:If W=1:Return: