home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / grnhse.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  639 b   |  21 lines
  1. on mouseDown
  2.   global castData, notePages, currPage
  3.   moveWindow("6", marker(0))
  4.   if (the right of sprite 6 - the mouseH) < 10 then
  5.     if (the bottom of sprite 6 - the mouseH) < 10 then
  6.       if currPage < notePages then
  7.         set the castNum of sprite 6 to value(item 1 of castData) + 1
  8.         set currPage to currPage + 1
  9.       end if
  10.     end if
  11.   end if
  12.   if (the right of sprite 6 - the mouseH) < 20 then
  13.     if (the bottom of sprite 6 - the mouseH) < 20 then
  14.       if currPage > 1 then
  15.         set the castNum of sprite 6 to value(item 1 of castData) - 1
  16.         set currPage to currPage - 1
  17.       end if
  18.     end if
  19.   end if
  20. end
  21.