sub karma()
    var a, b, c
zacatek:
    if c == Uo.Journal(0) then
        wait(10)
        goto zacatek
    else
        a = UO.JournalSerial(0)
        b = UO.GetNotoriety(a)
        c = Uo.Journal(0)
;        if str(uo.isnpc(a)) == 1 then
;            goto zacatek
;        endif
        if b == 6 then
                Uo.Print("Pozor, pobliz je murderer "+Uo.GetName(a))
                uo.exec("terminate all")
                uo.print("bacha... bacha...")
                ;uo.say("guards")
        endif
        if b == 3 then
                Uo.Print("Pozor, pobliz je sedy "+Uo.GetName(a))
        endif
        if b == 4 then
                Uo.Print("Pozor, pobliz je crim "+Uo.GetName(a))
                uo.print("bacha... bacha...")
                uo.exec("terminate all")
                ;uo.say("guards")
        endif
        goto zacatek
    endif
end sub