Code:
sub spisok(vendor,sector)
dim m[23]
m[1] = 'Electrum'
m[2] = 'Snow'
m[3] = 'Silver'
m[4] = 'Sky'
m[5] = 'Steel'
m[6] = 'Monk`s'
m[7] = 'Blood'
m[8] = 'Bronze'
m[9] = 'Gold'
m[10] = 'Scorpion'
m[11] = 'Fire'
m[12] = 'Red Devil`s'
m[13] = 'Brilliance'
m[14] = 'Water'
m[15] = 'Crystal'
m[16] = 'Black'
m[17] = 'Crusader`s'
m[18] = 'Assasin'
m[19] = 'Druid`s'
m[20] = 'Ice'
m[21] = 'Acid'
m[22] = 'Copper'
m[23] = 'Goblin`s'
var i,j,k,s=0, KolTov
var X,Y,kol,tovar,cena,name,hozjain
uo.warmode(0)
UO.RClick(Xclick,Yclick)
CheckLag()
wait(200)
uo.useobject(vendor)
CheckLag()
wait(200)
uo.useobject(vendor)
CheckLag()
wait(200)
uo.deletejournal()
UO.LDblClick(Xclick,Yclick)
CheckLag()
wait(200)
if uo.injournal('данный момент') || uo.injournal('open profile') || uo.LastGump('gumpid')<>gumptype then
CheckLag()
wait(200)
uo.ignore(vendor)
return 0
end if
if uo.LastGump('gumpid')<>gumptype then
UO.RClick(400,300)
CheckLag()
wait(200)
end if
while not f.eof()
s=safe call f.ReadLn()
wend
X=str(uo.getx(vendor))
Y=str(uo.gety(vendor))
name=uo.GetName(vendor)
hozjain=uo.LastGump('text',0)
for i=0 to len(hozjain)
if mid(hozjain,i,1)=='ц' then
hozjain=mid(hozjain,i+2,len(hozjain)-(i+2))
end if
next
KolTov=uo.LastGump('text',1)
for i=0 to len(KolTov)
if mid(KolTov,i,1)==':' then
KolTov=val(mid(KolTov,i+2,len(KolTov)-(i+2)))
end if
next
if KolTov==0 then
UO.LDblClick(Xclick,Yclick)
CheckLag()
s=safe call f.writeln('товара нет - '+m[sector]+' - '+hozjain+'`s Vendor - '+name+'('+X+','+Y+')')
CheckLag()
wait(200)
uo.ignore(vendor)
return 0
end if
#*****************************
while true
for j=2 to 21
k=uo.LastGump('text',j)
if k=='N/A' then
UO.LDblClick(Xclick,Yclick)
CheckLag()
wait(200)
uo.ignore(vendor)
return 0
end if
for i=0 to len(k)
if mid(k,i,4)==' за ' || mid(k,i,4)==' по ' then
kol=kolichestvo(k)
if kol==0 then
tovar=mid(k,0,i)
kol='1'
else
tovar=mid(k,kol+1,i-(kol+1))
kol=mid(k,0,kol)
end if
cena=mid(k,i+4,len(k)-(i+4))
end if
next
for i=0 to len(cena)
if mid(cena,i,6)==' монет' then
cena=mid(cena,0,i)
end if
next
#*********************************
s=safe call f.writeln(tovar+' - '+cena+'gp - '+kol+' - '+name+'('+X+','+Y+') - '+hozjain+'`s - '+m[sector]+'')
next
KolTov=KolTov-20
if KolTov<=0 then
UO.LDblClick(Xclick,Yclick)
CheckLag()
wait(200)
uo.ignore(vendor)
return 0
end if
UO.LClick(172,146)
CheckLag()
wait(100)
wend
end sub
Ну и + сюда ходилка и некоторые модули на поиск, координаты и так далее.
Есть вот такой скрипт, году в 2008 писал его сам с гирником на пару под Антарес, на сбор всей инфы о рынке (обход всех вендоров и перелистывание всех товаров) в Excel табилицу с сортировкой по секторам, ценам, вещам, их количестве, хозяине вендора, нике вендора и так далее. Он идеально отличал все нюансы текста, всех знаков и так далее. Его мы через гампы делали, а тут надо с журналом работать. А с журналом у меня проблемы. Может в нашем старом скрипте есть твой "дюже секретный" вариант?)) Но я не силен в функциях по журналу (
Помогай ещё !
Т.е. грубо это будет один из под_скриптов в большом циклическом скрипте
Цикл предназначен для условного ожидания, пока цифра изменится, когда цифра поменялась на -1, цифра может быть в интервале от 10 до 1, т.е. она всё время падает, сначала 10, потом через какое-то время становится 9. Но через какое, не факт, может и 2 секунды, а может и минута. Вот как только она поменялась, мне надо делать действие.