Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
Online Users
There are 105 users online: 8 members, 73 guests and 24 bots.
Members: ACagliano, DShiznit, Kllrnohj, Spyro543.
Bots: Spinn3r (2), MSN/Bing (1), VoilaBot (2), Googlebot (18), MSN/Bing (1).
RSS & Social Media
SAX
You must log in to view the SAX chat widget
|
| Author |
Message |
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
 Posted: 01 May 2012 12:42:56 pm Post subject: |
 |
|
Woo! I can't wait to see those new changes 
I hope some of my suggestions and requests have made it into the tokens files?
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
merthsoft
File Archiver
Joined: 09 May 2010
Posts: 2735
|
| Posted: 01 May 2012 01:44:12 pm Post subject: |
|
|
I think they're up to date with your fixes. It's possible I missed some, though.
_________________
Shaun |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 28 May 2012 09:20:11 pm Post subject: |
|
|
Started the code for Battle Screen HP recovery. Thought I'd need to run the emulator, stop it after the HP bar was thrown up, and then get my coordinates from that. Had forgotten I could just get it from the program that generates it, so I'll be looking into that soon. Shouldn't take long to write the code for that and get it working so I can move on to other items.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 29 May 2012 09:08:22 am Post subject: |
|
|
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(ZNA"->Str0:0->theta:L1(43:prgmZCE:
Text(47,4,"USED HYPER POTION!":
L1(1)->X:L1(2)->V:
If V-X<200:Then: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!":
prgmZWT:
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:
Str7+"(1)"+sub(str9,1,1)+"X:"
+Str7+"(2)"+sub(Str9,1,1)+"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):
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:Return:End:End
What I have so far, getting close to being able to test it on calc/emulator.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55773
Location: Earth, Sol, Milky Way
|
| Posted: 29 May 2012 09:29:36 am Post subject: |
|
|
I'm curious if SourceCoder + jsTIfied would help you iterate some of these tests faster when you don't have your calculator handy.  What's still to be done on this code that is preventing you from testing it out?
_________________
 
 
 |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 29 May 2012 09:38:40 am Post subject: |
|
|
I have to make sure to set a few variables (Can't remember what they are off hand), make sure it looks like the code will run properly, and make it all be on one line so I can drop it into the appvar to test.
And I already have a ROM image set up for it with Wabbitemu, just a matter of updating the list file and dropping the list and appvar into the emulator.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 10 Jun 2012 05:28:24 pm Post subject: |
|
|
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.
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:
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.
It works!
And to be sure it maxes out properly. Which it did.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55773
Location: Earth, Sol, Milky Way
|
| Posted: 11 Jun 2012 08:20:55 am Post subject: |
|
|
Coding while driving, eh? That's pretty impressive multitasking! Anyway, great job tracking down those three bugs and discovering that other features were working properly. Excelsior!
_________________
|
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 11 Jun 2012 08:33:29 am Post subject: |
|
|
Haha, well, I was riding, Dad did the driving.
I still have to figure out why it's not working for the party pokemon. So much fun that is going to be.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
merthsoft
File Archiver
Joined: 09 May 2010
Posts: 2735
|
| Posted: 11 Jun 2012 12:02:58 pm Post subject: |
|
|
That looks great! And it seems plenty speedy enough, which is always a concern of mine when it comes to animation in BASIC
_________________
Shaun |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 11 Jun 2012 03:52:35 pm Post subject: |
|
|
Thanks shaun! It was a bit of a concern for me as well, I'm just happy it moves along quickly enough. I'm sure it would be far more noticeable on a pokemon with less of an HPMax value.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 13 Jun 2012 08:27:47 am Post subject: |
|
|
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:
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.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 14 Jun 2012 06:36:12 am Post subject: |
|
|
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.
Code:
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,30: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
is what I'm currently looking through to figure out where my errors are.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
JoeYoung
Advanced Member
Joined: 18 Dec 2008
Posts: 278
|
| Posted: 14 Jun 2012 09:15:00 am Post subject: |
|
|
Hey Tifreak8x
I've given up Pokemon, but I'd like my sprites to go to good use if you want them. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 14 Jun 2012 09:55:26 am Post subject: |
|
|
I suppose I can take a look at them, but I can't make any promises on the using them, since I already have the 151 pokemon sprites done. I just have the NPCs left to complete.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
JoeYoung
Advanced Member
Joined: 18 Dec 2008
Posts: 278
|
| Posted: 14 Jun 2012 03:06:45 pm Post subject: |
|
|
| tifreak8x wrote: | | I suppose I can take a look at them, but I can't make any promises on the using them, since I already have the 151 pokemon sprites done. I just have the NPCs left to complete. |
thats fine.
453 of them, all 151 pokemon, three frames apiece.
Made specifically for monochrome display, IMO they're way better than the game rips. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 21 Jun 2012 08:21:05 am Post subject: |
|
|
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",Z,1)->Str7:4->theta:"ZTMP3"->Str0:prgmZCE:3->theta:prgmZCE:expr(Str7+"(1)")->X:expr(Str7+"(2)")->V:"If X=V:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27: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,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:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:Text(47,4,"+sub(Str9,2,1)+"USED HYPER POTION!"+sub(Str9,2,1)+":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
Latest rendition of the Hyper Potion code. I haven't tested this just yet. I had to move the code that creates the box to display text into two other places, because otherwise it was going to interfere with the bottom two, maybe even 4 boxes on restoring HP.
I think I still need to add the small code snippet to clear the box after it says 'Used Hyper Potion!' in the second code segment.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55773
Location: Earth, Sol, Milky Way
|
| Posted: 21 Jun 2012 11:49:02 am Post subject: |
|
|
That should be three commands, a For, Line, and End, should it not?
_________________
|
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 21 Jun 2012 03:33:58 pm Post subject: |
|
|
Yeah, essentially
I just didn't do it this morning, and I have to remember which of the values I need, since I have 3 or 4 different box clearing routines.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9071
Location: Sol System
|
| Posted: 24 Jun 2012 09:27:03 pm Post subject: |
|
|
So, attempted a test on my updated code. Got a 'ERR: DATA TYPE' and it stopped on "0ZBD"
Wait, what? :/
Programming sucks </3
Joking, of course
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
|
|
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
|
© Copyright 2000-2013 Cemetech & Kerm Martian :: Page Execution Time: 0.043608 seconds.
|
![[t]](/forum/templates/Cemetech6/images/twitter.png)
![[t]](/forum/templates/Cemetech6/images/fb.png)
![[RSS]](/forum/templates/Cemetech6/images/rss.png)
