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

qwertyuiop

Tue Dec 19, 2006 3:22 pm


troubleshooting help please

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

hey im so close to gettin this done.. at least i think so but i need a little help with this hangman program, the part i dont get is where all the %signs are.. heres wut i have so far%drawings
procedure Pole
    drawline (550, 175, 650, 175, black)
    drawline (600, 175, 600, 350, black)
    drawline (600, 350, 525, 350, black)
    drawline (525, 350, 525, 325, black)
end Pole

procedure Head
    drawoval (525, 309, 15, 15, black)
end Head

procedure Body
    drawline (525, 293, 525, 250, black)
end Body

procedure Leg1
    drawline (525, 250, 540, 200, black)
end Leg1

procedure Leg2
    drawline (525, 250, 515, 200, black)
end Leg2

procedure Arm1
    drawline (525, 285, 500, 250, black)
end Arm1

procedure Arm2
    drawline (525, 285, 550, 250, black)
end Arm2

%variables
var puzzle : string
var puzzle2 : string := ""
var guess : string (1)
var stream, pick : int
var count : int := 0
var data, category : string
var countr : int := 0
Pole

%getting the puzzle
open : stream, "puzzle.txt", get
loop
    exit when eof (stream)
    get : stream, data : *
    count := count + 1
end loop
close : stream
count := count div 2
open : stream, "puzzle.txt", get
randint (pick, 1, count)
for i : 1 .. pick
    get : stream, puzzle : *
    get : stream, category : *
end for

%puzzle := Str.Upper (puzzle)
for i : 1 .. length (puzzle)
    %makes the letters to _'s
    if puzzle (i) >= "a" and puzzle (i)