Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/library.dir/00237_Script_237

Text File | 1995-11-13 | 796b | 25 lines

on mousedown
  global kasira,syurui
  puppetSound "PUSH_SE"
  put Clickon() into vSP
  puppetSprite vSP, true
  put item 1 of the name of cast the castNum of sprite vSP into cName
  set the castNum of sprite vSP = the number of cast (cName & ",DW")
   if syurui = "Γ├Ωl" then
    puppetSprite 6, true
    set the castNum of sprite 6 = the number of cast "SAKUSHA,DW"
  end if
  repeat with n = 10 to 24
    if n = vSP then next repeat
    else
      puppetSprite n, false
      put item 1 of the name of cast the castNum of sprite n into cName
      set the castNum of sprite n = the number of cast (cName & ",up")
      updatestage
    end if
  end repeat
  put item 1 of the name of cast the castNum of sprite vSp into kasira
  KENSAKU
  puppetSound 0
end