Подсчет стоимости руды

[Avel Mink]

В общем нужно в скрипт добавить нехитрые математические действия

Кроме того, что он записывает количество и название руды, нужно чтоб он извлекал кол-во руды и умножал на 4 (это для айрона). В конце суммировал всю стоимость.

вот список руды, цены на нее и данные

Iron х 4 -- "0x19B9" "0x0000"
Rusty х 12 -- "0x19B9" "0x0750"
Old Copper х 16 -- "0x19B9" "0x0590"
Dull Copper х 20 -- "0x19B9" "0x060A"
Copper х 24 -- "0x19B9" "0x0088"
Bronze х 28 -- "0x19B9" "0x0488"
Silver х 32 -- "0x19B9" "0x0482"
Gold х 36 -- "0x19B9" "0x0032"
Shadow х 40 -- "0x19B9" "0x096B"
Rose х 60 -- "0x19B9" "0x0014"
Agapite х 80 -- "0x19B9" "0x0193"

тут привожу код без подсчета для одной руды

Code: Select all

sub kolvo2() 
var name 
var sunduk 


uo.Print('Выбери сундук: ') 
uo.Exec('addobject sunduk') 
while uo.Targeting() 
wait(100) 
wend 

UO.UseObject('sunduk') 
wait(1000) 
UO.TextOpen() 
UO.TextClear() 
 UO.FindType('0x19B9', '0x0000', 'sunduk') 
   While UO.FindCount() > 0 
      UO.Click('finditem') 
      wait(100) 
      name = UO.GetName('finditem') 
      UO.TextPrint(name) 
 
      UO.Ignore('finditem') 
      UO.FindType('0x19B9', '0x0000', 'sunduk') 
   wend 
 UO.Print('Закончили') 
UO.IgnoreReset() 
endsub 

Заранее спасибо за хлопоты

[Kynep]

В общем нужно в скрипт добавить нехитрые математические действия

Кроме того, что он записывает количество и название руды, нужно чтоб он извлекал кол-во руды и умножал на 4 (это для айрона). В конце суммировал всю стоимость.

вот список руды, цены на нее и данные
Заранее спасибо за хлопоты

Ну попробуй так:

Code: Select all

sub kolvo2() 
var name, i, cen = 0, sum = 0
var sunduk 

DIM color[11]
color[0] = '0x0000'
color[1] = '0x0750'
color[2] = '0x0590'
color[3] = '0x060A'
color[4] = '0x0088'
color[5] = '0x0488'
color[6] = '0x0482'
color[7] = '0x0032'
color[8] = '0x096B'
color[9] = '0x0014'
color[10] = '0x0193'

DIM cena[11]
cena[0] = 4
cena[1] = 12
cena[2] = 16
cena[3] = 20
cena[4] = 24
cena[5] = 28
cena[6] = 32
cena[7] = 36
cena[8] = 40
cena[9] = 60
cena[10] = 80

uo.Print('Выбери сундук: ') 
uo.Exec('addobject sunduk') 
while uo.Targeting() 
wait(100) 
wend 

UO.UseObject('sunduk') 
wait(1000) 
UO.TextOpen() 
UO.TextClear()

for i = 0 to 10
 UO.FindType('0x19B9', color[i], 'sunduk') 
   While UO.FindCount() > 0 
      UO.Click('finditem') 
      wait(100) 
      name = UO.GetName('finditem') 
      cen = UO.GetQuantity('finditem') * cena[i]
      sum = sum + cen
      UO.TextPrint(name + ' на сумму ' + str(cen))
      UO.Ignore('finditem') 
      UO.FindType('0x19B9', color[i], 'sunduk')
   wend
next
 UO.TextPrint('Всего руды на сумму: ' + str(sum))
 UO.Print('Закончили') 
UO.IgnoreReset() 
endsub

[Avel Mink]

Большое спасибо

[Kynep]

Большое спасибо

Не за что )

[Fenixsis]

Тогда еще вопрос а где можно продать руду в моем случае это купер агопит и.т.д просто руду в слитках, что-то делать лень а накопилось много.... Помница были вендоры которые скупали, возможно узнать расположение заранее благодарен.... Шард DRW

[Avel Mink]

На шарде Дрв поставили на дуал арене и на маркетах селл столбы, через них можно много чего продать, в том числе и металл, кста куплю металл от расти до бронзы дороже селлстоуна. Стучи 206095534