Скрипт на Подсчет денег в Окошке. !

[666Man666]

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

Code: Select all

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

[Sfagnum]

Code: Select all

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

[666Man666]

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

Сам скрипт:

Code: Select all

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

[Morgan]

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

[Sfagnum]

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

[Morgan]

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

[666Man666]

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

[Askaneli]

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

[Goggy]

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

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

[Askaneli]

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

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

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

[Goggy]

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

[Askaneli]

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

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

[Goggy]

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

[666Man666]

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

[Askaneli]

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

[BETEPAH]

Мля