Аттака и сбор лута

Kilyasik · Post by **Kilyasik** » 2007-05-29 13:01:24

народ помогите нубу ) пересел с линейки на ультиму а тут оказывается можно ботоводить )) ну дак вот ... напишите пожалуста скриптик чтобы чар при появлении определенного моба убивал его и собирал определенный лут. шард DRW . Почитал немного о скриптинге подбить под себя поди ума хватит. Зарание спасибо.

Destruction · Post by **Destruction** » 2007-05-29 16:32:50

Урра!

Линейка потеряла в рядах, привесттвуем нового ультимиста.

PS: мб потом набросаю скриптик.. хотя меня скорей всего опередят.

IIpocTo TaK · Post by **IIpocTo TaK** » 2007-05-29 17:32:39

Опиши каким способом убивать, что за монстр, многое зависит он возможностей шарда (может у тебя будет достаточно в демона морфиться), нужно ли труп резать, сколько слотов будет для лута (сколько предметов различных) итд... повозможности всё подробнее.

IIpocTo TaK · Post by **IIpocTo TaK** » 2007-05-30 04:42:06

Вобщем наскоро склеил, и даже не проверял. Знаю что лишнего много. Пробуй если что не пашет пиши исправлю в окне этого поста или сам завтра протестирую.

Code: Select all

sub kill()

dim Animal[5]

Animal[0]="name 1" #имя животного 1 ПО ПОВОДУ ИЗМЕНЕНИЯ РАЗМЕРА МАССИВА ЧИТАЙ КОМЕНТ НИЖЕ
Animal[1]="name 2" #имя животного 2
Animal[2]="name 3" #имя животного 3
Animal[3]="name 4" #имя животного 4
Animal[4]="name 5" #имя животного 5

If (UO.GetName('Ani') == '') then 
UO.WarMode(1)
UO.Attack(Animal)
GotoXY(UO.GetX(Animal),UO.GetY(Animal),1)
UO.DeleteJournal()
endif
wait(200)
Loot12()
end sub



sub Loot12()  

      VAR i,Exit  
   DIM Loot[5] #если менять количество предметов в массиве, то здесь 
               #указываем цыфру отоброжающую само количество предметов.
    
   Loot[0]=0x1067 ; Балрон кожа
   Loot[1]=0x1067 ; Драгон кожа
   Loot[2]=0x1BD1 ; Перья
   Loot[3]=0x0E34 ; Скролы
   Loot[4]=0x0EED ; деньги

  UO.SetReceivingContainer('0x400156EF') #указываем ID бак пака
 
   For i=0 to 4 #а здесь отсчитывая от нуля, внимательно посмотреф можно понять.
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'lastcorpse')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('lastcorpse','finditem')
          wait(300)
          Else 
         Exit=1 
        endif
      until Exit==1 OR uo.injournal("loot")
   Next                                         
UO.UnSetReceivingContainer()
wait(200)
DeleteJournal("Body of") 
wait(50)
kill()                 
end sub

если что уж извините я начинающий

С чего-то надо же начинать...

Kilyasik · Post by **Kilyasik** » 2007-05-30 06:13:10

в sub kill ему чет не нравится строчка GotoXY(UO.GetX(Animal),UO.GetY(Animal),1) function not found

а в sub Loot12
DeleteJournal("Body of")

лут 12 вроде чето происходит но ниче не собирает. :cry:

мне надо чтобы чар колупал клевером лича(как ток он появлялся) и лутал с него деньги, реги и камешки драгоценные.

Scripts Writer · Post by **Scripts Writer** » 2007-05-30 13:46:36

Всё уже давно написано.

IIpocTo TaK · Post by **IIpocTo TaK** » 2007-05-30 13:47:42

сори шард увидел )), скрипт полностью кривой, щас исправлю )

завтра днем выложу, осталось чуток добавить мелочи...

Kilyasik · Post by **Kilyasik** » 2007-05-30 14:23:27

Давай просто делай вещи ))

Rivory · Post by **Rivory** » 2007-05-30 16:51:12

http://forum.yoko.com.ua/viewtopic.php?t=7379

suc · Post by **suc** » 2007-12-27 07:36:27

how i can use this macro i run and get wrong with gotoxy