Page 1 of 1
некласы (помогите с доработкой)
Posted: 2007-10-21 08:03:29
by lpushech
Code: Select all
VAR sunduk='0x403E666A'; Where are ingots, bag
VAR sundukk='0x403E666A'; where necklace will go
VAR meshok='0x0E76';type of bag
VAR iron='0x1BEF'
VAR smeshok
VAR Exit=0, LastTimer
VAR a=0
sub main()
repeat
while not UO.Hidden()
UO.UseSkill("Hiding")
wait(3000)
wend
UO.UnSetCatchBag()
wait(300)
UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 250 ), 'finditem' ) ; если будет айро в конце падать в мешок, увеличить цифру
wait(3000)
UO.SetCatchBag(sundukk)
UO.FindType( meshok, -1, sunduk )
UO.Grab( Str( 1 ), 'finditem' )
wait(2000)
smeshok=UO.GetSerial('finditem')
a=0
UO.SetCatchBag(smeshok)
wait(1000)
BS()
end sub
sub BS()
repeat
wait(250)
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.findtype('0x1EBC')
UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace')
UO.UseType('0x1EBC')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
wait(250)
wend
wait (250)
if UO.InJournal('You put') then
a = a + 1
wait(200)
endif
If a==1 then ;when get iron
Dobor()
EndIf
UO.DeleteJournal()
until a==255 ;how much necklaces will be in 1 bag
moveIM()
end sub
sub moveIM()
UO.Unsetcatchbag()
UO.FindType( iron, -1, -1 )
UO.MoveItem( 'finditem', 0, sunduk )
wait(3000)
until FALSE
end sub
sub Dobor()
wait(500)
UO.UnSetCatchBag()
wait(300)
UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 250 ), 'finditem' )
wait(3000)
UO.SetCatchBag(smeshok)
wait(1000)
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('Backpack')
end sub
вот собственно сам скрипт, проблема в том, что когда он наполняет мешок в 255 итемов, он начинает менять мешок и почемуто выбирает тот же мешок в котором 255 итемов и начинает крафтить некласы, пытается переместить в тот мешок но он полный и он кладет неклас в мои бекпак. Помогите пожалуйста, подправьте так чтобы после наполнения мешка выбирал другой мешок и складывал все в него
Posted: 2007-10-21 09:04:59
by Scripts Writer
Code: Select all
VAR sunduk='0x403E666A'; Where are ingots, bag
VAR sundukk='0x403E666A'; where necklace will go
VAR meshok='0x0E76';type of bag
VAR iron='0x1BEF'
VAR smeshok
VAR Exit=0, LastTimer
VAR a=0
sub main()
repeat
while not UO.Hidden()
UO.UseSkill("Hiding")
wait(3000)
wend
UO.UnSetCatchBag()
wait(300)
UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 250 ), 'finditem' ) ; если будет айро в конце падать в мешок, увеличить цифру
wait(3000)
UO.SetCatchBag(sundukk)
UO.FindType( meshok, -1, sunduk )
UO.Grab( Str( 1 ), 'finditem' )
wait(2000)
smeshok=UO.GetSerial('finditem')
a=0
UO.SetCatchBag(smeshok)
wait(1000)
BS()
end sub
sub BS()
repeat
wait(250)
UO.DeleteJournal()
LastTimer=UO.Timer()
uo.findtype('0x1EBC')
UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace')
UO.UseType('0x1EBC')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
wait(250)
wend
wait (250)
if UO.InJournal('You put') then
a = a + 1
wait(200)
endif
If a==1 then ;when get iron
Dobor()
EndIf
UO.DeleteJournal()
until a==255 ;how much necklaces will be in 1 bag
moveIM()
end sub
sub moveIM()
UO.Unsetcatchbag()
UO.FindType( iron, -1, -1 )
UO.MoveItem( 'finditem', 0, sundukk )
wait(3000)
until FALSE
end sub
sub Dobor()
wait(500)
UO.UnSetCatchBag()
wait(300)
UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 250 ), 'finditem' )
wait(3000)
UO.SetCatchBag(smeshok)
wait(1000)
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(100)
until UO.InJournal('Backpack')
end sub
Posted: 2008-09-26 02:50:42
by Sm1eMan
Хоть бы спасибо сказал, а то скрипт получил и свалил, вот из-за таких как ты и нехотят люди помагать
Posted: 2008-09-26 18:41:26
by Sm1eMan
хотяяяяя, скрипт просто продублирован а его ахелесова пята не исчезла
