LiveCode Forums.

Code: Select all

global my_old_position

on mouseDown
  set the layer of me to the num of controls
  put the loc of me into my_old_position
  grab me
end mouseDown

on mouseUp
  if within (img "Yellow" ,the loc of me) then
    add 1 to field "Answer"
  else
    move me to my_old_position
    subtract 1 from field "Answer"
  end if
end mouseUp

Code: Select all

--> all handlers

-- quick AE drag and drop Demo

on openCard
    resetGame
end openCard

on resetGame
    if "animationEngine" is not among the lines of the stacksinuse then
        if "animationEngine" is among the lines of revLoadedStacks("application") then
            start using stack "animationEngine"
        else
            answer "This stack needs animationEngine to run!"
            exit resetGame
        end if
    end if
    aeLockMoves
    aeMoveTo the long id of fld "fld,red",the cInitialPosition of fld "fld,red",200,"inout"
    aeMoveTo the long id of fld "fld,green",the cInitialPosition of fld "fld,green",200,"inout"
    aeMoveTo the long id of fld "fld,yellow",the cInitialPosition of fld "fld,yellow",200,"inout"
    aeUnlockMoves
    set the constrainRectangular of fld "fld,red" to the rect of this card
    set the constrainRectangular of fld "fld,green" to the rect of this card
    set the constrainRectangular of fld "fld,yellow" to the rect of this card
end resetGame

on constrainRectangularExit
    local tColor
    put item 2 of the short name of the target into tColor
    if the mouseloc is within the rect of grc ("grc,"&tColor) then
        set the constrainRectangular of the target to empty
        aeMoveTo the long id of the target,the loc of grc ("grc,"&tColor),300,"overshoot"
    else
        aeMoveTo the long id of the target,the cInitialPosition of the target,350,"bounce"
    end if
end constrainRectangularExit