Народ помогите пожалуста со скриптом я хз что с ним делать уже мне надо чтобы скрипт работал постояна я буду бегать по пещере искать мобы он находит по списку и начинает убивать его и потом уже лутать его вот скрипт но он чета крэшит спс
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
|