Ограничение на количество

[CxC]

есть так

Code: Select all

if UO.InJournal("30")  then  
  quantity = 30
endif

потом так

Code: Select all

  UNTIL UO.FindCount()>=quantity

надо, чтоб в один момент quantity, равное, исходя из журнала, 30 было умножено на 4
что-то типо

Code: Select all

  UNTIL UO.FindCount()>=quantity*4

но так не катит

[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 не выдумай определять количество предметов в сундуке по журналу. Фу фу фу...

[CxC]

Твой пациент:
str(quantity*4)

PS не выдумай определять количество предметов в сундуке по журналу. Фу фу фу...

Спасибо, потестю
Это немного другое, нежели количество предметов в сундуке )

[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 тут где то есть математические операторы.

[Mirage]

Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты

[CxC]

Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты

можно подробнее
через
,infogump мне как-то не последний гамп выдает

[CxC]

вот так не работает

Code: Select all

UNTIL UO.GetQuantity('finditem')>=str(quantity*4)

или надо ввести дополнительную переменную

Code: Select all

y=str(quantity*4)

и потом

Code: Select all

UNTIL UO.GetQuantity('finditem')>=y

[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 у меня там потерлись акки походу. Новее посоветовать не могу

[CxC]

Открываешь меню заказа,
,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
посмотри пост выше или зайди в асю )

[CxC]

разобрался с количеством ) немного тупил