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
Ripple Follow Mouse on Rollover-Alphamania
Popup Xtra
Math
Sound not playing in projectors
RealLingo
All in one video controller
MUI Maker
cXtraChangeRes
ModMania
Inverse cosine
 

 

 

Behavior Wait for a MouseClick or Keypress

Added on 7/6/2000

 

Compatibilities:
behavior D7 D8 Mac PC Shockwave

This item has not yet been rated

Author: KumarK

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

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail