home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 22 / cdrt22.iso / pc / bugbook / wait.dir / 00039_Script_39 < prev    next >
Text File  |  1995-06-27  |  565b  |  26 lines
  1. on exitFrame
  2.   global bugActive,bugState,bugTimeout,spriteIndex
  3.   if ((the timer > bugTimeout) and (bugActive=FALSE)) then
  4.     set bugActive=TRUE
  5.     set bugState=1
  6.   end if
  7.   
  8.   if (bugActive) then bugAction()
  9.   
  10.   
  11.   set found=FALSE
  12.   set spriteIndex=5
  13.   repeat while (not(found)) and (spriteIndex<9)
  14.     if rollover(spriteIndex) then set found=TRUE
  15.     set spriteIndex=spriteIndex+1
  16.   end repeat
  17.   
  18.   
  19.   if found then
  20.     set spriteIndex=spriteIndex-5
  21.     set tmpState = string(spriteIndex)
  22.     go tmpState
  23.   else
  24.     go "0"
  25.   end if
  26. end