function funkcja(kto,com,kogo)
if kogo and getPlayerFromName(kogo) and getElementType(getPlayerFromName(kogo))=="player" then
if getPlayerFromName(kogo)==kto then outputChatBox("Nie mozesz pocalowac sam siebie!",kto) return end
outputChatBox("Gracz "..getPlayerName(kto).." chce cie pocalowac.",getPlayerFromName(kogo))
outputChatBox("Wpisz /akceptuj by sie z nim calowac",getPlayerFromName(kogo))
setElementData(getPlayerFromName(kogo),"dopocalunku",kto)
else
outputChatBox("Taki gracz nie istnieje!",kto)
end
end
addCommandHandler("pocaluj",funkcja)
function akceptuj(kto,com,kogo)
if getElementType(getElementData(kto,"dopocalunku"))=="player" then
outputChatBox(getPlayerName(getElementData(kto,"dopocalunku")).." ca?uje si? z "..getPlayerName(kto))
removeElementData(kto,"dopocalunku")
else
outputChatBox("Nikt nie chce sie z toba calowac",kto)
end
end
addCommandHandler("akceptuj",akceptuj)

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 pocaluj ( plr, cmd, kogo )
    if not kogo then outputChatBox( "U?yj: /pocaluj [Nick osoby] ", plr) return end
    local kto = partNick( plr, kogo)
    if not kto then return end
    if kto == plr then outputChatBox( "Nie mo?esz poca?owa? siebie !", plr) return end
    
    local x,y,z     = getElementPosition(plr)
    local tx,ty,tz     = getElementPosition(kto)
    
    local distance = getDistanceBetweenPoints3D ( x,y,z, tx,ty,tz )
    if distance > 5 then outputChatBox( "Twoja odleg?o?? od wyznaczonego gracza jest wi?ksza ni? 5 metr?w !", plr ) return end
    setElementRotation( plr, findRotation(x,y,tx,ty) )
    setElementRotation( kto, findRotation(tx,ty,x,y) )
    
    setPedAnimation( plr, "kissing", "grlfrd_kiss_01")
    setPedAnimation( kto, "kissing", "grlfrd_kiss_01")
    
end
addCommandHandler( "pocaluj", pocaluj)