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 / psyche.dcr / 00075.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  971 b   |  43 lines
  1. on checkkata
  2.   global cnt, cnt2, cnt3
  3.   if the mouseDown then
  4.     cursor([31, 32])
  5.     if the mouseCast = the number of cast "Sweet" then
  6.       if cnt3 = 0 then
  7.         set the visible of sprite 7 to 1
  8.         set the visible of sprite 8 to 0
  9.         set cnt3 to cnt3 + 1
  10.       else
  11.         if cnt3 > 3 then
  12.           set the visible of sprite 7 to 0
  13.           set the visible of sprite 8 to 0
  14.         end if
  15.       end if
  16.       set cnt to cnt + 1
  17.       if cnt > 4 then
  18.         puppetSound("3.├ñ├Å├çΓÇÿ-b")
  19.         dspten(1)
  20.         set cnt to 0
  21.         set cnt2 to cnt2 + 1
  22.       end if
  23.     else
  24.       if the mouseCast <> 8 then
  25.         set the visible of sprite 7 to 0
  26.         set the visible of sprite 8 to 1
  27.         set cnt3 to 0
  28.       else
  29.         set the visible of sprite 7 to 0
  30.         set the visible of sprite 8 to 0
  31.       end if
  32.       set cnt to 0
  33.     end if
  34.   else
  35.     cursor([33, 34])
  36.   end if
  37.   if cnt2 > 0 then
  38.     return 1
  39.   else
  40.     return 0
  41.   end if
  42. end
  43.