Прошу подкоректировать скрниптик

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Reaman
Posts: 14
Joined: 2005-08-28 16:44:48

Прошу подкоректировать скрниптик

Post by Reaman »

Code: Select all

sub main2()

VAR sunduk='0x40BBB188'; Сундук - логи, айрон
VAR derevo='0x1BDD'
VAR iron='0x1BEF'

while not UO.Hidden()


UO.UseSkill("Stealth")
wait(4100)
wend

UO.UnSetCatchBag()


wait(3000)
UO.FindType( derevo, -1, sunduk )
UO.Grab( Str( 100 ), 'finditem' )
wait(5000)



UO.FindType( iron, -1, sunduk )
UO.Grab( Str( 100 ), 'finditem' )
wait(5000)
var time
var maxtime=5000
UO.Automenu('Tinkering','Tools')
UO.Automenu('Tools','lockpick')
UO.Set('finddistance','2')
up()
While True
#########################
UO.Findtype('0x1BEF','-1','backpack')
if UO.Findcount('finditem') == 0 then
up()
endif
UO.Findtype('0x1BDD','-1','backpack')
if UO.Findcount('finditem') == 0 then
up()
endif
#########################
time=0
CheckLag()
UO.UseType('0x1EBC')
Repeat
time=time+100
wait(100)
Until UO.InJournal('put') or UO.InJournal('fail') or time>maxtime
wend
end sub


Пробывал изменить сам поэтому может и напортачил где то, вроде все делает так как нужно, но после того как он потратит ресурс каторый в сумке ...повторно брать нехочет прошу помощи у знающих.

Раньше брал ресу с пола щас надо чтоб брал их из сундука .

Взаранее Спосибо !

P.S. Играю на антарасе...
Post Reply