home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / MGIFINJ.DXR / 00024_MGICompQuestion,MGIFrench.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  1.2 KB  |  35 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. end
  22.  
  23. on MGIFrench
  24.   global MGIFrenchSprite, MGICompTwoSprite, MGICompOneSprite
  25.   set the castNum of sprite MGIFrenchSprite to 106
  26.   set the locH of sprite MGIFrenchSprite to 310
  27.   set the locV of sprite MGIFrenchSprite to 225
  28.   set the ink of sprite MGIFrenchSprite to 36
  29.   updateStage()
  30.   repeat while rollOver(MGICompTwoSprite) or rollOver(MGICompOneSprite)
  31.     MGISpinE()
  32.   end repeat
  33.   set the locH of sprite MGIFrenchSprite to 2000
  34. end
  35.