Shiver With Sound

 

Compatibilities:

Rating:

This makes a sprite shiver on mousewithin, with selected sound. Attach with any Graphic sprite.Too simple to be a behaviour , but may be of some use to someone.

--786 --Behaviour: Shiver me --Hasan Yasar Kazmi --Hamdard uNiversity Islamabad Pakistan --Dated: 30/11/2000 --This makes a sprite shiver on mousewithin --Attach with any Graphic sprite property spritenum,amount,Cskew,Whichsound,whichChannel on getpropertydescriptionlist me      set shiver = [:]      addprop shiver,#amount,[#comment:"Amount of Shivering",#default:1,#format:#integer,#range:[min:1,max:100]]   addprop shiver,#Whichsound,[#comment:"Sound on Shiver",#default:"",#format:#Sound]   addprop shiver,#WhichChannel,[#comment:"Sound Channel While Shivering",#default:1,#format:#integer]      return shiver end on beginsprite me   spritenum = the spritenum of me   CSkew = sprite(spritenum).skew    end on mousewithin me      sprite(spritenum).skew = integer(sprite(spritenum).skew + amount) mod 360   updatestage   sprite(spritenum).skew = integer(sprite(spritenum).skew - amount) mod 360   puppetsound(WhichChannel,Whichsound)   updatestage    end on mouseleave me      sprite(spritenum).skew = 0   puppetsound(WhichChannel,0)   updatestage end