home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00017_Down-Up.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  566 b   |  25 lines
  1. on mouseDown
  2.   global cc_no, wc_no, group, show, cat1max, cat2max
  3.   if (show = 1) or (the text of cast "PICTname" = "- BLUE -") then
  4.     exit
  5.   end if
  6.   puppetSound("ShutterSound")
  7.   if button1("Down-Up", "Down-Down") = 1 then
  8.     if group = "COOL" then
  9.       set cc_no to cc_no - 3
  10.       if cc_no < 1 then
  11.         set cc_no to cat1max - 2
  12.       end if
  13.     else
  14.       if group = "WARM" then
  15.         set wc_no to wc_no - 3
  16.         if wc_no < 1 then
  17.           set wc_no to cat2max - 2
  18.         end if
  19.       end if
  20.     end if
  21.     readcat()
  22.   end if
  23.   puppetSound(0)
  24. end
  25.