home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0324 / 0324.ZIP / Setup.exe / SQUARK.EXE / SQUARK.dxr / 00190_CHECKFOR.ls < prev    next >
Encoding:
Text File  |  1999-08-01  |  264 b   |  15 lines
  1. on CHECKFOR
  2.   global UPGCOUNT, UPG
  3.   set UPGCOUNT to UPGCOUNT + 1
  4.   if UPGCOUNT > 3 then
  5.     exit
  6.   end if
  7.   dontPassEvent()
  8.   repeat with n = 49 to 55
  9.     puppetSprite(n, 0)
  10.   end repeat
  11.   if (the key = "$") or (the key = "4") then
  12.     go("GETUSER")
  13.   end if
  14. end
  15.