Page 1 of 1
Скрипт на Подсчет денег в Окошке. !
Posted: 2005-02-16 10:37:54
by 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
Posted: 2005-02-16 11:52:47
by 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кк
Posted: 2005-02-16 12:33:52
by 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
Posted: 2005-02-16 22:07:38
by Morgan
Sfagnum еще 1 большущий сеньк
Posted: 2005-02-17 00:45:24
by Sfagnum
засмущали ёптить
Posted: 2005-02-17 01:05:26
by Morgan
Дык за такое и поблагодарить нельзя?
Posted: 2005-02-17 07:26:20
by 666Man666
Эй! харош флудить в моём топике....
Posted: 2005-02-17 07:46:33
by Askaneli
Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?
Posted: 2005-02-17 08:00:49
by Goggy
Askaneli wrote:Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?
Если ты неможешь его поднять, то просто попробуй его Грабнуть или Мувануть он закроется точно
Posted: 2005-02-17 08:07:44
by Askaneli
Goggy wrote:Askaneli wrote:Позволю себе вклинится и задать ещё 1 вопрос.
Как закрыть контейнер ?
Если ты неможешь его поднять, то просто попробуй его Грабнуть или Мувануть он закроется точно
Снупингом вскрываю бакпак левочара и мне кажется что если он закрыт то быстрее качается. Может я и ошибаюсь.
Posted: 2005-02-17 08:20:26
by Goggy
Ну тогда попробуй установить дистанцию маленькую(2-3) и просто отходи и подходи... по идее тоже должен закрываться
Posted: 2005-02-17 08:22:40
by Askaneli
Goggy wrote:Ну тогда попробуй установить дистанцию маленькую(2-3) и просто отходи и подходи... по идее тоже должен закрываться
не спортивно
вот еслиб командой какой закрывать вот это да
да в принципе и так качается
чё мозги то парить
Posted: 2005-02-17 08:31:57
by Goggy
Гыыы а попробуй CloseUO
точно закроется...
Зато спортивно, одной командой
Posted: 2005-02-17 08:57:11
by 666Man666
Флудерасты ёпт...!!! )
Posted: 2005-02-17 09:22:59
by Askaneli
ну так ёптыть !!!
Posted: 2005-02-17 10:49:40
by BETEPAH
Мля