Wait for a MouseClick or Keypress

 

Compatibilities:

This item has not yet been rated

Wait for a MouseClick or Keypress

---- written for Director 8 --- ---- Kumar.K ---- ---- kumark@icode.com ---- ------ Custom Properties ------ property  WhereTo ------ Get Behavior Description List ------ on getPropertyDescriptionList me   set description = [:]   if the currentspritenum <> 0 then exit   actionlist=["Go Next Frame","Go Next Marker","Go Previous Marker","Go Loop","Exit"]   addProp description, #WhereTo, [#comment: "What Next(after a Key press or Mouse Click) ?" ,#format:#String,#range:actionlist,#default:actionlist[1]]   return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription me   return     "Wait for a MouseClick or KeyDown" & RETURN & RETURN &     "This Behavior make the playback head hold on a frame untill a keypress or mouse click. " &     "PARAMETERS:" & RETURN &     "* What to Do after Key press or MouseClick." end getBehaviorDescription -- Get Behavior description -- ------ Availbale for only Frame Script ------ on isOKToAttach (me, aSpriteType, aSpriteNum)   case aSpriteType of     #graphic:       return false     #script:       return true   end case end isOKToAttach ------ Availbale for only Frame Script ------ -- Events -- on ExitFrame me   if not the mousedown then     go the frame   else     case WhereTo of       "Go Next Frame":Go the frame + 1       "Go Next Marker": Go Next       "Go Previous Marker": Go previous       "Go Loop": Go Loop       "Exit":quit     end case   end if end ExitFrame on keydown   case WhereTo of     "Go Next Frame":Go the frame + 1     "Go Next Marker": Go Next     "Go Previous Marker": Go previous     "Go Loop": Go Loop     "Exit":quit   end case end keydown ------ Events ------

Upload Provided by ABCUpload ASP