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 / adv_all / movie / success.dcr / 00017.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  355 b   |  19 lines
  1. on mouseDown
  2.   global mlist, me
  3.   set the castNum of sprite 4 to 19
  4.   updateStage()
  5.   repeat while the stillDown
  6.     nothing()
  7.   end repeat
  8.   set the castNum of sprite 4 to 17
  9.   updateStage()
  10.   set teq to 0
  11.   repeat while teq = 0
  12.     set me to random(7)
  13.     if getOne(mlist, me) = 0 then
  14.       set teq to 1
  15.     end if
  16.   end repeat
  17.   go(the frame + 1)
  18. end
  19.