Yoko

Алгоритм:
Происк карты сокровищ в паке, таргет на лопату, на карту и под себя.
если сообщение You found a treasure! новый поиск, если нет то игнорирование карты.

При написании возникла проблема с таргетами и игнорированием объекта, если кто поможет буду очень благодарен.

чот ты намудрил... там 2 прицела дОлжно быть... а что на что не помню
что там юзается лопата или карта...

лопата -карта -место
0x0F39 тип лопаты.

фигня у меня получается....

uo.waittargettile('0',str(uo.getx()),str(uo.gety()),str(uo.getz()))
uo.usetype('0x0F39')
uo.finditem('карта','карта','backpack')
while uo.findcount() >0 
uo.waittargetobject('finditem','lasttile')
uo.usetype('0x0F39')
uo.ignore('finditem')

#тут чего то ждёшь ;)

uo.finditem('карта','карта','backpack')
wend

за прицел не ручаюсь... но хз... хз... может и получится.

соединю то что у меня и это мож получится то что хочу =)

главное отпиши подошло ли

ЗЫ. ИМХО проще проверять координаты карты... если диапозон влизает в нужный +/- 3 от твоих координат... тодыть копать

не проще поверь )
здесь разброс получается может быть больше.

не подошло ошибку выдает - uo.finditem
вообщем как и у меня.

ну надеюсь ты значения 'карта' и 'карта' сменил на тип и цвет карты соответственно? и вообще покажи этот кусок как ты в живую пользовать пробывал.

"новый поиск" - чего поиск ?
Поиск карт с такой же координатой на текущем тайле (потому
что бывает на 1-ом тайле 2 клада) или ты имеешь ввиду
остановку скрипта, для перехода чара на другой тайл ?
Опиши подробней смысл скрипта. Тогда может с остальным смогу
помоч.

Вот код с для наведения первого прицела на карту, вторго на
твои координаты (под чара ), после юзанья лопаты.

....
UO.FindType('0x14EB',-1,2)
UO.UseObject('LOPATA')
UO.WaitTargetObject('finditem')
UO.WaitTargetTile('0',STR(UO.GetX()),STR(UO.GetY()),'0')
...

Проверь на месте, я тестил без откапывания.

sub Ter()
Var tmap,i
for i=1 to UO.Count('0x14EB')
UO.DeleteJournal()
UO.FindType('0x14EB',-1,2)
tmap=UO.GetSerial('finditem')
UO.UseObject('LOPATA')
UO.WaitTargetObject('finditem')
UO.WaitTargetTile('0',STR(UO.GetX()),STR(UO.GetY()),'0')
wait(200)
if UO.InJournal("You feel that you are") then
UO.Ignore(tmap,'on')
EndIF
next
UO.IgnoreReset()
end sub

_________________
Smog[PK]

Может кто поможет со скриптом просто этот не работает.
Хотелось бы чтоб все же чар мог капать вокруг себя клады ..
Скажем так чтоб то что здесь, какбы задумано осущиствилось ..
Заранее спасибо ...

sub Ter()
Var shovel,tmap,i,kolM,ch
kolM=UO.Count('0x14EB')
for i=1 to kolM
UO.DeleteJournal()
UO.FindType('0x14EB',-1,2)
tmap=UO.GetSerial('finditem')
UO.UseObject('0x40330563')
UO.WaitTargetObject('finditem')
wait(250) 
UO.WaitTargetTile('0',STR(UO.GetX()),STR(UO.GetY()),'15')
wait(250) 
if UO.InJournal("You feel that you are") then
UO.Ignore(tmap,'on')
EndIF
next
UO.Print(STR(UO.GetX())+' - '+STR(UO.GetY()))
UO.IgnoreReset()
end sub

Странно была же тема ... и там было что то типа, пишите Сфагнуму в личку .... и там я обяснял про "поведение" скрипта. Но ... честно в лом писать еще раз. Вообщем просто скажу что я копаю этим.

Я надеюсь ) что ты не один из тех пи....сов которые все время копают карты (4 лева) с моим домом и все время стараются меня убить.