home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / mgiwaug.dxr / 00026_MGISTONEY.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  577 b   |  20 lines
  1. on MGISTONEY
  2.   global MGIBigBoxSprite, MGISTONEON
  3.   if MGISTONEON = 0 then
  4.     set MGISTONEON to 1
  5.     set the castNum of sprite 48 to 102
  6.     set the locH of sprite 48 to 306
  7.     set the locV of sprite 48 to 237
  8.     set the ink of sprite 48 to 36
  9.     set the windowType of window "STONEY" to 2
  10.     set the rect of window "STONEY" to rect(the stageLeft + 323, the stageTop + 116, the stageLeft + 564, the stageTop + 354)
  11.     open(window "STONEY")
  12.   else
  13.     if MGISTONEON = 2 then
  14.       set MGISTONEON to 0
  15.       forget(window "STONEY")
  16.     end if
  17.   end if
  18.   updateStage()
  19. end
  20.