Yoko

All sides of Injection
It is currently 2025-12-23 16:03:28

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
PostPosted: 2008-01-26 23:30:38 
Offline

Joined: 2007-12-30 14:23:05
Posts: 48
В общем нужно в скрипт добавить нехитрые математические действия

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


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


Top
   
PostPosted: 2008-01-27 08:11:54 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
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


Top
   
 Post subject:
PostPosted: 2008-01-27 11:44:35 
Offline

Joined: 2007-12-30 14:23:05
Posts: 48
Большое спасибо


Top
   
 Post subject:
PostPosted: 2008-01-27 13:56:38 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Avel Mink wrote:
Большое спасибо


Не за что ) :roll:


Top
   
 Post subject:
PostPosted: 2008-02-09 12:09:44 
Offline
User avatar

Joined: 2004-08-25 01:28:18
Posts: 49
Тогда еще вопрос а где можно продать руду в моем случае это купер агопит и.т.д просто руду в слитках, что-то делать лень а накопилось много.... Помница были вендоры которые скупали, возможно узнать расположение :) заранее благодарен.... Шард DRW


Top
   
 Post subject:
PostPosted: 2008-02-09 16:36:05 
Offline

Joined: 2007-12-30 14:23:05
Posts: 48
На шарде Дрв поставили на дуал арене и на маркетах селл столбы, через них можно много чего продать, в том числе и металл, кста куплю металл от расти до бронзы дороже селлстоуна. Стучи 206095534


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited