Нужен простенький макросик

-=DenS=- · Post by **-=DenS=-** » 2005-02-21 20:54:03

Необходим простой макросик для перетаскивания из бекпака итемов вроде даггера, при прокачке БСа в другой мешок на полу, а то приходится умирать на Гвардах. Кто знает постаните плиз

Savage · Post by **Savage** » 2005-02-21 21:46:21

,massmove 1000

-=DenS=- · Post by **-=DenS=-** » 2005-02-21 21:58:38

сорри я не понимаю что надо именно чтобы из пака даггеры положить в какой либо мешок

Savage · Post by **Savage** » 2005-02-21 22:31:38

запустить эту команду и перетащить 1 даггер

-=DenS=- · Post by **-=DenS=-** » 2005-02-21 22:47:13

SAVAGE БЛАГОДАРСТВУЮ!

-=DenS=- · Post by **-=DenS=-** » 2005-02-21 22:53:52

а есть чтонить чтобы вендору быстро продать как нить?

Savage · Post by **Savage** » 2005-02-21 22:57:45

Если не на дрв то ,sell spisokprodaji vendorname
если на дрв то в зависимости от объема надо выставить задержку
,set buydelay 20000

список продажи организуется если нажать кнопку buy/sell на main, потом говоришь вендору sell типовой свиток продажи не появляется, а в список инжекта загружаются итемы которые можно продать. Нужно добавить итем к списку и можно использовать команду. Токо когда все настроишь сохранить не забудь на main.

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 00:46:13

респект!
Ты можешь мне посоветовать какой нить нормальный скрипт на логи по рунам чтобы рубил ходил, просто тут их очень много а какой конкретно брать я не знаю. Просто я работаю с инжой всего 5й день и еще многого не знаю. Мой шард (СССР) я был бы очень признателен!

Savage · Post by **Savage** » 2005-02-22 00:54:38

Попробуй сначала вот это, если непонравится ищи другие тут их много.
http://yoko.netroof.net/forum/viewtopic ... t=33336141

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 08:24:35

Savage я тут нашел скрипт на БС по созданию даггера из сундука, поставил свои ID сундука и форжы, он айрон в пак ко мне ложит а затыкается на самой менюхе где ему нжно искать дагге он не заходит никуда, может поможишь решить эту проблему, и если будет время удали в этом скрипте чтобы он не переплавлял руду т.к. у меня это нельзя делать на шарде. Заранее Благодарю!

sub Blacksmithing()
var Exit=0, LastTimer, Container='0x400019D8', Forge='0x40001072' ;Cундук в котором инги и форж.
var CountIng=100 ;Скока ингов поднимает чар
var MenuIron="'Blacksmithing' 'Weapons'"
var MenuOther="'Colored' 'Weapons'"
var MenuSwords="Weapons' 'Swords'"
var MenuDagger="'Swords' '(3'"
var i=0

dim ColorOfIng[6]
dim NameOre[6]

NameOre[0]="'"
NameOre[1]="'Rusty "
NameOre[2]="'Old Copper "
NameOre[3]="'Dull Copper "
NameOre[4]="'Bronze "

ColorOfIng[0]='0x0000' ; Iron
ColorOfIng[1]='0x0750' ; Rusty
ColorOfIng[2]='0x0590' ; Old Copper
ColorOfIng[3]='0x060A' ; Dull Copper
ColorOfIng[4]='0x0488' ; Bronze

uo.UseObject(Container)
while not uo.Dead()
for i=0 to 4
uo.FindType('0x1BEF',ColorOfIng[i],Container)
if uo.GetQuantity('finditem')>10 then
uo.Grab(STR(CountIng),'finditem')
wait(1000)

uo.Exec('automenu '+MenuDagger)
uo.Exec('automenu '+NameOre[i]+MenuSwords)
if i>0 Then
uo.Exec('automenu '+MenuOther)
end if
uo.Exec('automenu '+MenuIron)

While Exit<>1
uo.DeleteJournal()
LastTimer=uo.Timer()

uo.UseType(0x1BEF)

while not uo.InJournal("You put") and not uo.InJournal("You have failed")
wait(100)
wend

if uo.InJournal("You have failed") then
repeat
wait(100)
until uo.Timer()>=LastTimer+100 ; Время создания дагера
end if
CheckLag()

uo.FindType('0x0F51',-1,'backpack')

if uo.GetQuantity('finditem') then
uo.WaitTargetObject('finditem')
uo.UseObject(Forge)
wait(3000)
end if

uo.FindType('0x1BEF',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF',ColorOfIng[i],Container)
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BEF',ColorOfIng[i],'backpack')
uo.SetReceivingContainer(Container)
uo.Grab('all','finditem')
uo.UnSetReceivingContainer()
Exit=1
end if
else
wait(1000)
uo.Grab(STR(CountIng-10),'finditem')
end if
wend
Exit=0
uo.CancelMenu()
end if
next
wend
end sub

sub CheckLag()
if uo.Waiting()>0 then
uo.Exec("canceltarget")
end if
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 09:40:58

Savage может у меня старая версия инжи? если есть более новая скинь ссылку плз

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 09:41:37

я пока скачал от сюда 305.01

Savage · Post by **Savage** » 2005-02-22 10:10:22

Ну ты монстр

Свежая вроде 501....

По скрипту наверное прийдется перестраивать меню, распиши че там в меню написано сверху и снизу когда наводишь на нужный раздел.

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 10:31:09

Тот скрипт не рулит!
Вот в этом скрипте нет того чтобы он из сундука перекладывал по 3 инга руды в пак к себе, ты можешь описать чего не хватает? тут вроде еще не хватает ИД форжи

sub main()
var Container='0x40017AEE'
var count=0
repeat
UO.FindType('0x1BEF','0x0000',Container)
wait(1000)
UO.Waittargettype('0x1BEF')
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords & Blades','Swords & Blades','Dagger (3 ingots)')
UO.Usetype('0x13E3')
wait(1500)
if UO.InJournal("World save") then
wait(30000)
endif
UO.DeleteJournal()
count=0
while not (UO.InJournal("You put") or UO.InJournal("You fail")) and count<15
count=count+1
wait(300)
wend
if UO.count('0x0E7E')>-1 then
UO.waittargettype('0x0E7E')
UO.drop('0x0E7E')
endif
wait(3000)
until UO.Dead()
end sub

-=DenS=- · Post by **-=DenS=-** » 2005-02-22 10:32:08

Блин завис и постанул 2 раза ((