Готовые скрипты Injection, Просьба воздержаться от флейма
Старший Прапорщик (2421139)11 лет
Dragonstalker
Сообщений: 282
Рег. 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
Старший Прапорщик (2421139)11 лет
Dragonstalker
Сообщений: 282
Рег. 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

Старший Прапорщик (2421139)11 лет
Dragonstalker
Сообщений: 282
Рег. 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 для более быстрого восстановления маны
Старший Прапорщик (2421139)11 лет
Dragonstalker
Сообщений: 282
Рег. 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)10 лет
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 и из главной сумки!
А можно сделать, чтобы вещи в главной сумки он не трогал, а продал только из той сумки, на которую я укажу?