Скрипт на лут

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