Drag N Drop Behaviour Needed

Question

Hello
I am struggling with this very much. I've found various
examples from other members but none which can do the following.
Here is what I'm trying to achieve - not easy for a novice
like myself:
I have 10 answer boxes and 10 answers, I want the user to
drag the correct answer to the correct answer box.
When the answer is released over the answer box it stays
there.
If it's correct the answer a 'correct 'graphic displays.
If it's the wrong answer a 'wrong' graphic displays.
I've been looking everywhere but can't find any behaviour to
do this.
Any help much appreciated.
Andy

Answer 1

Ask and receive (should be 86 lines of code... watch for
breaks...)
global gWrongRects
property pType,pNumber,pBoxRect, pOrigLoc,pWrongRects
on beginSprite me
--make sure the answer type sprites can be dragged
if pType="Answer" then
sprite(me.spriteNum).moveableSprite=TRUE
else
sprite(me.spriteNum).moveableSprite=FALSE
end if
--this will find out the rect of the box with the same
'pNumber' as
it (i.e. the "correct" box)
pBoxRect=sendAllSprites(#getBoxRect,pNumber)
--this is the loc to snap back to if the answer is dropped
outside of
the boxes
pOrigLoc=sprite(me.spriteNum).loc
--ask all the box sprites to build a list of their loc and
rects
sendAllSprites(#getWrongRects,pNumber)
--set a property to store these values
pWrongRects=gWrongRects
-- reset the list in case it is needed for another srite
gWrongRects=void
end
on endSprite me
sprite(me.spriteNum).moveableSprite=0
end
on mouseUp me
sendAllSprites(#isCorrect,pNumber)
end
--test to see if the answer was dropped on the right box
on isCorrect me,vNumber
if vNumber=pNumber and pType="answer" then
myRect=sprite(me.spriteNum).rect
--see if it is in the correct box
if myRect.intersect(pBoxRect)>rect(0,0,0,0) then
sprite(me.spriteNum).loc=sendAllSprites(#getBoxLoc,pNumber)
alert "correct"
else
--check if it is in one of the wrong rects
wrongRect=0
repeat with iRect=1 to pWrongRects.count
if
myRect.intersect(pWrongRects[iRect][#rect])>rect(0,0,0,0) then
wrongRect=pWrongRects[iRect]
exit repeat
end if
end repeat
if wrongRect<>0 then
sprite(me.spriteNum).loc=pWrongRects[iRect][#loc]
else
--answer must have been dropped outside the bounds of any of
the boxes
sprite(me.spriteNum).loc=pOrigLoc
end if
end if
end if
end
--builds a global list of the loc's and rect's of each
incorrect box
on getWrongRects me,vNumber
if vNumber<>pNumber and pType="Box" then
if voidP(gWrongRects) then gWrongRects=[]
gWrongRects.append([#loc:sprite(me.spriteNum).loc,#rect:sprite(me.spriteNum).rect])
end if
end
--returns the loc of the box associated with the answer
on getBoxLoc me,vNumber
if vNumber=pNumber and pType="Box" then
return sprite(me.spriteNum).loc
end if
end
--returns the rect of the box associated with the answer
on getBoxRect me,vNumber
if vNumber=pNumber and pType="Box" then
return sprite(me.spriteNum).rect
end if
end
on getPropertyDescriptionList me
p = [:]
p[#pType] = [#format : #string, #comment : "Answer or Box?",
#range:["Answer","Box"],#default :"Answer"]
p[#pNumber] = [#format : #integer, #comment : "number",
#default : 1]
return p
end