ВОТ СКРИПТ ХИЛ-Лут
Как его совместить что бы работало, как тока убью монстра сразу лут. и Хилялся сразу после слов *You put the bloody bandages in your pack* а не повремени!!!
Code:
sub heal()
VAR X=0
repeat
if uo.life < uo.str then ;;; healing
while uo.life < uo.str
uo.exec("bandageself")
uo.deletejournal()
while not (X == 100 or uo.injournal("backpack") or uo.injournal ("reach that") or uo.injournal("current state") or uo.injournal("barely") or uo.injournal("mummy") or uo.injournal("target info"))
wait(100)
X=X+1
if uo.injournal("reach that") or uo.injournal("current state") or uo.injournal("target info") then
wait(1000)
endif
if uo.stamina < 50 then
uo.usetype("0x0F0B") ;ïüåì ðåôðåøêó
endif
wend
X=0
wend
uo.deletejournal()
endif
wait(100)
until uo.dead()
end sub
Это второй
их наверно тут надо совместить
И он почему то выключаеться когда отдельно лук используешь
а мне надо чо бы всевремя работал
Code:
sub loot()
## written by Nick :)
Dim loot[10]
loot[0] = '0x0EED' ; gold
loot[1] = '0x0F13' ; tickets
loot[2] = '0x0EF0' ; slots
loot[3] = '0x097A' ; windgems
loot[4] = '0x14EB' ; maps
loot[5] = '0x0DF2' ; wand
loot[6] = '0x0DF3' ; wand
loot[7] = '0x0DF4' ; wand
loot[8] = '0x0DF5' ; wand
loot[9] = '0x1078' ; hides
var h,i,j,k,l,m,n
var cutem = 1
If UO.Targeting() then
UO.CancelTarget()
EndIf
UO.SetReceivingContainer("catch")
i = 250
h = 500
FOR j = 0 To 9
UO.FindType(loot[j],"-1",'ground')
If UO.FindCount() > 0 then
UO.Grab(0, "finditem")
Wait(i)
UO.FindType(loot[j],"-1",'ground')
endIf
next
UO.FindType('0x0E75','0x0000',"ground")
If UO.FindCount() > 0 then
UO.AddObject("BPackg","finditem")
UO.Ignore("finditem")
UO.UseObject("BPackg")
Wait(i)
FOR m = 0 TO 9
UO.FindType(loot[m],"-1","BPackg","ground")
While UO.FindCount() > 0
UO.Grab(0, "finditem")
UO.Print("Found in a Backpack on the ground "+str(UO.FindCount()))
Wait(i)
UO.FindType(loot[m],"-1","BPackg","ground")
Wend
next
EndIf
If UO.GetQuantity('lastcorpse') then
UO.UseObject("lastcorpse")
wait(h)
If cutem==1 then
UO.SetArm('temp')
wait(i)
UO.Arm('2') ; Right handed bladed weapon use ",setarm 2"
Wait(h)
UO.WaitTargetObject('lastcorpse')
UO.UseObject(UO.Objatlayer("Rhand"))
wait(h)
UO.Arm('temp')
EndIf
FOR n = 0 TO 9
UO.FindType(loot[n],"-1","lastcorpse")
While UO.FindCount() > 0
If loot[n] == '0x1078' then ; leather
UO.WaitTargetObject("finditem")
UO.UseType("0x0F9E") ; sissors
UO.Print("scissors")
wait(i)
Else
UO.Grab(0, "finditem")
wait(i)
UO.FindType(loot[n],"-1","lastcorpse")
Wend
EndIf
next
UO.FindType('0x0E75',"-1","lastcorpse") ;Backpack
If UO.FindCount() > 0 then
repeat
UO.AddObject("BP","finditem")
UO.Ignore("finditem")
UO.UseObject("BP")
Wait(h)
FOR l = 0 TO 9
UO.FindType(loot[l],"-1","BP","lastcorpse")
While UO.FindCount() > 0
UO.Grab(0, "finditem")
UO.Print("Found in a Backpack "+str(UO.FindCount()))
Wait(i)
UO.FindType(loot[l],"-1","BP","lastcorpse")
Wend
next
UO.FindType('0x0E75',"-1","lastcorpse") ;Backpack
until uo.findcount() == 0
EndIf
UO.FindType('0x0E76',"-1","lastcorpse") ;Bag
If UO.FindCount() > 0 then
UO.AddObject("Bag","finditem")
UO.Ignore("finditem")
UO.UseObject("Bag")
Wait(h)
UO.WaitTargetObject("Bag")
UO.Exec('emptycontainer 10')
EndIf
EndIf
UO.FindType('0x0F0E','0x0000',"lastcorpse") ;Bottles
If UO.FindCount() > 0 then
UO.Grab(0, "finditem")
EndIf
UO.UnsetReceivingContainer()
End Sub
Register
Login
FAQ
Search
