ok...u don have to read this..but..

[piglette]

If u read it, how do u make it better?

setscreen ("graphics:max;max")
var name, start : string
var ch, ch2 : string (1)
var fn : int
var font : int := Font.New ("Arial:12")
var picID, picID2, picID3, picID4, picID5, picID6, picID7, picID8, picID9, picID10, picID11, picID12, picID13, picID14, picID15, picID16, picID17, picID18, picID19, picID20 : int
var x, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, x18, x19, x20 : int
var y, y2, y3, y4, y5, y6, y7, y8, y9, y10, y11, y12, y13, y14, y15, y16, y17, y18, y19, y20 : int
proc exitt
% End of Level 1----------------------------
% askiing to exit or to continue
getch (ch)
if ch = "n" or ch = "N" then
cls
put "To exit, press 'y' once."
put "To play, press 'y' twice."
loop
% If the user wants to exit, crying picture pops up and exits
getch (ch)
if ch = "y" or ch = "Y" then
put "Bye"
picID := Pic.FileNew ("smile2.bmp")
for i : 1 .. 25
x := Rand.Int (20, 20) % Random x
y := Rand.Int (20, 20) % Random y
Pic.Draw (picID, x, y, picCopy)
end for
Pic.Free (picID)
exit
end if
end loop
end if
end exitt
% Asking for a name
put "Hi"
put "your name is :"
get name
put name, ", do you like solving easy questions? (y/n)"
loop
% getch (ch)
% if ch = "y" or ch = "Y" then
cls
% Level 1 starts------------------------------------------
var start1 : string
var ch3, ch4, ch5 : string (1)
% var ch6, ch7, ch8, ch9 :
put "LEVEL 1"
put " "
put " "
%QUESTION 1 of 5
put "Question # 1 of 5 "
put " "
put "There were 2 pigs and 1 chicken outside. How many animals were there?"
getch (ch4)
if ch4 = "3" then
put "RIGHT"
delay (1000)
else
put "wrong answer!"
put "See the clue below. any idea?"
%var picID3, x3, y3 : int
x3 := Rand.Int (5, 20)
y3 := Rand.Int (5, 20)
picID3 := Pic.FileNew ("chickenand2pigs.bmp")
Pic.Draw (picID3, x3, y3, picCopy)
getch (ch4)
end if
if ch4 = "3" then
put "GOOD."
delay (1000)
cls
else
put "Sorry, the answer was 3."
Pic.Free (picID3)
delay (1000)
cls
end if
%Q 2 of 5
put "LEVEL 1"
put " "
put " "
put "Question #2 of 5"
put " "
put "There are 2 juicy fruits (gums' name) and 4 bubble gums. How many gums are there?"
getch (ch4)
if ch4 = "6" then
put "RIGHT"
delay (1000)
else
put "wrong answer!"
put "clue:"
%var picID4, x4, y4 : int
x4 := Rand.Int (25, 30)
y4 := Rand.Int (25, 30)
picID4 := Pic.FileNew ("bubblegumjf.bmp")
Pic.Draw (picID4, x4, y4, picCopy)
getch (ch4)
if ch4 = "6" then
put "GOOD"
delay (1000)
cls
% put " press enter to go to next question"
else
put "Sorry, the answer was 6."
Pic.Free (picID4)
end if
end if


delay (1000)
cls
var ch6 : string (1)
put "LEVEL 1"
put " "
put " "
put "Question #3 of 5"
put " "
put "There are 4 red houses and 3 blue houses. How many houses are there?"
getch (ch6)
if ch6 = "7" then
put "RIGHT"
else
put " "
put "I will give you a clue with the picture below. Any idea?"
% gives a clue
x6 := Rand.Int (20, 30)
y6 := Rand.Int (20, 30)
picID6 := Pic.FileNew ("7houses.bmp")
Pic.Draw (picID6, x6, y6, picCopy)

get ch6
if ch6 = "7" then
put "GOOD"
else
put "Sorry, the answer was 7."
end if
Pic.Free (picID6)
end if
delay (2000)
cls
var ch7 : string (1)
put "LEVEL 1"
put " "
put " "
put "Question #4 of 5"
put " "
put "There are 4 girls and 5 boys in the school. How many people are there?"
get ch7
if ch7 = "9" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
x7 := Rand.Int (20, 30)
y7 := Rand.Int (20, 30)
picID7 := Pic.FileNew ("boysandgirls.bmp")
Pic.Draw (picID7, x7, y7, picCopy)
Pic.Free (picID7)
end if
getch (ch7)
if ch7 = "9" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 9."
end if
delay (2000)
cls
var ch8 : string (1)
put "Still LEVEL 1"
put " "
put " "
put "Question #5 of 5"
put " "
put "There are 3 English books and 3 science books. How many books are there?"
get ch8
if ch8 = "6" then
put "RIGHT"
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID8, x8, y8 : int
x8 := Rand.Int (20, 30)
y8 := Rand.Int (20, 30)
picID8 := Pic.FileNew ("engandscibooks.bmp")
Pic.Draw (picID8, x8, y8, picCopy)
Pic.Free (picID8)
end if
get ch8
if ch8 = "6" then
put "GOOD"
else
put "Sorry, the answer was 6."
end if
cls
put "YAY"
put "You finished level 1."
put "Now go to level 2."
delay (2000)
cls
var chh1 : string
put "LEVEL 2 - Yay!"
put " "
put " "
put "Question #1 of 5"
put " "
put "A girl had 5 combs, but she lost 2 of them. How many combs does she have now? "
get chh1
if chh1 = "3" then
put "RIGHT"
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID7, x7, y7 : int
picID7 := Pic.FileNew ("combs.bmp")
x7 := Rand.Int (20, 30)
y7 := Rand.Int (20, 30)
Pic.Draw (picID7, x7, y7, picCopy)
Pic.Free (picID7)
end if
get chh1
if chh1 = "3" then
put "GOOD"
else
put "Sorry, the answer was 3."
end if
delay (2000)
cls
var chh2 : string
put "LEVEL 2 - Yay!"
put " "
put " "
put "Question #1 of 5"
put " "
put "There were 7 happy rabbits in the forest. One day, 4 rabbits were angry because of each other."
put "How many rabbits were still happy?"
get chh2
if chh2 = "3" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
picID7 := Pic.FileNew ("rabbits.bmp")
x7 := Rand.Int (20, 30)
y7 := Rand.Int (20, 30)
Pic.Draw (picID7, x7, y7, picCopy)
Pic.Free (picID7)
end if
get chh2
if chh2 = "3" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 3."
end if
delay (1000)
cls
var chh3 : string
put "LEVEL 2"
put " "
put " "
put "Question #2 of 5"
put " "
put "There is an apple tree on the hill. It had 10 green apples few days ago."
put "Now, 8 of them turned red. How many green apples are there?"
get chh3
if chh3 = "2" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID9, x9, y9 : int
picID9 := Pic.FileNew ("apples.bmp")
x9 := Rand.Int (20, 30)
y9 := Rand.Int (20, 30)
Pic.Draw (picID9, x9, y9, picCopy)
Pic.Free (picID9)
end if
get chh3
if chh3 = "2" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 2."
end if
delay (2000)
cls
var chh4 : string
put "LEVEL 2"
put " "
put " "
put "Question #3 of 5"
put " "
put "Your 7 toy buildings are on fire! (not for real) There are 7 buckets with full of water."
put "You need one bucket for each building. After dumping water to buildings, how many water buckets will be left?"
get chh4
if chh4 = "0" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID10, x10, y10 : int
picID10 := Pic.FileNew ("buildings.bmp")
x10 := Rand.Int (20, 30)
y10 := Rand.Int (20, 30)
Pic.Draw (picID10, x10, y10, picCopy)
Pic.Free (picID10)
end if
get chh4
if chh4 = "0" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 0."
end if
delay (2000)
cls
var chh5 : string
put "Still LEVEL 2"
put " "
put " "
put "Question #4 of 5"
put " "
put "Kids in a Day Camp used 8 brushes out of new 13 brushes."
put "How many brushes are not used?"
get chh5
if chh5 = "5" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
% var picID11, x11, y11 : int
picID11 := Pic.FileNew ("brushes.bmp")
x11 := Rand.Int (20, 30)
y11 := Rand.Int (20, 30)
Pic.Draw (picID11, x11, y11, picCopy)
Pic.Free (picID11)
end if
get chh5
if chh5 = "5" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 5."
end if
delay (2000)
cls
var chh6 : string
put "Still LEVEL 2"
put " "
put " "
put "Question #5 of 5"
put " "
put "There were 8 monkeys in the mighty jungle. They are very hungry."
put "4 of them found bananas and ate them. 2 of them also found grapes and ate them."
put "How many monkeys are still hungry?"
get chh6
if chh6 = "2" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
picID12 := Pic.FileNew ("monkeys.bmp")
x12 := Rand.Int (20, 30)
y12 := Rand.Int (20, 30)
Pic.Draw (picID12, x12, y12, picCopy)
Pic.Free (picID12)
end if
get chh6
if chh6 = "2" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 2."
end if
delay (2000)
cls
put "Yay!!!! You finished LEVEL 2!!!"
put "Now let's go to LEVEL 3!!!!"
delay (2000)
cls
% LEVEL 3-------------------------------------
var chhh : string
put "Finally LEVEL 3"
put " "
put " "
put "Question #1 of 5"
put " "
put "A girl went to school with 10 pencils in her pencil case."
put "Some bad boys came and broke 5 pencils. (They got onto trouble for doing this)"
put "She taped 3 of them and put them back into her pencil case. How many pencils are in her pencil case?"
get chhh
if chhh = "2" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID13,x13,y13 : int
picID13 := Pic.FileNew ("pencils.bmp")
for i13 : 1 .. 25
x13 := Rand.Int (20, 30)
y13 := Rand.Int (20, 30)
Pic.Draw (picID13, x13, y13, picCopy)
end for
Pic.Free (picID13)
end if
get chhh
if chhh = "2" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 2."
end if
delay (2000)
cls
var chhh2 : string
put "LEVEL 3"
put " "
put " "
put "Question #2 of 5"
put " "
put "Mom bought 5 cookies with big chocolate chips on them. She hid them in the cupboard so she can give her children later."
put "Later she bought 3 more cookies. She also hid them in the same place."
put "Few days later, she took 4 cookies out and gave them to her children. How many cookies are left in the cupboard? "
get chhh2
if chhh2 = "4" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID14,x14,y14 : int
picID14 := Pic.FileNew ("cookies.bmp")
for i14 : 1 .. 25
x14 := Rand.Int (20, 30)
y14 := Rand.Int (20, 30)
Pic.Draw (picID14, x14, y14, picCopy)
end for
Pic.Free (picID14)
end if
get chhh2
if chhh2 = "4" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 4."
end if
delay (2000)
cls
var chhh3 : string
put "LEVEL 3"
put " "
put " "
put "Question #3 of 5"
put " "
put "There were 6 red roses and 4 yellow roses in the small flower shop."
put "Mr. Ferrara bought 1 yellow rose and 2 red roses there and gave them to his wife, Mrs. Ferrara."
put "How many roses does Barbie has in her backyard?"
get chhh3
if chhh3 = "7" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID15,x15,y15 : int
picID15 := Pic.FileNew ("roses.bmp")
for i15 : 1 .. 25
x15 := Rand.Int (20, 30)
y15 := Rand.Int (20, 30)
Pic.Draw (picID15, x15, y15, picCopy)
end for
Pic.Free (picID15)
end if
get chhh3
if chhh3 = "7" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 7."
end if
delay (2000)
cls
var chhh4 : string
put "Almost done LEVEL 3"
put " "
put " "
put "Question #4 of 5"
put " "
put "There were 10 kids in the kindergaten."
put "5 kids exercised every day and ate only healthy foods, so they became healthy."
put "However, 1 kid didn't care and ate junk foods. He became unhealthy."
put "How many normal kids are there?"
get chhh4
if chhh4 = "4" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID16,x16,y16 : int
picID16 := Pic.FileNew ("chubbykids.bmp")
for i16 : 1 .. 25
x16 := Rand.Int (20, 30)
y16 := Rand.Int (20, 30)
Pic.Draw (picID16, x16, y16, picCopy)
end for
Pic.Free (picID16)
end if
get chhh4
if chhh4 = "4" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 4."
end if
delay (2000)
cls
var chhh5 : string
put "Almost done LEVEL 3"
put " "
put " "
put "Question #5 of 5"
put " "
put " "
put " "
put "*Hard Question! If it is too hard for you, get help "
put ""
put "Paul had 7 stickers. He was very nice so he gave 3 stickers to his firend."
put "Next day, his sister gave him 2 stickers. After, his cat ruined 5 of them."
put "His friends felt sorry for him, so they gave 3 stickers to Paul."
put "How many stickers does Paul have now?"
get chhh5
if chhh5 = "4" then
put "RIGHT"
delay (1000)
cls
else
put " "
put "I will give you a clue with the picture below. Any idea?"
%var picID17,x17,y17 : int
picID17 := Pic.FileNew ("stickers.bmp")
for i16 : 1 .. 25
x17 := Rand.Int (20, 30)
y17 := Rand.Int (20, 30)
Pic.Draw (picID17, x17, y17, picCopy)
end for
Pic.Free (picID17)
end if
get chhh5
if chhh5 = "4" then
put "GOOD"
delay (1000)
cls
else
put "Sorry, the answer was 4."
end if
delay (2000)
cls
put "YAYAY!!!!!!!!!"
put "You finished whole thing!!!!"

put "do you want to play again?"
getch (ch)
if ch = "n" or ch = "N" then
exitt
end if
end loop