Progress 2012 [PP]

[tifreak]

Code: Select All | Copy To Clipboard

1 2 3 4

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

The second segment of the code is where I'm currently having my issues with. I'll get around to cutting through the code as I have time over the course of the next few days.

[jsj795]

If (Tmin>0 and Z>1) or Tmin=0//you don't need parenthesis there
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

The last part is terribly wrong.
why are you putting the +sub( stuff within the quotation mark?

The last part, instead should be:

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

and so on.

But if you were putting those commands in string so you can just evaluate those strings later, then you forgot the quotation mark in front of that very first Text(

[tifreak]

Um, the second part is very correct. It has to dynamically build the string based on which of the 6 lists it will be using, then dump that into a temporary program in order to run. The way I have things set up, I have to have all closing quotes and as far as I know, parenthesis.

The sub(Str9,2,1) is a quotation mark stored in a string, to be dropped into a string.

[jsj795]

yeah i thought so after looking through your code a bit more. So yeah, I think problem was the fact that there was no quotation mark in front of first Text(

[tifreak]

Maybe, I'll look into it later when I have a bit of time and test it.

[tifreak]

It seems that the first segment of the code was partially causing my problems. I failed to add in the appropriate 'End' statement to finish off the first If Then. That has partially fixed my issues. I went from:



to where it now does this:



NOW it looks like the issues are within the second chunk of code.

[jsj795]

I always hate those obscure Ends, getting placed somewhere wrong, not getting placed at all, extra End getting placed, etc.

Good luck fixing the other codes!

[tifreak]

So, I've partially gotten things fixed up with the Hyper Potion usage with. I need to move the name retrieval outside of the code I'm currently working with and put it before that all and drop it in a temp Str# variable. This should fix my biggest issue that I have right now.

The text box I'm creating is also way too large. I need to jump into there and get that changed around to the smaller sized box.

After that, we'll see what else is left in finishing off the Hyper Potion. At the very least, it does now actually increase the HP stat

[tifreak]

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!

[shmibs]

sometimes i can't believe that you're still pugging away at this =)
it's looking pretty great.
what are you going to do with level 100 pokemons? the gui doesn't look like it could fit a 3 digit number in there

[tifreak]

Hm, they did go to 100, didn't they?

Well, it will just overwrite the border, because I'm not too concerned with it. Who is going to spend the time to level them up that high on with this game? :p

And yep! I'm not going to give up on this game if it can at all be helped!

[FinaleTI]

I seem to recall that the original Pokemon games dropped the 'L' signifying the level when a Pokemon reached level 100, so instead of displaying this:

Code: Select All | Copy To Clipboard

1

L99

it would show:

Code: Select All | Copy To Clipboard

1

100

Perhaps that would help minimalize the display issues?

[tifreak]

Thanks, that's a heck of an idea.

I don't remember much about getting my pokemon up to 100, that was ages and ages ago. I'll take a look at implementation next time I pop open the code for the party system.

[tifreak]

This better?

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.

[jsj795]

Looks pretty good and it sucks that when you fix one bug/error, another one pops up