---- 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 ------
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA