home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / CSK / hyakki / zatuwa / movie / eawase.dcr / 00019_shuffle1.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  519 b   |  22 lines
  1. on enterFrame
  2.   global pictlist, clicklist, gtimes, gtime
  3.   put 0 into field "points"
  4.   if gtimes < 5 then
  5.     set gtimes to gtimes + 1
  6.     set minus to 20 * gtimes
  7.     set gtime to gtime - minus
  8.   else
  9.     nothing()
  10.   end if
  11.   put gtime into field "time"
  12.   set pictlist to []
  13.   repeat while count(pictlist) < 15
  14.     set pictno to random(15) + 30
  15.     if getOne(pictlist, pictno) = 0 then
  16.       append(pictlist, pictno)
  17.       setAt(clicklist, count(pictlist) * 2, pictno - 14)
  18.     end if
  19.   end repeat
  20.   go("before")
  21. end
  22.