home *** CD-ROM | disk | FTP | other *** search
/ Bakku no Oni - Blue / BLUE.ISO / mac / Browser / Blue / 00003_Pan-1.ls < prev    next >
Encoding:
Text File  |  1994-11-14  |  567 b   |  24 lines
  1. on mouseDown
  2.   global bit, m_item, 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 number to 0
  9.     set fword to getAt(m_item, 1)
  10.     set number to number + (value(char 1 of fword) * 10)
  11.     set number to number + value(char 2 of fword)
  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.     cursor(-1)
  22.   end if
  23. end
  24.