Готовые скрипты Injection, Просьба воздержаться от флейма
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
27 февраля 2013 19:15
Сообщение #21
Копалка в шахте на месте вокруг себя
Нашел на просторах старого форума антареса)

sub mineone()
  var x,y,z, n
  VAR LastTimer
  UO.Set('finddistance','2')
  n=0
  z=UO.GetZ("self")
     for x=-2 to 2
        for y=-2 to 2
           UO.Print(str(x)+" "+str(y))
           Repeat
              if UO.InJournal('TORMOZ') then
                pause()
              endif
              UO.DeleteJournal()
              UO.Warmode("0")
              UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
              UO.UseType('0x0E85')
              LastTimer=UO.Timer()
              Repeat
                 wait(500)
              Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") or UO.InJournal("so close") OR UO.Timer()>LastTimer+200
              if UO.InJournal("You put") then
                  n=0
              else
                 n=n+1
              endif
           Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
        next
     next
end sub
Сержант (570807)11 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
10 марта 2013 12:27
Сообщение #22
Herding
Немного подправил под реалии

sub Herding()
var posoh = "0x13F4"
uo.print('  - ')
uo.addobject('Animal')
while uo.targeting()
wait(100)
wend
repeat
uo.waittargetobject('Animal','self')
uo.usetype(posoh)
Uo.DeleteJournal()
repeat
wait(100)
until UO.InJournal('The animal goes') or UO.InJournal('You don')
until uo.dead()
endsub
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
14 марта 2013 13:13
Сообщение #23
БС. Крафтит кинжалы, пока в сумке больше 15 ингот.

Что-бы крафтил другое, нужно изменить меню крафта
UO.WaitMenu('Blacksmithing','Weapon','Weapon','Fencing','Fencing','Dagger')


sub blacksmith()
    var Hammer = '0x13E3'; hammer
    var Iron = '0x1BEF'; ingots
repeat

UO.WaittargetType(Iron)
uo.usetype(Hammer)
UO.WaitMenu('Blacksmithing','Weapon','Weapon','Fencing','Fencing','Dagger')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target')
until uo.count(Iron) < 16
end sub
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
16 марта 2013 16:24
Сообщение #24
Тейлоринг. Шьет бланк свитки, пока в кармане есть ткань

blank scroll = 1 folded cloth, 1 cut up leather
sub Tailoring()
    var SewKit = '0x0F9D'; sewing kit
    var Cloth = '0x175D'; folded cloth
repeat

UO.WaittargetType(Cloth)
uo.usetype(SewKit)
UO.WaitMenu('Miscellaneous','Blank Scroll')
UO.DeleteJournal()
repeat
wait(500)
until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('destroyed')
until uo.count(Cloth) < 1
end sub
Полковник (17324901)11 летИнквизитор
Inquisitor
Сообщений: 1254
Рег. 13.02.2013
16 марта 2013 18:25
Сообщение #25
Делает карты

sub TAILORmap()
repeat
UO.WaitTargetType('0x175D')
UO.WaitMenu ('Misc','Blank Map')
UO.UseType('0x0F9D')
wait(6000)
until false
end sub
Генерал Полковник (31351072)14 лет
Dragonstalker
Сообщений: 4091
Рег. 6.09.2009
8 мая 2013 02:41
Сообщение #26
РЕССУРЕКТ ЧАРА С БИНТОВ.

Функция mar() добавляет объект напарника, который будет добавлен в Objects инжекта bod
*если напарник постоянный, можно добавить его прописав индивидуально раз и навсегда, -> ,info на напарника и ID, тогда в скриптах ниже заменяем bod на ID напарника 0х000000

sub mar()
uo.print('Кого лечить?')
uo.exec('addobject bod')
while uo.targeting()
wait(100)
wend
end sub


sub healfriend()
uo.waittargetobject('bod')
uo.usetype('0x0E21','0x000')
wait (200)
uo.exec("arm 1")
end sub


sub healfriend_ress()
uo.waittargetobject('0x0008D68A')
uo.usetype('0x0E21','0x000')
wait (200)
uo.waittargetobject('0x0008D68A')
uo.cast('Resurrection')
wait (200)
end sub
Старший Сержант (869990)10 лет
Ranger
Сообщений: 60
Рег. 12.04.2013
3 июня 2013 17:14
Сообщение #27
Картография. Юзает в паке бланки.

sub Cartography()
UO.Exec ("automenu 'What sort of map do you want to d' 'Detail Map'")
UO.DeleteJournal()
repeat
UO.Useskill("Cartography")
wait(4000)
until UO.Dead()
end sub
10 лет
Paladin
Сообщений: 292
Рег. 10.06.2013
3 июля 2013 16:50
Сообщение #28
Тинкеринг. Бутылки

sub Tinkering()
  uo.cancelmenu()
  uo.automenu('Tinkering','Miscellaneous')
  uo.automenu('Miscellaneous','Empty Bottle')
  while UO.Count('0x1BEF')>3
  UO.DeleteJournal()
  UO.UseType('0x1EBC')
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("failed")
  wait(300)
  wend
wend
end sub
Генерал Полковник (37807901)12 летИнквизитор
Inquisitor
Сообщений: 792
Рег. 27.06.2011
5 июля 2013 19:55
Сообщение #29
Для тех кому трудно пройти на маркете, думаю название подходящее :smile3:

Sub kozly()
   uo.print('Выбери козла: ')
   uo.exec('addobject koz')
   while uo.targeting()
      wait(500)
   wend
uo.hide('koz')
   wait(6000)
   uo.resend()
endsub

Гости
Сообщений: 48
Рег. 16.07.2013
20 июля 2013 11:03
Сообщение #30
Заготовка для скрипта лута:


R[1] = '0x0EED' # Gold
R[2] = '0x0F3F' # Arrow
R[3] = '' #
R[4] = '' #
R[5] = '' #
R[6] = '' #
R[7] = '' #
R[8] = '' #
R[9] = '' #
R[10] = '' #
R[11] = '' #
R[12] = '' #
R[13] = '' #
R[14] = '' #
R[15] = '' #
R[16] = '' #
R[17] = '' #
R[18] = '' #
R[19] = '' #
R[20] = '' #
R[21] = '' #
R[22] = '' #
R[23] = '' #
R[24] = '' #
R[25] = '' #
R[26] = '' #
R[27] = '' #
R[28] = '' #
R[29] = '' #
R[30] = '' #
R[31] = '' #
R[32] = '' #
R[33] = '' #
R[34] = '' #
R[35] = '' #
R[36] = '' #
R[37] = '' #
R[38] = '' #
R[39] = '' #
R[40] = '' #
R[41] = '' #
R[42] = '' #
R[43] = '' #
R[44] = '' #
R[45] = '' #
R[46] = '' #
R[47] = '' #
R[48] = '' #
R[49] = '' #
R[50] = '' #
R[51] = '' #
R[52] = '' #
R[53] = '' #
R[54] = '' #
R[55] = '' #
R[56] = '' #
R[57] = '' #
R[58] = '' #
R[59] = '' #
R[60] = '' #
R[61] = '' #
R[62] = '' #
R[63] = '' #
R[64] = '' #
R[65] = '' #
R[66] = '' #
R[67] = '' #
R[68] = '' #
R[69] = '' #
R[70] = '' #
R[71] = '' #
R[72] = '' #
R[73] = '' #
R[74] = '' #
R[75] = '' #
R[76] = '' #
R[77] = '' #
R[78] = '' #
R[79] = '' #
R[80] = '' #
R[81] = '' #
R[82] = '' #
R[83] = '' #
R[84] = '' #
R[85] = '' #
R[86] = '' #
R[87] = '' #
R[88] = '' #
R[89] = '' #
R[90] = '' #
R[91] = '' #
R[92] = '' #
R[93] = '' #
R[94] = '' #
R[95] = '' #
R[96] = '' #
R[97] = '' #
R[98] = '' #
R[99] = '' #
R[100] = '' #

Гости
Сообщений: 48
Рег. 16.07.2013
20 июля 2013 13:20
Сообщение #31
Кукинг. Прячется, жарит стейки, ребра, птицу

###---прокачка кукинга. жарит рыбу (если есть), мясо-ребра (если есть), тушки
###---птичек (если есть). жарит на том, на что укажут курсором в начале работы
###---скрипта: костер, форжа и тп.
###---прячется, не ест.
###---@ ЦАПО "Силиконовая Грудь"


###---КУКИНГ (HOTKEY ALT+R)

sub RibsAndFish()
VAR IsFish=0, IsRibs=0, IsBirds=0
VAR Exit=0
  
  UO.Exec('addobject Fire')
  while UO.Targeting()
    wait(100)
  wend
  
  repeat
    ToHide()
    
    if IsFish==0 then # блок приготовления рыбы
      if CookFood('0x097A')==1 then
        UO.Print('сырой рыбы нет')
        IsFish=1
        wait(100)        
      end if
    end if
      
    if IsRibs==0 then # блок приготовления ребрышек птичек
      if CookFood('0x09F1')==1 then
        UO.Print('сырых ребрышек нет')
        IsRibs=1
        wait(100)        
      end if
    end if
      
    if IsBirds==0 then # блок приготовления дичи
      if CookFood('0x09B9')==1 then
        UO.Print('куропаток нет')
        IsBirds=1
        wait(100)        
      end if
    end if
      
    if IsFish==1 && IsRibs==1 && IsBirds==1 && Exit==0 then
      UO.Print("жарить нечего... конец работе ))")
      Exit=1
      wait(100)
    end if
    
    if UO.InJournal("on some sort of fire") && Exit==0 then
      UO.Print("костер выгорел... конец работе ))")
      Exit=1
      wait(200)
    end if
    
  until Exit==1 || UO.Dead()
  
  if NOT UO.Dead() then
    UO.Print('Приготовление еды закончил')
  else
    UO.Print('Помер на кухонном посту - захлебнулся слюной')
  end if
  
end sub

###---ПРИГОТОВЛЕНИЕ ПИЩИ

Sub CookFood(Food)
VAR LastTimer
  UO.DeleteJournal()
  LastTimer=UO.Timer()
  UO.FindType(Food,'-1','2')
  if UO.FindCount() then
    UO.WaitTargetObject('Fire')
    UO.UseObject('finditem')  
    repeat
      wait(100)
    until UO.InJournal("You put|You burn|положили|сожгли") || LastTimer+100<UO.Timer()
    return 0
  else
    return 1        
  end if
end sub

###---ЧЕКЛАГ

Sub checklag()

    deljournal("backpack|Backpack")
    UO.Click("backpack")
    repeat
        wait(100)
    until UO.InJournal("backpack|Backpack")

end sub

###---СТЕРЕТЬ ЖУРНАЛ

Sub deljournal(msg)

    while UO.InJournal(msg)
        UO.SetJournalLine(UO.InJournal(msg)-1,"")
    wend

end sub

###---ПРЯТАЛКА (HOTKEY F10)

sub ToHide()
VAR LastTimer, n=0, HidFlag=1

    if UO.Hidden() then
        HidFlag=0
    else
        UO.Print('Щас как спрячусь!..')
    end if

    while HidFlag
        deljournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно")
        LastTimer=UO.Timer()
        UO.exec('warmode 0')
        UO.useskill('Hiding')
        repeat
            wait(300)
        until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно") || LastTimer+100<UO.Timer()
        if UO.InJournal("удачно") then
            HidFlag=0
        else
            n=n+1
            if n>3 then
                UO.Print('Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
                return
            end if
        end if
    wend

end sub

###---ТЕРМИНАТОР - ОСТАНОВКА ВСЕХ РАБОТАЮШИХ СКРИПТОВ (HOTKEY ALT+Z)

sub MyTerminate()

    UO.set('quiet','1')
    UO.cancelmenu()
    UO.ignorereset()
    UO.set('quiet','0')
    UO.exec('terminate all')

end sub
Ефрейтор (215407)10 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
30 июля 2013 18:03
Сообщение #32
Крафт бутылок. Работа с сундуком, берет инги, обратно скидывает бутылки, считает их. Проверен на себе

sub TinkerBottle()
VAR LastTimer
VAR Bottle   = '0x0F0E'
VAR Ing      = '0x1BEF'      
VAR Instrum  = '0x1EBC'
VAR delay1   =  200
VAR sunduk1  = '0x40F6A567'
WHILE NOT UO.Dead()
  REPEAT
       If UO.Count( Ing ) < 10 Then
     UO.Print("Iron not found")
      UO.FindType( Ing, '-1', sunduk1)
       If UO.FindCount() > 0 Then
    uo.moveitem('finditem',100,'backpack')
         wait( delay1 )
        Else
         UO.Print( 'Iron not found' )
            return
        Endif
    Endif
   Repeat
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       UO.WaitMenu ('Tinkering', 'Miscellaneous', 'Miscellaneous', 'Empty Bottle' )
       UO.Usetype( Instrum )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|fail|You broke") or UO.Timer()>LastTimer+150
   Until UO.Count( Bottle ) > 0
checklag()
;    wait( delay1 )
      while UO.Count( Bottle ) > 0
       UO.FindType( Bottle, -1, -1 )
       UO.MoveItem( 'finditem', 0, sunduk1 )
checklag()
      wend
   wait( delay1 )
UO.FindType( Bottle, -1, sunduk1 )
UO.Print('Bottle in sunduk: '+Str(UO.GetQuantity('finditem')))
WEND
end sub

Sub DeleteJournal(msg)
var nom=UO.InJournal(msg)
  if nom>0 then
     UO.SetJournalLine(Nom - 1," ----- 8< ----- ")
     DeleteJournal(msg)
  endif
endsub
Ефрейтор (215407)10 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
4 августа 2013 16:46
Сообщение #33
Медитация, хилинг, парринг, ну и магия скорее всего

На чара одеваем щит, троль серьги, в пак кладем СШ (Сульфориус Аш (мне с 50 до 100 понадобилось порядка 10к рега)), и жаренные стейки.


sub up.Meditation()
VAR msg1="In Por Ylem"
VAR msg2="You are at peace."
VAR msg3="You lose your concentration."
var fish = '0x097B'
repeat
  uo.DeleteJournal()
  uo.WaitTargetObject("self")
  uo.Cast("Magic Arrow")
  repeat
   Wait(2000)
  until uo.InJournal(msg1)
  uo.Warmode(0)
  repeat
   uo.DeleteJournal()
   uo.usetype(fish)
   UO.SetArm('CWeapon')
   UO.bandageself()
wait(5000)
UO.Arm('CWeapon')
   uo.UseSkill("Meditation")
   repeat
    Wait(50)
   until uo.InJournal(msg2) or uo.InJournal(msg3)
  until uo.InJournal(msg2)
until not uo.Ns or uo.Dead()
end sub


СЛЕДИТЕ за бинтами, иначе он сам себя стрелками забьёт до смерти)))
Ефрейтор (215407)10 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
6 августа 2013 16:08
Сообщение #34
Begging
Дано: два чара в доме, в паке у главнюка стейки, у второго море бабла, рядом с лавным - мешочек на полу закрепленный

sub Begging()
var fish = '0x097B' # стейки
uo.print('Whom you want grovel to?')
uo.exec('addobject Beg') # чар-жертва выбирается таргетом
while uo.targeting()
  wait(200)
wend
uo.DeleteJournal()
While not uo.Dead()
  uo.waittargetobject('Beg')
  uo.usetype(fish) # жрём
  wait(500)
  uo.useskill('Begging')
      wait(5000)
   uo.setreceivingcontainer(0x4062CFE8) # мешок для денег
   uo.findtype(0x0EED,"-1",'Backpack') # Ид бабла, не менять
   UO.Grab("0","finditem")
   wait(1000)
  wait(5000)    
wend
end sub
Лейтенант (3744380)12 лет
Vampire
Сообщений: 1157
Рег. 5.07.2011
8 августа 2013 15:18
Сообщение #35
Скрипты на создание банок алхимии: тотал мана рефреш, тотал рефреш, инвиз.
Соответственно можно поменять: тайп, кол-во регов, название ('0x0F87', 6, "'Total Mana Refresh'"). И делать другие банки...

sub makeTotalManaReferh()
  Alchemy('0x0F87', 6, "'Total Mana Refresh'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub

####################

sub makeTotalReferh()
  Alchemy('0x0F7A', 5, "'Total Refresh'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub

####################

sub makeinvis()
  Alchemy('0x0F91', 4, "'Invisibility'")
end sub

Sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
  UO.DeleteJournal()
  UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
  UO.UseType(reagent)
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
    wait(300)
  wend
wend
end sub
Лейтенант (4828229)10 лет
Trasher
Сообщений: 424
Рег. 10.06.2013
9 августа 2013 11:33
Сообщение #36
Hiding+Stealth

sub Stealth()
   var i=1
   repeat
      for i=1 to 8
         if not uo.hidden() then
            UO.DeleteJournal()
            UO.UseSkill("Hiding")
            Repeat
               Wait(10)
            Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
         end if
         uo.press(35)
         wait(200)
      next
      for i=1 to 8
         if not uo.hidden() then
            UO.DeleteJournal()
            UO.UseSkill("Hiding")
            Repeat
               Wait(10)
            Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
         end if
         uo.press(33)
         wait(200)
      next
      Wait(100)
   until UO.Dead()
end sub
Ефрейтор (215407)10 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
17 августа 2013 00:27
Сообщение #37

### Если кому интересно: 1 хлопок=6 ниток. 10 ниток = 1 баллон ткани = 50 ткани
### Рядом с чаром поставить сундук, мешок с нитками, открыть мешок перед запуском скрипта (Скрипт Igneous, я немного его
### подправил под реалии, чтоб работал)))

sub Tkan()
repeat
uo.findtype('0x0FA0','-1','lastcontainer')
if uo.findcount()>0 then
uo.grab('60','finditem')
endif
wait(200)
uo.findtype('0x0FA0','-1','Backpack')
if uo.findcount()>0 then
repeat
uo.waittargetground('0x1061') # тип прялки, остальные типы не менять.
uo.usetype('0x0FA0')
wait(2000)
uo.findtype('0x0FA0','-1','Backpack')
until uo.findcount()==0
endif
wait(200)
uo.findtype('0x0F95','-1','Backpack')
if uo.findcount()>0 then
uo.setreceivingcontainer('lastcontainer')
uo.grab('0','finditem')
wait(500)
uo.unsetreceivingcontainer()
endif
checklag()
wait(100)
until 0>1
endsub

Sub checklag()
if uo.Waiting()>0 then
uo.Exec('canceltarget')
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(200)
until uo.InJournal('backpack|Backpack')
;until uo.InJournal('ackpack')  
end sub
Ефрейтор (155557)10 лет
Ranger
Сообщений: 176
Рег. 7.08.2013
23 августа 2013 10:27
Сообщение #38
Бросаем под ноги хворост, поджигаем, регенимся.
sub Kindlings()
    var x = uo.getx()
    var y = uo.gety()
    var z = uo.getz()
    
    uo.findtype('0x0DE1')
    uo.drop('1', x, y, z,'finditem')
    wait(700)
    uo.findtype('0x0DE1')
    wait(200)            
    uo.useobject('finditem')
    wait(1500)
endsub

с задержкой еще надо поработать ).
Генерал Полковник (31351072)14 лет
Dragonstalker
Сообщений: 4091
Рег. 6.09.2009
30 августа 2013 15:56
Сообщение #39
sub recallhome()
uo.exec("waittargetobject 0x40083BB0")
uo.cast("Recall")
end sub


ID замените на ID своей руны через комманду ,info инжекта
Ефрейтор (155557)10 лет
Ranger
Сообщений: 176
Рег. 7.08.2013
30 августа 2013 17:10
Сообщение #40

sub recallInvis()
var rune = "0x40233367"; ID руны (заменить на нужный)
Var Type='0x0E24'; тип бутылки с жидкостью
Var Color='0x0060'; цвет бутылки с жидкостью
      if uo.waiting() then
          uo.canceltarget()
      endif
      uo.waittargetobject(rune)
      uo.cast('Recall')
      wait (100)
      UO.FindType(Type, Color, 2)
      UO.UseObject('finditem')
end sub

Альтернатива выше описанного рекола, с использованием инвиз пота. Заставили вы меня так реколиться, что поделать ).
ЗЫ: Привет Mitako
Последние посетители (0):

 
Сейчас: 29 марта 2024 09:30