Есть у когонить скрипт штобы брал шафты и перья из сундука и делал по 1 стреле или болту и складывал их обратно в этот сундук???
Если есть и нежалко выложите его.
Крафт стрел или болтов!!!
Moderators: Murderator+, Murderator
Re: Крафт стрел или болтов!!!
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
Re: Крафт стрел или болтов!!!
Он на дрв пашет ?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