home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / ue.dir / 00231_Script_231 < prev    next >
Text File  |  1996-03-13  |  1KB  |  34 lines
  1. on mouseDown
  2.   global FramesMap,PrevFrame,MensFrames
  3.   
  4.   if inside(the clickLoc, rect(22, 189, 122, 429)) then          --left
  5.     put 2 into theItem
  6.   else  if inside(the clickLoc, rect(512, 189, 612, 429)) then   --right
  7.     put 1 into theItem
  8.   else  if inside(the clickLoc, rect(122, 229, 512, 379)) then   --forward
  9.     put 3 into theItem
  10.   else  if inside(the clickLoc, rect(122, 189, 512, 229)) then   --up
  11.     put 5 into theItem
  12.   else  if inside(the clickLoc, rect(122, 379, 512, 429)) then   --back
  13.     put 4 into theItem
  14.   end if
  15.   updateStage
  16.   if the frame = (marker(0) + 1) then
  17.     put ((the frame) + 2) / 3 into theLine
  18.     if theItem = 4 and char 3 of the name of cast the castNum of sprite 25 = "H" then put 6 into theItem
  19.     if char 3 of the name of cast the castNum of sprite (theItem + 19) = "H" then
  20.       if string(item theItem of line theLine of FramesMap) <> "---" then
  21.         go frame string(item theItem of line theLine of FramesMap)
  22.       else
  23.         chooseBack theLine,theItem
  24.       end if
  25.     else
  26.       if the number of chars of string(theLine) < 3 then put string("0"&theLine) into theLine
  27.       if the number of chars of string(theLine) < 3 then put string("0"&theLine) into theLine
  28.       if MensFrames contains string(theLine) then
  29.         GoDatabase theLine
  30.       end if    
  31.     end if
  32.     if ((the frame) + 2) / 3 <> theLine then put theLine into PrevFrame
  33.   end if
  34. end