a shake and a wiggle

[André Bisseret]

Thank you much Bernd for this nice script! very funny indeed!

Best regards from Grenoble

André


Le 1 nov. 2011 à 08:09, BNig a écrit :

> Hi Nicolas,
> I post the script I sent you here for anybody who has followed this thread.
> 
> Make a button called "wiggleBehavior" for the behavior of the objects you
> want to delete by the gesture. Set it's script to:
> 
> -----------------------------------------------
> local sX, sLastTime, sCountWiggle = 0, sMove = false, sOldDirection
> on mouseDown
>      put item 1 of the clickLoc into sX
>      put the milliseconds into sLastTime
>      put true into sMove
>      grab me
> end mouseDown
> 
> on mouseMove x
>   if not sMove then exit mouseMove
>   put x-sX into tDiffX
>   put x into sX
> 
>   if tDiffX = 0 then exit mouseMove
> 
>   put tDiffX >0 into tDirection 
> 
>   if  the milliseconds - sLastTime < 600 then  -- change intervall as
> needed
>      if not (tDirection = sOldDirection) then
>         add 1 to sCountWiggle
>      end if
>   else
>      put the milliseconds into sLastTime
>      put 0 into sCountWiggle
>   end if
> 
>   put tDirection into sOldDirection
> 
>   if sCountWiggle > 4 then -- change condition as needed
>      put false into sMove
>      put the long id of me into tMyID
>      send "delete tMyID" to me in 0 milliseconds
> 
>     -- script in the card, makes new button, for testing mainly
>      -- send "makeNewButton" to this card in 3 milliseconds -- unblock if
> needed
>      beep
>   end if
> end mouseMove
> 
> on mouseUp
>   put false into sMove
>   put 0 into sCountWiggle
> end mouseUp
> 
> on mouseRelease
>   mouseUp
> end mouseRelease
> -----------------------------------------------
> 
> set the card script to the following script if you want a new button every
> time the old one is deleted, unblock "send "makeNewButton"... in the
> behavior script
> 
> -----------------------------------------------
> on makeNewButton
>   create button 
>   set the loc of the last button to 100,100
>   set the behavior of the last button to the long id of button
> "wiggleBehavior"
>   set the backgroundColor of the last button to any line of the colorNames
>   set the label of the last button to "wiggle me"
> end makeNewButton
> -----------------------------------------------
> 
> make a button and set it's behavior to the long ID of the button
> "wiggleBehavior" (or issue "makeNewButton" from the messageBox if you have
> set the card script to the code above.
> 
> Now you can wiggle a button and it will delete itself. Adjust the sampling
> intervall and number of changes in direction as indicated in the script if
> needed.
> 
> Kind regards
> 
> Bernd
> 
> 
> --
> View this message in context: http://runtime-revolution.278305.n4.nabble.com/a-shake-and-a-wiggle-tp3955354p3962691.html
> Sent from the Revolution - User mailing list archive at Nabble.com.
> 
> _______________________________________________
> use-livecode mailing list
> use-livecode at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode