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

Подсчёт ингов в сундуке
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13097		 Page 1 of 1
Author:  Nominee [ 2008-01-20 19:23:58 ]
Post subject:  Подсчёт ингов в сундуке
Как бы написать скрипт, что бы при запуске появлялся таргет - им клацать на сундук, и скрипт выводил в UO.Text ( Тектовое окно типа как выдаёт ,info ) инфу формала
10 Iron Ingots
20 Rusty Ingots

и тд, дайте мне наброски, а типы и цвета я и сам втулю ) Заранее спасибо
Author:  stickman [ 2008-01-21 00:18:25 ]
Post subject: 
считает руду. переделай.
Code:
######################
### накалякал Купер (c) =)###
######################
sub kolvo2() 
DIM rud[4] 
var vsego = 0 
var cvet = 0 
var prost = 0 
var i, sunduk 
rud[0] = '0x19B7' # 1 штука 
rud[1] = '0x19BA' # 2 штуки 
rud[2] = '0x19B8' # 3 штуки 
rud[3] = '0x19B9' # больше 3х штук 

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

UO.UseObject('sunduk') 
wait(1000) 
For i = 0 to 3 
  UO.FindType(rud[i], '-1', 'sunduk') 
   While UO.FindCount() > 0 
    If UO.GetColor('finditem') == '0x0000' then 
     prost = prost + UO.GetQuantity('finditem') 
     UO.Ignore('finditem') 
     UO.FindType(rud[i], '-1', 'sunduk') 
    else 
     cvet = cvet + UO.GetQuantity('finditem') 
     UO.Ignore('finditem') 
     UO.FindType(rud[i], '-1', 'sunduk') 
    endif 
   wend 
next 
vsego = prost + cvet 

UO.Print('У тебя в сундуке всего ' + str(vsego) + ' руды') 
UO.Print('Из них ' + str(cvet) +' цветной и ' + str(prost) + ' простой') 
UO.IgnoreReset() 
endsub
Author:  Kynep [ 2008-01-21 09:09:37 ]
Post subject: 
stickman wrote:
считает руду. переделай.

Ипать этож мой скрипт ))) копирайты не забываем. :twisted:
Ваапще то человеку надо не много подругому. Ему нужно с выводом в текст окно имен, где то я видел тут такой скрипт.
Author:  stickman [ 2008-01-21 10:53:14 ]
Post subject: 
дык а че ты скрипты без копирайтов пишешь))
Author:  Kynep [ 2008-01-21 10:56:22 ]
Post subject: 
Попробуй так:
Code:
sub kolvo2() 
DIM rud[4] 
var name 
var i, sunduk 
rud[0] = '0x19B7' # 1 штука 
rud[1] = '0x19BA' # 2 штуки 
rud[2] = '0x19B8' # 3 штуки 
rud[3] = '0x19B9' # больше 3х штук 

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 3 
  UO.FindType(rud[i], '-1', 'sunduk') 
   While UO.FindCount() > 0 
      UO.Click('finditem')
      wait(100)
      name = UO.GetName('finditem')
      UO.TextPrint(name)
      UO.Ignore('finditem')
      UO.FindType(rud[i], '-1', 'sunduk') 
   wend 
next 
UO.Print('Закончили') 
UO.IgnoreReset() 
endsub
Author:  Nominee [ 2008-01-21 16:32:59 ]
Post subject: 
Огромное спасибо, всё работает =))))
Author:  Kynep [ 2008-01-21 16:37:20 ]
Post subject: 
Nominee wrote:
Огромное спасибо, всё работает =))))


Не за что :roll: рад был помочь.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/