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

Переделайте плиз
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14312		 Page 1 of 1
Author:  vavanu4 [ 2009-01-21 15:32:57 ]
Post subject:  Переделайте плиз
Помогите плиз зделать скрипт на ДРВ чтобы Чар делал заместь Некласав Дагеры кувал.... Руду чтобы я вписывал сам с какой кувать....




VAR Cont1 = '0x400A4EFA' ;ресурсы и пустые мешки
VAR Cont2 = '0x4013ED31' ;сундук де будут лежать полные мешки
VAR Count = 300 ;какое количество ресусров бёрем
var Tools = '0x1EBC' ;инструмент, при котором появляется
var Creat = '0x1085' ;тип созданной вещи(удочка, даггер и т.д.)
VAR Food = '0x097B' ;тип еды, кторую будем кушать
var Bag = '0x0E76' ;тип мешочков
var Source = '0x1BEF'
var BagSer, i=0, fizl=0, control=5, time, z


sub tinkIron()
UO.CancelMenu()
UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','necklace')
if UO.Count(Tools) > 0 then
UO.FindType(Tools,'-1','backpack')
UO.AddObject('objTools','finditem')
main()
end if
UO.CancelMenu()
end sub

sub main()
var CountSource = 1 ;кол-во разных типов сырья, которые мы возьмем из сундука
Open('backpack')
NewBag()
if UO.Count(Source) then
UO.FindType(Source,'0x0000', 'backpack')
UO.MoveItem('finditem','-1',Cont1)
wait(1000)
end if
UO.FindType(Source,'0x0000', Cont1)
UO.Grab(STR(Count),'finditem')
wait(1000)
CheckLag()
while UO.Count(Source) > 0
if UO.Count(Source) < 2 then
UO.FindType(Source,'0x0000', Cont1)
UO.Grab(STR(Count),'finditem')
wait(1000)
endif
UO.DeleteJournal()
UO.UseObject('objTools')
Repeat
wait(500)
Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ')
While UO.Count(Creat)>0
UO.FindType(Creat,'-1',-1)
UO.MoveItem('finditem','0',BagSer)
If UO.Count(Creat)>0 then
FastLootCheck()
endif
if UO.InJournal("Too many items") then
NewBag()
endif
Wend
Wend
UO.CancelMenu()
;Detect_Hidden()
end sub

sub Open(Container)
UO.DeleteJournal()
UO.UseObject(Container)
wait(500)
end sub

sub FastLootCheck()
UO.DeleteJournal()
wait(450)
If UO.InJournal("FastLoot") OR UO.InJournal("World save") then
UO.Click('backpack')
repeat
wait(300)
until UO.InJournal('backpack')
Endif
end sub

sub NewBag()
Open(Cont1)
Open(Cont2)
ToEat()
UO.FindType(Bag, -1, Cont1)
UO.Print('Ok')
;if UO.FindCount() < 1 then
; Detect_Hidden()
;end if
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, Cont2)
wait(1000)
end sub

sub ToEat()
UO.FindType('0x097B', '0x0000',Cont1)
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','backpack')
else
return
end if
repeat
CheckLag()
uo.UseType('0x097B')
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
wait(100)
wend
until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't")
UO.FindType('0x097B', '0x0000','backpack')
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','Cont1')
end if
end sub


sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
Author:  ADEPT_ABP [ 2009-01-21 15:42:29 ]
Post subject: 
Гы, в каждой теме, одно и тоже. 8)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/