Page 1 of 1
Ограничение на количество
Posted: 2013-01-03 16:59:12
by CxC
есть так
Code: Select all
if UO.InJournal("30") then
quantity = 30
endif
потом так
надо, чтоб в один момент quantity, равное, исходя из журнала, 30 было умножено на 4
что-то типо
но так не катит
Re: Ограничение на количество
Posted: 2013-01-03 17:11:49
by Mirage
Code: Select all
sub main()
var quantity = 30
uo.print('X = ' +str(quantity))
uo.print('X*4 = ' +str(quantity*4))
end sub
Твой пациент:
str(quantity*4)
PS не выдумай определять количество предметов в сундуке по журналу. Фу фу фу...
Re: Ограничение на количество
Posted: 2013-01-03 17:16:41
by CxC
Mirage wrote:
Твой пациент:
str(quantity*4)
PS не выдумай определять количество предметов в сундуке по журналу. Фу фу фу...
Спасибо, потестю
Это немного другое, нежели количество предметов в сундуке )
Re: Ограничение на количество
Posted: 2013-01-03 17:20:47
by Mirage
Code: Select all
sub main()
var x, y, z
UO.FindType( '0x0EED', 0, 'my' ) ; несколько кучек золота в паке
if UO.FindCount() > 0 Then
y=str(UO.FindCount()*5)
z=str(val(y)-1)
endif
uo.print('x = ' +z)
end sub
Можно еще вот так издеваться.
PS тут где то есть математические операторы.
Re: Ограничение на количество
Posted: 2013-01-03 17:23:22
by Mirage
Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты
Re: Ограничение на количество
Posted: 2013-01-03 17:23:51
by CxC
Mirage wrote:Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты
можно подробнее
через
,infogump мне как-то не последний гамп выдает
Re: Ограничение на количество
Posted: 2013-01-03 17:27:43
by CxC
вот так не работает
Code: Select all
UNTIL UO.GetQuantity('finditem')>=str(quantity*4)
или надо ввести дополнительную переменную
и потом
Code: Select all
UNTIL UO.GetQuantity('finditem')>=y
Re: Ограничение на количество
Posted: 2013-01-03 17:38:11
by Mirage
Открываешь меню заказа,
,infogump
и смотришь где находится цифра количества заказов. Их там должно быть несколько если меню не меняли.
берешь любую и делаешь что то типа такого:
Code: Select all
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 у меня там потерлись акки походу. Новее посоветовать не могу
Re: Ограничение на количество
Posted: 2013-01-03 17:42:40
by CxC
Mirage wrote:Открываешь меню заказа,
,infogump
и смотришь где находится цифра количества заказов. Их там должно быть несколько если меню не меняли.
берешь любую и делаешь что то типа такого:
PS естественно это все актуально для старого окна. Новые если не такие то работать могет и небыть.
на инфогамп всегда вылетает
Code: Select all
_____infogump_______
serial 0x40fc0f95
gumpid 0x000004c9
X 0
Y 30
706 packet size
23 reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
1] OMOVE
2] esizepic 0 0 83 400 20
3] HECKERTRANS 5 5 390 19
4] ext 115 20 67
5] ext 25 40 95
6] ext 220 40 95
7] ext 45 65 1161
8] ext 220 65 1161
9] utton 25 68 1209 1210 1 0
10] ext 45 85 1161
11] ext 220 85 1161
12] utton 25 88 1209 1210 1 0
13] ext 65 160 67
Text: ____________
0] Национальная Лотерея
1] Купить билет
2] Призовой фонд
3] 1 кредит
4] 8 кред.
5] 1000 монет
6] 205250 монет
7] Соискателей Премии Варнера: 14
Reply: ___________
[0000] primary reply
Checks&Radios (0)
Entryes (0)
меня мой вариант устраивает, до ума его б довести ) так и не разобрался с *4
посмотри пост выше или зайди в асю )
Re: Ограничение на количество
Posted: 2013-01-03 18:02:35
by CxC
разобрался с количеством ) немного тупил