How to make something loop in a program and let a user click a button to continue?

[sakibur001]

What is it you are trying to achieve?
I want to have a street light loop in my intro but I want it to loop and still allow the user to click the main menu button to continue.


What is the problem you are having?
I can make it loop and the button appear but the button is not working when i make the street light loop. I need help making the street lights loop forever and allow the user to click on the menu button. Code below.


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)

% Final Culminating Activity
% First Version of Driving Simulator (V1.0)

import GUI

%Global Variable Declarations
var mainMenuButton : int := 0
var instructionButton : int := 0
var playGameButton : int := 0
var goodByeButton : int := 0
var mainMenuWindow : int := 0
var goodByeWin : int := 0
var instructWin : int := 0
var playGameWin : int := 0
var intfont : int

%Font type and size
%Note: not being used for all text in program
intfont := Font.New ("Comic Sans MS:12")

% Procedure Forward Declaration Section
forward procedure introduction
forward procedure mainMenu
forward procedure playGame
forward procedure goodBye
forward procedure instruction

% Places a title at the top of the window
procedure title
cls
%put "" : 22, "Driving Simulator"
Font.Draw ("Driving Simulator", 180, 480, intfont, black)
end title

% Introduction of the program/game to the user
body proc introduction
mainMenuWindow := Window.Open ("position:top;left;graphics:500;500")
Text.ColourBack (54)
title
locate (4, 1)
put "This program will test your driving skills. You will have to drive through a town with different cars and street lights appearing. Your goal is to reach the end of the street safely."
mainMenuButton := GUI.CreateButton (200, 100, 0, "Main Menu", mainMenu)
%Introductory noise of a car
Music.PlayFile ("gt40takingOff.wav")
drawfillbox (15, 100, 85, 300, 7)
drawfilloval (50, 150, 20, 20, brightgreen)
delay (500)
drawfilloval (50, 150, 20, 20, brightgreen)
drawfilloval (50, 200, 20, 20, yellow)
delay (500)
drawfilloval (50, 200, 20, 20, yellow)
drawfilloval (50, 250, 20, 20, brightred)
delay (500)
drawfilloval (50, 250, 20, 20, brightred)

end introduction


% Main Menu for the user to make choices regarding game play
body proc mainMenu
Text.ColourBack (54)
title
locate (3, 27)
%put "Main Menu"
Font.Draw ("Main Menu", 200, 460, intfont, black)
locate (6, 1)
put "Choose an option:"
Window.Hide (defWinID)
Window.Hide (instructWin)
Window.Hide (playGameWin)
Window.Show (mainMenuWindow)
Window.SetActive (mainMenuWindow)
%Create buttons to play, exit or get help
instructionButton := GUI.CreateButton (290, 225, 0, "Help", instruction)
playGameButton := GUI.CreateButton (145, 225, 0, "Play", playGame)
goodByeButton := GUI.CreateButton (220, 225, 0, "Exit", goodBye)
%Music.PlayFile ("tweety.wav")
end mainMenu

% This is to provide instructions or help to the user
body proc instruction
Window.Hide (mainMenuWindow)
instructWin := Window.Open ("position:400;200;graphics:500;500")
Text.ColourBack (12)
title
%Put intructions
Font.Draw ("Instructions:", 0, 440, intfont, black)
locate (6, 1)
put "This game is a basic Driving Simulator, it will feature a car which you will be driving on a street through the town." ..
put " There will be random cars, streets and lights appearing, which you will have to obey, if you do not, consequences may apply." ..
put " The goal of the game is to reach the end without hitting another car, if you do, then GAME OVER. To control the car, you have to use the arrow keys."
%Picture of arrow keys
var pictureID : int
pictureID := Pic.FileNew ("arrowkeys1.bmp")
Pic.Draw (pictureID, 169, 150, picMerge)
%Button to return to the main menu
mainMenuButton := GUI.CreateButton (166, 80, 0, "Return to the Main Menu", mainMenu)
end instruction

% This is where the game is played
body proc playGame
Window.Hide (mainMenuWindow)
playGameWin := Window.Open ("graphics:700;900")
Window.SetActive (playGameWin)
title
put ""
put "THIS IS PLAY"
mainMenuButton := GUI.CreateButton (100, 100, 0, "Return to the Main Menu", mainMenu)
end playGame

% Goodbye/End program
body proc goodBye
goodByeWin := Window.Open ("position:top;right;graphics:500;500")
Text.ColourBack (14)
title
locate (5, 1)
put "Thanks for using this program/game!"
put ""
put "Program designed and created by:"
Window.Hide (mainMenuWindow)
Window.Hide (playGameWin)
Window.Hide (instructWin)
%Someone saying goodbye
Music.PlayFile ("bugs_goodbye.wav")
delay (1400) % waits for a short time before closing the window
Window.Hide (goodByeWin)
GUI.Quit
end goodBye

%Main Program
introduction
loop
exit when GUI.ProcessEvent
end loop
%End Progra

[Insectoid]

You're gonna have to restructure your introduction procedure. Turing can only do one thing at a time. Your light animation is one thing, so Turing has to play the whole thing before it can do anything else. If you want anything to happen while the animation is going on, you need to break the animation up into smaller chunks that happen one after another. That way, you can slip 'other stuff' in between the chunks and it'll look simultaneous.

The easiest way is to break up the animation into frames. Draw one frame, then do something else, then draw another frame, then do something else. Because everything has to sync up, you cannot use delays anywhere, except once in your main loop. Your main loop will look like this:

loop
%draw one frame of animation
delay(10)
GUI.ProcessEvent
end loop

the 'draw one frame' part will probably be a procedure. In your case, all that procedure does is decide what color light to draw and where to draw it. Then it exits.

proc drawLights
if (we want red!) then
%draw red light
elsif (we want yellow!) then
%draw red
elseif (we want green!) then
%draw green
end if
end drawLights

That's the function. It only draws one frame. It has no loops, it has no delays. This function gets called every frame and every frame it decides what to draw. How it decides is up to you. The Time.Elapsed() function will be very helpful, I suspect.

[TWizard]

This is somewhat doable

You can draw what you want at the end of everything else for example

code:

var counter : int := 0 var position_x, position_y : int := 50 var file: array 0 .. 9 of int for i : 1 .. 32     file (i) := Pic.FileNew ("FileName_" + intstr (i) + ".FileType") end for loop %do stuff up here if counter = 10 then counter := 0 end it Pic.Draw (file(counter) ,position_x,position_y,0) counter := counter 1 end loop

First
we initialize the images into an array, then create a counter. Each time the the loop goes through, it will play the images in the order of the file names, in this case its file_#, this works pretty well, the downside is that, the images depending on what the menu has to load, for example if there isnt much then it will be sped up, if there is a lot then it will be slowed down.

I hope this is helpful. I havent tested this but you probably could use a process, however its also shouldnt be used for something like this.