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