Поиск
Вход на сайт
Наш опрос
Оцените мой сайт
Всего ответов: 81
Статистика
[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Переливы Алхимия
MaG1StR_YodaДата: Пятница, 26.06.2020, 17:55 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Скрипты на перелив 25/0
Варка по макро он.

sub alchemy()
#Указываем на сундук с пустыми кегами#
uo.addobject('kegs')
while uo.targeting()
wait(200)
wend
wait(2000)
#Указываем на сундук , куда скидывать полные кеги#
uo.addobject('kegs2')
while uo.targeting()
wait(200)
wend
wait(2000)
#указываем , что сливать#
uo.addtype('regi')
while uo.targeting()
wait(200)
wend
wait(2000)
Var i
Dim b[1000]
For i=1 to 1000
repeat
UO.FindType('0x1940',-1,'kegs')
b=Uo.GetSerial('finditem')
If UO.FindCount('b')>0 then
end if
until UO.FindCount('b')>0
Uo.Moveitem(b,'backpack')
wait(1500)
repeat
Uo.FindType('regi','backpack')
wait(1500)
If UO.FindCount('regi')>0 then
Uo.moveitem('finditem','0',b)
wait(2500)
end if
until uo.InJournal("Charges now: [25/ 0]")
wait(1500)
Uo.moveitem(b,'0','kegs2')
wait(2500)
Uo.DeleteJournal()
next
end sub
 
MaG1StR_YodaДата: Пятница, 26.06.2020, 17:59 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Скрипты на перелив 25/25
Варка по макро он.

sub alchemy()
   #указываем таргетом на сундук с пустыми кегами#
   uo.addobject('kegs') 
   while uo.targeting() 
      wait(200) 
   wend
   wait(2000)
   #Указываем таргетом на сундук с полными кегами #
   uo.addobject('kegs2') 
   while uo.targeting() 
      wait(200) 
   wend
   wait(2000)
   #Указываем на - что сливать#
   uo.addtype('regi') 
   while uo.targeting() 
      wait(200)
   wend
   wait(2000)
   Var i
   Dim b[1000]
   For i=1 to 1000
      repeat
         UO.FindType('0x1940',-1,'kegs') 
         b=Uo.GetSerial('finditem')
         If UO.FindCount('b')>0 then
         end if
      until UO.FindCount('b')>0
      Uo.Moveitem(b,'backpack')
      wait(1500)
      repeat
         Uo.FindType('regi','backpack')
         wait(1500)
         If UO.FindCount('regi')>0 then
            Uo.moveitem('finditem','0',b)
            wait(2500)
         end if
      until uo.InJournal("Charges now: [25/ 25]")
      wait(1500)
      Uo.moveitem(b,'0','kegs2') 
      wait(2500)
      Uo.DeleteJournal()
   next 
end sub
 
MaG1StR_YodaДата: Пятница, 26.06.2020, 18:02 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Скрипты на перелив 25/50
Варка по макро он

sub alchemy()
#указываем таргетом на сундук с пустыми кегами#
uo.addobject('kegs')
while uo.targeting()
wait(200)
wend
wait(2000)
#Указываем таргетом на сундук , куда скидывать полные кеги#
uo.addobject('kegs2')
while uo.targeting()
wait(200)
wend
wait(2000)
#указываем таргетом на - что сливать#
uo.addtype('regi')
while uo.targeting()
wait(200)
wend
wait(2000)
Var i
Dim b[1000]
For i=1 to 1000
repeat
UO.FindType('0x1940',-1,'kegs')
b=Uo.GetSerial('finditem')
If UO.FindCount('b')>0 then
end if
until UO.FindCount('b')>0
Uo.Moveitem(b,'backpack')
wait(1500)
repeat
Uo.FindType('regi','backpack')
wait(1500)
If UO.FindCount('regi')>0 then
Uo.moveitem('finditem','0',b)
wait(2500)
end if
until uo.InJournal("Charges now: [25/ 50]")
wait(1500)
Uo.moveitem(b,'0','kegs2')
wait(2500)
Uo.DeleteJournal()
next
end sub
 
MaG1StR_YodaДата: Пятница, 26.06.2020, 18:04 | Сообщение # 4
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Скрипты на перелив 25/75
Варка по макро он

sub alchemy()
#указываем таргетом на сундук с пустыми кегами#
uo.addobject('kegs')
while uo.targeting()
wait(200)
wend
wait(2000)
#Указываем таргетом на сундук , куда скидывать полные кеги#
uo.addobject('kegs2')
while uo.targeting()
wait(200)
wend
wait(2000)
#указываем таргетом на - что сливать#
uo.addtype('regi')
while uo.targeting()
wait(200)
wend
wait(2000)
Var i
Dim b[1000]
For i=1 to 1000
repeat
UO.FindType('0x1940',-1,'kegs')
b=Uo.GetSerial('finditem')
If UO.FindCount('b')>0 then
end if
until UO.FindCount('b')>0
Uo.Moveitem(b,'backpack')
wait(1500)
repeat
Uo.FindType('regi','backpack')
wait(1500)
If UO.FindCount('regi')>0 then
Uo.moveitem('finditem','0',b)
wait(2500)
end if
until uo.InJournal("Charges now: [25/ 75]")
wait(1500)
Uo.moveitem(b,'0','kegs2')
wait(2500)
Uo.DeleteJournal()
next
end sub
 
  • Страница 1 из 1
  • 1
Поиск: