home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00051.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  867 b   |  55 lines
  1. on idle
  2.   global group, show, c_no, w_no, wait, stat
  3.   if stat = 1 then
  4.     bcool()
  5.   end if
  6.   if stat = 2 then
  7.     bwarm()
  8.   end if
  9.   if stat = 3 then
  10.     bsearch()
  11.   end if
  12.   if stat = 4 then
  13.     bfull()
  14.   end if
  15.   if stat = 5 then
  16.     bcopy()
  17.   end if
  18.   if stat = 6 then
  19.     bhelp()
  20.   end if
  21.   if stat = 7 then
  22.     bquit()
  23.   end if
  24.   if show = 0 then
  25.     exit
  26.   end if
  27.   if (wait + 120) >= ticks() then
  28.     exit
  29.   end if
  30.   puppetSound("ShutterSound")
  31.   updateStage()
  32.   if group = "COOL" then
  33.     set grp to c_no
  34.   else
  35.     if group = "WARM" then
  36.       set grp to w_no
  37.     end if
  38.   end if
  39.   set grp to grp + 1
  40.   set ret to pict_load(grp)
  41.   if ret = 0 then
  42.     set grp to 1
  43.     pict_load(grp)
  44.   end if
  45.   if group = "COOL" then
  46.     set c_no to grp
  47.   else
  48.     if group = "WARM" then
  49.       set w_no to grp
  50.     end if
  51.   end if
  52.   set wait to ticks()
  53.   puppetSound(0)
  54. end
  55.