home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / animals.dir / 00016_wMenu.pct.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.3 KB  |  33 lines
  1. on mouseUp
  2.   global theSection, theSectionT, theSLine, lineheight, spHoriz, spVert, col1amount, col2amount, col1width, col2width
  3.   set mh to the mouseH
  4.   set mv to the mouseV
  5.   if (mv - spVert) < 0 then
  6.     clearLists()
  7.   else
  8.     if (the name of cast the castNum of sprite 40 = "blanker") or (the name of cast the castNum of sprite 40 = "introButt3") then
  9.       set the castNum of sprite 40 to cast "introButt3"
  10.     else
  11.       set the castNum of sprite 40 to cast "introButt2"
  12.     end if
  13.     if (mh - spHoriz) < col1width then
  14.       set theSLine to abs((mv + 10 - spVert) / lineheight)
  15.       set theSectionT to theSLine
  16.       if (theSLine > 0) and (theSLine <= col1amount) then
  17.         set the locH of sprite 43 to spHoriz
  18.         set the width of sprite 43 to col1width
  19.         doSet(theSectionT, theSLine, spVert)
  20.       end if
  21.     end if
  22.     if ((mh - spHoriz) > col1width) and ((mh - spHoriz) < (col1width + col2width)) then
  23.       set theSLine to abs((mv + 10 - spVert) / lineheight)
  24.       set theSectionT to theSLine + col1amount
  25.       if (theSLine > 0) and (theSLine <= col2amount) then
  26.         set the locH of sprite 43 to spHoriz + col1width
  27.         set the width of sprite 43 to col2width
  28.         doSet(theSectionT, theSLine, spVert)
  29.       end if
  30.     end if
  31.   end if
  32. end
  33.