home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / events / gento / Panachan.dcr / 00045.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  507 b   |  23 lines
  1. on exitFrame
  2.   global defsphead, startholeh, startholev, panatimeout
  3.   if rollOver(8) then
  4.     cursor([4, 5])
  5.   else
  6.     cursor(0)
  7.   end if
  8.   if the mouseDown then
  9.     set panatimeout to the ticks + (60 * 10)
  10.   end if
  11.   if (abs(startholeh - the locH of sprite defsphead) < 23) and (abs(startholev - the locV of sprite defsphead) < 15) then
  12.     cursor(0)
  13.     panadone()
  14.     go("goWeb")
  15.   else
  16.     if panatimeout < the ticks then
  17.       go("goWebTimeOutB")
  18.     else
  19.       go(marker(0))
  20.     end if
  21.   end if
  22. end
  23.