home *** CD-ROM | disk | FTP | other *** search
/ Canadian Forces: Canada's NAVY / CF_FS_Navy.iso / pc / data / 0_07_en.dxr / 00013_state_bt.ls < prev    next >
Encoding:
Text File  |  2005-06-08  |  2.8 KB  |  84 lines
  1. property WhereTo, RolloverCursor, Rollovermember, StandardMember, savedCursor, spriteNum, soundmember, soundChannel
  2.  
  3. on getPropertyDescriptionList me
  4.   description = [:]
  5.   Soundmememberlist = searchSoundMember(me)
  6.   if the currentSpriteNum = 0 then
  7.     exit
  8.   end if
  9.   theMember = sprite(the currentSpriteNum).member
  10.   theMemberNumber = theMember.number
  11.   addProp(description, #RolloverCursor, [#comment: "Set the RollOver Cursor To(On Rollver) :", #format: #cursor, #default: 280])
  12.   addProp(description, #Rollovermember, [#comment: "Set RollOver Member To :", #format: #graphic, #default: member(theMemberNumber + 1)])
  13.   if Soundmememberlist.count > 0 then
  14.     addProp(description, #soundmember, [#comment: "Play Sound on rollover :", #format: #string, #range: Soundmememberlist, #default: Soundmememberlist[1]])
  15.     addProp(description, #soundChannel, [#comment: "Choose SoundChannel :", #format: #integer, #range: [#min: 1, #max: 8], #default: 1])
  16.   end if
  17.   return description
  18. end
  19.  
  20. on getBehaviorDescription me
  21.   return "Change Cursor,Memer and Play sound On Rollover " & RETURN & RETURN & "This Behavior Changes the Member & Cursor of the sprite to the Specified member and Cursor and Plays the Sound specified." & RETURN & RETURN & "PARAMETERS:" & RETURN & "* RollOver Cursor" & RETURN & "* RollOver Member" & RETURN & "* Sound Member" & RETURN & "* Sound Channel"
  22. end
  23.  
  24. on isOKToAttach me, aSpriteType, aSpriteNum
  25.   case aSpriteType of
  26.     #graphic:
  27.       return 1
  28.     #script:
  29.       return 0
  30.   end case
  31. end
  32.  
  33. on beginSprite
  34.   StandardMember = sprite(spriteNum).member
  35.   savedCursor = sprite(spriteNum).cursor
  36. end
  37.  
  38. on mouseEnter me
  39.   sprite(spriteNum).member = Rollovermember
  40.   sprite(spriteNum).cursor = RolloverCursor
  41.   updateStage()
  42.   if soundChannel >= 1 then
  43.     if member(soundmember).type = #sound then
  44.       puppetSound(soundChannel, soundmember)
  45.     end if
  46.     if member(soundmember).type = #swa then
  47.       member(soundmember).play()
  48.     end if
  49.   end if
  50. end
  51.  
  52. on mouseLeave me
  53.   sprite(spriteNum).member = StandardMember
  54.   sprite(spriteNum).cursor = savedCursor
  55.   updateStage()
  56.   if soundChannel >= 1 then
  57.     if member(soundmember).type = #sound then
  58.       puppetSound(soundChannel, 0)
  59.     end if
  60.     if member(soundmember).type = #swa then
  61.       member(soundmember).stop()
  62.     end if
  63.   end if
  64. end
  65.  
  66. on searchSoundMember me
  67.   Soundmememberlist = []
  68.   maxCastLib = the number of castLibs
  69.   repeat with theCastLib = 1 to maxCastLib
  70.     maxMember = the number of castMembers of castLib theCastLib
  71.     repeat with memberNumber = 1 to maxMember
  72.       theMember = member(memberNumber, theCastLib)
  73.       if (theMember.type = #sound) or (theMember.type = #swa) then
  74.         if theMember.name = EMPTY then
  75.           Soundmememberlist.append(theMember)
  76.           next repeat
  77.         end if
  78.         Soundmememberlist.append(theMember.name)
  79.       end if
  80.     end repeat
  81.   end repeat
  82.   return Soundmememberlist
  83. end
  84.