on 2/16/01 12:24 PM, [EMAIL PROTECTED] at [EMAIL PROTECTED]
wrote:
>
> Hi Mahmood,
>
> Apply this script to the Ball and execute vibrateStage(me) handler whenever
> you want to vibrate the stage.
>
> -- Stage vibrate behavior
> property pStageRect
> property pVibrateAmmount
> property pVibrateAmmountTmp
> property pVibrateMomentum
> property pVibrate
> property plOrR
>
> on beginSprite me
> pStageRect = (the stage).sourceRect
> pVibrate = FALSE
> plOrR = -1
> end
>
> on exitFrame me
> if pVibrate then
> if pVibrateAmmountTmp <= 0 then
> (the stage).rect = pStageRect
> pVibrate = FALSE
> exit
> end if
> plOrR = plOrR * -1
> theRect = offset((the stage).sourceRect, pVibrateAmmountTmp * plOrR, 0)
> (the stage).rect = theRect
> pVibrateAmmountTmp = pVibrateAmmountTmp - pVibrateMomentum/2
> end if
> end
>
> on vibrateStage me
> if pVibrate then exit
> pVibrate = TRUE
> pVibrateAmmountTmp = pVibrateAmmount
> pVibrateMomentum = pVibrateAmmount/2
> -- puppetSound 1, "vibrate sound"
> end
>
> on getPropertyDescriptionList me
> pdList = []
> pdList.addprop(#pVibrateAmmount, [#comment "Ammount of vibration", \
> #format#integer, default3, #range[#min3,#max10]])
> return pdList
> end
>
> regards
> ----------------------------------------------------------
> Ramesh CT
> Phoenix Global Solutions (I) Pvt Ltd
> http://www.lingoman.net/
> ----------------------------------------------------------
>
>
>
> [To remove yourself from this list, or to change to digest mode, go to
> http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
> email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
> Lingo-L is for learning and helping with programming Lingo. Thanks!]
Dear Ramesh!
I am highly thankfull to you for nice guidance. However, your behavior
wasn't working as per my desire, but my problem has been solved.
Thanx once again.
Mahmood.
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
