CEMETECH
Leading The Way To The Future
Login [Register]
Username:
Password:
Autologin:

Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
» June Software Trifecta, Part 3: Sandpaper v1.0
» June Software Trifecta, Part 2: gCnClient v2.0
» June Software Trifecta, Part 1: Doors CS 7.2 Beta 3
» Sandpaper v0.95 Calculator FTP Client/Server
Online Users
There are 141 users online: 3 members, 97 guests and 41 bots.
Members: Ashbad, JosJuice, rfdave.
Bots: VoilaBot (4), Spinn3r (1), Magpie Crawler (3), VoilaBot (12), Googlebot (21).
RSS & Social Media
[t] Follow @cemetech
[t] 'Like' Cemetech
[RSS] News Headlines
[RSS] Latest Posts
SAX
You must log in to view the SAX chat widget
[Pokemon Purple] Progress 2012
» > >
    » Goto page Previous  1, 2, 3, ... 12, 13, 14  Next
» View previous topic :: View next topic  
Author Message
elfprince13


OVER NINE THOUSAND!


Joined: 23 May 2005
Posts: 10247
Location: A galaxy far far away......
Posted: 25 Apr 2012 04:20:42 pm    Post subject:
make a while loop something like:


Code:

while X!=H
X+5(X<H-5)+(H-X)(X>H-5)->X
DRAW STUFF HERE
End


?
_________________
StickFigure Graphic Productions || VSHI: Vermont Sustainable Heating Initiative


Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 25 Apr 2012 04:30:52 pm    Post subject:
That's what I was thinking. Just got busy after I made the posts and haven't had time to think of the code to write up yet :p

Thakns.
_________________
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
elfprince13


OVER NINE THOUSAND!


Joined: 23 May 2005
Posts: 10247
Location: A galaxy far far away......
Posted: 25 Apr 2012 04:31:53 pm    Post subject:
Awesome Smile
_________________
StickFigure Graphic Productions || VSHI: Vermont Sustainable Heating Initiative


Back to top
Weregoose


Cemetech Expert


Joined: 23 Oct 2009
Posts: 467
Posted: 25 Apr 2012 05:40:44 pm    Post subject:
You could try:

Code:
:While X≠H
:min(H,X+5→X
:End

_________________
Common Errors in English · How To Ask Questions The Smart Way
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 26 Apr 2012 07:04:20 am    Post subject:
Weregoose wrote:
You could try:

Code:
:While X≠H
:min(H,X+5→X
:End


You're scary sometimes, you know that?



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.
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 26 Apr 2012 09:49:55 am    Post subject:
Looking good! I'm glad you were able to fit in a bit of progress this morning. Smile
_________________
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 26 Apr 2012 10:20:29 am    Post subject:
Thakns [:\ - Merth], me too. Hopefully I can get it ready to be dropped into the game fairly quickly, but as you've seen, that particular bit of preparation can cause some epic headaches :p
_________________
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: 9104
Location: Sol System
Posted: 27 Apr 2012 06:53:26 am    Post subject:

Code:
"|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:
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:
For(F,15,30:Line(0,F,94,F,0:End:"0ZBD":
prgmZRS:{94,0,3,27:prgmTEMP:prgmZC1:
Text(47,4,"USED HYPER POTION!":
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


This is what I've gotten worked on this morning, converting the code to work from the appvar. Also adding in the texts and such that is needed, though I forgot to do checks to see if the HP even needs increased. I'll add that in later.
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 27 Apr 2012 08:50:00 am    Post subject:
I know you've explained this before, but remind me again why everything has to be squashed together on a single line? Smile Other than that, the code looks good to me.
_________________
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 27 Apr 2012 08:52:36 am    Post subject:
Each item has a number. The item list is in a format of {Item#.Qty,Item#.Qty,etc. I store the code for item usage in an appvar on a single line so it's a simple matter of looking at the item# portion of the selected list element, and using Celtic2 to recall that line of code from the archive appvar and to dump off into a temp program to run.

Also, what was the max size of an appvar again? Something along the lines of 68K, right?
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 27 Apr 2012 09:06:34 am    Post subject:
tifreak8x wrote:
Also, what was the max size of an appvar again? Something along the lines of 68K, right?
You should stay a few hundred bytes south of 64K (65536 bytes) to be safe.
_________________
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 27 Apr 2012 09:10:03 am    Post subject:
Oh, alright. As it stands now, the appvar is at 8530 bytes. Still have a lot of information to get packed into there.
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 29 Apr 2012 01:57:57 pm    Post subject:
How's this going, tifreak8x? Has the weekend brought you any time to make progress?
_________________
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 30 Apr 2012 02:04:14 pm    Post subject:
I have made some, yes Smile


Code:
"|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)


I had realized I made a bit of an oops with the code dealing with the Text( functions. Those snippets have been fixed, along with a few more lines of code written out. Writing this code to be all on one line and completely dynamic is a PITA, have I ever mentioned that?
_________________
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
Weregoose


Cemetech Expert


Joined: 23 Oct 2009
Posts: 467
Posted: 30 Apr 2012 09:12:20 pm    Post subject:
Assuming I/J/K are only temporary variables:

Code:
:If X<V:Then   //Where is the End for this?
:X+min(200,V-X→N
:Text(47,4,"USED HYPER POTION!"
:While X≠N
:min(N,X+5→X
:68-21(Z-3(Z>3→I
:2+52(Z>3
:Text(54-I,Ans+8-4int(log(X)),X
:Line(Ans,I,Ans+iPart(25X/V),I
:End

I'm almost convinced there's a better method than using min( before the While and working around that value.
_________________
Common Errors in English · How To Ask Questions The Smart Way

Last edited by Weregoose on 30 Apr 2012 09:14:34 pm; edited 2 times in total
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 30 Apr 2012 09:13:22 pm    Post subject:
The code is far from finished as of yet :p

Some nice optimizations, though Smile
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 01 May 2012 10:57:13 am    Post subject:
tifreak8x wrote:
Writing this code to be all on one line and completely dynamic is a PITA, have I ever mentioned that?
There has to be a better solution than that. Sad One accidental tap of [CLEAR] and you're out of luck.
_________________




Last edited by KermMartian on 01 May 2012 11:23:17 am; edited 2 times in total
Back to top
tifreak8x


Guru


Joined: 16 Mar 2005
Posts: 9104
Location: Sol System
Posted: 01 May 2012 11:22:08 am    Post subject:
Well, doing it all on the computer in Tokens does help with that particular problem. I've not done any oncalc dev for quite a while, now.
_________________
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: 55881
Location: Earth, Sol, Milky Way
Posted: 01 May 2012 11:23:43 am    Post subject:
tifreak8x wrote:
Well, doing it all on the computer in Tokens does help with that particular problem. I've not done any oncalc dev for quite a while, now.
Ah, it's good to hear that you're avoiding that particular headache, at least. Smile
_________________
Back to top
merthsoft


File Archiver


Joined: 09 May 2010
Posts: 2735
Posted: 01 May 2012 12:14:29 pm    Post subject:
Once I get the kinks worked out on the thing I'm working on right now, that should be a little easier for you to do Smile.
_________________
Shaun
Back to top
Display posts from previous:   
[Pokemon Purple] Progress 2012
    » Goto page Previous  1, 2, 3, ... 12, 13, 14  Next
» View previous topic :: View next topic  
Page 2 of 14 » All times are GMT - 5 Hours

 
Jump to:  
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.045796 seconds.