Yoko

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

,massmove 1000

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

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

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

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

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

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

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

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

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

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

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

Ну ты монстр Свежая вроде 501....

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

Тот скрипт не рулит!
Вот в этом скрипте нет того чтобы он из сундука перекладывал по 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

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