Yoko
http://forum.yoko.com.ua/

Ограничение на количество
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17147		 Page 1 of 1
Author:  CxC [ 2013-01-03 16:59:12 ]
Post subject:  Ограничение на количество
есть так
Code:
if UO.InJournal("30")  then  
  quantity = 30
endif

потом так
Code:
  UNTIL UO.FindCount()>=quantity

надо, чтоб в один момент quantity, равное, исходя из журнала, 30 было умножено на 4
что-то типо
Code:
  UNTIL UO.FindCount()>=quantity*4

но так не катит :oops:
Author:  Mirage [ 2013-01-03 17:11:49 ]
Post subject:  Re: Ограничение на количество
Code:
sub main()
var quantity = 30
uo.print('X = ' +str(quantity))
uo.print('X*4 = ' +str(quantity*4))
end sub


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

PS не выдумай определять количество предметов в сундуке по журналу. Фу фу фу...
Author:  CxC [ 2013-01-03 17:16:41 ]
Post subject:  Re: Ограничение на количество
Mirage wrote:
Твой пациент:
str(quantity*4)

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

Спасибо, потестю
Это немного другое, нежели количество предметов в сундуке )
Author:  Mirage [ 2013-01-03 17:20:47 ]
Post subject:  Re: Ограничение на количество
Code:
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 тут где то есть математические операторы.
Author:  Mirage [ 2013-01-03 17:23:22 ]
Post subject:  Re: Ограничение на количество
Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты :mrgreen:
Author:  CxC [ 2013-01-03 17:23:51 ]
Post subject:  Re: Ограничение на количество
Mirage wrote:
Кстати, на бесте можно через гамп собирать количество заказов (цифирькой) и крафтить автоматом нужные предметы. Стелсобот круглосуточно сдающий заказы и набивающий кредиты :mrgreen:

можно подробнее :mrgreen: :oops:
через
,infogump мне как-то не последний гамп выдает
Author:  CxC [ 2013-01-03 17:27:43 ]
Post subject:  Re: Ограничение на количество
вот так не работает
Code:
UNTIL UO.GetQuantity('finditem')>=str(quantity*4)

или надо ввести дополнительную переменную
Code:
y=str(quantity*4)

и потом
Code:
UNTIL UO.GetQuantity('finditem')>=y
Author:  Mirage [ 2013-01-03 17:38:11 ]
Post subject:  Re: Ограничение на количество
Открываешь меню заказа,
,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 у меня там потерлись акки походу. Новее посоветовать не могу :roll:
Author:  CxC [ 2013-01-03 17:42:40 ]
Post subject:  Re: Ограничение на количество
Mirage wrote:
Открываешь меню заказа,
,infogump
и смотришь где находится цифра количества заказов. Их там должно быть несколько если меню не меняли.
берешь любую и делаешь что то типа такого:
PS естественно это все актуально для старого окна. Новые если не такие то работать могет и небыть.

на инфогамп всегда вылетает

Code:
_____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
посмотри пост выше или зайди в асю )
Author:  CxC [ 2013-01-03 18:02:35 ]
Post subject:  Re: Ограничение на количество
разобрался с количеством ) немного тупил
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/