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

nin

Thu Jan 04, 2007 9:12 pm


window help

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

if u run the program below the goodbye process is showing up when you press a key to start the game.
_____________________________________________________________

% Global Declaration Section
var key : string (1)
var number, randomNum : int

var try := 0
var mainWin := Window.Open ("postion:300;300,graphics:400;400")
var playBtn, quitBtn : int := 0

%Title
procedure title
    cls
    locate (1, 33)
    put "Guessing Game"
    put ""
end title

%Pause Program
procedure pauseProgram
    put " "
    put "Press any key to continue: " ..
    getch (key)
end pauseProgram

%Introduction
procedure introduction
    title
    locate (4, 1)
    put "This program will allow you to guess a number between 10 and 65."
    pauseProgram
end introduction

%New Window
proc drawWindow2
    var winID2 := Window.Open ("position : 200;200, graphics : 200;100 ")
    locate (2, 1)
    put "Please try again. Remember to put a number between 10 and 65"
    locate (6, 1)
    put "To try again, please press any key" ..
    loop
        exit when hasch
    end loop
    Window.Close (winID2)
end drawWindow2

%GoodBye
title
proc goodBye
    locate (12, 25)
    put "This program was brought to you by: "
    locate (13, 35)
    put "******** *******"
    locate (14, 39)
    put "Goodbye!"
    delay (2500)
    Window.Close (mainWin)
end goodBye


%Procedure randNum
proc randNum
    randint (randomNum, 10, 65)
end randNum

%User Input
procedure userInput
    title
    put "Please enter a number between 10 and 65: " ..
    get number
    if number < 10 or number > 65 then
        drawWindow2
        userInput
    end if
end userInput

%Display
proc display
    title
    try := try + 1
    if number = randomNum then
        locate (3, 1)
        put "Good Job!"
        put "Try number: ", try

    elsif number < randomNum then
        put "Too low! Please try again"
        put "Try number: ", try

    else
        put "Your guess is too high! Please try again"
        put "Try number: ", try
    end if
    if try = 3 then
        locate (6, 1)
        put "The random number chosen was: ", randomNum

    end if
    pauseProgram
end display

%Main Program
introduction
randNum
loop
    goodBye
    userInput
    display
    exit when number = randomNum or try = 3
end loop
goodBye

%End of Program


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

CodeMonkey2000

Thu Jan 04, 2007 10:28 pm



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

:evil:  please use code tags!!
anyway umm you have to take out the call to goodbye in your main loop