help on my summative

[recyclebin123]

Here is my summative thing which i dun really know how to put it together. My problems are that i dun no how to make the titlescreeen go off after the user presses any button. Also in the menu i dun no how to go back after choosing any one of the options. And also i dun no how to display the test results. PLZ help me on this one...lol worth 30% of my mark.
(I know my coding is a bit messy but i got no time to fix it properly)




setscreen ("graphics:800;800,nobuttonbar")
var font1, font2 : int
font1 := Font.New ("comic ms:14:bold")
font2 := Font.New ("times new roman:14:bold")
var menuchoice : string
var key : string (1)




process titlescreen
colorback (255)
cls
drawmapleleaf(639,0,539,100,red)
drawfillmapleleaf(639,0,539,100,red)
drawmapleleaf(100,10,0,100,red)
drawfillmapleleaf(100,10,0,100,red)
drawmapleleaf(550,300,639,390,red)
drawfillmapleleaf(550,300,639,390,red)
drawmapleleaf (100, 280, 0, 390, red)
drawfillmapleleaf(100,280,0,390,red)


for a : 16 .. 31
color (a)
locate (12, 25)
put "Welcome"
delay (100)
end for

for b : 16 .. 31
color (b)
locate (12, 33)
put "To"
delay (100)
end for

for c : 16 .. 31
color (c)
locate (12, 36)
put "My"
delay (100)
end for

for d : 16 .. 31
color (d)
locate (12, 39)
put "Summative"
delay (100)
end for

for e : 16 .. 31
color (e)
locate (12, 49)
put "Project"
delay (100)
end for

delay (2000)

for f : 16 .. 31
color (f)
locate (13, 30)
put "By: Raymond Tang"
delay (100)
end for

for g : 16 .. 31
color (g)
locate (14, 30)
put "Course Code: TIK02-04"
delay (100)
end for

for h : 16 .. 31
color (h)
locate (15, 30)
put "Date: May 30, 2005"
delay (100)
end for

for i : 16 .. 31
color (i)
locate (16, 29)
put " Teacher: Mr Rao!"
delay (100)
end for

delay (2000)
getch (key)
cls
end titlescreen

%second menu thing


process mainmenu

colorback (black)
cls
drawmapleleaf(639,0,539,100,red)
drawfillmapleleaf(639,0,539,100,red)
drawmapleleaf(100,10,0,100,red)
drawfillmapleleaf(100,10,0,100,red)
drawmapleleaf(550,300,639,390,red)
drawfillmapleleaf(550,300,639,390,red)
drawmapleleaf (100, 280, 0, 390, red)
drawfillmapleleaf(100,280,0,390,red)
Font.Draw ("Please Choose One of the Following By Pressing The Number Then ENTER", 10, 300, font1, white)
Font.Draw ("1 : Animation",10,270,font2,white)
Font.Draw ("2 : Lesson",10,240,font2,white)
Font.Draw ("3 : Test",10,210,font2,white)
Font.Draw ("4 : Results",10,180,font2,white)
Font.Draw ("5 : Exit",10,150,font2,white)

get menuchoice

if menuchoice="1" then
colourback(white)
cls
loop

for i : 1 .. 1000
cls
drawfillbox (0, 0, i * 2, i * 4, 4)
drawfillmapleleaf (i * 3, 0, i * 7, i * 4, 4)
drawfillbox (i * 8, 0, i * 10, i * 4, 4)
exit when (i) * 8 > maxx
delay (20)
View.Update
end for
end loop
getch (key)
cls
elsif menuchoice="2" then
colourback(white)
cls
put "Canada! one of the peaceful places to live in the world. As you already know, Canada is located in the continent of North America and is directly above the United States."..
put "As you should already know, Canada has ten provinces and 3 territories. They include the following: British Columbia, Alberta, Saskatchewan, Manitoba, Ontario, Quebec"..
put "NewFoundLand and Labrador, Prince Edward Island, Nova Scotia, New Brunswick, Yukon, North-West Territories and Nunavut."
put "Canada has an very intresting history. Canada was first born in 1867 and during every year on July 1st, it is known as Canada Day which is sort of a birthday for Canada"..
put "During the early 1900s, Canada had many great years of properity where many new inventions were created such as the radio and the bicycle. Then in the 1920 and 30s "..
put "Canada entered World War 1 which Canada, France and Britain went to war with Germany,Italy and Russia. During these times Canada had suffered many loses that affected"..
put "all of Canada. When the war was finally over, Canada experienced great joy for the war was finally over but soon after the end of WW1, Canada woud be plunged into"..
put "the great depression. During this times of grieve, many people lost their jobs. Wages were extremely low and the stock market had just crashed. No one in Canada"..
put "had a good way to solve the great depression. Finally the great depression ended when Canada entered WW2 which is bad but good at the same time because the war"..
put "had provided people with jobs. In this war Canada also lost a great number of people but luckily the war ended soon after the US dropped a nucleur bomb on Japan."..
put"Some People might think of that as a bad thing because of the number people it killed but if they haven't done that then more people would have died. Later on when"..
put "WW2 ended the world entered the cold war. People feared nucleur weapons after seeing what they could do and the US had them. This all changed when the Soviet Union"..
put "got hold of the plans and made their own nucleur weapon. During this time the US and the Soviet both threatened each other with nucleur weapons. Everyone was afraid"..
put "of what damage it could do if a bomb was exploded No one wanted a nucleur war but once it did come close to it during the cuban missile crisis. Other than the threat"..
put "of nucleur weapons there was also fear that Quebec would leave Canada. The Canadian government would not allow this but many Quebec separists continue their struggle"..
put "for freedom. Quebecers felt that they were losing their language and heritage. There was one terrorist group called the FLQ where they used violence as a mean of"..
put "getting their way. They set bombs in mail boxes and also kidnapped two politicians and killed one of them. This lead to the activation of the War Measures Act where"..
put" it would give the police the ability to arrest people without telling them the reason for arrest. Many people were arrested by this but at the end of this crisis"..
put "none of them were actually put into jail. As the years went by Canada and the world felt less threatened by nucleur weapons which in a way ended the cold war."..
put "Following this was the time for properity. New inventions has once again been invented. Computers were one of them but the ones back then are no where near the"..
put "the ones we have now. Although, because of them it opened up more job oppertunities for people in Canada. As the years went by Canada developed more connections"..
put "and ties with the US for example they joined together in NATO and NORAD which both were an both an alliance between them to protect the two countries. USA then became"..
put "Canada's biggest trade partner and thus developed strong ties with them. This concludes the lesson on Canada's history! Hope you learned something and to test your"..
put "knowledge, go and try the test"..
getch (key)
cls
elsif menuchoice="3" then
colourback(white)
cls
var guess : string
var count : int := 0

put "You get THREE trys for each question\n\n"

put "When was Canada born?"
for i : 0 .. 2
get guess : *
if guess = "1867" then
put "yup!"
count += 3 - i
exit
end if
put "\nnope, try again"
end for

put "\nHow many provinces does Canada have?"
for i : 0 .. 2
get guess : *
if guess = "10" then
put "yup!"
count += 3 - i
exit
end if
put "\nnope, try again"
end for

put "\nHow many territories does Canada have?"
for i : 0 .. 2
get guess : *
if guess = "3" then
put "yup"
count += 3 - i
exit
end if
put "\nnope, try again"
end for

put "\nWhat did the US drop on Japan to end WW2"
for i : 0 .. 2
get guess : *
if guess = "nucleur bomb" or guess="nucleurbomb" then
put "yup"
count += 3 - i
exit
end if
put "\nnope, try again"
end for

put "\nWhich province wanted to seperate from Canada"
for i : 0 .. 2
get guess : *
if guess = "Quebec" or guess="quebec" then
put "yup"
count += 3 - i
exit
end if
put "\nnope, try again"
end for


getch (key)
cls

elsif menuchoice="5" then
quit
elsif menuchoice="4" then

%%how do i show results of test from here
end if



end mainmenu


fork mainmenu

[atrain]

draw the tittle screen, then put a loop at the end:


loop
exit when hasch
end loop


will loop intill it gets a button pressed

[recyclebin123]

thx for that but i still need alot more help on the rest of it

[Mr. T]

1. use code tags
2. read up in the tutorial section for why processes are evil

[StarGateSG-1]

I think no more help should be given until you read alot of the tutorials and go into turing help, all of your problems will be answered. This is your summative and we are not going to give to you marks, you also need to read the sticky's at top of topic list, when you nhave done that and you have learned some more, then we will help you. This is not a free palce to get everything you don;t understand done.