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 / slot.dcr / 00076.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  606 b   |  30 lines
  1. on exitFrame
  2.   global gslt, gspdl, gstop, gout
  3.   movedigit()
  4.   if getAt(gspdl, 3) = 0 then
  5.     if getAt(gslt, 2) = getAt(gslt, 6) then
  6.       if soundBusy(1) = 0 then
  7.         puppetSound(0)
  8.         resetlamp(3)
  9.         go("├┐┬É┬í")
  10.       end if
  11.     else
  12.       if getAt(gspdl, 2) = 0 then
  13.         resetlamp(1)
  14.         go("├¬┬Ñ├⌐Z")
  15.       end if
  16.     end if
  17.   end if
  18.   if (gstop = 0) and (the ticks > gout) then
  19.     set gstop to 1
  20.     puppetSound("5.├ë├Ñ├ëo├à[")
  21.     cursor([45, 46])
  22.   end if
  23.   if (gstop = 0) and rollOver(10) then
  24.     cursor([43, 44])
  25.   else
  26.     cursor([45, 46])
  27.   end if
  28.   go(the frame)
  29. end
  30.