Народ помогите пожалуста со скриптом я хз что с ним делать уже мне надо чтобы скрипт работал постояна я буду бегать по пещере искать мобы он находит по списку и начинает убивать его и потом уже лутать его вот скрипт но он чета крэшит спс
Code:
sub main()
var n, m, mob
var distance='1'
Dim npc[10]
npc[0]=1 # count
npc[1]='0x013D'
npc[2]=''
npc[3]=''
uo.set('finddistance',distance)
while 1
UO.DeleteJournal()
repeat
for n=1 to npc[0]
uo.findtype(npc[n],-1,'ground')
if uo.findcount() then
wait(100)
mob=uo.getserial('finditem')
uo.attack(mob)
endif
next
until UO.InJournal("Corpse of")
if uo.journal('Corpse of') then
wait(100)
corpser()
end if
wait(1000)
wend
endsub
sub corpser()
uo.waittargetobject('lastcorpse')
uo.usetype('0x0EC4')
wait(500)
Lootground()
endsub
sub Lootground()
VAR i
Dim Loot[40]
Loot[0]=0x0EED ; gp
Loot[1]=0x09F1 ; Raw Ribs
Loot[2]=0x0F78 ; Bat wing
Loot[3]=0x0F87 ; Eye of Newt
Loot[4]=0x0F08 ; Mana
Loot[5]=0x1AE2 ; Skull
Loot[6]=0x100E ; koper key
Loot[7]=0x1010 ; Old key
for i=0 to 7
UO.FindType(Loot[i],-1,'lastcontainer')
if UO.GetQuantity('finditem') then
UO.Grab('0','finditem')
wait(1000)
endif
next
uo.print(' -= done =- ')
uo.msg('.bandageself')
endsub