home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / MGIWDEC.DXR / 00024_MGISTONEY.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  486 b   |  19 lines
  1. on MGISTONEY
  2.   global MGISTONEON
  3.   if MGISTONEON = 0 then
  4.     set MGISTONEON to 3
  5.     set the windowType of window "STONEY" to 2
  6.     set the rect of window "STONEY" to rect(the stageLeft + 323, the stageTop + 100, the stageLeft + 564, the stageTop + 338)
  7.     open(window "STONEY")
  8.   else
  9.     if MGISTONEON = 2 then
  10.       set MGISTONEON to 1
  11.       forget(window "stoney")
  12.       set the locH of sprite 14 to 2000
  13.       updateStage()
  14.       put "go"
  15.     end if
  16.   end if
  17.   updateStage()
  18. end
  19.