
The only things you have to modify are
- the runebook ID (use ,info on the rune)
- the rune number (in my shard the first is 16)
Remember to recharge your runebook and keep it closed while running this function, or it will not recall.
sub antipk()
var start, stop
var lHID, rHID
UO.Set("norbcheck","1")
UO.Set("norbcalc","1")
REPEAT
UO.IgnoreReset()
UO.Ignore("self")
REPEAT
UO.FindType("-1","-1","ground")
IF (UO.FindCount() > 0) THEN
IF (UO.IsNPC("finditem") AND (UO.GetNotoriety("finditem") > 3)) THEN
rHID = UO.ObjAtLayer('Rhand')
lHID = UO.ObjAtLayer('Lhand')
start = UO.Timer()
REPEAT
UO.Exec("disarm")
wait(50)
UNTIL ((UO.ObjAtLayer('Rhand') == "") AND (UO.ObjAtLayer('Lhand') == ""))
stop = UO.Timer()
UO.Recall("0x5c218c13", "16")
UO.Print("PK!!! " + UO.GetName("finditem"))
UO.Print("Time =" + str((stop-start)/10))
UO.Exec("terminate all")
ENDIF
UO.Ignore("finditem")
ENDIF
UNTIL (UO.FindCount() <= 0)
wait(500)
UNTIL (UO.Life <= 0)
end sub