есть два варианта
1)тот кто напишет мне скрипт на покупак по рунам то заплацу 1.5 кк на дрв
2)скуну куски скрипта на рекол и марк
Code:
var RuneB, RuneB2, RuneBag, RuneH, StoreBAG, Nrune
UO.Say("Укажите Сумку с Замарчеными рунками в вашем вещь-мешке.")
UO.AddObject('RuneB')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
UO.Say("Укажите ПУСТУЮ Сумку в паке (Для переброса рунок).")
UO.AddObject('RuneB2')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
UO.Say("Укажите Сумку в паке с кучей пустых рунок.")
UO.AddObject('RuneBag')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
UO.Say("Укажите Рунку ДОМ( положите ее отдельно в пак ).")
UO.AddObject('RuneH')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
UO.Say("Укажите сумку для покупок куда скидывать покупки (В СУНДУКЕ! )")
UO.AddObject('StoreBAG')
While UO.Targeting()==2
wait(500)
Wend
UO.SaveConfig()
uo.findtype('rune','-1','RuneB')
while uo.FindCount()
uo.findtype('rune','-1','RuneB')
Nrune=uo.GetSerial('finditem')
RecallRune(Nrune)
ContCharges()
BuyPRG()
uo.moveitem('Nrune','-1','RuneB2')
Nrune = 0
uo.findtype('rune','-1','RuneB')
wend
uo.findtype('rune','-1','RuneB2')
wait(100)
while uo.findcount()>0
uo.MoveItem('finditem',-1,'RuneB')
wait(1000)
uo.findtype('rune','-1','RuneB')
wait(100)
wend
until uo.dead()
end sub
Sub ContCharges()
var rID
uo.Print("проверка количества зарядов...")
wait(1000)
uo.DeleteJournal()
uo.click('Nrune')
wait(2000)
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then
rID = uo.GetSerial('Nrune')
Mark(rID,0)
end if
end sub
Sub ContChargesH()
var rID
uo.Print("проверка количества зарядов...")
wait(1000)
uo.DeleteJournal()
uo.click('RuneH')
wait(2000)
if Uo.Injournal("(2 charges)") OR Uo.Injournal("(1 charges)") then
rID = uo.GetSerial('RuneH')
Mark(rID,1)
end if
end sub
Sub Mark(RuneID,Place)
var mark_key = 0
uo.Print("Выбрасываем старую рунку... ")
uo.drophere(RuneID)
Uo.UseObject(RuneBag)
wait(500)
uo.findtype(rune,'-1',RuneBag)
if uo.FindCount() then
uo.moveitem("finditem",'-1','backpack')
wait(700)
else
var Emsg = "Нет пустых рунок!!"
FatalError(Emsg)
end if
while mark_key == 0
If Uo.Mana < 50 then
while Uo.Mana < Uo.Int
Uo.Useskill("Meditation")
wait(5000)
wend
endif
Uo.DeleteJournal()
wait(500)
Uo.Cast("Mark",'finditem')
wait(10000)
mark_key = 1
if Uo.Injournal("spell") then
mark_key = 0
endif
wend
mark_key = 0
Uo.WaitTargetObject('finditem')
if Place == 0 then
uo.Exec('addobject Nrune')
wait(1500)
else
uo.Exec('addobject RuneH')
wait(1500)
endif
end sub
Sub RecallRune(nowrune)
wait(1000)
uo.Print("улетаем по руне")
var oldX,oldY
oldX = Uo.GetX()
oldY = Uo.GetY()
Uo.Useskill("Meditation")
wait(5000)
Repeat
If Uo.Mana < 30 then
while Uo.Mana < Uo.Int
Uo.Useskill("Meditation")
wait(5000)
wend
endif
Uo.Cast("Recall",nowrune)
wait(8000)
Until oldX<>UO.GetX() AND oldY<>UO.GetY()
end sub
вот помоему ето всё что я отобрал со скрипта кто может ево зделать так чтобы работал потом я попробую зделать