home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_4_CheckProc.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  335 b   |  21 lines
  1. global gPlay
  2.  
  3. on exitFrame me
  4.   if CheckProc() = 0 then
  5.     go(the frame)
  6.   else
  7.     if (PlayState() <> 0) or (PlayState() <> 3) or (PlayState() <> 4) then
  8.       gPlay = 2
  9.     end if
  10.   end if
  11. end
  12.  
  13. on isOKToAttach me, aSpriteType, aSpriteNum
  14.   case aSpriteType of
  15.     #graphic:
  16.       return 0
  17.     #script:
  18.       return 1
  19.   end case
  20. end
  21.