Yoko
http://forum.yoko.com.ua/

Моб+ лут
http://forum.yoko.com.ua/viewtopic.php?f=20&t=18213
Page 1 of 1

Author:  vertijok2000 [ 2018-01-28 16:08:48 ]
Post subject:  Моб+ лут

Народ помогите пожалуста со скриптом я хз что с ним делать уже мне надо чтобы скрипт работал постояна я буду бегать по пещере искать мобы он находит по списку и начинает убивать его и потом уже лутать его вот скрипт но он чета крэшит спс


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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/