|
|
|
Инскрипт
| |
| MaG1StR_Yoda | Дата: Пятница, 26.06.2020, 20:24 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| Тут собраны почти все ходовые скролы , в каждом сабе отдельно нужно прописать айдишник сундука
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
sub Cure()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F37' # готовый скрол, тип
var reg1 = '0x0F85' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F84'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( 0x0F85, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( 0x0F84, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 2 spells', 'Select', 'Cure' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub GreaterHeal()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F49' # готовый скрол, тип
var reg1 = '0x0F85' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F8D'
var reg3 = '0x0F86'
var reg4 = '0x0F84'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( reg4, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 4 spells', 'Select', 'Greater Heal' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg4 ) > 0 then
UO.FindType( reg4, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Recall()
var Sunduk = '0x5CFBC390' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F4C' # готовый скрол, тип
var reg1 = '0x0F7B' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
var reg3 = '0x0F7A'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 4 spells', 'Select', 'Recall' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Lait()
var Sunduk = '0x5CFBC390' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F4A' # готовый скрол, тип
var reg1 = '0x0F7A' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
var reg3 = '0x0F8C'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 4 spells', 'Select', 'Lightning' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub MagicReflection()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F50' # готовый скрол, тип
var reg1 = '0x0F84' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
var reg3 = '0x0F8D'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 5 spells', 'Select', 'Magic Reflection' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Paralyze()
var Sunduk = '0x5CFBC390' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F52' # готовый скрол, тип
var reg1 = '0x0F84' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
var reg3 = '0x0F8D'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 5 spells', 'Select', 'Paralyze' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Curse()
var Sunduk = '0x5CFBC390' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F47' # готовый скрол, тип
var reg1 = '0x0F84' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F88'
var reg3 = '0x0F8C'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg3, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 4 spells', 'Select', 'Curse' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub EnergyBolt()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F56' # готовый скрол, тип
var reg1 = '0x0F7A' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F88'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 6 spells', 'Select', 'Energy Bolt' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Bless()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F3D' # готовый скрол, тип
var reg1 = '0x0F84' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F86'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 3 spells', 'Select', 'Bless' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub WallStone()
var Sunduk = '0x6E71461D' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F44' # готовый скрол, тип
var reg1 = '0x0F7B' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F84'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 3 spells', 'Select', 'Wall of Stone' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub MagicArrow()
var Sunduk = '0x5CFBC390' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F32' # готовый скрол, тип
var reg1 = '0x0F8C' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F84'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( 0x0F8C, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( 0x0F84, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 1 spells', 'Select', 'Magic Arrow' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
sub Flamestrike()
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F5F' # готовый скрол, тип
var reg1 = '0x0F8C' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F8D'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 300 )
UO.FindType( reg2, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('100', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 7 spells', 'Select', 'Flamestrike' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
|
| |
| |
| MaG1StR_Yoda | Дата: Понедельник, 15.02.2021, 16:37 | Сообщение # 2 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| sub MB()#MIND BLAST# ВКЛЮЧИТЬ МАКРО ОН
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # бланк скрол, тип
var k = 0
var MakedScroll = '0x1F51' # готовый скрол, тип
var reg1 = '0x0F86' # сюда вписать реги, нужные для крафта
var reg2 = '0x0F8C'
var reg3 = '0x0F88'
var reg4 = '0x0F7A'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F86, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F8C, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F88, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F7A, -1, Sunduk ) # активировать для крафта других свитков
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 5 spells', 'Select', 'Mind Blast' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ; # активировать для крафта других свитков
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg4 ) > 0 then
UO.FindType( reg4, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
|
| |
| |
| MaG1StR_Yoda | Дата: Понедельник, 15.02.2021, 16:59 | Сообщение # 3 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| sub Poison()#Poison# Включить макро он
var Sunduk = '0x7EFBF3C3' # Сериал сундука
var Scroll = '0x0E34' # тайп бланка
var k = 0
var MakedScroll = '0x1F40' # Тайп готового скрола
var reg1 = '0x0F88' # тайп рега
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F88, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 3 spells', 'Select', 'Poison' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
|
| |
| |
| MaG1StR_Yoda | Дата: Понедельник, 15.02.2021, 17:05 | Сообщение # 4 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
| sub Dispel()#Dispel# Включить макро он
var Sunduk = '0x7EFBF3C3' # айди сундука с регами и пустыми бланками
var Scroll = '0x0E34' # тайп бланка
var k = 0
var MakedScroll = '0x1F55' # тайп готового скрола
var reg1 = '0x0F86'
var reg2 = '0x0F8C'
var reg3 = '0x0F88'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F86, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F8C, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
UO.FindType( 0x0F84, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab('50', 'finditem' )
wait( 300 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(5100)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Select', 'Circle 6 spells', 'Select', 'Dispel' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 300 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg2 ) > 0 then ;
UO.FindType( reg2, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
if UO.Count( reg3 ) > 0 then
UO.FindType( reg3, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 300 )
end if
Wend
end sub
|
| |
| |
|
