home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / mgiwaug.dxr / 00024_MGICompQuestion,MGIFrench.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  1.2 KB  |  37 lines
  1. on MGICompQuestion
  2.   global MGIBigBoxSprite
  3.   set the castNum of sprite MGIBigBoxSprite to 102
  4.   set the locH of sprite MGIBigBoxSprite to 200
  5.   set the locV of sprite MGIBigBoxSprite to 200
  6.   set the ink of sprite MGIBigBoxSprite to 8
  7.   updateStage()
  8.   repeat while the mouseCast = the castNum of sprite MGIBigBoxSprite
  9.     MGISpinE()
  10.     if (the mouseH < 190) and (the mouseH > 50) and (the mouseV < 393) and (the mouseV > 339) then
  11.       set the castNum of sprite MGIBigBoxSprite to 103
  12.       updateStage()
  13.       repeat while (the mouseH < 190) and (the mouseH > 50) and (the mouseV < 393) and (the mouseV > 339)
  14.         MGISpinE()
  15.       end repeat
  16.       set the castNum of sprite MGIBigBoxSprite to 102
  17.       updateStage()
  18.     end if
  19.   end repeat
  20.   set the locH of sprite MGIBigBoxSprite to 2000
  21.   play movie "new"
  22.   updateStage()
  23. end
  24.  
  25. on MGIFrench
  26.   global MGIFrenchSprite, MGICompTwoSprite, MGICompOneSprite
  27.   set the castNum of sprite MGIFrenchSprite to 106
  28.   set the locH of sprite MGIFrenchSprite to 310
  29.   set the locV of sprite MGIFrenchSprite to 225
  30.   set the ink of sprite MGIFrenchSprite to 36
  31.   updateStage()
  32.   repeat while rollOver(MGICompTwoSprite) or rollOver(MGICompOneSprite)
  33.     MGISpinE()
  34.   end repeat
  35.   set the locH of sprite MGIFrenchSprite to 2000
  36. end
  37.