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

Text File | 1995-11-10 | 1KB | 48 lines

on mouseDown
  global
  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

  if sprite vSpriteNum intersects 40 then
    set the locH of sprite vSpriteNum to 194
    set the locV of sprite vSpriteNum to 165
  else
    if sprite vSpriteNum intersects 41 then
      set the locH of sprite vSpriteNum to 374
      set the locV of sprite vSpriteNum to 165
    else
      puppetSprite vSpriteNum,FALSE
    end if
  end if
  repeat with n = 14 to 22
    if vSpriteNum = n then
      next repeat
    else
      if sprite vSpriteNum intersects n then puppetSprite n,FALSE
    end if
  end repeat

  updatestage
end