Yoko

Вот собсна скрипт на подсчёт ГП в окне трейда... работает как надо, но вот задача, взбрело мне в голову сделать разделение на ГП, К, КК... т.е вместо 1234567 выводило бы.... 1КК.234К.567Гп... есть у кого какие предложения?... у меня едуя была тока методом перебора... вычислять сколькизначное число и Mid-ом... вырезать ГП, К, КК.... но там будет геморно

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

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кк

Во спасибо... топик клоз

Сам скрипт:

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

Sfagnum еще 1 большущий сеньк

засмущали ёптить

Дык за такое и поблагодарить нельзя?

Эй! харош флудить в моём топике....

Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?

_________________
Сделал дело - флуди смело !!!

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

Снупингом вскрываю бакпак левочара и мне кажется что если он закрыт то быстрее качается. Может я и ошибаюсь.

_________________
Сделал дело - флуди смело !!!

Ну тогда попробуй установить дистанцию маленькую(2-3) и просто отходи и подходи... по идее тоже должен закрываться

не спортивно
вот еслиб командой какой закрывать вот это да
да в принципе и так качается
чё мозги то парить

_________________
Сделал дело - флуди смело !!!

Гыыы а попробуй CloseUO точно закроется...
Зато спортивно, одной командой

Флудерасты ёпт...!!! )

ну так ёптыть !!!

_________________
Сделал дело - флуди смело !!!

Мля

_________________
Все просто.
BETEPAH ™