home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / rescue.dcr / 00050.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  361 b   |  24 lines
  1. on exitFrame
  2.   global gmno, glife, gspeed
  3.   createres()
  4.   moveres()
  5.   movesonic()
  6.   set i to checkres()
  7.   if i = 1 then
  8.     go("Barchan")
  9.   end if
  10.   if (glife = 0) or (gspeed = 9) then
  11.     startTimer()
  12.     go(#next)
  13.   end if
  14.   set i to checksw()
  15.   if i = 1 then
  16.     set gmno to 0
  17.     clear(0)
  18.     resetglobal()
  19.     go("1")
  20.   else
  21.     go(the frame)
  22.   end if
  23. end
  24.