написал скрипт на скупку,13 рун,но единственная фигня,когда медитируешь,если подымается скил медитации,то полный стояк,как избавитсяvar buylistname='tobuy'
var numspots=13
sub Pokupka()
DIM Spot[13]
Spot[0]='0x12345678'
Spot[1]='0x12345678'
Spot[2]='0x12345678'
Spot[3]='0x12345678'
Spot[4]='0x12345678'
Spot[5]='0x12345678'
Spot[6]='0x12345678'
Spot[7]='0x12345678'
Spot[8]='0x12345678'
Spot[9]='0x12345678'
Spot[10]='0x12345678'
Spot[11]='0x12345678'
Spot[12]='0x12345678'
Spot[13]='0x12345678'
var j=0
UO.Print("Начинаем скупку!")
For j=0 To numspots-1
GoToByRune(Spot[j])
UO.Buy(buylistname)
wait(3000)
next
end sub
Sub GoToByRune(rune)
Spot:
UO.DeleteJournal()
ManaCheck()
UO.Cast("Recall",rune)
while NOT UO.InJournal("fizzle") AND NOT UO.InJournal("charges")
If UO.InJournal("fizzle") Then
goto Spot
EndIf
End Sub
Sub ManaCheck()
If UO.mana<15 Then
while UO.mana<100
UO.UseSkill('Meditation')
while NOT UO.InJournal('You must') AND UO.Mana<100 AND NOT UO.InJournal("You lose")
wait(500)
wend
UO.DeleteJournal()
wend
EndIf
end Sub
Помогите со скупкой
Moderators: Murderator+, Murderator
Помогите со скупкой
-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
Попробуй так:
На DRW - работает. Или, после проверки журнала, поставь задержку поменьше 200 или 100.
Code: Select all
while uo.mana < uo.int
UO.UseSkill("Meditation")
UO.DeleteJournal()
while not uo.injournal("You are at peace") and not UO.InJournal("You lose your concentration")
wait(200)
wend
wendCode: Select all
while NOT UO.InJournal('You must') AND UO.Mana<100 AND NOT UO.InJournal("You lose") Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел.
)
Code: Select all
var idrunehome
cast: ;метка
idrunehome = "0x404D14BB"
uo.deletejournal()
if UO.mana > 20 then
uo.cast("Recall",idrunehome)
wait(3700)
endif
if uo.injournal("The spell fizzle") then
goto cast: ;переход на метку cast:
endifреспект,всё работает,спасибоADEPT_ABP wrote:Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел.)
Code: Select all
var idrunehome cast: ;метка idrunehome = "0x404D14BB" uo.deletejournal() if UO.mana > 20 then uo.cast("Recall",idrunehome) wait(3700) endif if uo.injournal("The spell fizzle") then goto cast: ;переход на метку cast: endif
Однажды мне заманало на Маркете набирать имена вендоров вкупе с BUY.
Вот. Пробуйте.
Не помню только работает или нет? Не тестил. 
Вот. Пробуйте.
Code: Select all
sub main()
UO.AddObject('vendor')
UO.Print('С кем торгуем?')
while UO.Targeting()
wait(10)
wend
wait(1000)
uo.say(uo.GetName('vendor')+" buy")
end sub-
Scripts Writer
- Posts: 2259
- Joined: 2005-04-19 18:00:29
- Location: Московская область
- Contact:
СтрокаADEPT_ABP wrote:Однажды мне заманало на Маркете набирать имена вендоров вкупе с BUY.
Вот. Пробуйте.Не помню только работает или нет? Не тестил.Code: Select all
sub main() UO.AddObject('vendor') UO.Print('С кем торгуем?') while UO.Targeting() wait(10) wend wait(1000) uo.say(uo.GetName('vendor')+" buy") end sub
Code: Select all
uo.say(uo.GetName('vendor')+" bye")п.с. Еще можно добавить клик по объекту перед тем как произнести его имя.
На ДРВ есть 3 локации в которых собраны вендоры игроков. Когда по столбу попадаешь в одну из этих локаций имена показываются сразу у всех, так что работать наверно будет.Mihail wrote: будет работать при условии что ты хоть раз видел имя вендора
Ты это кому? mort-у? Так он в самом верху(правда не совсем рабочий). Если мне, то - у меня нет такого скрипта. Scripts Writer - пошлёт в поиск(я кстати там нашёл всяких разных). И ещё немало-важный момент, - 100% работающих скриптов - небывает. Любой если работает, то не долго. Так как есть нюанс с железом... да и по мелочи. Ведь шарды и инжекты бывают разные.+GhosT+ wrote:Выложи полныи скрипт на скупку !
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Использую инжект 505.18 VeNd0r
Начинающий скриптер.