home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00231.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  1.5 KB  |  50 lines
  1. on mouseDown
  2.   global FramesMap, PrevFrame, MensFrames
  3.   if inside(the clickLoc, rect(22, 189, 122, 429)) then
  4.     set theItem to 2
  5.   else
  6.     if inside(the clickLoc, rect(512, 189, 612, 429)) then
  7.       set theItem to 1
  8.     else
  9.       if inside(the clickLoc, rect(122, 229, 512, 379)) then
  10.         set theItem to 3
  11.       else
  12.         if inside(the clickLoc, rect(122, 189, 512, 229)) then
  13.           set theItem to 5
  14.         else
  15.           if inside(the clickLoc, rect(122, 379, 512, 429)) then
  16.             set theItem to 4
  17.           end if
  18.         end if
  19.       end if
  20.     end if
  21.   end if
  22.   updateStage()
  23.   if the frame = (marker(0) + 1) then
  24.     set theLine to (the frame + 2) / 3
  25.     if (theItem = 4) and (char 3 of the name of cast the castNum of sprite 25 = "H") then
  26.       set theItem to 6
  27.     end if
  28.     if char 3 of the name of cast the castNum of sprite (theItem + 19) = "H" then
  29.       if string(item theItem of line theLine of FramesMap) <> "---" then
  30.         go(string(item theItem of line theLine of FramesMap))
  31.       else
  32.         chooseBack(theLine, theItem)
  33.       end if
  34.     else
  35.       if the number of chars in string(theLine) < 3 then
  36.         set theLine to string("0" & theLine)
  37.       end if
  38.       if the number of chars in string(theLine) < 3 then
  39.         set theLine to string("0" & theLine)
  40.       end if
  41.       if MensFrames contains string(theLine) then
  42.         GoDatabase(theLine)
  43.       end if
  44.     end if
  45.     if ((the frame + 2) / 3) <> theLine then
  46.       set PrevFrame to theLine
  47.     end if
  48.   end if
  49. end
  50.