Page 1 of 1
скупка
Posted: 2005-05-04 14:54:46
by POPKA
помагите плиз вставить сюда проверку на вес и рекол с выкладкой тавара в сёйф при достижения определённого веса
Code: Select all
sub max()
VAR RespDelay=1120000
UO.Set('buydelay','3500')
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('bb')
Repeat
UO.Exec('warmode 0')
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000)
Else
wait(RespDelay)
EndIf
Wend
end sub
Posted: 2005-05-04 15:16:07
by Destruction
Ну, как описал проблему - таков тебе и ответ:
Дописываешь в любое место:
if uo.Weight > XXX then
:recall
uo.recall(...)
uo.deletejournal()
repeat
wait(500)
if uo.injournal(ФИЗЛ) then
goto recall
endif
until uo.getx()==XXX && uo.gety()==XXX
repeat
uo.findtype(тип)
uo.drophere('finditem')
until uo.count(тип)==0
Posted: 2005-05-04 17:01:59
by POPKA
Destruction wrote:Ну, как описал проблему - таков тебе и ответ:
Дописываешь в любое место:
if uo.Weight > XXX then
:recall
uo.recall(...)
uo.deletejournal()
repeat
wait(500)
if uo.injournal(ФИЗЛ) then
goto recall
endif
until uo.getx()==XXX && uo.gety()==XXX
repeat
uo.findtype(тип)
uo.drophere('finditem')
until uo.count(тип)==0
это по руно буку? можно зделать чтоб он ещё и возвращался и запускал занова по кругу
Posted: 2005-05-04 19:40:39
by Destruction
:theMetka
тут скрипт
if uo.Weight > XXX then
:recall
uo.recall(...)
uo.deletejournal()
repeat
wait(500)
if uo.injournal(ФИЗЛ) then
goto recall
endif
until uo.getx()==XXX && uo.gety()==XXX
repeat
uo.findtype(тип)
uo.drophere('finditem')
until uo.count(тип)==0
uo.recall(...)
goto theMetka
Posted: 2005-05-04 20:09:57
by POPKA
Code: Select all
sub theMetka
sub max()
VAR RespDelay=1120000
UO.Set('buydelay','3500')
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('bb')
Repeat
if uo.Weight > 650 then
uo.recall(...)
uo.deletejournal()
repeat
wait(500)
if uo.injournal(ФИЗЛ) then
goto recall
endif
until uo.getx()==2822 && uo.gety()==667
repeat
uo.findtype(тип)
uo.drophere('finditem')
until uo.count(тип)==0
uo.recall(...)
goto theMetka
UO.Exec('warmode 0')
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000)
Else
wait(RespDelay)
EndIf
Wend
end sub
end sub
похоже?