Alright, my program is coming to and end here, but to wrap up this program i need to add 2 features and fix one feature an then it should be done..
1) If the letter is already guessed.
2) You know in elementary school how you used to grab sheet of paper and you would draw how many lines were in the word? say your word was Paper. You would write _ _ _ _ _... I would like to use this instead of what i started with where i have "Number of letters".. i want to keep those words there, but where i have the length of the string displayed, thats where i would like the liens to go. Any thoughts?
3) When you lose, the screen it takes you to has a frowny face and an option to play again "yes or no" and has a getkey command. But when it gets to that screen it gives you no time to chose and automatically assumes you pick no, help
and as for the letter already being guessed.. you gave me a code for your illegal string path, but what i cant figure out is how to make it work with my already almost complete code. Thanks in advance
here is my code. (and yes Kerm, i know i suck at capital letters, im just so darned lazy, but i promise you over time ill work on it) :)Here's my code..
Code:
Code:
:Lbl 5
:0->W
:0->G
:0->R
:"ABCDEFGHIJKLMNOPQRSTUVWXYZ"->Str3
:ClrHome
:ClrDraw
:AxesOff
:Input "Your word please",Str1
:length(Str1)->L
:Text(1,1,"Number of letters"
:Text(8,1,L
:Pause
:Lbl 1
:ClrHome
:Input "pick one letter ",Str2
:Repeat Z=0
:inString(Str3,Str2)->H
:inString(Str1,Str2,N)->Z
:inString(Str1,Str2)->F
:If F=0
:Goto 2
:If Z>0
:R+1->R
:Lbl 3
:If W=6
:Goto 4
:Text(16,1,"Number of letters in word"
:Text(24,1,R
:Z+1->N
:"/"+Str3+"/"->Str3
:sub(Str3,2,H)+"/"+sub(Str3,H+2,27-H->Str3
:sub(Str3,2,26)->Str3
:0->R
:1->N
:1->Z
:Text(40,40,sub(Str3,1,13
:Text(50,40,sub(Str3,14,13
:Line(-8,-9,-3,-9
:Line(-4,-9,-4,0
:Line(-4,0,-7,0
:Line(-7,0,-7,-2
:Pause
:Goto 1
:Lbl 2
:W+1->W
:If W=1
:Circle(-7,-3,1
:If W=2
:Line(-7,-4,-7,-7
:If W=3
:Line(-7,-7,-7.5,-8
:If W=4
:Line(-7,-7,-6.5,-8
:If W=5
:Line(-7,-5,-7.5,-6
:If W=6
:Line(-7,-5,-6.5,-6
:End
:Pause
:Goto 3
:Lbl 4
:ClrHome
:ClrDraw
:Circle(0,0,4
:Text(5,25,"You have lost"
:Text(26,40,"X
:Text(26,52,"X
:Text(45,28,"Play again?"
:Text(53,16,"Yes"
:Text(53,70,"No"
:Line(0,-1,-1,-2
:Line(0,-1,1,-2
:If K=12
:Goto 5
:If K=14
:ClrHome
:Output(3,5,"Made by"
:Output(5,2,"Josh Beckwith"