Показано с 1 по 7 из 7

Тема: Blacksmitchy

  1. #1
    Житель Ультимы (Level 2)
    Регистрация
    11.03.2018
    Сообщений
    147

    Exclamation Blacksmitchy

    Пользуйтесь на здоровье
    PHP код:
    ##################################################### 
    ### Blacksmitchy Script Vor Iron Metal v. 1.00. ### 
    ### ### 
    ### Copyright & tested by cOoler on DRW Shard. ### 
    ### ### 
    ### Oficial DRW Shards site - http://www.drw.ru ### 
    ##################################################### 
    ##################################################### 
    ### Инструкция по использованию и настройке. ### 
    ##################################################### 
    ### 1. Для работы этого скрипта надо: молоток, 
    ### инги(Iron),Форж(плавилка). 
    ### 
    ### 2. Описание подготовки к запуску скрипта. 
    ### Берём сундук (можно и backpack),меняем в скрипте 
    ### ID сундука на свой,меняем ID форжи, 
    ### кладем в сундук инги (как можно 
    ### больше),себе в руку молоток,запускаем скрипт. 
    ### Он куёт даггеры и плавит их. 
    ### 
    ### 3. При использовании скрипта вам так или иначе 
    ### придется менять конфигурации скрипта. 
    ### Вот как и где это НУЖНО сделать: 
    ### 
    ### $ Изменение продукта кования. 
    ### UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')- тут вы 
    ### можете изменить - что будет ковать ваш чар. 
    ### 
    ### $ Смена ID форжи. 
    ### UO.UseObject(ID форжи)- тут вы указываете: ID форжи. 
    ### 
    ### $ Смена типа ингов и ID сундука. 
    ### UO.FindType('тип ингов айрона',-1,'backpack')- тут вы указываете: тип ингов айрона. 
    ### UO.FindType('тип ингов айрона','colour сундука','ID сундука с ингами')- тут вы 
    ### указываете: тип ингов айрона,их colour,ID сундука с ингами. 
    ##################################################### 
    ### Конец инструкции. ### 
    ##################################################### 


    sub BlacksmithyIM() 

    VAR Exit=
    0LastTimer 
    while Exit<>
    UO
    .DeleteJournal() 
    LastTimer=UO.Timer() 
    UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем 
    UO
    .UseType(0x1BEF) ;Инги айрона 

    while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed"
    wait(500
    wend 

    If UO.InJournal("You have failed"then 
    repeat 
    wait
    (100
    until UO.Timer()>=LastTimer+100 ;Время создания дагера 
    EndIf 

    UO.FindType('0x0F51',-1,'backpack'
    wait(500

    If 
    UO.GetQuantity('finditem'then 
    UO
    .WaitTargetObject('finditem'
    UO.UseObject(0x4012B5AC) ; Форж 
    Endif 

    UO.FindType('0x1BEF',-1,'backpack'
    If 
    UO.GetQuantity('finditem')<10 then 
    UO
    .FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами 
    wait
    (1000
    UO.Grab('1000','finditem'
    Endif 
    wait(1000
    wend 
    end sub 

  2. #2
    Житель Ультимы (Level 2)
    Регистрация
    20.02.2018
    Сообщений
    126
    есть у кого нить рабочий скрипт под руо?

  3. #3
    Житель Ультимы (Level 2)
    Регистрация
    11.03.2018
    Сообщений
    147
    Держи
    # BS
    # Стоим у наковально и рядом трэш бочка
    #
    #

    sub main()
    var sum=0, kolvo=0;

    While not UO.Dead()

    if UO.Count("0x1BEF") < 10 then # Проверяем есть ли инги в паке, если нет берем 6
    Uo.Exec("waittargetground '0x1BEF'") # куча ингов под ногами
    Uo.exec("grab 100")
    wait(500)
    endif

    UO.DeleteJournal();
    UO.Exec("usetype 0x1BEF")
    UO.Exec("waitmenu 'Blacksmithing' 'Weapons' 'Weapons' 'Fences' 'Spears' 'dagger'")
    Wait(200);

    If not UO.InJournal('fail') then
    repeat
    wait(100)
    until UO.InJournal('You put') or UO.InJournal('failed')
    EndIf


    if UO.InJournal('You put') then
    UO.Exec("waittargettype 0x0F51"); #
    wait(300)
    UO.Exec("usefromground 0x0FAE")
    wait(300)
    endif

    if UO.InJournal('Unexpected') then
    UO.Exec("waittargettype 0x0F51"); #
    wait(400)
    UO.Exec("usefromground 0x0FAE")
    wait(400)
    endif

    if UO.InJournal('have recieved 8') then
    sum=sum+8;
    kolvo=kolvo+1;
    UO.Print("Скинуто "+str(kolvo)+" предметов в трэш на :"+str(sum)+" поинтов")
    UO.DeleteJournal()
    endif
    wend

    end sub

  4. #4
    Житель Ультимы (Level 3)
    Регистрация
    17.02.2018
    Сообщений
    272
    В группе ВК есть, с описанием и инструкцией

  5. #5
    Житель Ультимы (Level 2)
    Регистрация
    20.02.2018
    Сообщений
    126
    четко, спасибо)

  6. #6
    Гейм Мастер (GM)
    Регистрация
    15.02.2018
    Сообщений
    198
    Юрка твой скрипт мне больше понравился) даже лайк поставил

  7. #7
    Житель Ультимы (Level 1)
    Регистрация
    05.03.2018
    Сообщений
    47
    sub BS()
    var counter=0 , ingots=0x1BEF , trash=0x4022B4E3 , sunduk=0x4003A549

    UO.AutoMenu('Blacksmithing','Weapons')
    UO.AutoMenu('Weapons','Fences')
    UO.AutoMenu('Spears','dagger')

    while UO.SkillVal('Blacksmithing')<1300
    UO.DeleteJournal()
    counter=0
    UO.UseType(0x1BEF)

    while not (UO.InJournal('failed to make')or UO.InJournal('put') or counter>10)
    wait(500)
    If UO.Count('0x0F51') then
    UO.FindType('0x0F51',-1,'backpack') ; dagger
    wait(500)
    UO.WaitTargetObject('finditem')
    UO.UseObject(0x4022B4E3)
    Endif
    wait(500)
    counter=counter+1
    wend

    If UO.Count(ingots)<20 then
    UO.FindType(0x1BEF,0x0000,0x4003A549) ;serial sunduka s iron
    UO.Grab('300','finditem')
    wait(500)
    UO.Say('Инги! Ещё Инги давай!')
    end if

    wend
    end sub

Метки этой темы

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •