дайте пожалуйста скрипт на плавку айрон фуллов на дрв

Anything and all.

Moderators: Murderator+, Murderator

Locked
BRYAN
Posts: 8
Joined: 2005-01-31 05:44:14

дайте пожалуйста скрипт на плавку айрон фуллов на дрв

Post by BRYAN »

заранее спасибо
The Cheater
Posts: 86
Joined: 2005-02-08 15:39:19
Location: D.R.W.
Contact:

Re: дайте пожалуйста скрипт на плавку айрон фуллов на дрв

Post by The Cheater »

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

Code: Select all

#плавка железа
#подходим к форже и запускаем скрипт
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
у меня есть 400 мешочков в каждом по 255 никлейсов,один никлейс-32гп всё влом пойти загнать..
BRYAN
Posts: 8
Joined: 2005-01-31 05:44:14

Post by BRYAN »

еще раз спасибо
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

Code: Select all

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
прописываем ид форжи тыкаем на мешочек где лежат айтемы для плавления, тыкаем на айтем который будем плавить...
сплавит все айтемы из мешка того же типа/цвета что и указанный образец.
Locked