Code: sub inscript()
var Sunduk = '0x4002ED12' ; Сериал сундука
var Scroll = '0x0E34' ; бланк скрол, тип
var k = 0
var MakedScroll = '0x1F32' ; готовый скрол, тип
var reg1 = '0x0F88' ; сюда вписать реги, нужные для крафта
var reg2 = '0x0F7A'
var reg3 = ''
var reg4 = ''
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( 2000 )
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( 2000 )
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( 2000 )
; UO.FindType( reg3, -1, Sunduk )
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(100), 'finditem' )
; wait( 2000 )
; UO.FindType( reg4, -1, Sunduk )
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(100), 'finditem' )
; wait( 2000 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(1000)
Wend
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(1000)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Spell', 'First', 'Spell', '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( 500 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
wend
; if UO.Count( reg1 ) > 0 then
; UO.FindType( reg1, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
; if UO.Count( reg2 ) > 0 then ; активировать для крафта других свитков
; UO.FindType( reg2, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
; if UO.Count( reg3 ) > 0 then
; UO.FindType( reg3, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
; if UO.Count( reg4 ) > 0 then
; UO.FindType( reg4, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
Wend
end sub
|