Вообщем нужно в етот скрипт карпентри, вставить скрипт еды.А то чтото у меня башка не варит. Вот скрипт карпентри
Код
var Container='0x40E2C1EA'
VAR Sunduk1 = '0x40E2C1EA' ;Пустые мешки
VAR Sunduk2 = '0x40E2C09A' ;Полные
VAR Meshok = '0x0E76' ;мешки
VAR MeshSer, d
VAR k
###################
sub main()
VAR LastTimer
repeat
UO.FindType( Meshok, -1, Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' )
wait( 2000 )
UO.MoveItem( MeshSer, 0, Sunduk2 )
k=0
repeat
if UO.Count( '0x1BDD' ) < 15 then
take()
endif
UO.DeleteJournal()
UO.WaitMenu ('Carpentry', 'Weapons', 'Weapons', 'Club' )
CheckLag()
UO.UseType( '0x1034' )
LastTimer=UO.Timer()
repeat
wait(300)
until UO.InJournal("You put") or UO.InJournal("fail") OR UO.Timer()>LastTimer+200
if UO.InJournal("You put") then
while UO.Count( '0x13B3' ) > 0
UO.FindType( '0x13B3', -1, -1 )
UO.MoveItem( 'finditem', 0, MeshSer )
wait( 500 )
k=k+1
uo.print('k='+str(k))
CheckLag()
wend
endif
until k>=250
until UO.DEAD()
end sub
####################
sub take()
DIM reg[1]
var i,n
reg[1]='0x1BDD'; logs
CheckLag()
while UO.Count(reg[1])<100
UO.FindType(reg[1],-1,Container)
n=UO.Count(reg[1])
UO.Grab(str(100-n),'finditem')
wait(100)
wend
end sub
####################
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('ackpack')
end sub
А вот скрипт еды
Код
sub eat()
UO.DeleteJournal()
repeat
if UO.Count('0x097B')>0 then ;еда ( fish stakes )
UO.UseType('0x097B') ; еда
wait(500)
else
return
end if
Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")
end sub
Ну или может есть у кого карпентри с самостоятельным питанием?
Сообщение отредактировал BullPower - 26.11.2006, 0:32