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 / 00074.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  561 b   |  25 lines
  1. on checkstat
  2.   global gmv, gdc
  3.   if the timer > (6 * 60) then
  4.     if (gmv > (the mouseV + 50)) or (gmv < (the mouseV - 50)) then
  5.       set gmv to the mouseV
  6.       puppetSound("3.├ñ├Å├çΓÇÿ-b")
  7.       dspten(1)
  8.       set gdc to gdc + 1
  9.       set gmv to the mouseV
  10.       startTimer()
  11.       return 0
  12.     else
  13.       if the timer > (15 * 60) then
  14.         if (gmv < (the mouseV + 50)) or (gmv > (the mouseV - 50)) then
  15.           return 1
  16.         else
  17.           set gmv to the mouseV
  18.           startTimer()
  19.         end if
  20.       end if
  21.     end if
  22.   end if
  23.   return 0
  24. end
  25.