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 / 00071.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  585 b   |  29 lines
  1. on exitFrame
  2.   global gslt, gspdl, gkritu
  3.   movelamp(3)
  4.   updatelamp()
  5.   movedigit()
  6.   if getAt(gspdl, 2) = 0 then
  7.     if getAt(gslt, 2) = getAt(gslt, 4) then
  8.       if getAt(gslt, 2) = 1 then
  9.         set gkritu to 10
  10.       end if
  11.       if getAt(gslt, 2) = 2 then
  12.         set gkritu to 5
  13.       end if
  14.       if getAt(gslt, 2) = 3 then
  15.         set gkritu to 1
  16.       end if
  17.       if getAt(gslt, 2) = 4 then
  18.         set gkritu to random(14) + 1
  19.       end if
  20.       startTimer()
  21.       go("├¼├▒├ç├╜├ç├ï")
  22.     else
  23.       resetlamp(1)
  24.       go("├¬┬Ñ├⌐Z")
  25.     end if
  26.   end if
  27.   go(the frame)
  28. end
  29.