---- written for Director 8 ---
---- Kumar.K ----
---- kumark@icode.com ----
------ Custom Properties ------
property WhereTo,whichmouseclick
------ 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"]
Mouseclicklist=["Left Mouse Up","Left Mouse Down","Right Mouse Up","Right Mouse Down"]
addProp description, #whichmouseclick, [#comment: "wait for Which MouseClick ?",#format:#String,#range:Mouseclicklist,#default:Mouseclicklist[1]]
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" & RETURN & RETURN &
"This Behavior make the playback head hold on a frame untill a MouseClick . " &
"PARAMETERS:" & RETURN &
"* Which MouseClick :" & RETURN &
"* What to Do after 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
go the frame
end ExitFrame
on mouseup
if whichmouseclick = "Left Mouse Up" then
whatnext
end if
end
on mousedown
if whichmouseclick = "Left Mouse Down" then
whatnext
end if
end
on rightMouseUp
if whichmouseclick = "Right Mouse Up" then
whatnext
end if
end
on rightMouseDown
if whichmouseclick = "Right Mouse Down" then
whatnext
end if
end
------ Events ------
----custom handlers----
on whatnext
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
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA