function kto (plr, kto)
if not kto then
outputChatBox ("uzyj /aktoto <nick>", plr) end
if kto then 
outputChatBox("zrozumiano",plr) end
end
addCommandHandler("aktoto", kto)

function infoktoto ()
if kto then
   outputChatBox("#FF8516"ktoto" okazal sie tym razem: " ..kto, 255, 255, 255, true)
setTimer (infoktoto, 50, 1)

function kto (plr,cmd, kto)
if not kto then
outputChatBox ("uzyj /aktoto <nick>", plr)
return
end
if kto then 
outputChatBox("zrozumiano",plr) 
ktos=kto
infoktoto()
end
end
addCommandHandler("aktoto", kto)

function infoktoto ()
if ktos then
   outputChatBox("#FF8516ktoto okazal sie tym razem: " ..ktos,root, 255, 255, 255, true)
   end
   end

function partNick ( plr, txt )
    osoby = {}
    gracz = txt and txt:gsub("#%x%x%x%x%x%x", ""):lower() or nil
    for _,v in ipairs ( getElementsByType ( "player" ) ) do
        gracz_ = getPlayerName(v):gsub("#%x%x%x%x%x%x", ""):lower()
        if gracz_:find(gracz, 1, true) then
            table.insert ( osoby, v )
            name = v
        end
    end
    if #osoby > 1 then
        return outputChatBox ( "Znaleziono wi?cej ni? 1 gracza!", plr )
    end
    if #osoby == 0 then
        outputChatBox ( "Nie znaleziono ?adnego gracza!", plr ) return false
    end
    return name
end

function kto ( plr, cmd, kto )
    if not kto then outputChatBox( "U?yj /aktoto [nick] ", plr) return end
    outputChatBox( "zrozumiano", plr)
    local ktos = partNick( plr, kto)
    infokto(ktos)
end

function infokto ( kto )
    local nickKto = partNick( kto )
    outputChatBox("#FF8516ktoto okazal sie tym razem: " ..nickKto,root, 255, 255, 255, true)
end