Page 1 of 1
Нужна небольшая помощь.
Posted: 2007-03-13 23:04:45
by pistik
Вот есть такой скрипт па плавку руды, хотелось бы чтобы его подправили, а точнее, чтобы он брал по две руды и плавил, и сплавлял в конце то что осталось по одной, хотел с этого слепить но что-то невышло, поэтому обращяюсь за помощью, в этом скрипте а уже что-то нахимичил.... но что-то неидёт как хотелось бы....
Code: Select all
sub SMELTING()
while uo.skillval('Mining') < 1300
UO.Findtype('0x19B9', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B8', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','backpack')
If UO.Findcount() == 0 Then
return
Endif
Endif
Endif
Endif
UO.moveitem('finditem','1','backpack',44,121,0 )
Wait(100)
UO.UseType('0x19BA')
Wait(100)
wend
end sub
Posted: 2007-03-14 07:27:52
by Nmy
Code: Select all
sub SMELTING()
while uo.skillval('Mining') < 1300
UO.Findtype('0x19B9', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B8', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19B7', '-1','backpack')
If UO.Findcount() == 0 Then
UO.Findtype('0x19BA', '-1','backpack')
If UO.Findcount() == 0 Then
return
Endif
Endif
Endif
Endif
UO.moveitem('finditem','2','backpack',44,121,0 )
Wait(100)
UO.UseObject('finditem')
Wait(100)
wend
end sub
Posted: 2007-03-14 08:47:58
by pistik
что-то неидёт, он бырёт первые две плавит, а потом всё переплавляет то что осталось
Posted: 2007-03-14 14:25:55
by Nmy
pistik wrote:что-то неидёт, он бырёт первые две плавит, а потом всё переплавляет то что осталось
плавь по одной
Posted: 2007-03-14 14:38:21
by pistik
Ладно уж, помогите хотя бы с тем чтобы он просто брал по две руды и плавил, а то шас на этом скрипте он один раз берёт по две плавит, а дальше всё разом перевлавляет.
Posted: 2007-03-14 18:57:17
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-14 21:27:40
by pistik
Ururu большое спасибо
