поправьте плз

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

поправьте плз

Post by Sp »

вот скрипт:
sub tailoring3()
VAR Sunduk = "0x4002C755"
VAR Kozha = "0x1067"
VAR Kit = "0x0F9D"
VAR Scrol = "0x1DB9"
VAR k
UO.CancelMenu()
wait(500)
UO.AutoMenu( "Leather Armour", "Leather Armour", "leather cap" )
While TRUE
If UO.Count( Kozha ) == 0 Then
UO.FindType( Kozha, '-1', Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Leathers not found, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait(500)
while UO.Count( Kozha ) ==
wait(100)
wend
Endif
UO.DeleteJournal()
UO.WaitTargetType( Kozha )
UO.UseType( Kit )
k = 0
while NOT UO.InJournal('item is of') AND NOT UO.InJournal('Tailoring failed.') AND ( k < 50 )
k = k + 1
wait(300)
wend
if UO.Count( Scrol ) > 0 then
UO.FindType( Scrol )
UO.MoveItem( 'finditem', '0', Sunduk )
wait( 500 )
while UO.Count( Scrol ) > 0
wait(100)
wend
endif
Wend
UO.CancelMenu()
end sub


почему то из сундука берет тока одну еденицу кожи...как сделать что бы больше брал?
grundick
Posts: 258
Joined: 2006-11-25 17:44:44

Re: поправьте плз

Post by grundick »

Sp wrote:вот скрипт:
sub tailoring3()
VAR Sunduk = "0x4002C755"
VAR Kozha = "0x1067"
VAR Kit = "0x0F9D"
VAR Scrol = "0x1DB9"
VAR k
UO.CancelMenu()
wait(500)
UO.AutoMenu( "Leather Armour", "Leather Armour", "leather cap" )
While TRUE
If UO.Count( Kozha ) == 0 Then
UO.FindType( Kozha, '-1', Sunduk )
If UO.FindCount() == 0 Then
UO.Print("Leathers not found, script terminated")
return
Endif
UO.Grab( '1', 'finditem' ) <------------- '1' -это количество кожи.Вставь свою цифру.
wait(500)
while UO.Count( Kozha ) ==
wait(100)
wend
Endif
UO.DeleteJournal()
UO.WaitTargetType( Kozha )
UO.UseType( Kit )
k = 0
while NOT UO.InJournal('item is of') AND NOT UO.InJournal('Tailoring failed.') AND ( k < 50 )
k = k + 1
wait(300)
wend
if UO.Count( Scrol ) > 0 then
UO.FindType( Scrol )
UO.MoveItem( 'finditem', '0', Sunduk )
wait( 500 )
while UO.Count( Scrol ) > 0
wait(100)
wend
endif
Wend
UO.CancelMenu()
end sub


почему то из сундука берет тока одну еденицу кожи...как сделать что бы больше брал?


edited by SW:

Code: Select all

UO.Grab( '1', 'finditem' )
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

Post by Sp »

спасибо я понял..тока вот еще одна проблеммка появилась...

UO.AutoMenu( "Leather Armour", "Leather Armour", "leather cap" )

не хочет он делать капы...я правильно написал ?
grundick
Posts: 258
Joined: 2006-11-25 17:44:44

Post by grundick »

нет конечно. менюшки идут парами: надпись сверху, надпись снизу. а у тебя три строки
Sp
Posts: 83
Joined: 2005-07-22 13:43:25

Post by Sp »

?? не понял а как это будет выглядеть не напишеь?
какая надпись сверху надпись снизу?
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Уроки для таких как ты были писаны
grundick
Posts: 258
Joined: 2006-11-25 17:44:44

Post by grundick »

uo.waitmenu('надпись сверху1','надпись снизу1','надпись сверху2','надпись снизу2','надпись сверзу3','надпись внизу3')
Post Reply