Yoko

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

Урра!

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

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

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

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

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

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                                  

если что уж извините я начинающий С чего-то надо же начинать...

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

а в sub Loot12
DeleteJournal("Body of")

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

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

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

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


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

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

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