Skript for Переплавка

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
oper of Ocllo
Posts: 11
Joined: 2004-06-25 10:23:52

Skript for Переплавка

Post by oper of Ocllo »

Skript for Переплавка
У когонить есть скрипт на переплавку (в инги)
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

http://yoko.netroof.net/forum/viewforum.php?f=8


Там и не только на переплавку
oper of Ocllo
Posts: 11
Joined: 2004-06-25 10:23:52

Post by oper of Ocllo »

не мне надобно чтоб из (к примеру) Breastplate он плавил в инготы
Bloodmoon
Posts: 128
Joined: 2004-06-23 08:55:32

Post by Bloodmoon »

Че-то ты очень много хочешь:)!Шучу:)!!!
Yoko
Site Admin
Posts: 1964
Joined: 2004-04-03 16:49:38
Contact:

Post by Yoko »

вот скелет скрипта

while ...
uo.waittargettype("breast_type")
uo.usefromground("forge_type")
wait(delay_ms)
wend

конечно на разных шардах разные алгоритмы переплавки, и раз ты не указал какой именно то сам переделаешь если надо
Daioh
Posts: 63
Joined: 2004-06-28 19:06:26
Contact:

Post by Daioh »

Code: Select all

sub main()
   Var Forge='0x401C966B'
   Var C=1
   dim Armors[10]
   Armors[1]='0x13F0'
   Armors[2]='0x13BF'
   Armors[3]='0x1415'
   Armors[4]='0x13EC'
   Armors[5]='0x1411'
   Armors[6]='0x13EE'
   Armors[7]='0x13EB'
   Armors[8]='0x13BE'
   Armors[9]='0x1410'
   for c=1 to 9
      while UO.Count(Armors[c])
      UO.waittargettype(Armors[c])
      UO.UseObject(Forge)
      CheckLag()
      wait(500)
      wend
   next
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

Скрипт под ДРВ. Если нужно, меняйте типы(в данный момент плавит все виды железных арморов(насчет цветных - хз - выньте на всякий пожарный из бекпека), кроме перчаток, горгеток, шлемов и щитов
Post Reply