Поиск тел вокруг и их лут
Moderators: Murderator+, Murderator
Поиск тел вокруг и их лут
сопственна опять ай нид хелп)))) короч нужен такой вот скрипт, стоит чар вокруг него монстры, когда он килл их, он все вещи из них собирает в свой бек пак, но скрипт не выключается, а продолжает работать дальше и дальше=))))
Re: Поиск тел вокруг и их лут
-=Morf=- wrote:сопственна опять ай нид хелп)))) короч нужен такой вот скрипт, стоит чар вокруг него монстры, когда он килл их, он все вещи из них собирает в свой бек пак, но скрипт не выключается, а продолжает работать дальше и дальше=))))
Вот посмотри, поправь под себя:
Code: Select all
sub GrimKill()
Var hrsT, hrsC
hrsT = "0x03CA" # тип зверька
hrsC = "0x0901" # его цвет
UO.Set('finddistance', '14')
repeat
Uo.DeleteJournal()
UO.FindType(hrsT, hrsC, "ground")
If UO.FindCount() > 0 Then
UO.WarMode(1)
UO.Attack('finditem')
repeat
wait(100)
until UO.InJournal('Body of Grim')
Else
looting()
wait(100)
End If
UO.WarMode(0)
UO.WaitTargetObject('lastcorpse')
UO.UseSkill('Forensic Evaluation')
wait(4000)
until UO.dead()
end sub
Sub looting()
dim Loot[29]
var i
Loot[0]=0x0F16 ; Ametist
Loot[1]=0x0F20 ; Tourmaline
Loot[2]=0x0F26 ; Diamond
Loot[3]=0x0F30 ; Diamond
Loot[4]=0x0F10
Loot[5]=0x0F2D
Loot[6]=0x0F2C
Loot[7]=0x0F28
Loot[8]=0x0F11
Loot[9]=0x0F2A
Loot[10]=0x0F1E
Loot[11]=0x0F22
Loot[12]=0x0F2D
Loot[13]=0x0F30
Loot[14]=0x0F2E
Loot[15]=0x0F2F
Loot[16]=0x0F15
Loot[17]=0x0F17
Loot[18]=0x0EED
Loot[19]=0x0F29
Loot[20]=0x0F1A
Loot[21]=0x0F24
Loot[22]=0x0E76
Loot[23]=0x0F1F
Loot[24]=0x0F2B
Loot[25]=0x0F25
Loot[26]=0x0F23
Loot[27]=0x0F13
Loot[28]=0x0F12
for i = 0 to 28
UO.FindType(Loot[i],'-1', 'lastcorpse')
if UO.FindCount() > 0 then
UO.MoveItem('finditem', '-1')
wait(1000)
else
wait(100)
endif
next
Uo.DeleteJournal()
end sub