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

Подсчет стоимости руды
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13132		 Page 1 of 1
Author:  Avel Mink [ 2008-01-26 23:30:38 ]
Post subject:  Подсчет стоимости руды
В общем нужно в скрипт добавить нехитрые математические действия

Кроме того, что он записывает количество и название руды, нужно чтоб он извлекал кол-во руды и умножал на 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:
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


Заранее спасибо за хлопоты
Author:  Kynep [ 2008-01-27 08:11:54 ]
Post subject:  Re: Подсчет стоимости руды
Avel Mink wrote:
В общем нужно в скрипт добавить нехитрые математические действия

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

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


Ну попробуй так:
Code:
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
Author:  Avel Mink [ 2008-01-27 11:44:35 ]
Post subject: 
Большое спасибо
Author:  Kynep [ 2008-01-27 13:56:38 ]
Post subject: 
Avel Mink wrote:
Большое спасибо


Не за что ) :roll:
Author:  Fenixsis [ 2008-02-09 12:09:44 ]
Post subject: 
Тогда еще вопрос а где можно продать руду в моем случае это купер агопит и.т.д просто руду в слитках, что-то делать лень а накопилось много.... Помница были вендоры которые скупали, возможно узнать расположение :) заранее благодарен.... Шард DRW
Author:  Avel Mink [ 2008-02-09 16:36:05 ]
Post subject: 
На шарде Дрв поставили на дуал арене и на маркетах селл столбы, через них можно много чего продать, в том числе и металл, кста куплю металл от расти до бронзы дороже селлстоуна. Стучи 206095534
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/