home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON08 / ACT08B / COMMON8 / 00041_Script_speaker < prev    next >
Encoding:
Text File  |  1998-10-02  |  625 b   |  24 lines
  1. property p.speakerSpr,p.audioList
  2.  
  3.  
  4. on exitframe me
  5.   if the spriteNum of me <0 then  --only if it's a frame script
  6.     animateSpeaker p.speakerSpr,value(p.audioList)
  7.   end if
  8. end
  9.  
  10.  
  11. on mouseUp me
  12.   if the spriteNum of me >0 then  --only if it's a sprite script
  13.     animateSpeaker p.speakerSpr,value(p.audioList)
  14.   end if
  15. end
  16.  
  17.  
  18.  
  19. on getPropertyDescriptionList
  20.   set description=[:] 
  21.   addProp description,#p.speakerSpr,[#default:117,#format:#integer,#comment:"Enter speaker's sprite:"]
  22.   addProp description,#p.audioList,[#default:"",#format:#string,#comment:"Enter audio list:"]
  23.   return description
  24. end