Page 1 of 1
Дайте Скрипт На Плавку Руды
Posted: 2007-03-25 08:46:57
by BattleNet
У нас на шарде, переплавку руды сделали по тупому : нельзя просто 2 раза кликнуть на руду чтобы она плавилась, нужно 2 раза кликнуть на плавилку, а потом на руду которую ты хочеш плавить.
Вот у меня получилось так, но не работает, подскажите пожааалуйста.
Code: Select all
sub smelting()
UO.FindType( 0x19B9 , -1 , 1 )
If UO.Findcount() == 0 Then
UO.Print( "Руды Нет" )
return
Endif
UO.Exec('moveitem finditem 3')
Wait(1000)
UO.UseObject( '0x40017C53' )
Wait(1000)
UO.WaitTargetObject( 'moveitem' )
wait(100)
endsub
Re: Дайте Скрипт На Плавку Руды
Posted: 2007-03-25 09:14:39
by Question_GimFlex
BattleNet wrote:У нас на шарде, переплавку руды сделали по тупому : нельзя просто 2 раза кликнуть на руду чтобы она плавилась, нужно 2 раза кликнуть на плавилку, а потом на руду которую ты хочеш плавить.
Вот у меня получилось так, но не работает, подскажите пожааалуйста.
Code: Select all
sub smelting()
UO.FindType( 0x19B9 , -1 , 1 )
If UO.Findcount() == 0 Then
UO.Print( "Руды Нет" )
return
Endif
UO.Exec('moveitem finditem 3')
Wait(1000)
UO.UseObject( '0x40017C53' )
Wait(1000)
UO.WaitTargetObject( 'moveitem' )
wait(100)
endsub
Code: Select all
sub smelting()
UO.FindType( 0x19B9 , -1 , 1 )
If UO.Findcount() == 0 Then
UO.Print( "Руды Нет" )
return
Endif
UO.Exec('moveitem finditem 3')
Wait(1000)
UO.WaitTargetObject( 'moveitem' )
wait(100)
UO.UseObject( '0x40017C53' )
Wait(1000)
endsub
Posted: 2007-03-25 09:50:27
by BattleNet
Неа, попробывал, не получилось, вот я бросил руду на землю, запускаю скрипт, он взял с земли 3 руды, потом появилось : Select Ore To Smelt, и скрипт выключился:(
Posted: 2007-03-25 10:00:39
by to4a
удивидельно, блин, что оно не работает...
UO.FindType( 0x19B9 , -1 , 1 ) - в кавычки взять
UO.WaitTargetObject( 'moveitem' ) - и что это за хрень такая moveitem? мб finditem?
тока я не пойму ты хочешь чтобы оно кучками по 3 плавил? тогда всё сложнее немного...
Posted: 2007-03-25 10:24:39
by BattleNet
Я ничайно написал вместо "FindItem" Moveitem )
Posted: 2007-03-25 10:27:40
by BattleNet
Я хочу, чтобы чар поднимал из кучки лежащей на земле 3 руды, и клал её в пак, потом юзал плавилку, и плавил ту руду которую он поднял, и положил в пак, т.е. 3 руды лежаших в паке, и повторял это действие.
Posted: 2007-03-25 12:44:37
by Question_GimFlex
ruda1-тип руды если куча >3
ruda2-тип руды если куча=3
Code: Select all
uo.set('finddistance','2')
uo.findtype(ruda1,cvet,'ground')
uo.moveitem('finditem','3','backpack')
wait(1000)
uo.findtype(ruda2,cvet,'backpack')
uo.waittargetobject('finditem')
uo.useobject(plavilka)
wait(500)
Posted: 2007-03-25 14:32:41
by BattleNet
я дебил, можете написать готовый скрипт???
Posted: 2007-03-25 17:36:38
by Question_GimFlex
BattleNet wrote:я дебил, можете написать готовый скрипт???
попытайся стать другим
Posted: 2007-03-26 23:13:09
by Ururu
Попробуй этот. Хз вроде похож.
Только в бекпаке кроме руды и 1 пустого мешка недолжно быть ничего больше (ни рунбук, ни спелбук, ни ключей и т.д.)
Code: Select all
#########################################################################
# Quick Mass Smelting Ore by Two ores ... for Antares #
# 1) В рюкзаке обязательно присутствие НЕ полного мешка #
# 2) В рюкзаке не желательно присутствие чего-либо кроме мешка и руды #
######### #### #### #### wrote by Recluse #### #### #### ########
# 1)После запуска скрипта укажите появившимся тагетом на ФОРЖУ #
# 2)После чего руда если она в Бэкапэ переместится в мешок #
#(мешок - произвольный если их несколько...надеюсь он не выберет полный)#
# 3)Затем инжект выложит красивыми кучками руду обратно в Бэкап :) #
# 4)И начнёт её плавить... #
# 5)Соберёт несгоревшую руду обратно в мешок #
# 6)И будет повторять 3-5 пока почти не кончится руда #
# 7)В бэкпаке останется чуть-чуть руды - плавьте ручками #
#########################################################################
sub MassSmeltingOreBy2()
var bag , i , j , forge
uo.findtype(0x0E76,-1,'backpack')
if uo.findcount() > 0 then
bag = uo.GetSerial('finditem')
uo.print('Show me FORGE.')
UO.exec('addobject forge')
while UO.targeting()
wait(200)
wend
uo.moveitem(bag,-1,'backpack','147','147','0')
uo.useobject(bag)
wait(200)
uo.findtype('0x19B9',-1,'backpack')
uo.moveitem('finditem',-1,bag)
wait(300)
while (uo.count('0x19B9') > 0)
i = 12
j = 12
while (uo.count('0x19B9') > 0) and (uo.count('0x19BA') < 425) and (i < 145) and (j<145)
uo.findtype('0x19B9',-1,bag)
uo.moveitem('finditem','2','backpack',str(i),str(j),'0')
wait(200)
if i==140 then
i = 4
j = j + 8
else
i = i + 8
end if
wend
while uo.count('0x19BA') > 0
uo.useobject('forge')
uo.waittargettype('0x19BA')
wait(300)
wend
while uo.count('0x19B7') > 0
uo.findtype('0x19B7',-1,'backpack')
uo.moveitem('finditem',-1,bag)
wait(200)
wend
wend
uo.findtype('0x19B7',-1,bag)
if uo.findcount() then
uo.Grab(-1,'finditem')
end if
uo.findtype('0x19BA',-1,bag)
if uo.findcount() then
uo.Grab(-1,'finditem')
end if
uo.findtype('0x19B8',-1,bag)
if uo.findcount() then
uo.Grab(-1,'finditem')
end if
end if
end sub
########################################################################
Posted: 2007-03-27 11:54:52
by BattleNet
я уже сам написал
Code: Select all
VAR plavilka = '0x40017C53'
VAR Ruda4 = '0x19B9'
VAR Ruda3 = '0x19B8'
VAR Ruda2 = '0x19B7'
VAR Ruda1 = '0x19BA'
sub smelting()
while uo.life>0
UO.FindType( Ruda4, -1, 1)
Wait(300)
UO.Exec( "moveitem finditem 3" )
Wait(300)
UO.WaitTargetType( Ruda3 )
wait(300)
UO.UseObject ( plavilka )
wait(300)
UO.WaitTargetType( Ruda1 )
wait(300)
UO.Drop('0x19BA')
wait(300)
UO.WaitTargetType( Ruda2 )
wait(300)
UO.Drop('0x19B7')
UO.FindType( Ruda3, -1, 1)
Wait(300)
UO.Exec( "moveitem finditem 3" )
Wait(300)
UO.WaitTargetType( Ruda3 )
wait(300)
UO.UseObject ( plavilka )
wait(400)
wend
endsub