Problem with algorithim...
» > >
» Goto page Previous  1, 2
» View previous topic :: View next topic  
got it (well, for down anyway, up is screwed up, but you only asked about down)

change


Code:
+(6(K=34)(A<56)))


to


Code:
+(6(K=34)(A<50)))


Edit: Bah, who needs waregoose? You got me Cool
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup)
What's up with these lines?

Code:
:If D=1:Text(44,50,"
:If D=2:Text(44,48,"
:If D=3:Text(44,45,"
:If D=4:Text(44,43,"
:If D=5:Text(44,41,"
Check the links:



Please help save Stargate SG-1.
@something: Again, Source coder didn't parse them, they are supposed to have |, depicting the level of the game.

@Kllrnohj: I will try that...

Edit: K, that works, now to see if mimicking the up works the same way...
tifreak8x wrote:
Edit: K, that works, now to see if mimicking the up works the same way...


Bah! Of course it works! I tested it myself before I told it to you Wink (which is what I always would do...)
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup)
I know, thanks. Smile

Let's see, if I change the values...

Edit:

hmm, having (6(K=25)(A>14))+(6(K=25)(a>50)) allows up just below "Difficulty" from "Quit", and then goes up 6 at a time... hmm

Edit2:

Everything works now!

A-(((6K(K=25)(A>20)(A<=50))+(6(K=25)(A>20))-((6(K=34)(A<=50))+6(K=34)(A<50)))->A
I did something. You can add in what you were supposed to do with the W and D variables later.
BASIC Code wrote:
:ClrDraw
:14→A
:1→B
:1→C
:1→D
:Text(14,35,"1-PLAYER
:Text(26,35,"2-PLAYER
:Text(38,35,"DIFFICULTY
:Text(50,35,"HIGH SCORES
:Text(56,35,"QUIT
:Repeat K=21
:If B=1
:Text(20,41,"4-WAY
:If B=2
:Text(20,41,"8-WAY
:If C=1
:Text(32,41,"JOINT
:If C=2
:Text(32,41,"4-WAY
:Text(A,30,"
:getKey→K
:If K
:Text(A,30,"
:A+6(A≥50)(A<56)(K=34)-6(A=56)(K=25)+12(A<50)(K=34)-12(A>14)(A≤50)(K=25→A
:B+(A=14)(K=26)(B≠2)-(A=14)(K=24)(B≠1→B
:C+(A=26)(K=26)(C≠2)-(A=26)(K=24)(C≠1→C
:End
Generated by SourceCoder, © 2005 Cemetech
Check the links:



Please help save Stargate SG-1.
Well, the code for that will be a lil different... I will post it once it is complete, which should be soon...


BASIC Code wrote:
:ClrDraw
:1→W:14→A:1→B:1→C:3→D
:Text(14,35,"1-PLAYER
:Text(26,35,"2-PLAYER
:Text(38,35,"DIFFICULTY
:Text(50,35,"HIGH SCORES
:Text(56,35,"QUIT
:While W=1
:If B=1:Text(20,41,"4-WAY
:If B=2:Text(20,41,"8-WAY
:If C=1:Text(32,41,"JOINT
:If C=2:Text(32,41,"4-WAY
:If D=1:Text(44,41,"|
:If D=2:Text(44,41,"||
:If D=3:Text(44,41,"|||
:If D=4:Text(44,41,"||||
:If D=5:Text(44,41,"|||||
:Text(A,30,">
:getKey→K
:If K:Text(A,30,"
:A-(((6(K=25)(A>20)(A≤50))+(6(K=25)(A>20))-((6(K=34)(A≤50))+(6(K=34)(A<50)))→A
:B-(((K=24)(A=14)(B=2))-((K=26)(A=14)(B=1)))→B
:C-(((K=24)(A=26)(C=2))-((K=26)(A=26)(C=1)))→C
:D-(((K=24)(A=38)(D>1))-((K=26)(A=38)(D<5)))→D
:If K=105:DelVar W
:End
Generated by SourceCoder, © 2005 Cemetech


Heh, it was fairly close after all... :)

You can download the file at http://tifreakware.calcgames.org/downloads/B.8xp if you would like to see everything in action... :)
You know instead of doing the While W=1 and If K=105 Delvar W, You could have just done Repeat K=105.
Check the links:



Please help save Stargate SG-1.

Code:
:If D=1:Text(44,41,"|
:If D=2:Text(44,41,"||
:If D=3:Text(44,41,"|||
:If D=4:Text(44,41,"||||
:If D=5:Text(44,41,"|||||
into
Code:
Text(44,41,sub("|||||",1,D
I need to learn Greek...
something1990 wrote:
You know instead of doing the While W=1 and If K=105 Delvar W, You could have just done Repeat K=105.


I think I said this before: I use the While loops as Goto and Lbl statements, by changing the value of W. That is the way I program, and that will never change.

[quote=Radical Pi]
Code:
:If D=1:Text(44,41,"|
:If D=2:Text(44,41,"||
:If D=3:Text(44,41,"|||
:If D=4:Text(44,41,"||||
:If D=5:Text(44,41,"|||||

into

Code:
Text(44,41,sub("|||||",1,D
[/quote]

Only problem being that it won't clear out the one behind it. Smile I probably could come up with something that could, but that would mean extra variables, etc. so I will just leave it as is. And besides, he was extremely happy with the code. Smile
Try this:

Code:
Text(44,41,sub("|||||",1,D),sub("[9 spaces]",1,9-2D

Edit: fixed code tags.
Ok, might give that a shot... Smile
That should work, according to my tests, if I understand what you want correctly.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Problem with algorithim...
» Goto page Previous  1, 2
» View previous topic :: View next topic  
Page 2 of 2
» 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