Update:

Some aspects of the code fixed.

Things I've noticed while testing:

1. It clears a small section before clearing a large section and displaying the box. The box is far too big to what it should be, will be adjusting that.

2. I need to get it to not display the ->"?????? string. I'm hoping having it store to another Str# var after it recalls the name will save it. Or I might do that part long before it gets to that point.

3. I don't recall seeing the code in there to save the stat like it should.


This is where I'm at so far. The display for the pokemon with less than 100 hp is messed up because I've not fixed the display for the pokemon party to align the hp values properly. I'll try to do that later today.

It also doesn't seem to save its hp after it's been healed. I'll look into that after I get the alignment stuff fixed.

Enjoy the screenshot!
That's a good lookin' screen shot. Do you know the root of the alignment problem? Or the not saving problem?
merthsoft wrote:
That's a good lookin' screen shot. Do you know the root of the alignment problem? Or the not saving problem?
A very attractive screen shot indeed! Knowing tifreak8x, I bet he does indeed know the issue and how to fix it, but just doesn't have the time. Smile
I have to put in the special code I got from bsparks and Kerm a while back into the party creation screen. When I originally created that program, I hadn't taken into account the need to increase hp and it being less than 3 digits and it trying to correct that. Plus, it will just in general make it look nicer.

As to the not saving, I have no idea yet.

Thanks for all the compliments guys Smile
tifreak8x wrote:


This is where I'm at so far. The display for the pokemon with less than 100 hp is messed up because I've not fixed the display for the pokemon party to align the hp values properly. I'll try to do that later today.

It also doesn't seem to save its hp after it's been healed. I'll look into that after I get the alignment stuff fixed.

Enjoy the screenshot!


Looks pretty good to me! Very Happy Glad to see progress progressing!
Thanks guys! Very Happy

1) The text alignment issue had already been addressed, I just hadn't updated my ROM image I'm using for testing.

2) I've found that while it visually updates the correct pokemon's stats, it updates the wrong pokemon's actual stats in the list.

3) I've found small bugs inside the party program that needs addressing.


Edit:

I've figured out what is wrong in regards to #2. I'm not getting the pokemon # via the party list. I have to do that first before I can figure out which pokemon it can heal. Should be a very very simple fix. Once I get to it, that is.


This better? Smile

You'll see from the screenshot that I've already healed pikachu, and it works properly on the other pokemon. Now to figure out why when I back out of the party screen to the battle screen I get ERR: ARCHIVED.
Someone ought to make a TI-BASIC debugger UI for Wabbit, so you can see information about the last command to be interpreted.
That would be rather interesting. And would be quite handy in diagnosing this particular problem.
Fixed the issue with the ERR ARCHIVED bit. Seems I programmed in the unarchive bit twice in the same If Then segment. Whoops.

Also, coded in Ice Heal for the battling pokemon, and found I had missed 2 more items in the list. Seems I should go through my list and do a full comparison and see if I've missed anything.
So are Ice Heal and Hyper Potion both done, then?
Ice heal is done with for the battling pokemon, I still have to write out the code for the party pokemon and then test to make sure I didn't botch anything up. Smile
Would anyone object to, when using a status heal item, it says the item is used, makes the changes to the list, and drops back to the battle screen/item screen instead of visually altering the stat? Just curious. This is how Antidote, Awakening and Burn Heal all work right now, and it takes up less memory to do it this way.
Got Ice Heal done yesterday. Run into a slight issue, though. I don't remember the sequence of events (I do believe it was trying to use Ice Heal on the battling pokemon when it wasn't frozen) but it clears out the battle screen and redisplays the menu. Something else to look out for. Screenshots coming soon.
tifreak8x wrote:
Would anyone object to, when using a status heal item, it says the item is used, makes the changes to the list, and drops back to the battle screen/item screen instead of visually altering the stat? Just curious. This is how Antidote, Awakening and Burn Heal all work right now, and it takes up less memory to do it this way.
I think that's probably OK. The last step is nice visually, but not really necessary.
tifreak8x wrote:
Got Ice Heal done yesterday. Run into a slight issue, though. I don't remember the sequence of events (I do believe it was trying to use Ice Heal on the battling pokemon when it wasn't frozen) but it clears out the battle screen and redisplays the menu. Something else to look out for. Screenshots coming soon.
I hope the screenshot uses Ditto Smile
Indeed it does! I just need to fix this silly issue it has and I'll see about screenshotting this new action Smile
Gogogogo.
Fixed one error where it needed to UnArchive a pic var before recalling it.

Now I'm trying to figure out where it is running code that would archive lists and unarchive the battle program when it's not supposed to be doing that.
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.
  
Page 4 of 14
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement