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 / 00006_black.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  1.1 KB  |  45 lines
  1. on mouseDown
  2.   global gclick1, gclick2, gpicture, clicklist, pictlist
  3.   if (gclick1 <> 0) and (gclick2 <> 0) then
  4.     puppetSound("NG")
  5.     updateStage()
  6.     set the castNum of sprite gclick1 to the number of cast "black"
  7.     set the castNum of sprite gclick2 to the number of cast "black"
  8.     set gclick1 to 0
  9.     set gclick2 to 0
  10.     set gpicture to 0
  11.     updateStage()
  12.   else
  13.     set clickno to the clickOn
  14.     set number to getOne(clicklist, clickno)
  15.     set place to number / 2
  16.     if (number mod 2) = 1 then
  17.       pictchange(clickno, getAt(pictlist, place + 1))
  18.     else
  19.       pictchange(clickno, getAt(pictlist, place))
  20.     end if
  21.   end if
  22. end
  23.  
  24. on pictchange chnum, pictname
  25.   global gclick1, gclick2, gpicture
  26.   puppetSprite(chnum, 1)
  27.   set the castNum of sprite chnum to pictname
  28.   puppetTransition(12, 1, 20)
  29.   updateStage()
  30.   if gclick1 = 0 then
  31.     set gclick1 to chnum
  32.     set gpicture to pictname
  33.   else
  34.     if gpicture = pictname then
  35.       set gclick2 to chnum
  36.       set name to string(pictname)
  37.       puppetSound("OK")
  38.       updateStage()
  39.       go("ex" & name)
  40.     else
  41.       set gclick2 to chnum
  42.     end if
  43.   end if
  44. end
  45.