Omnimaga
Calculator Community => Major Community Projects => Pokémon Purple => Topic started by: tifreak on April 26, 2012, 01:45:48 pm
-
So, here are a few screenshots:
(http://tifreakware.net/tifreak8x/pokemon/ss/hpbartestplus1.gif) (http://tifreakware.net/tifreak8x/pokemon/ss/hpbartestplus5.gif)
These two screenshots above show, in a perfect world when the amount of HP_Gain is either increased by 1 or increased by 5, with the HP_Gain being 200.
(http://tifreakware.net/tifreak8x/pokemon/ss/hpbartestplus1x75.gif) (http://tifreakware.net/tifreak8x/pokemon/ss/hpbartestplus5x74.gif)
Now the above two show what happens when you have an HP_Gain of a non divisible by 5 number, 74. Because everything is wrapped in a For( loop, it doesn't complete the loop properly.
I'm thinking about possible fixes right now, because doing it by +5 is an obvious need, because +1 just takes a long time with larger values. :/
Thoughts on the screenshots?
(following day):
(http://tifreakware.net/tifreak8x/pokemon/ss/hpbartestplus5x147.gif)
The above screenshot is with Weregoose's code, with the restore value of 147. Now to make this all work in the appvar to be dumped in a program to run.
This is what I've been working on as I have a few seconds here and there to deal with things. So now I have a fully working HP bar increaser for the party, I'll see about getting the actual code to work with the potions soon.
-
Woo, awesome! I'm glad you have had spare time to do stuff :)
-
woohoo!! 2012 PP updates!!! :D nice job with the HP gain. I think min( and max( are so underused even though they are super useful commands :/
-
Welcome back and glad you picked this up again. Hopefully you get more free time soon. :)
-
I've not stopped working on it, I've just decided to post the smaller updates mostly to TIFW to help eliminate spamming people out and about in the community.
And thanks :) I've been trying to work on it as much as I can.
-
Good to see you still around and working on this tifreak. :) We don't mind the cross-posting, lets some folks know it's still alive. :)
-
I went on a bit of a trip yesterday, 4 hour drive time one way, so I took some time to work on the Hyper Potion item. Here's some screen shots.
(http://tifreakware.net/tifreak8x/pokemon/ss/battlehptestcase1.gif)
The above screenshot was to show me the problem I was running into so I didn't keep getting distracted and forgetting and having to run it on the emulator. The problem ended up being a stray 'Then' command that was messing things up.
Then it popped up with this:
(http://tifreakware.net/tifreak8x/pokemon/ss/battlehptestcase2.gif)
As you can see, messed up on the recalling of the name. I had typed in ZNA instead of ZPNA for the appvar for it to look at. Simple enough fix.
http://tifreakware.net/tifreak8x/pokemon/ss/battlehptestcase3.gif
This one was really long by mistake. Oops. Shows that I had forgotten to update the list with the new HP value. Silly me.
(http://tifreakware.net/tifreak8x/pokemon/ss/battlehptestcase4.gif)
It works!
(http://tifreakware.net/tifreak8x/pokemon/ss/battlehptestcase5.gif)
And to be sure it maxes out properly. Which it did.
-
Are you using Celtic 3?
-
No, I use Celtic 2, which is no longer available to the public as far as I know.
-
Looks very good, as always. :)
Also Celtic 2 is located in the old Omnimaga RPG archives here: http://www.omnimaga.org/index.php?action=downloads;sa=view;down=262
I don't know if it's the same version as you use, though. Also it was on United-TI, but Kerm hasn't added the UTI archives to his downloads section yet.
-
Thanks DJ.
And ah. I wasn't aware, I got it from Iambian's site while it still existed, and I think I have 4 different copies floating around on my computer. I keep meaning to throw it at my archives just to keep the version I have safe.
-
And ah. I wasn't aware, I got it from Iambian's site while it still existed, and I think I have 4 different copies floating around on my computer. I keep meaning to throw it at my archives just to keep the version I have safe.
Do it now!! :P
And yeah this is looking nice :) how many items did you finish so far now?
-
Thanks!
This is item #11 (Yes, I know I'm slow) and there are at least 2 other items that aren't even close to being finished because I need to figure out how to mod the map system to allow them to work.
-
Thanks!
This is item #11 (Yes, I know I'm slow) and there are at least 2 other items that aren't even close to being finished because I need to figure out how to mod the map system to allow them to work.
I'm guessing one of them is repellent?
-
One of them I know for certain is Escape Rope. I'm doing them in alphabetical order, so.. Meh, can't remember what the other one is.
-
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.
-
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(
-
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.
-
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(
-
Maybe, I'll look into it later when I have a bit of time and test it.
-
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:
(http://tifreakware.net/tifreak8x/pokemon/ss/partyhyperpotiontest1.gif)
to where it now does this:
(http://tifreakware.net/tifreak8x/pokemon/ss/partyhyperpotiontest2.gif)
NOW it looks like the issues are within the second chunk of code.
-
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!
-
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 :)
-
(http://tifreakware.net/tifreak8x/pokemon/ss/hyperpotionfulltest1.gif)
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!
-
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
-
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!
-
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:
L99it would show:
100
Perhaps that would help minimalize the display issues?
-
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.
-
(http://tifreakware.net/tifreak8x/pokemon/ss/hyperpotionpartytest.gif)
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.
-
Looks pretty good :) and it sucks that when you fix one bug/error, another one pops up :(
-
Looks nice as always. Also I don't remember, but didn't the stats list showing levels and stuff use to have double-borders too?
-
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.
I'm not sure what you mean, DJ. Are you talking about the screen where you select which pokemon to use an item on?
-
(http://tifreakware.net/tifreak8x/pokemon/ss/frzhealtest1.gif)
Confirmed working.
Yes, I know it didn't clear the status properly, that's the fault of ZPP (which is fixed). And by fixed, I mean I fixed the placement of the status messages when switching a Pokemon from the party out to the battles. And I fixed that annoying ass bug that was plaguing me. Hooray for thinking I did something and totally not having done it. :/
Wrote the code out for the Leaf Stone to the point that it says it cannot be used during battles.
Copied the code from Elixir for Max Elixir. Made some of the changes so Max Elixir will work properly, plus I found a few optimizations in the Elixir code I can do to knock maybe 100 bytes off.
-
wow how long have you been working on this project O_o is it all BASIC/
-
VERY long. And yes it's very cool :D
also tifreak I like the layout of the pokemon.
-
I think it uses Celtic 2.
-
wow how long have you been working on this project O_o is it all BASIC/
I dunno, 7 years in September, I think.
And it's like 98% BASIC. I'm using Celtic 2, Resource, a program to post the pokemon sprites and a list to string converter. Everything else is completely in BASIC, though. :)
Thanks aeTIos :)
-
What's Resource?
-
http://www.ticalc.org/archives/files/fileinfo/372/37261.html
and a tutorial: http://tifreakware.net/tutorials/83p/b/misc/resource.htm
-
it's an asm program that copies programs from archive to ram, so you can keep things in archive when they aren't running.
[link] (http://www.ticalc.org/archives/files/fileinfo/372/37261.html)
edit: you got me, tifreak :P
i guess i'll use this post to ask a question, then. why do you have to code every item separately? isn't there some way you could combine them into a few arrays (healing, battle, etc) and then just have a few number values that determine what it does? i.e. healing items have entries for health restored, pp restored, and ailment restored. the health restored value can be anything up to 200 for hyper potions, if it's greater than 200 and less than 300 it would be taken as a percentage of health restored (so a berry with a value of 220 would restore 20% health and a max potion would have a value of 300), and 300-400 is restored even to pokemon that have fainted. pp would be simpler, with the only values necessary being 0-4. 0 would mean no effect, 1 would be ether, 2 max ether, 3 elixir, 4 max elixir. then, if the value is greater than 0, you'd just have to check modulus 2 to see if it restores 10 or all and if it's greater than 2 to see if it affects only one move or every move of every pokemon. ailment restore is fairly simple as well, with 0 being no effect, 1-5 restoring poison, paralyze, sleep, burn, ice, and 6 restoring all. how have you been doing it?
-
Each item is stored on a single line in an appvar. While the overall is going to be huge, each individual is actually very small. And trying to get all that figured out like your saying for 118 items would break me. Plus, I've already went and got all this other done..
-
I still remember that as early as the old Omni board started, you asked a Pokémon Purple sub forum and it was one of the first featured project sub-forum to be added in 2005. I bet this is the third longest calc project in the works so far, after Doors CS and CALCnet. Also it's the 2nd largest project board on Omni now since the old board topics about the game were moved in the current sub-forum.
Also nice to see new progress, as always. Hopefully by the time you release it, the TI-84+SE emulator will still be present in the TI-Nspire OSes so I can try it. :)
-
Oh hey, would you look at that, I'm still alive.
With the help of KermM and JamesV, benryve's sprite routine was slightly updated to xor instead of or. Pending any of you know what that means. lol
Anyways:
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation2.gif)
Well, it didn't turn out as badly as I thought it was going to. However, seems my hex was a bit wibbly-wobbly there on sprite 3. Going to have to fix that.
Edit:
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation3.gif)
That better? :)
Edit2:
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation4.gif)
Thoughts? I'm considering making the bounce happen a couple of more times with a 'stationary' pokeball, then have it open, sort of.
-
That looks awesome O.O I'm glad they modified it to use XOR :D Since it is a program, SMC could be used so that another argument can tell how to draw the sprite (XOR, OR, AND, Overwrite). That's what I used to do with my utilities.
-
Well, we didn't have the source file, they had to edit the binary and recalculate the checksum. lol Doing what you suggest would require a rewrite of the program, since benryves hasn't been active for a month.
-
Psh, that won't be hard :P Remember, I used to program solely in hex, so I can definitely modify code without making life too difficult. I actually built a compiler on calc just for this kind of thing, so I will see what I can do :) I just have to read through the code to figure out where to insert the 14 bytes.
EDIT: Never mind, it seems you have what you need now. I still want to give it a try :D
Oh, and I made a mistake, it should be 15 bytes
EDIT2: It took a few minutes after I got off the phone with my mother >.> However, attached is a modified version that is in fact 13 bytes bigger than the original, as well as showing the program in action. Just include the " or " token in front of the string to use OR logic, otherwise it defaults to XOR.
-
wow, some necro-update, but's it's looking awesome! Keep the good work going! :D
-
I hadn't posted this one here yet:
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation6.gif)
Closing in on making it look like the pokemon may or may not get caught! :D
Edit:
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation7.gif)
This is with the 'cloud' that happens when the pokeball pops open to get at the pokemon. Thoughts?
-
well, /me thinks that it looks good.
there isn't really any way it could be improved.
-
Thanks shmibs :) I think I'm going to stick with that animation myself.
-
It's looking awesome as always :D
-
Thanks! Going to try to add the pokeball wiggling later on, see how that looks.
-
I like it! Glad there will be animations in this game. :D
-
I didn't think there would be before, but the editing of benryve's program is going to make that possible now. :)
-
Hey, it looks really nice with the animations! :D
-
Thanks, wait until I get the next bit of animating done for the actual capture :D Hopefully it will look as good as this.
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation8.1.gif)
So, I've done 2 things here:
1) I made the pokeball bounce lose height as it bounces
2) Pokeball now wiggles :D
Thoughts?
-
That looks very nice! If possible, try to make it wiggle right, then left, then right again and then it will look like how it does it in the game o.o
-
Wow, this i very awesome, even more if you think about it being basic O.O
-
(http://tifreakware.net/tifreak8x/pokemon/ss/pokeballanimation9.gif)
This is the animation that I think I'm going to stick with. Now to make it actually catch pokemon based on the things needed.
-
I think you might win the award for most dedicated to a calculator project. I remember this being an ongoing project over at UTI back in 2008 when I first started. And I thought it was dead back then! But here you are 4 years later, (after my complete trip through high school), still working on it.
I congratulate you.
-
Heh, thanks :)
I'm not going to stop on this project until it is complete. One way or another, this game will be finished, I just wish I had more time to focus on this, and energy, of course. That's always an important thing to have.