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

Скрипт на Подсчет денег в Окошке. !
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3120		 Page 1 of 1
Author:  666Man666 [ 2005-02-16 10:37:54 ]
Post subject:  Скрипт на Подсчет денег в Окошке. !
Вот собсна скрипт на подсчёт ГП в окне трейда... работает как надо, но вот задача, взбрело мне в голову сделать разделение на ГП, К, КК... т.е вместо 1234567 выводило бы.... 1КК.234К.567Гп... есть у кого какие предложения?... у меня едуя была тока методом перебора... вычислять сколькизначное число и Mid-ом... вырезать ГП, К, КК.... но там будет геморно :(
Code:
sub CheckGold()
var Type='0x0EED', Color='-1', Cont=UO.TradeContainer('right')
var item_amount = 0
If UO.TradeCount() Then
      REPEAT
      UO.FindType(Type, Color, Cont)
         If UO.FindCount() Then
               If UO.GetQuantity('finditem')==0 Then
                  item_amount = item_amount + 1
               Else
                  item_amount = item_amount + UO.GetQuantity('finditem')
               EndIf
            UO.Ignore('finditem')
            UO.FindType(Type, Color, Cont)
         EndIf
      Until UO.FindCount()==0 or UO.Dead()
   UO.IgnoreReset()
   UO.Print("Gold: "+STR(item_amount)+"Gp")
Else
   UO.Print("No Trade!")
EndIf
end sub
Author:  Sfagnum [ 2005-02-16 11:52:47 ]
Post subject: 
Code:
sub LongSumm(s)
var t = '', i
dim suf[3]
  suf[0] = 'gp'
  suf[1] = 'K '
  suf[2] = 'KK '
   for i = 0 to 2
      if len(s) > 3 then
         t = Right(s,3) + suf[i] + t
         s = left(s,len(s)-3)
      else
         t = s + suf[i] + t
      end if
   next
end sub
sub LongSumm(s)
где s - цифра в формате строки.
PS ограничение по сумме 999кк ;)
Author:  666Man666 [ 2005-02-16 12:33:52 ]
Post subject: 
Во спасибо... топик клоз :)

Сам скрипт:
Code:
sub CheckGold()
var Type='0x0EED', Color='-1', Cont=UO.TradeContainer('right')
var item_amount = 0, PrintText = '', i
Dim text[4]
    text[0] = 3
    text[1] = 'Gp'
    text[2] = 'K : '
    text[3] = 'Kk : '
If UO.TradeCount() Then
      REPEAT
         UO.FindType(Type, Color, Cont)
            If UO.FindCount() Then
                  If UO.GetQuantity('finditem')==0 Then
                     item_amount = item_amount + 1
                  Else
                     item_amount = item_amount + UO.GetQuantity('finditem')
                  EndIf
               UO.Ignore('finditem')
               UO.FindType(Type, Color, Cont)
            EndIf
      Until UO.FindCount()==0 or UO.Dead()
   UO.IgnoreReset()
   item_amount = STR(item_amount)
      For i = 1 TO text[0]
         If len(item_amount) > 3 Then
            PrintText = right(item_amount,3) + text[i] + PrintText
            item_amount = left(item_amount,len(item_amount)-3)
         Else
            PrintText = item_amount + text[i] + PrintText
            item_amount = '0'
         End If
      Next
   UO.Print("Gold: "+PrintText)
Else
   UO.Print("No Trade!")
EndIf
end sub
Author:  Morgan [ 2005-02-16 22:07:38 ]
Post subject: 
Sfagnum еще 1 большущий сеньк :D
Author:  Sfagnum [ 2005-02-17 00:45:24 ]
Post subject: 
засмущали ёптить ;)
Author:  Morgan [ 2005-02-17 01:05:26 ]
Post subject: 
Дык за такое и поблагодарить нельзя? :)
Author:  666Man666 [ 2005-02-17 07:26:20 ]
Post subject: 
Эй! харош флудить в моём топике.... :)
Author:  Askaneli [ 2005-02-17 07:46:33 ]
Post subject: 
Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?
Author:  Goggy [ 2005-02-17 08:00:49 ]
Post subject: 
Askaneli wrote:
Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?


Если ты неможешь его поднять, то просто попробуй его Грабнуть или Мувануть он закроется точно :mrgreen:
Author:  Askaneli [ 2005-02-17 08:07:44 ]
Post subject: 
Goggy wrote:
Askaneli wrote:
Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?


Если ты неможешь его поднять, то просто попробуй его Грабнуть или Мувануть он закроется точно :mrgreen:

Снупингом вскрываю бакпак левочара и мне кажется что если он закрыт то быстрее качается. Может я и ошибаюсь.
Author:  Goggy [ 2005-02-17 08:20:26 ]
Post subject: 
Ну тогда попробуй установить дистанцию маленькую(2-3) и просто отходи и подходи... по идее тоже должен закрываться :roll:
Author:  Askaneli [ 2005-02-17 08:22:40 ]
Post subject: 
Goggy wrote:
Ну тогда попробуй установить дистанцию маленькую(2-3) и просто отходи и подходи... по идее тоже должен закрываться :roll:

не спортивно
вот еслиб командой какой закрывать вот это да
да в принципе и так качается
чё мозги то парить
Author:  Goggy [ 2005-02-17 08:31:57 ]
Post subject: 
Гыыы а попробуй CloseUO :lol: :mrgreen: точно закроется...
Зато спортивно, одной командой :twisted:
Author:  666Man666 [ 2005-02-17 08:57:11 ]
Post subject: 
Флудерасты ёпт...!!! )
Author:  Askaneli [ 2005-02-17 09:22:59 ]
Post subject: 
ну так ёптыть !!!
Author:  BETEPAH [ 2005-02-17 10:49:40 ]
Post subject: 
Мля
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/