Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/dan256.dir/00437_Script_437

Text File | 1995-11-10 | 955b | 41 lines

on mouseDown

  put clickOn() into vSpriteNum

  set the cursor of sprite vSpriteNum = 290

  put mouseH() into mh -- δ┤╟╡╟²
  put mouseV() into mv -- δ┤╟╡╟²

  if not the puppet of sprite vSpriteNum then
    puppetSprite vSpriteNum, TRUE
  end if

  repeat while stillDown()
    if mouseH() <> mh or mouseV() <> mv then
      set the locH of sprite vSpriteNum = mouseH()
      set the locV of sprite vSpriteNum = mouseV()
    end if
    updatestage
  end repeat

  repeat with n = 14 to 17
    if sprite vSpriteNum intersects n then
      set the locH of sprite vSpriteNum to the locH of sprite n
      set the locV of sprite vSpriteNum to the locV of sprite n
    end if
  end repeat

  repeat with n = 19 to 22
    if vSpriteNum = n then
      next repeat
    else
      if sprite vSpriteNum intersects n then puppetSprite n,FALSE
    end if
  end repeat

  updatestage

end