100 Plus Great Games 2/100PLUSV2.BIN/games/PegScramble.dxr/00027.ls

Text File | 2002-01-25 | 595 b | 32 lines

global pegData, grabbedPiece

on mouseDown
  finalID = 0
  finalDist = 30
  repeat with wTest = 1 to count(pegData)
    testDist = findDistance(the mouseLoc, pegData[wTest][1])
    if testDist < finalDist then
      finalDist = testDist
      finalID = wTest
    end if
  end repeat
  grabbedPiece = finalID
  if grabbedPiece <> 0 then
    playSound("pickup", 4)
  end if
end

on mouseUp
  if grabbedPiece <> 0 then
    grabbedPiece = 0
    playSound("drop_anywhere", 5)
  end if
end

on mouseLeave
  if grabbedPiece <> 0 then
    grabbedPiece = 0
    playSound("drop_anywhere", 5)
  end if
end