Скрипт на лут

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Optical
Posts: 86
Joined: 2004-11-02 23:52:47

Скрипт на лут

Post by Optical »

Спасибо GrayLord'y, всё заработало :-)
Last edited by Optical on 2004-11-03 06:30:53, edited 1 time in total.
GrayLord
Expert!
Posts: 333
Joined: 2004-06-04 03:24:25
Contact:

Post by GrayLord »

вот интересно, а открывать труп не надо?
на zuluhotel rezurrection (rezurrection.zuluhotel.ru)
такой скрипт тоже не будет работать.
а вот этот будет:

Code: Select all

sub main() 
 var corpse='0x2006' ; objtype для всех трупов, независимо от того, чей труп.
 var waittime=500
 var body,bodypack,i
 DIM Loot[12]
 Loot[0]=0x0EED
 Loot[1]=0x13B9
 Loot[2]=0x1B76
 Loot[3]=0x1411
 Loot[4]=0x141A
 Loot[5]=0x1416
 Loot[6]=0x1410
 Loot[7]=0x1417
 Loot[8]=0x1418
 Loot[9]=0x1419
 Loot[10]=0x0E76
 Loot[11]=0x1413
 Loot[12]=0x1086
 uo.set('finddistance','2')
 repeat
  while uo.countonground(corpse)>0
   uo.findtype(corpse,'-1','ground')
   body=uo.getserial('finditem')
#-----------открываем свой пак
   uo.useobject('backpack')
#-----------ждем открытия своего пака
   repeat
    wait(100)
   until uo.getserial('lastcontainer')==uo.getserial('backpack')
#-----------открываем труп
   uo.useobject(body)
   repeat
    wait(100)
   until uo.getserial('lastcontainer')<>uo.getserial('backpack')
#------------
   bodypack=uo.getserial('lastcontainer')
   For i=0 to 12
    repeat
     UO.FindType(Loot[i],-1,bodypack)
     if UO.GetQuantity('finditem') then
      UO.MoveItem('finditem','backpack')
      repeat
       wait(100)
      until uo.containerof('finditem')==uo.getserial('backpack')
      wait(waittime)
     endif
    until uo.findcount()==0
   next
   uo.ignore(body)
  wend
 until UO.Dead()
endsub
Bloodmoon
Posts: 128
Joined: 2004-06-23 08:55:32

Post by Bloodmoon »

Чего вас тянет на лут?:D
©Blodmoon :)
Post Reply