home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / mgiwaug.dxr / 00110_Competion2c.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  347 b   |  15 lines
  1. on mouseUp
  2.   global MGICompOnStage, MGICompTwoSprite, MGICompTwoOnStage, MGICompMouseUp, MGIChoose
  3.   if MGICompMouseUp = 1 then
  4.     set MGICompTwoOnStage to 2
  5.     if (MGICompOnStage <> 2) or (MGIChoose = 2) then
  6.       set MGIChoose to 2
  7.       MGICompQuestion()
  8.     else
  9.       MGIFrench()
  10.     end if
  11.   else
  12.     set MGICompMouseUp to 1
  13.   end if
  14. end
  15.