pk action

Ask for help

Moderators: Murderator+, Murderator

Post Reply
riccardo
Posts: 15
Joined: 2005-04-23 07:50:53
Contact:

pk action

Post by riccardo »

Hello , I have a problem with this scrip :
Please can someone remake this script , when character see pk in screen for example Nick [Chaos] , [Chaos] - it means pk hord im in [Order] faction
then he use invis potion and recall with runebook to bank wait 10 min and recall back to restart lumber the wood .
thanks to all :)


sub run()
var objser
var pkser
var type
var pktype
UO.DeleteJournal()
While True
if UO.InJournal(":") then
objser = uo.JournalSerial(uo.InJournal(":")-1)
pkser = objser[0]+objser[1]+objser[2]+objser[3]
type = UO.GetGraphic(objser)
pktype = type[0]+type[1]+type[2]+type[3]+type[4]
if pkser == "0x00" and pktype == "0x019" and friends(objser) then
UO.Say(",terminate lumber")
UO.UseType('0x0F0E','0x0631')
Wait(100)
UO.Warmode("0")
wait(100)
UO.MSG("Recalling...")
UO.WaitTargetObject('0x4014BCB6')
UO.UseType('0x1F4C')
Wait(300000)
UO.Recall('0x401305D3','4')
Wait(10000)
UO.Exec('exec lumber')
Wait(500)
UO.Say(",terminate run")
Return
endif
endif
wait(1000)
Wend
end sub

sub friends(pk)
var i
DIM fr[11]
fr[1] = ""
fr[2] = ""
fr[3] = ""
fr[4] = ""
fr[6] = ""
fr[7] = ""
fr[8] = ""
fr[9] = ""
fr[10] = ""
for i = 1 to 10
if pk == fr[i] then
Return 0
endif
Next
Return 1
end sub
Post Reply