home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00288.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  2.8 KB  |  70 lines
  1. on Mycheck2
  2.   global FramesMap, MensFrames
  3.   set temp to line (the frame + 2) / 3 of FramesMap
  4.   if inside(point(the mouseH, the mouseV), rect(23, 183, 222, 429)) and (string(item 2 of temp) <> "000") then
  5.     MyCursor(254, 255)
  6.   else
  7.     if inside(point(the mouseH, the mouseV), rect(372, 186, 614, 430)) and (string(item 1 of temp) <> "000") then
  8.       MyCursor(252, 253)
  9.     else
  10.       if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (string(item 3 of temp) <> "000") then
  11.         MyCursor(258, 259)
  12.       else
  13.         if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (MensFrames contains string((the frame + 2) / 3)) and (string((the frame + 2) / 3) <> 9) then
  14.           SetCursor()
  15.         else
  16.           if inside(point(the mouseH, the mouseV), rect(122, 189, 512, 229)) and (string(item 5 of temp) <> "000") then
  17.             MyCursor(250, 251)
  18.           else
  19.             if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 4 of temp) <> "000") then
  20.               MyCursor(256, 257)
  21.             else
  22.               if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 6 of temp) <> "000") then
  23.                 MyCursor(248, 249)
  24.               else
  25.                 ReleasCursor()
  26.                 cursor(0)
  27.               end if
  28.             end if
  29.           end if
  30.         end if
  31.       end if
  32.     end if
  33.   end if
  34. end
  35.  
  36. on Mycheck
  37.   global FramesMap, MensFrames
  38.   set temp to line (the frame + 2) / 3 of FramesMap
  39.   if inside(point(the mouseH, the mouseV), rect(23, 183, 222, 429)) and (string(item 2 of temp) <> "000") then
  40.     MyCursor(254, 255)
  41.   else
  42.     if inside(point(the mouseH, the mouseV), rect(512, 189, 612, 429)) and (string(item 1 of temp) <> "000") then
  43.       MyCursor(252, 253)
  44.     else
  45.       if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (string(item 3 of temp) <> "000") then
  46.         MyCursor(258, 259)
  47.       else
  48.         if inside(point(the mouseH, the mouseV), rect(122, 229, 512, 379)) and (MensFrames contains string((the frame + 2) / 3)) and (string((the frame + 2) / 3) <> 9) then
  49.           SetCursor()
  50.         else
  51.           if inside(point(the mouseH, the mouseV), rect(122, 189, 512, 229)) and (string(item 5 of temp) <> "000") then
  52.             MyCursor(250, 251)
  53.           else
  54.             if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 4 of temp) <> "000") then
  55.               MyCursor(256, 257)
  56.             else
  57.               if inside(point(the mouseH, the mouseV), rect(122, 379, 512, 429)) and (string(item 6 of temp) <> "000") then
  58.                 MyCursor(248, 249)
  59.               else
  60.                 ReleasCursor()
  61.                 cursor(0)
  62.               end if
  63.             end if
  64.           end if
  65.         end if
  66.       end if
  67.     end if
  68.   end if
  69. end
  70.