|
Переливы Алхимия
|
|
| 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
|
| |
| |
