home *** CD-ROM | disk | FTP | other *** search
/ Greatest Childrens Stories Ever Told / Greatest_Stories.iso / menus / scorestr.dir / 00456_Script_456 < prev    next >
Text File  |  1994-11-08  |  1KB  |  54 lines
  1.  
  2. on startmovie
  3.   global numr,wrong,title,name
  4.   set the timeoutScript to EMPTY
  5.   put title into field "titlescreen"
  6.   put name into field "name here"
  7.   set the textsize of field "titlescreen" to 24
  8.   set the textsize of field "name here" to 24
  9.   checkscore
  10.   WHATSCREEN
  11. end startmovie
  12.  
  13.  
  14. ON WHATSCREEN
  15.   global choice,score
  16.   if score >60 then PUT RANDOM (2) INTO CHOICE
  17.   if score<60 then set choice=3
  18.   if choice=1 then go marker("back") 
  19.   if choice=2 then
  20.     -- preloadcast a81,b35 
  21.     go marker("up comes the wolf")
  22.   else 
  23.     if choice=3 then go marker("castle")
  24.   end if
  25.   
  26.   
  27. end whatscreen
  28.  
  29. on GetOut a
  30.   if a=1 then go movie "greatest stories:MENUS:STORIES SUB"
  31.   if a=2 then  go movie"greatest stories:menus:STORIES SUB"
  32. end GetOut
  33.  
  34.  
  35.  
  36. on checkscore
  37.   global numr,wrong,score,attempted,correct
  38.   set score=0.0
  39.   --put integer(numr) into field "correct"
  40.   put integer(numr+wrong) into attempted
  41.   if attempted = 0 then 
  42.     set score=0.0
  43.   else
  44.     set score=(numr/(numr+wrong)) *100
  45.   end if
  46.   put integer(score)  & "%" into field "correct"
  47.   if score >79 then put "Congratulations!!" into field "how do"
  48.   else if score > 59 and score<80 then put "Why not read the story ¼
  49. again?"into field "how do"
  50.   else if score <60 then put "Did you read the story ¼
  51. carefully?" into field "how do"
  52. end checkscore
  53.  
  54.