Yes, I am the newb that refuses help, unless needed. I try to teach myself, it is usually hard, and usually ends in failure. That is why, this time I am going to go through TDK's tutorials, and any other that sounds quality to me. If you know any besides TDK's that you would advise, fell free to post it. I already did the Binary Moon tutorial, I understand DBC, and I know allot of commands, I just need to learn how to apply it, that is what is hard for me. So, I am back, and back with a purpose.
**Edit**
Ok, so I am working on the tutorials, and I got such a newbie question could kill myself. *Pun intended* I am trying to do the "challenges" on the first tutorial, and I am trying to do the last one, but it just will not work, in my mind, it should, but what am I overlooking? I am trying to make it so that it makes a least guesses amount, but it always comes up as 0...
SET DISPLAY MODE 800,600,16
PRINT "What is your name?"
Input Name$
Print "Hello, " ; Name$
Randomize Timer()
Print "(Press any button to continue)"
Start:
games=games+1
If Guesses>mostguess
mostguess=Guesses
Endif
If Guesses<leastguess
leastguess=Guesses
Endif
If games<=1
leastguess=Guesses
Endif
Guesses=0
win=0
number=rnd(99)+1
Wait Key
CLS
Do
CLS
If Guesses<1
Print "I am thinking of a number " ; Name$ ; " , between 1-100. Can you guess it?"
Endif
If Guesses>=1
Print "Try Again, on try " ; Guesses ; "."
Endif
input Guess
If Guess=number
Print "You are right!"
Guesses=Guesses+1
Print "It took you " ; Guesses ; " guesse(s) to get it right."
Win = 1
Print "(Press any button to continue)"
Wait key
Endif
If Guess<number
Print "Higher."
Guesses=Guesses+1
Print "(Press any button to continue)"
Wait key
Endif
If Guess>number
Print "Lower."
Guesses=Guesses+1
Print "(Press any button to continue)"
Wait key
Endif
If win=1
Print "Wanna play again, " ; Name$ ; "? (Y/N)"
Input answer$
If answer$="Y" or answer$="y"
Print "(Press any button to continue)"
Wait key
Goto Start:
Endif
If answer$="N" or answer$="n"
If guesses>mostguess
mostguess=guesses
Endif
If guesses<leastguess
leastguess=guesses
Endif
Print Name$ ; ", you played " ; games ; " time(s)."
Print "Your best and worst scores are: " ; leastguess ; "/" ; mostguess ; " (least/most)"
Print "(Press any button to continue)"
Wait Key
Exit
Endif
Endif
Loop
***Edit***
Yay! I fixed it. Instead of:
If games<=1
leastguess=Guesses
Endif
This works:
If games=2
leastguess=guesses
Endif
I noticed it and now I am happy. It works!
SET DISPLAY MODE 800,600,16
PRINT "What is your name?"
Input Name$
Print "Hello, " ; Name$
Randomize Timer()
Print "(Press any button to continue)"
Start:
games=games+1
If Guesses>mostguess
mostguess=Guesses
Endif
If Guesses<leastguess
leastguess=Guesses
Endif
If games=2
leastguess=guesses
Endif
Guesses=0
win=0
number=rnd(99)+1
Wait Key
CLS
Do
CLS
If Guesses<1
Print "I am thinking of a number " ; Name$ ; " , between 1-100. Can you guess it?"
Endif
If Guesses>=1
Print "Try Again, on try " ; Guesses ; "."
Endif
input Guess
If Guess=number
Print "You are right!"
Guesses=Guesses+1
Print "It took you " ; Guesses ; " guesse(s) to get it right."
Win = 1
Print "(Press any button to continue)"
Wait key
Endif
If Guess<number
Print "Higher."
Guesses=Guesses+1
Print "(Press any button to continue)"
Wait key
Endif
If Guess>number
Print "Lower."
Guesses=Guesses+1
Print "(Press any button to continue)"
Wait key
Endif
If win=1
Print "Wanna play again, " ; Name$ ; "? (Y/N)"
Input answer$
If answer$="Y" or answer$="y"
Print "(Press any button to continue)"
Wait key
Goto Start:
Endif
If answer$="N" or answer$="n"
If guesses>mostguess
mostguess=guesses
Endif
If guesses<leastguess
leastguess=guesses
Endif
If games<=1
leastguess=guesses
endif
Print Name$ ; ", you played " ; games ; " time(s)."
Print "Your best and worst scores are: " ; leastguess ; "/" ; mostguess ; " (least/most)"
Print "(Press any button to continue)"
Wait Key
Exit
Endif
Endif
Loop
I did good, yeah? That is not my first real program, but it is my first decent FINISHED one. Beyond a crappy, unfinished text adventure, or a very beasic menu that was very glitchy.
