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

дайте пожалуйста скрипт на плавку айрон фуллов на дрв
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3174
Page 1 of 1

Author:  BRYAN [ 2005-02-22 01:28:34 ]
Post subject:  дайте пожалуйста скрипт на плавку айрон фуллов на дрв

заранее спасибо

Author:  The Cheater [ 2005-02-22 01:49:30 ]
Post subject:  Re: дайте пожалуйста скрипт на плавку айрон фуллов на дрв

BRYAN wrote:
заранее спасибо

Code:
#плавка железа
#подходим к форже и запускаем скрипт
var 1 = '****'#тайп железки1#
var 2 = '****'#тайп железки2#
var 3 = '****'#тайп железки3#
var 4 = '****'#тайп железки4#
var 5 = '****'#тайп железки5#
var 6 = '****'#тайп железки6#
sub main()       
while uo.count(1)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(1)
wait(200)
wend
while uo.count(2)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(2))
wait(200)
wend
while uo.count(3)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(3))
wait(200)
wend
while uo.count(4)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(4))
wait(200)
wend
while uo.count(5)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(5))
wait(200)
wend
while uo.count(6)>0)
uo.usefromground(0x0FB1)
uo.waittargettype(6))
wait(200)
wend
end sub

Author:  BRYAN [ 2005-02-22 07:48:15 ]
Post subject: 

еще раз спасибо

Author:  Sfagnum [ 2005-02-22 09:10:59 ]
Post subject: 

Code:
sub SmeltTrush()
var tType, cType, Forge='0x4015F387'
   UO.Print('Откуда тырим?')
   uo.addobject('objFrom')
   while uo.Targeting()
      wait(200)
   wend
   UO.UseObject('objFrom')
   CheckLag()
   UO.Print('Что брать то?')
   uo.addobject('objType')
   while uo.Targeting()
      wait(200)
   wend
   tType = uo.GetGraphic('objType')
   cType = uo.GetColor('objType')
   UO.Findtype(tType,cType,'objFrom')
   while UO.GetQuantity('finditem')>0
      UO.MoveItem('finditem',-1,'backpack')      
      CheckLag()
      UO.FindType(tType,cType,'backpack')
      If UO.GetQuantity('finditem') then
         UO.WaitTargetObject('finditem')
         UO.UseObject(Forge)
         wait(3000)
         CheckLag()
      Endif
      if UO.Weight > UO.STR*4 then
         UO.FindType('0x1BEF','0x0000','backpack')
         UO.MoveItem('finditem',-1,'objFrom')
         CheckLag()
      end if
      UO.Findtype(tType,cType,'objFrom')
   wend
end sub
прописываем ид форжи тыкаем на мешочек где лежат айтемы для плавления, тыкаем на айтем который будем плавить...
сплавит все айтемы из мешка того же типа/цвета что и указанный образец.

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/