Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
Check For Asset
Make Director window odd sized.
Amara Flash Intro and Banner Builder
Expire date
MUI-GUI
myBackGround
Turn puppeting off for a range of sprite channels
Create a Shortcut on desktop
Wait for DirectMedia Xtra Sprite v. 2.0
Shadow Maker
 

 

 

Behavior Wait for Mouseclick

Added on 7/6/2000

 

Compatibilities:
behavior D7 D8 Mac PC Shockwave

This item has not yet been rated

Author: KumarK

Wait for Mouseclick

---- 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

Send e-mail