Property pOldRec, pR1,pR2,pR3,pR4

on beginSprite me
  pR1 = 24
  pR2 = 311
  pR3 = 278
  pR4 = 542
  sprite(6).rect = the rect of sprite(6)
  pOldRec = sprite(6).rect
end beginSprite me

on mouseDown me
  sprite(6).rect = rect(pR1, pR2, pR3, pR4)
  set pR1 = pR1 +20
  set pR2 = pR2 +20
  set pR3 = pR3 +20
  set pR4 = pR4 +20
end mouseDown me

on mouseup me
  sprite(6).rect = pOldRec
End mouseup me


[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!]

Reply via email to