It would be awesome if you could get that working, it would definitely help so I wouldn't have to wait to look that kind of stuff up since I don't have internet access while waiting on stores to open.

Edit:

It would also be nice if you could set up a project system of sorts? Or at least we need to sit down and figure out wtf is wrong Tokens on both my machines to have it trying to save to the Windows folder.
Your computers are dumb...
:<

Where does it store where to save things? Maybe I can clear that out somewhere?

Or maybe you can have a config file so one can set it and it actually STAYS that way. :p
WOO! *throws a FREAKING PARTY man*

I finally found the issue. It seems, that in an unrelated bit of code, I was missing an End statement. What threw me was that the loop this missing End statement was in was still working. At least the thing is fixed now. :/

And for your viewing pleasure, testing out the party pokemon with ether and the result:



I think I already got those bits fixed, still amused me, so I thought I'd show it off.
Hahahaha, nice screen shot Smile I like triangles.

Good work, though, glad you found your issue!
Thanks Very Happy And yes, now I am remotivated to work on it.

Just have to finish working out the bugs on party Ether usage and I can move on to whatever item is next :p
Is that triangle one of the begin-battle animations?
Nope Smile

That's simply me doing Line(0,F,94,0 instead of Line(0,F,94,F,0 :p
tifreak8x wrote:
Nope Smile

That's simply me doing Line(0,F,94,0 instead of Line(0,F,94,F,0 :p


But....why?
I clear out the space on the party screen so it can list the 4 attacks the pokemon might know so you can select one of the attacks to give 10 PP to from the ether. Smile

Edit:

Sadness. Tested the latest fixes, and they worked! However, I got an Error Syntax on the very last End statement.

I throw the whole of ZITU into SC, and SC says there are the proper amount of Ends for the rest. :< Going to have to see if I've put an End in a place where it needs to be elsewhere.
I'm an evil double poster, oh yes I am~!


Code:
If Tmin>0 and Z=1:Then:ClrDraw:RecallPic Pic1:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:For(F,3,6:If 0<L1(F:Then:L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:End:End:5->W:While W=5:Text(A,5,">":getKey->K:If K:Text(A,5,"   ":A+6((K=34 and A<Tmax)-(K=25 and A>35->A:If K=31:Then:ClrDraw:1->W:End:If K=21:Then:For(F,4,14:Line(4,F,90,F,0:End:For(F,15,30:Line(0,F,94,F,0:End:RecallPic Pic1:If A=35:Then:If L1(19)>=L1(23:Then:Text(47,4,"ETHER INEFFECTIVE":prgmZWT:1->W:End:If L1(19)<L1(23:Then:Text(47,4,"USED ETHER!":10+L1(19->L1(19:If L1(19)>L1(23:L1(23->L1(19:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=41:Then:If L1(20)>=L1(24:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(20)<L1(24:Then:Text(47,4,"USED ETHER!":prgmZWT:10+L1(20->L1(20:If L1(20)>L1(24:L1(24->L1(20:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=47:Then:If L1(21)>=L1(25:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(21)<L1(25:Then:Text(47,4,"USED ETHER!":10+L1(21->L1(21:If L1(21)>L1(25:L1(25->L1(21:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:If A=53:Then:If L1(22)>=L1(26:Then:Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:End:If L1(22)<L1(26:Then:Text(47,4,"USED ETHER!":10+L1(22->L1(22:If L1(22)>L1(26:L1(26->L1(22:prgmZWT:1.5->W:End:For(F,4,14:Line(4,F,90,F,0:End:End:End:End:End:If iPart(W)=1:Return:If (Tmin>0 and Z>1) or Tmin=0:Then:For(F,0,30:Line(0,F,94,F,0:End:"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:For(F,3,6:If 0<"+Str7+"(F:Then:"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:End:End:5"+sub(Str9,1,1)+"W:While W=5:Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+"   "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:End:If K=21:Then:For(F,0,30:Line(0,F,94,F,0:End:RecallPic Pic2:For(F,0,17):Line(0,F,94,F,0):End:"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:If A=35:Then:If "+Str7+"(19)>="+Str7+"(23:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(19)<"+Str7+"(23:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(19"+sub(Str9,1,1)+Str7+"(19:If "+Str7+"(19)>"+Str7+"(23:"+Str7+"(23"+sub(Str9,1,1)+Str7+"(19:1.5"+sub(Str9,1,1)+"W:End:End:If A=41:Then:If "+Str7+":(20)<"+Str7+"(24:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(20)<"+Str7+"(24:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(20"+sub(Str9,1,1)+Str7+"(20:If "+Str7+"(20)>"+Str7+"(24:"+Str7+"(24"+sub(Str9,1,1)+Str7+"(20:1.5"+sub(Str9,1,1)+"W:End:End:If A=47:Then:If "+Str7+"(21)<"+Str7+"(25:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(21)<"+Str7+"(25:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(21"+sub(Str9,1,1)+Str7+"(21:If "+Str7+"(21)>"+Str7+"(25:"+Str7+"(25"+sub(Str9,1,1)+Str7+"(21:1.5"+sub(Str9,1,1)+"W:End:End:If A=53:Then:If "+Str7+"(22)<"+Str7+"(26:Then:Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:End:If "+Str7+"(22)<"+Str7+"(26:Then:Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(22"+sub(Str9,1,1)+Str7+"(22:If "+Str7+"(22)>"+Str7+"(26:"+Str7+"(26"+sub(Str9,1,1)+Str7+"(22:1.5"+sub(Str9,1,1)+"W:End:End:End:End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:End


The issue I've run into is it Error Syntax'es on the End"->Str9 bit there towards the end of the code. Everything before "If (Tmin>0 and Z>1) or Tmin=0:Then:" works.

Edit:


Code:
If Tmin>0 and Z=1:Then:

ClrDraw:RecallPic Pic1:

For(F,4,14:Line(4,F,90,F,0:
End:

For(F,15,30:Line(0,F,94,F,0:
End:

"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"rowSwap(ZAN"->Str0:0->theta:35->Tmax:35->A:

For(F,3,6:

If 0<L1(F:Then:
L1(F:prgmZCE:Tmax+6->Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log(L1(F+16)))),L1(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"/",L1(F+20:
End:
End:

5->W:

While W=5:

Text(A,5,">":getKey->K:If K:Text(A,5,"   ":A+6((K=34 and A<Tmax)-(K=25 and A>35->A:

If K=31:Then:ClrDraw:1->W:
End:

If K=21:Then:

For(F,4,14:Line(4,F,90,F,0:
End:

For(F,15,30:Line(0,F,94,F,0:
End:

RecallPic Pic1:

If A=35:Then:
If L1(19)>=L1(23:Then:
Text(47,4,"ETHER INEFFECTIVE":prgmZWT:1->W:
End:
If L1(19)<L1(23:Then:Text(47,4,"USED ETHER!":10+L1(19->L1(19:If L1(19)>L1(23:L1(23->L1(19:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:

If A=41:Then:
If L1(20)>=L1(24:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(20)<L1(24:Then:
Text(47,4,"USED ETHER!":prgmZWT:10+L1(20->L1(20:If L1(20)>L1(24:L1(24->L1(20:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:

If A=47:Then:
If L1(21)>=L1(25:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(21)<L1(25:Then:
Text(47,4,"USED ETHER!":10+L1(21->L1(21:If L1(21)>L1(25:L1(25->L1(21:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:

If A=53:Then:
If L1(22)>=L1(26:Then:
Text(47,4,"ETHER INEFFECTIVE!":prgmZWT:1->W:
End:
If L1(22)<L1(26:Then:
Text(47,4,"USED ETHER!":10+L1(22->L1(22:If L1(22)>L1(26:L1(26->L1(22:prgmZWT:1.5->W:
End:
For(F,4,14:Line(4,F,90,F,0:
End:
End:

End:
End:
End:

If iPart(W)=1:Return:

-------------------------------------------------------------

If (Tmin>0 and Z>1) or Tmin=0:Then:

For(F,0,30:Line(0,F,94,F,0:
End:

"0ZBD":prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:"|LP"+sub("123456",|LPRTY(Z),1)->Str7:35->A:35->Tmax:4->theta:"ZTMP2"->Str0:prgmZCE:3->theta:prgmZCE:"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:

For(F,3,6:
If 0<"+Str7+"(F:Then:
"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:
End:
End:

5"+sub(Str9,1,1)+"W:

While W=5:

Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+"   "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:

If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:
End:

If K=21:Then:

For(F,0,30:Line(0,F,94,F,0:
End:

RecallPic Pic2:

For(F,0,17):Line(0,F,94,F,0):
End:

"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:

If A=35:Then:
If "+Str7+"(19)>="+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(19)<"+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(19"+sub(Str9,1,1)+Str7+"(19:If "+Str7+"(19)>"+Str7+"(23:"+Str7+"(23"+sub(Str9,1,1)+Str7+"(19:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=41:Then:
If "+Str7+":(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(20"+sub(Str9,1,1)+Str7+"(20:If "+Str7+"(20)>"+Str7+"(24:"+Str7+"(24"+sub(Str9,1,1)+Str7+"(20:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=47:Then:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(21"+sub(Str9,1,1)+Str7+"(21:If "+Str7+"(21)>"+Str7+"(25:"+Str7+"(25"+sub(Str9,1,1)+Str7+"(21:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=53:Then:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(22"+sub(Str9,1,1)+Str7+"(22:If "+Str7+"(22)>"+Str7+"(26:"+Str7+"(26"+sub(Str9,1,1)+Str7+"(22:1.5"+sub(Str9,1,1)+"W:
End:
End:

End:
End"->Str9:1->theta:"ZTMP2"->Str0:1:prgmZCE:prgmZTMP2:6->theta:"ZTMP2"->Str0:prgmZCE:

End


I wonder how badly this will break Cemetech? :p
Oh no! A triple post! Surprised The horrors!

Anyways, I can't seem to figure out where this problem is with the party using ether code. I was able to print and line each section to know where each End command was supposed to go. Ehter code is perfect as is, so why is it that this is giving me such issues?

On a side note, I took out one End command from the While loop in the second section, where all the code is compiled in the basic program to be dropped in a second temp program? Yeah, that made it happy.

IT MAKES NO DAM SENSE!!!
My guess would be you need a : after the end so it reads End:"->Str9, also makeing it ""->Str9 might help as well.
Sadly, that doesn't work either. :< It still errors out on the End statement.

This makes no blasted sense.. :<

Code:
If "+Str7+"(21)<"+Str7+"(25:Then:

How does the calculator even let you run that?
Because it's creating a string to dump into a temp program so the temp program can run Smile


Code:
"0"+sub(Str9,1,1)+"theta:"+sub(Str9,2,1)+"rowSwap(ZAN"+sub(Str9,2,1)+sub(Str9,1,1)+"Str0:

For(F,3,6:
If 0<"+Str7+"(F:Then:
"+Str7+"(F:prgmZCE:Tmax+6"+sub(Str9,1,1)+"Tmax:Text(35+6(F=4)+12(F=5)+18(F=6),9,Str9:Text(35+6(F=4)+12(F=5)+18(F=6),70+4(1-int(log("+Str7+"(F+16)))),"+Str7+"(F+16:Text(35+6(F=4)+12(F=5)+18(F=6),78,"+sub(Str9,2,1)+"/"+sub(Str9,2,1)+","+Str7+"(F+20:
End:
End:

5"+sub(Str9,1,1)+"W:

While W=5:

Text(A,5,"+sub(Str9,2,1)+">"+sub(Str9,2,1)+":getKey"+sub(Str9,1,1)+"K:If K:Text(A,5,"+sub(Str9,2,1)+"   "+sub(Str9,2,1)+":A+6((K=34 and A<Tmax)-(K=25 and A>35"+sub(Str9,1,1)+"A:

If K=31:Then:ClrDraw:1"+sub(Str9,1,1)+"W:
End:

If K=21:Then:

For(F,0,30:Line(0,F,94,F,0:
End:

RecallPic Pic2:

For(F,0,17):Line(0,F,94,F,0):
End:

"+sub(Str9,2,1)+"0ZBD"+sub(Str9,2,1)+":prgmZRS:{94,0,3,15:prgmTEMP:prgmZC1:

If A=35:Then:
If "+Str7+"(19)>="+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(19)<"+Str7+"(23:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(19"+sub(Str9,1,1)+Str7+"(19:If "+Str7+"(19)>"+Str7+"(23:"+Str7+"(23"+sub(Str9,1,1)+Str7+"(19:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=41:Then:
If "+Str7+":(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(20)<"+Str7+"(24:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(20"+sub(Str9,1,1)+Str7+"(20:If "+Str7+"(20)>"+Str7+"(24:"+Str7+"(24"+sub(Str9,1,1)+Str7+"(20:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=47:Then:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(21)<"+Str7+"(25:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(21"+sub(Str9,1,1)+Str7+"(21:If "+Str7+"(21)>"+Str7+"(25:"+Str7+"(25"+sub(Str9,1,1)+Str7+"(21:1.5"+sub(Str9,1,1)+"W:
End:
End:

If A=53:Then:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"ETHER INEFFECTIVE!"+sub(Str9,2,1)+":prgmZWT:1"+sub(Str9,1,1)+"W:
End:
If "+Str7+"(22)<"+Str7+"(26:Then:
Text(47,4,"+sub(Str9,2,1)+"USED ETHER!"+sub(Str9,2,1)+":prgmZWT:10+"+Str7+"(22"+sub(Str9,1,1)+Str7+"(22:If "+Str7+"(22)>"+Str7+"(26:"+Str7+"(26"+sub(Str9,1,1)+Str7+"(22:1.5"+sub(Str9,1,1)+"W:
End:
End:

End:
End"


This is one long string that is dynamically created because there are 6 possible lists it can pull from. LP1-LP6 This is really the only way I could pull it off to make it dynamic and streamlined. :< And I know, the code can look very very confusing. But when it ends, the code snippit you posted would look very much like.. say Str7 is |LP3


Code:
If |LP3(21)<|LP3(25:Then:


That is what the calculator will end up seeing when it runs TMP2, which is on the very very last line of the separated code a few posts back.
Oh wow, that's really neat. Code generation is cool stuff, I never really knew it could be done in BASIC (I assume that's a Celtic thing). Very cool.
merthsoft wrote:
Oh wow, that's really neat. Code generation is cool stuff, I never really knew it could be done in BASIC (I assume that's a Celtic thing). Very cool.


Yes sir, it is definitely a Celtic2 thing Smile

The fact that with the above posted code, SC shows perfect amount of Ends. I have to take one out to make it work. It's rather frustrating.
This might help: perform your string replacements, and look at the "processed" code? I'm grasping at straws here; feel free to tell me it's a stupid idea.
That's where the error is showing up, in the temp program containing the processed and created code. I scan through the code and it still matched up :< I guess as long as it works, it's ok, right? lol
  
Page 14 of 17
» 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