home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_7_InputFrame.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  847 b   |  51 lines
  1. global gRunChangePath, gPlay, gLNum, gVideoBig
  2.  
  3. on prepareFrame
  4.   case PlayState() of
  5.     0:
  6.       gPlay = 0
  7.       Process(0)
  8.     1:
  9.       gPlay = 1
  10.     2:
  11.       gPlay = 1
  12.     3:
  13.       gPlay = 1
  14.     4:
  15.       Process(4)
  16.       gPlay = 1
  17.   end case
  18. end
  19.  
  20. on exitFrame me
  21.   if PlayState() = 2 then
  22.     if (gLNum = [3, VOID, VOID]) or (gLNum = [3, 8, VOID]) then
  23.       if gVideoBig[4] = 0 then
  24.         gVideoBig[4] = "UP"
  25.         go(the frame)
  26.       else
  27.         if gVideoBig[4] <> "STOP" then
  28.           go(the frame)
  29.         else
  30.           Process(2)
  31.           gRunChangePath = 0
  32.         end if
  33.       end if
  34.     else
  35.       Process(2)
  36.       gRunChangePath = 0
  37.     end if
  38.   else
  39.     gRunChangePath = 0
  40.   end if
  41. end
  42.  
  43. on isOKToAttach me, aSpriteType, aSpriteNum
  44.   case aSpriteType of
  45.     #graphic:
  46.       return 0
  47.     #script:
  48.       return 1
  49.   end case
  50. end
  51.