home *** CD-ROM | disk | FTP | other *** search
/ Greatest Childrens Stories Ever Told / Greatest_Stories.iso / menus / storysub.dir / 00497_Script_497 < prev    next >
Text File  |  1994-11-16  |  1KB  |  43 lines
  1. -- choose questions on or off in sub menu
  2. on startmovie
  3.   global questions,mpath,theRECT,numr,wrong,MENUMOVIE,SCOREMOVIE
  4.   
  5.   --set theRECT=rect(the StageLeft+120,theStageTop+30,the StageLeft+408,the StageTop+218)
  6.   put questions into field "keepquesinfo"  
  7.   CLEARGLOBALS
  8.   set numr=0.0
  9.   set wrong=0.0
  10.   set the soundenabled to true
  11.   put chars (the moviePath,1,offset("\menus",the moviePath)) into mpath
  12.   PUT THE MOVIEPATH&"SCORESTR.DIR" INTO SCOREMOVIE
  13.   PUT THE MOVIEPATH&THE MOVIENAME INTO MENUMOVIE
  14.   set questions=field "keepquesinfo"
  15.   queswindow questions
  16. end startmovie
  17.  
  18. on queswindow a
  19.   global questions
  20.   puppetsprite 22,1
  21.   if a=1 then
  22.     set questions=1
  23.     set the castnum of sprite 22 to the number of cast "Q on"
  24.     UPDATESTAGE
  25.   else 
  26.     if a=0 then
  27.       set questions=0
  28.       --PUPPETSPRITE 18,TRUE
  29.       set the castnum of sprite 22 to the number of cast "Q off"
  30.       UPDATESTAGE
  31.     end if
  32.     
  33.   end if
  34.   put questions into field "keepquesinfo"
  35. end queswindow
  36.  
  37. ON PUPPETTHESPRITES
  38.   REPEAT WITH BUTTONS=2 TO 17
  39.     PUT BUTTONS
  40.     PUPPETSPRITE BUTTONS,TRUE
  41.   END REPEAT
  42. END PUPPETTHESPRITES
  43.