home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 256 / DR_BRAIN.BIN / BUGS / ACT1 / 01177_Field_1177.txt < prev    next >
Text File  |  1996-06-14  |  1KB  |  43 lines
  1. on mousedown
  2.   set mylevelchange = 0
  3.   if the optiondown then 
  4.     set mylevelchange = 1
  5.   end if
  6.   
  7.   set castigate = the number of cast "quitbox2"
  8.   set the castnum of sprite the clickon = castigate
  9.   set stime = the timer
  10.   set tstep = 15
  11.   
  12.   puppetsound "Ding1"
  13.   
  14.   repeat while the mousedown
  15.     set ttime = (the timer-stime)/tstep
  16.     if ttime < 4 then
  17.       set the castnum of sprite the clickon = the number of cast ("quitbox"&(ttime+1))
  18.       updatestage
  19.     end if
  20.   end repeat
  21.   set stime = the timer
  22.   set ttime = 0
  23.   repeat while ttime < 4
  24.     set ttime = (the timer-stime)/tstep
  25.     if ttime < 4 then
  26.       set the castnum of sprite the clickon = the number of cast ("quitbox"&(4-ttime))
  27.       updatestage
  28.     end if
  29.   end repeat
  30.   
  31.   if mylevelchange then
  32.     set wtop = the stagetop + 240 - 63
  33.     set wleft = the stageleft + 320 - 120
  34.     set trect = rect(wleft,wtop,wleft+240,wtop+126)
  35.     set the rect of window "options" = trect
  36.     set the windowType of window "options" = 2
  37.     open window "options"
  38.     go "wait"
  39.   else
  40.     go movie "submenu"
  41.   end if    
  42.   
  43. end