home *** CD-ROM | disk | FTP | other *** search
/ תקליטור אוסף מעל 200 משחקים מרתקים / over-200-games-micro-a-media.iso / CONNECTD / HOST2.DXR / 00020_quitReally-2.ls < prev    next >
Encoding:
Text File  |  1996-01-12  |  862 b   |  32 lines
  1. on mouseUp
  2.   global seton, SaveFrame, window, fh, rwObj, fixpal
  3.   if (the mouseV > 397) and (the mouseV < 433) then
  4.     if (the mouseH > 164) and (the mouseH < 262) then
  5.       if objectp(window) then
  6.         forget(window)
  7.       end if
  8.       if objectp(fh) then
  9.         fh(mdispose)
  10.       end if
  11.       if objectp(rwObj) then
  12.         rwObj(mdispose)
  13.       end if
  14.       if objectp(fixpal) then
  15.         fixpal(mdispose)
  16.       end if
  17.       quit()
  18.     else
  19.       if (the mouseH > 294) and (the mouseH < 392) then
  20.         set the castNum of sprite 20 to the number of cast "dot"
  21.         set the castNum of sprite 22 to the number of cast "dot"
  22.         tell window "guest"
  23.           continue()
  24.           go(value(SaveFrame))
  25.           set the castNum of sprite 48 to the number of cast "dot"
  26.         end tell
  27.         set seton to 0
  28.       end if
  29.     end if
  30.   end if
  31. end
  32.