home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GROFINJ.DXR / 00032_grotests.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  2.0 KB  |  76 lines
  1. on grotests
  2.   global grosectactive, GROChooseQuit
  3.   GROENTSECTION()
  4.   set grosectactive to 1
  5.   set the castNum of sprite 17 to 64
  6.   set the castNum of sprite 18 to 65
  7.   set the castNum of sprite 35 to 81
  8.   set the locH of sprite 17 to 380
  9.   set the locH of sprite 18 to 430
  10.   set the locH of sprite 35 to 380
  11.   set the locV of sprite 17 to 288
  12.   set the locV of sprite 18 to 337
  13.   set the locV of sprite 35 to 288
  14.   set the castNum of sprite 20 to 92
  15.   set the locH of sprite 20 to 200
  16.   set the locV of sprite 20 to 200
  17.   set the ink of sprite 20 to 39
  18.   set the castNum of sprite 4 to 47
  19.   updateStage()
  20.   set the castNum of sprite 10 to 59
  21.   set the locH of sprite 10 to 515
  22.   set the locV of sprite 10 to 264
  23.   updateStage()
  24.   repeat while grosectactive = 1
  25.     GROQuitCD()
  26.     if GROChooseQuit = 2 then
  27.       exit repeat
  28.     end if
  29.     repeat while the movieTime of sprite 10 < 1080
  30.       GROQuitCD()
  31.       if GROChooseQuit = 2 then
  32.         exit repeat
  33.       end if
  34.       if rollOver(18) then
  35.         if the mouseDown then
  36.           set the movieRate of sprite 10 to 0
  37.           if GROChooseQuit <> 2 then
  38.             repeat while the movieRate of sprite 10 = 0
  39.               if rollOver(17) then
  40.                 if the mouseDown then
  41.                   set the movieRate of sprite 10 to 1
  42.                 end if
  43.               end if
  44.               groANIMATESCREEN()
  45.               if GROChooseQuit = 2 then
  46.                 exit repeat
  47.               end if
  48.             end repeat
  49.           end if
  50.           if GROChooseQuit = 2 then
  51.             exit repeat
  52.           end if
  53.         end if
  54.       else
  55.         if rollOver(17) then
  56.           if the mouseDown then
  57.             set the movieRate of sprite 10 to 1
  58.           end if
  59.         end if
  60.       end if
  61.       updateStage()
  62.       set the movieRate of sprite 10 to 1
  63.       updateStage()
  64.     end repeat
  65.     if GROChooseQuit = 2 then
  66.       exit repeat
  67.     end if
  68.     if rollOver(17) then
  69.       if the mouseDown then
  70.         set the movieTime of sprite 10 to 0
  71.       end if
  72.     end if
  73.     groANIMATESCREEN()
  74.   end repeat
  75. end
  76.