Come to find out, it was running the code before it got to the spot where I needed. Seems there was a misplaced End, so I've moved it and fixed that problem, but developed yet another new one. This one is far harder to figure out, though.
When I view the stats of a pokemon, it refuses to use the sub-menu anymore. It recognizes that I can go up and down with the options, and that I am pressing the 2nd key to select, but it isn't doing anything. I am currently at a loss with this problem, but I'm continuing to look into any possible reasons it isn't working.
In the mean time:
Code: If Tmin>0:Then:"ZBA"->Str0
5->theta:prgmZCE:End
6->W:0->Y
While iPart(W)=6
If fPart(W)=.5:8->W
If W=6:Then
ClrDraw
For(D,0,52,52)
For(C,Ymax,20,~21)
Line(D+1,C,D+41,C
Line(D,C-1,D,C-17
Line(D+1,C-18,D+41,C-18
Line(D+42,C-1,D+42,C-17
Line(D+3,C-14,D+27,C-14
Line(D+3,C-16,D+27,C-16
Pt-On(D+2,C-15
Pt-On(D+28,C-15
End
End
UnArchive |LP1
SetUpEditor |LP2
SetUpEditor |LP3
SetUpEditor |LP4
SetUpEditor |LP5
SetUpEditor |LP6
SetUpEditor |LPRTY
"rowSwap(ZPNA"->Str0
0->theta
DelVar E
For(C,2,54,52
For(D,1,43,21
If C=2 and D=1 and Tmin>0:5->U
E+1->E
iPart(|LPRTY(E->Z
"|LP"+sub("123456",Z,1->Str7
expr(Str7+"(43"->PV
If U=5:L1(43->PV
If PV>0:Then
PV
prgmZCE
Text(D,C,Str9
expr(Str7+"(1"->|N
expr(Str7+"(2"->I%
If U=5:Then:L1(1->|N:L1(2->I%:End
Text(D+6,C+4(2-int(log(|N))),|N
Text(D+6,C+12,"/"
Text(D+6,C+16+4(2-int(log(I%))),I%
iPart((|E2(|N/I%)).25->K
47(D=1)+26(D=22)+5(D=43->F
Line(C+1,F,(C+1)+K,F
expr(Str7+"(46"->FV
If U=5:L1(46->FV
Text(D+6,C+29,"|L",FV
expr(Str7+"(44"->PMT
If U=5:L1(44->PMT
If PMT>0:Then
Text(D+12,C+28," ",sub("BRNPSNPARSLPFNTFRZ",3PMT-2,3
If 26=abs(C-28
Text(D+6,C-4+46(C=2),"!"
End
0->U
End
End
End
End
8->W:8->A:1->U
StorePic Pic2
While W=8
Text(A,46,sub("<>",U,1
getKey->K
If K:Text(A,46," "
A+20((K=34 and A<48)-(K=25 and A>8->A
U+(K=26 and U<2)-(K=24 and U>1->U
If K=31:Then:ClrDraw:DelVar Pic2DelVar |LMTDelVar Pic3DelVar L4DelVar L6
If H=2:Then:RecallPic Pic1
"ZBA"->Str0:5->theta
prgmZCE
End
Archive |LP1
Archive |LP2
Archive |LP3
Archive |LP4
Archive |LP5
Archive |LP6
2->W
If H=3:1->W
Return
End
If K=21:Then
3U+.05(A-48->Z
iPart(|LPRTY(Z->Y
"|LP"+sub("123456",Y,1->Str7
expr(Str7+"(43"->Y
If Y>0:Then
If H=3:Then
4->theta
"ZTMP"->Str0
prgmZCE
"rowSwap(ZITU"->Str0
0->theta
iPart(|LIT(B
prgmZCE
"ZTMP"->Str0
1->theta
1:prgmZCE
DelVar Str9
prgmZTMP
"ZTMP"->Str0
6->theta:prgmZCE
If W=1.5:Then
|LIT(B)-.01->|LIT(B
If |E2fPart(|LIT(B))=0
Then
0->|LIT(B
|LIT->T
max(cumSum(Ans xor 0)not(Ans-dim(|LT
augment(|LT,seq(|LIT(X),X,Ans+2,dim(|LIT->|LIT
End:End
If Z>1 and Tmin>0:Then:ClrDraw:RecallPic Pic1:End
"0ZEF"
prgmZRS:prgmTEMP:prgmZC1
Archive |LP1
Archive |LP2
Archive |LP3
Archive |LP4
Archive |LP5
Archive |LP6
"ZBA"->Str0:5->theta
prgmZCE
End
If H=1:Then
"ZTMP"->Str0:4->theta:prgmZCE
"rowSwap(ZMISC"->Str0:0->theta:3:prgmZCE:"ZTMP"->Str0:1->theta:1:prgmZCE:prgmZTMP:6->theta:"ZTMP"->Str0:prgmZCE:DelVar Str9
A->G:K->N
9->W
While W=9
Text(A,N-4,">"
getKey->K
If K:Text(A,N-4," "
A-6((K=25 and A>G)-(K=34 and A<53->A
If K=21:Then
(A-G)/6+1->Y
|LMT(Y->Y
If Y<0:Then
If Y=~3:Then
For(F,0,D+4
Line(C-3,F,94,F,0
End
RecallPic Pic2
6.5->W
End
If Y=~1:Then
iPart(|LPRTY(Z->Y
3->theta:prgmZCE
expr("|LP"+sub("123456",Y,1->L3
4->Z:"0ZMISC"
prgmZRS:prgmTEMP:prgmZC1
6->W:End
If Y=~2:Then
For(F,0,D+4)
Line(C-3,F,94,F,0
End
RecallPic Pic2
7->W:1->U:8->A
While W=7
Text(A,46,sub("<>",U,1
getKey->K
If K:Text(A,46," "
A+20((K=34 and A<48)-(K=25 and A>8->A
U+(K=26 and U<2)-(K=24 and U>1->U
If K=31:Then
6.5->W:1->U:8->A
End
If K=21:Then
3U+.05(A-48->I
|LPRTY(iPart(Z->J
|LPRTY(I->|LPRTY(iPart(Z
J->|LPRTY(I
For(F,0,1)
iPart(Z->N:If F:I->N
66-21(Ans-3(Ans>3
For(theta,Ans-1,Ans+17)
Line(50(N>3),theta,50(N>3)+44,theta,0
End
End
For(F,0,1)
iPart(Z->N:If F:I->N
66-21(Ans-3(Ans>3->D
Line(52(N>3)+1,D-1,52(N>3)+41,D-1
Line(52(N>3)+1,D+17,52(N>3)+41,D+17
Line(52(N>3),D,52(N>3),D+16
Line(52(N>3)+42,D,52(N>3)+42,D+16
Line(52(N>3)+3,D+1,52(N>3)+27,D+1
Line(52(N>3)+3,D+3,52(N>3)+27,D+3
Pt-On(52(N>3)+2,D+2
Pt-On(52(N>3)+28,D+2
End
0->theta:"rowSwap(ZPNA"->Str0
For(F,0,1)
iPart(Z->N:If F:I->N
1(N=1 or N=4)+22(N=2 or N=5)+43(N=3 or N=6->D
"|LP"+sub("123456",|LPRTY(N),1->Str7
expr(Str7+"(43"->PV
If PV>0:Then
PV:prgmZCE
Text(D,2+52(N>3),Str9
expr(Str7+"(1"->|N
expr(Str7+"(2"->I%
Text(D+6,2+52(N>3),|N,"/",I%
iPart((|E2(|N/I%)).25->K
47(D=1)+26(D=22)+5(D=43->X
Line(3+52(N>3),X,(3+52(N>3))+K,X
expr(Str7+"(46"
Text(D+6,(2+52(N>3))+29,"|L",Ans
expr(Str7+"(44"->PMT
If PMT>0:Then
Text(D+12,(2+52(N>3))+28," ",sub("BRNPSNPARSLPFNTFRZ",3PMT-2,3
Text(D+6,(2+52(N>3))-4+46(N<4),"!"
End
End
End
6.5->W
End
End
End
End
End
End
End
If H=2:Then
41->Q:94->N:0->O:62->C:21->D
For(F,0,24
Line(59,F,94,F,0
End
"0ZBD"
prgmZRS:{N,O,C,D
prgmTEMP:prgmZC1
Text(41,68,"SWITCH"
Text(47,70,"STATS"
Text(53,68,"CANCEL"
StorePic Pic3
1->W
9->W:While W=9
Text(Q,64,">"
getKey->K
If K:Text(Q,64," "
Q-6((K=25 and Q>41)-(K=34 and Q<53->Q
If K=21:Then
If Q=53 and U:Then
For(F,0,24
Line(59,F,94,F,0
End
UnArchive Pic2
RecallPic Pic2:6.5->W
DelVar Pic3DelVar U
End
If Q=47 and U:Then
iPart(|LPRTY(Z->Y
3->theta:prgmZCE
L1->L3
expr("|LP"+sub("123456",Y,1->L1
"ZTMP"->Str0:4->theta:prgmZCE
"rowSwap(ZMISC"->Str0:0->theta:4:prgmZCE
"ZTMP"->Str0:1->theta:1:prgmZCE:prgmZTMP
"ZTMP"->Str0:6->theta:prgmZCE:0->theta
L3->L1:ClrDraw
RecallPic Pic3:DelVar L3DelVar Pic3DelVar U
End
If Q=41 and U:Then
iPart(|LPRTY(Z->Y
expr("|LP"+sub("123456",Y,1)+"(1"->G
If G<1 or Y=iPart(|LPRTY(1)) or fPart(|LPRTY(Y))=.5:Then
For(F,0,17
Line(0,F,94,F,0
End
"0ZBD"
prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1
If Y=iPart(|LPRTY(1:Then
Text(47,4,"POKEMON ALREADY OUT!"
prgmZWT:End
If fPart(|LPRTY(Y))=.5:Then
Text(47,4,"CANNOT SEND"
Text(53,4,"FAINTED POKEMON!"
prgmZWT:End
For(F,0,24
Line(0,F,94,F,0
End
RecallPic Pic2
6.5->W:8->A:1->U
End
If G>0 and Y!=iPart(|LPRTY(1)) and fPart(|LPRTY(Y))=0:Then
expr("|LP"+sub("123456",iPart(|LPRTY(1)),1->L4
L1(1->L4(1:L1(19->L4(19:L1(20->L4(20
L1(21->L4(21:L1(22->L4(22:L1(44->L4(44
"ZTMP"->Str0:4->theta:prgmZCE
3->theta:prgmZCE
"L4"+sub(Str9,1,1)+"|LP"+sub("123456",iPart(|LPRTY(1)),1->Str9
2->theta:1:prgmZCE:prgmZTMP:6->theta:prgmZCE
3U+.05(A-48->I
|LPRTY(iPart(1->J
|LPRTY(I->|LPRTY(iPart(1
J->|LPRTY(I
If min(I!=|LBALI:Then
1+dim(|LBALI->dim(|LBALI
I->|LBALI(dim(|LBALI
End
ClrDraw:RecallPic Pic1
For(F,19,42
Line(10,F,40,F,0
End
"rowSwap(ZPNA"->Str0:0->theta
If L1(1)>0:Then
L1(43:prgmZCE
Text(47,4,"THAT'S ENOUGH,"
Text(53,4,Str9," !"
End
rand(99)
For(F,4,14
Line(4,F,90,F,0
End
expr("|LP"+sub("123456",|LPRTY(1),1->L1
L1(43:prgmZCE
iPart(|E2(L2(1)/L2(2->A
If A>49
Text(47,4,"GO! ",Str9,"!"
If A<50
Text(47,4,"DO IT, ",Str9,"!"
"rowSwap(ZPMA"->Str0
L1(43:prgmZCE
Str9->Str4:DelVar Str9
~32->I:21->J:Asm(prgmZSP2
Line(65,25,89,25,0
Line(65,25,65+.25iPart(|E2(L1(1)/L1(2))),25
Text(29,70," "
Text(29,70,L1(46
If L1(44)>0:Text(29,76,sub("BRNPSNPARSLPFNTFRZ",3L1(44)-2,3
For(F,4,14
Line(4,F,90,F,0
End
StorePic Pic1
DelVar Pic2DelVar Pic3DelVar L4DelVar U
Archive |LP1
Archive |LP2
Archive |LP3
Archive |LP4
Archive |LP5
Archive |LP6
"ZBA"->Str0:5->theta
prgmZCE
Return
End
End
DelVar K
End
End
End
End
End
End
End
This is the party display code, and where the problems lie in.
Edit: Code was updated with some small fixes I made that sadly had no impact on the problem I currently have.