ящик пандоры
 Готовые скрипты Injection, Просьба воздержаться от флейма
Старший Прапорщик (2327983)2 года
Dragonstalker
Сообщений: 283
Рег. 20.09.2015
12 ноября 2016 12:21
Сообщение #101
Цитата: Mitako
sub Cook()
   var havka = '0x097A'; тип еды, которую будем жарить
   var printcolour = '1069'
   uo.charprint(printcolour, 'Выбери жаровню, на которой будешь жарить' )
   uo.exec('addobject Forge')
   while uo.targeting()
      wait(100)
   wend
   repeat
      UO.DeleteJournal()
      UO.FindType(havka,'0x0000','my')
      if UO.FindCount() > 0 then
         UO.WaitTargetObject('Forge')
         UO.UseObject('finditem')
         repeat
            wait (100)
         until UO.InJournal("You burn")  or UO.InJournal("You put")
         else
            uo.charprint(printcolour, 'Сырье закончилось' )
            return
      end if
   Until UO.Dead()
end sub


Добавил выбор еды, которую жарит,
sub Cook()
   var printcolour = '1069'

   uo.charprint(printcolour, 'Выбери че будем жарить' )
   uo.exec('addobject havka')
   while uo.targeting()
      wait(100)
   wend

   uo.charprint(printcolour, 'Выбери жаровню, на которой будешь жарить' )
   uo.exec('addobject Forge')
   while uo.targeting()
      wait(100)
   wend
   repeat
      UO.DeleteJournal()
      UO.FindType(UO.GetGraphic('havka'),'0x0000','my')
      if UO.FindCount() > 0 then
         UO.WaitTargetObject('Forge')
         UO.UseObject('havka')
         repeat
            wait (100)
         until UO.InJournal("You burn")  or UO.InJournal("You put")
         else
            uo.charprint(printcolour, 'Сырье закончилось' )
            return
      end if
   Until UO.Dead()
end sub
Старший Прапорщик (2327983)2 года
Dragonstalker
Сообщений: 283
Рег. 20.09.2015
23 ноября 2016 14:37
Сообщение #102
прокачка подглядывания(Snooping), путём просмотра чужого бекпака и порчи собственной кармы :nono:

sub Snooping()
   UO.CharPrint('self','1069','В какую сумку полезем в этот раз ?')
   UO.Exec('addobject Bag')
   while UO.Targeting()
      Wait(200)
   wend
   repeat
      UO.UseObject('Bag')
      Wait(150)
   until UO.Dead()
endsub

Старший Прапорщик (2327983)2 года
Dragonstalker
Сообщений: 283
Рег. 20.09.2015
4 декабря 2016 00:11
Сообщение #103
Remove Trap от Voyager


Sub TakeReg(Chest)
   DIM reg[5]
   var i,n
   reg[1]='0x0f8c'; SA
   reg[2]='0x0f8d'; SS
   reg[3]='0x0f84'; GA
   reg[4]='0x0F7B'; BM
   reg[5]='0x097B';fish steak
  
   UO.UseObject('Chest')
   for i=1 to 5
      while UO.Count(reg[i])<5
         UO.FindType(reg[i],-1,'Chest')
         n=UO.Count(reg[i])
         UO.Grab(str(100-n),'finditem')
         wait(200)
      wend  
   next
end sub

sub RemoveTrap()
   var LastTimer
   UO.Exec('addobject Chest');сундук с регами, который будем запирать и отпирать
   while UO.Targeting()
      Wait(200)
   wend
   repeat
      TakeReg('Chest')
      wait (500)
      UO.DeleteJournal()
      If UO.Mana < 30 Then
         repeat
            UO.UseSkill( 'Meditation' )
            wait (4000)
         until UO.InJournal( "You are" )
      Endif
      LastTimer=UO.Timer()
      Uo.waittargetobject('Chest')
      UO.cast('Magic Trap')
      repeat
         wait(500)
      until UO.InJournal("поместили") or LastTimer+500<UO.Timer()
      If UO.InJournal("поместили") then
         Uo.waittargetobject('Chest')
         UO.cast('Magic Untrap')
         repeat
            wait(500)
         until UO.InJournal("обезвредили")
         UO.UseType('0x097B')
         UO.DeleteJournal()
      endif
   until UO.Dead()
end sub


Немного подкорректировал, теперь берет еще рыбу из мешка
Работа скрипта: Закидываете в сундук до отвала реги sa ss ga bm и фиш стейки,запускаете RemoveTrap указываете на сундук или мешок, чар берет от туда нужные реги и рыбу, далее лочит (сундук или мешок) и анлочит, и так по кругу, если кончилась мана, медетирует и ест рыбу
П.С можно одевать Ophidian necklace и ettin earring для более быстрого восстановления маны
Старший Прапорщик (2327983)2 года
Dragonstalker
Сообщений: 283
Рег. 20.09.2015
6 декабря 2016 10:47
Сообщение #104
Цитата: Shantaram
Remove Trap от Voyager


Sub TakeReg(Chest)
   DIM reg[5]
   var i,n
   reg[1]='0x0f8c'; SA
   reg[2]='0x0f8d'; SS
   reg[3]='0x0f84'; GA
   reg[4]='0x0F7B'; BM
   reg[5]='0x097B';fish steak
  
   UO.UseObject('Chest')
   for i=1 to 5
      while UO.Count(reg[i])<5
         UO.FindType(reg[i],-1,'Chest')
         n=UO.Count(reg[i])
         UO.Grab(str(100-n),'finditem')
         wait(200)
      wend  
   next
end sub

sub RemoveTrap()
   var LastTimer
   UO.Exec('addobject Chest');сундук с регами, который будем запирать и отпирать
   while UO.Targeting()
      Wait(200)
   wend
   repeat
      TakeReg('Chest')
      wait (500)
      UO.DeleteJournal()
      If UO.Mana < 30 Then
         repeat
            UO.UseSkill( 'Meditation' )
            wait (4000)
         until UO.InJournal( "You are" )
      Endif
      LastTimer=UO.Timer()
      Uo.waittargetobject('Chest')
      UO.cast('Magic Trap')
      repeat
         wait(500)
      until UO.InJournal("поместили") or LastTimer+500<UO.Timer()
      If UO.InJournal("поместили") then
         Uo.waittargetobject('Chest')
         UO.cast('Magic Untrap')
         repeat
            wait(500)
         until UO.InJournal("обезвредили")
         UO.UseType('0x097B')
         UO.DeleteJournal()
      endif
   until UO.Dead()
end sub


Немного подкорректировал, теперь берет еще рыбу из мешка
Работа скрипта: Закидываете в сундук до отвала реги sa ss ga bm и фиш стейки,запускаете RemoveTrap указываете на сундук или мешок, чар берет от туда нужные реги и рыбу, далее лочит (сундук или мешок) и анлочит, и так по кругу, если кончилась мана, медетирует и ест рыбу
П.С можно одевать Ophidian necklace и ettin earring для более быстрого восстановления маны

По поводу этого скилла и скрипта на его прокачку хочу сказать, что на данный момент после двухдневной прокачки, итог: +25 Remove Trap скилл прокачивается очень медленно регов уходит много, порядка 60к гп слил на реги и понял, что выгоднее купить ТК чем тратить время и деньги на покупку регов.
Младший Сержант (340601)1 год
Ranger
Сообщений: 31
Рег. 7.08.2016
26 декабря 2016 23:03
Сообщение #105
Цитата: Mitako
Продает ВСЕ итемы дереву из мешка, указанного по таргету
sub derevo()

var printcolour = '1069'

UO.AddObject('bag')
uo.charprint(printcolour, 'Выбери сумку с хламом' )
wait(500)
  while UO.Targeting()
  wait(200)
  wend
uo.useobject('bag')
wait(1000)

repeat
  UO.FindType(-1,-1,'bag')
  if UO.FindCount() > 0 then
    UO.Grab("0","finditem")
    UO.WaitTargetObject('finditem')
    UO.UseFromGround('0x11C9')  
    wait(1000)
    else
    uo.charprint(printcolour, 'Все продано' )
    return
  end if
until UO.Dead()
end sub



Скрипт продает из сумки Bag и из главной сумки!
А можно сделать, чтобы вещи в главной сумки он не трогал, а продал только из той сумки, на которую я укажу?
Сержант (667909)8 лет
Urukhay
Сообщений: 32
Рег. 25.10.2009
22 января 2017 13:52
Сообщение #106
Цитата: LEGO
(5:00;5:30;6:00 и т.п.)

Это что?)
Ефрейтор (165467)
Ranger
Сообщений: 52
Рег. 25.03.2017
17 апреля 2017 18:17
Сообщение #107
Всем привет!!!
вот очень хорошо работающий скрипт на Ветеринарию.

Var Horse = '0x003EC735'; Ид лошади

sub Veterinary()
while not UO.Dead()
hp()
ss()
uo.attack ( Horse )
wait (500)
wend
end sub


sub ss()
if uo.GetHP ( Horse ) < 20 then это ХП животного после когда проходит хил. можно и побольше поставить, но сразу скажу стамина убегает быстро.
Repeat
uo.DeleteJournal()
UO.WarMode(0)
uo.Print('лечи его')
uo.waittargetobject( Horse )
uo.usetype('0x0E21')
wait (1000)
Until UO.InJournal(' мумию!')

endif
end sub


sub hp()
if UO.Life <= 100 then
while (UO.Life < UO.GetMaxHP())
UO.WarMode(0)
uo.Print('хилим себя')
uo.waittargetobject( 'self' )
uo.usetype('0x0E21')
wait (1000)
wend
endif
end sub
Ефрейтор (165467)
Ranger
Сообщений: 52
Рег. 25.03.2017
17 апреля 2017 18:26
Сообщение #108
Взять реги из банка положить реги в банк или Драг. камни в банк.
Скрипт будет перекладывать реги из основного пака в последнюю открытую сумки.
этот скрипт у меня лежит в автолоуде зомби. не каких ошибок и глюков.
Поставил себе ХОТКЕЙ на все команды, и забыл что такое добрать реги в ручную.

sub unloadregs()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F7A'; regi
   Req[1]='0x0F7B'; regi  
   Req[2]='0x0F86'; regi  
   Req[3]='0x0F88'; regi  
   Req[4]='0x0F8D'; regi
   Req[5]='0x0F84'; regi
   Req[6]='0x0F85'; regi
   Req[7]='0x0F8C'; regi
   Req[8]='0x0F8C'; regi
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 8
         uo.findtype(Req[n],-1,'my')
         while uo.findcount()
            uo.moveitem('finditem',0,c)
            wait(700)
            uo.findtype(Req[n],-1,'my')
         wend
      next
   endif
   uo.print(' -= done =- ')
endsub

sub unloadCamni()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F10'; unloadCamni
   Req[1]='0x0F11'; unloadCamni  
   Req[2]='0x0F25'; unloadCamni  
   Req[3]='0x0F13'; unloadCamni  
   Req[4]='0x0F26'; unloadCamni
   Req[5]='0x0F16'; unloadCamni
   Req[6]='0x0F18'; unloadCamni
   Req[7]='0x0F15'; unloadCamni
 ;Req[8]='0x0F8C';
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 7
         uo.findtype(Req[n],-1,'my')
         while uo.findcount()
            uo.moveitem('finditem',0,c)
            wait(700)
            uo.findtype(Req[n],-1,'my')
         wend
      next
   endif
   uo.print(' -= done =- ')
endsub

sub RegZagryz()
   VAR n, q, c
   Dim Req[50]; Requirements
   Req[0]='0x0F7A'; regi bp
   Req[1]='0x0F7B'; regi bm
   Req[2]='0x0F86'; regi mr
   Req[3]='0x0F88'; regi ns
   Req[4]='0x0F8D'; regi ss
   Req[5]='0x0F84'; regi ga
   Req[6]='0x0F85'; regi gs
   Req[7]='0x0F8C'; regi sa
  
   Dim Qnt[50]; Quantity
   Qnt[0]=25; regi  по сколько будет загружать в сумку.
   Qnt[1]=25; regi
   Qnt[2]=25; regi
   Qnt[3]=25; regi
   Qnt[4]=25; regi
   Qnt[5]=25; regi
   Qnt[6]=25; regi
   Qnt[7]=25; regi
  
   Dim Clr[50]; Color
   Clr[0]='0x0000'; regi
   Clr[1]='0x0000'; regi
   Clr[2]='0x0000'; regi
   Clr[3]='0x0000'; regi
   Clr[4]='0x0000'; regi
   Clr[5]='0x0000'; regi
   Clr[6]='0x0000'; regi
   Clr[7]='0x0000'; regi
  
  
   if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
      c=uo.getserial('lastcontainer')
      for n=0 to 7
         while uo.count(Req[n],Clr[n])<>Qnt[n]
            q=Qnt[n]-uo.count(Req[n],Clr[n])
            if q>0 then
               uo.findtype(Req[n],Clr[n],c)
               if uo.findcount() then
                  uo.moveitem('finditem',STR(q),'backpack',141,134,0)
                  wait(700)
               else
                  uo.msg(' item Req('+str(n)+') NOT FOUND ')
                  return
               endif
            else
               q=-q            
               uo.findtype(Req[n],Clr[n],'backpack')  
               if uo.findcount() then
                  uo.moveitem('finditem',STR(q),c)
                  wait(700)
                  uo.print(' -= 1 =- ')
               endif
            endif
         wend
      next
   endif
   uo.print(' -= done =- ')
end sub
Ефрейтор (165467)
Ranger
Сообщений: 52
Рег. 25.03.2017
17 апреля 2017 18:31
Сообщение #109
CelleZeHb,
капает и ходит

Sub mine()
   var x, y, i, t, tmp, inside, goto_x, st, first
   VAR ms1 = "There is nothing here to mine for"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put "
   VAR ms4 = "You loosen some rocks"
   VAR ms5 = "location"
   VAR ms6 = "Try mining"
   VAR ms7 = "You can't see that"
   VAR ms8 = "You stop"
   VAR ms9 = "That is too"
   first=UO.GetX()
   start:
   inside=0
   for y=-1 to 1
      for x=-1 to 1
         repeat
            uo.deletejournal()
            t = UO.Timer()
            UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
            UO.exec ("usetype 0x0E85")
            repeat
               wait(300)
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())
         until not UO.InJournal(ms8)
      next
   next
end sub

sub main()
   var i
   While UO.Life>0
      for i=1 to 7
         mine()
         uo.press(34)
         wait(500)
         uo.press(34)
         wait(500)
         uo.press(34)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
      mine()
      for i=1 to 7
         uo.press(36)
         wait(500)
         uo.press(36)
         wait(500)
         uo.press(36)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
   wend
end sub
Лейтенант (4548532)4 года
Dragonstalker
Сообщений: 3231
Рег. 19.11.2013
17 апреля 2017 19:40
Сообщение #110
Цитата: S.t.A.l.K.e.R
Драг. камни в банк.

Есть небольшой лайфхакк перекидывания "одной строкой" :)
### Вспомогательные константы ###
VAR lootwait = 300
var timemove,TType,Color, SourceContainer,X,Y,Z
var SundLoot = uo.getserial('backpack')
var SundBi = uo.getserial('lastcontainer')
### ################## ###

sub main()
    PUTLoot2(0xf0f, 0xf30, '-1', SundLoot, SundBi,'','','')  ; ВСЕ камни
endsub




Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer,X,Y,Z)
    for TType = Type1 to Type2
        PUTLoot(TType, Color, SourceContainer, TargetContainer,X,Y,Z)
    next
end sub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer,X,Y,Z)
    UO.FindType(Type, Color, SourceContainer)
    while UO.FindCount()
        timemove=UO.Timer()
        uo.MoveItem('finditem',0,TargetContainer,X,Y,Z)
        repeat
            wait(lootwait)
        until UO.ContainerOf('finditem')<>uo.GetSerial(TargetContainer) || timemove+30>UO.Timer()
        UO.FindType(Type, Color, SourceContainer)
    wend
end sub
Ефрейтор (124810)
Ranger
Сообщений: 22
Рег. 14.11.2017
5 декабря 2017 13:49
Сообщение #111
Скрипт на беггинг, с переводом денег на чек
Просматривают (1): Sun Shine

 
Сейчас: 12 декабря 2017 15:18