Открываешь меню заказа,
,infogump
и смотришь где находится цифра количества заказов. Их там должно быть несколько если меню не меняли.
берешь любую и делаешь что то типа такого:
Code:
sub zakaz()
var A
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'ТУТ НАПИШИ НАЗВАНИЯ ОКНА' then ; названия я не помню. Например Привет 'Привет, добытчик!' со знаками!
A = val(GetWord(uo.LastGump('text', 3), 1)) ; Строка третья, число первое до пробела или знака препинания.
uo.print('Всего предметов на заказ = ' +str(A))
wait(500+uo.random(25)*25)
endif
endif
end sub
# (c) Edred #
SUB GetWord(st,nom)
VAR tmpst, i, kol = 0, start = 0
VAR j, m, delimiters = ' ,:;.!?"()[]*'
for i=0 to len(st)
for j=0 to len(delimiters) - 1
if mid(st,i,1)==delimiters[j] or i==len(st) then
kol = kol + 1
if kol==nom then
tmpst = mid( st, start, i - start )
return tmpst
else
for m = 0 to len(delimiters) - 1
while mid(st,i,1)==delimiters[m]
i = i + 1
m = 0
wend
next
if kol==nom - 1 then
start = i
endif
endif
endif
next
next
tmpst = ''
return tmpst
end sub
PS естественно это все актуально для старого окна. Новые если не такие то работать могет и небыть.
PPS у меня там потерлись акки походу. Новее посоветовать не могу