home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00034_Stock2.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  627 b   |  25 lines
  1. on mouseDown
  2.   global group, c_no, w_no, show
  3.   if (show = 1) or (the text of cast "PICTname" = "- BLUE -") then
  4.     exit
  5.   end if
  6.   puppetSound("ButtonSound")
  7.   if button2(4, 4) = 1 then
  8.     set group to chars(the text of cast "STK-2", 1, 4)
  9.     set number to 0
  10.     set number to number + (value(char 6 of the text of cast "STK-2") * 10)
  11.     set number to number + value(char 7 of the text of cast "STK-2")
  12.     if group = "COOL" then
  13.       set c_no to number
  14.     else
  15.       if group = "WARM" then
  16.         set w_no to number
  17.       end if
  18.     end if
  19.     cursor(4)
  20.     pict_load(number)
  21.     readcat()
  22.     cursor(-1)
  23.   end if
  24. end
  25.