neo007 wrote:Есть у когонить скрипт штобы брал шафты и перья из сундука и делал по 1 стреле или болту и складывал их обратно в этот сундук???
Если есть и нежалко выложите его.
Code: Select all
#####################################################################
; Bowcraft2. v.1.03b (c) Edred
;
; Чар берет из сундука шафты и перья, крафтит из них стрелы и
; складывает эти стрелы в этот же сундук.
; Если шафты или перья закончились - выход.
;
sub bowcraft2()
VAR Sunduk = '0x404CFAA3' ; Сериал сундука
VAR Shafts = '0x1BD4' ; Тип шафтов
VAR Feather = '0x1BD1' ; Тип перьев
VAR Arrows = '0x0F3F' ; Тип стрел
VAR Kolvo = 1 ; Брать шафтов для одного крафта
VAR k = 0, j
UO.CancelMenu()
UO.AutoMenu ('Select arrow type', 'arrow' )
While TRUE
If UO.Count( Shafts ) == 0 Then
UO.FindType( Shafts, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Shafts not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Shafts ) < Kolvo
wait(100)
wend
CheckLag()
Endif
If UO.Count( Feather ) == 0 Then
UO.FindType( Feather, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Feather not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Feather ) < Kolvo
wait(100)
wend
CheckLag()
Endif
UO.DeleteJournal()
UO.UseType( Shafts )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Arrows ) > 0 then
UO.FindType( Arrows, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Arrows ) > 0
wait(100)
wend
UO.Print( 'Arrows moved' )
Endif
Wend
end sub
Edred wrote:neo007 wrote:Есть у когонить скрипт штобы брал шафты и перья из сундука и делал по 1 стреле или болту и складывал их обратно в этот сундук???
Если есть и нежалко выложите его.Code: Select all
#####################################################################
; Bowcraft2. v.1.03b (c) Edred
;
; Чар берет из сундука шафты и перья, крафтит из них стрелы и
; складывает эти стрелы в этот же сундук.
; Если шафты или перья закончились - выход.
;
sub bowcraft2()
VAR Sunduk = '0x404CFAA3' ; Сериал сундука
VAR Shafts = '0x1BD4' ; Тип шафтов
VAR Feather = '0x1BD1' ; Тип перьев
VAR Arrows = '0x0F3F' ; Тип стрел
VAR Kolvo = 1 ; Брать шафтов для одного крафта
VAR k = 0, j
UO.CancelMenu()
UO.AutoMenu ('Select arrow type', 'arrow' )
While TRUE
If UO.Count( Shafts ) == 0 Then
UO.FindType( Shafts, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Shafts not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Shafts ) < Kolvo
wait(100)
wend
CheckLag()
Endif
If UO.Count( Feather ) == 0 Then
UO.FindType( Feather, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Feather not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( Feather ) < Kolvo
wait(100)
wend
CheckLag()
Endif
UO.DeleteJournal()
UO.UseType( Shafts )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Arrows ) > 0 then
UO.FindType( Arrows, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Arrows ) > 0
wait(100)
wend
UO.Print( 'Arrows moved' )
Endif
Wend
end sub
Ни хрена не помню, боукрафт на шафты я для соседнего раздела кидал, а кидал ли на стрелы... не помню.