Page 1 of 1
Помогите со скупкой
Posted: 2007-07-13 14:54:51
by mort
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
написал скрипт на скупку,13 рун,но единственная фигня,когда медитируешь,если подымается скил медитации,то полный стояк,как избавится
Posted: 2007-07-13 15:04:13
by Scripts Writer
Телепаты в отпуске
Posted: 2007-07-13 18:01:08
by ADEPT_ABP
Попробуй так:
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
wend
На DRW - работает. Или, после проверки журнала
Code: Select all
while NOT UO.InJournal('You must') AND UO.Mana<100 AND NOT UO.InJournal("You lose")
, поставь задержку поменьше 200 или 100.
Posted: 2007-07-13 21:19:37
by mort
эту херню я решил,просто отключил отображение прироста скила на экране,у меня теперь другая трабла,если скрипт физлит рекол по руне,то он её пропускает,если ещё раз физл опять руну пропустит как исправить?
Posted: 2007-07-14 11:17:39
by ADEPT_ABP
Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел.
)
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
Posted: 2007-07-14 13:12:19
by mort
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
респект,всё работает,спасибо
Posted: 2007-07-19 23:47:40
by u0rypT
Есть готовый под оском. ЛС... хотя...
Posted: 2007-07-21 20:09:54
by ADEPT_ABP
Однажды мне заманало на Маркете набирать имена вендоров вкупе с 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
Не помню только работает или нет? Не тестил.
Posted: 2007-07-23 16:56:41
by Mihail
будет работать при условии что ты хоть раз видел имя вендора
Posted: 2007-07-23 18:29:47
by Scripts Writer
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")
в начале скрипта не помешает.
п.с. Еще можно добавить клик по объекту перед тем как произнести его имя.
Mihail wrote:будет работать при условии что ты хоть раз видел имя вендора
На ДРВ есть 3 локации в которых собраны вендоры игроков. Когда по столбу попадаешь в одну из этих локаций имена показываются сразу у всех, так что работать наверно будет.
Posted: 2007-07-23 19:01:08
by ADEPT_ABP
Scripts Writer wrote:" bye")
Это что?
Posted: 2007-07-24 11:11:46
by +GhosT+
Выложи полныи скрипт на скупку !
Posted: 2007-07-24 21:25:50
by ADEPT_ABP
+GhosT+ wrote:Выложи полныи скрипт на скупку !
Ты это кому? mort-у? Так он в самом верху(правда не совсем рабочий). Если мне, то - у меня нет такого скрипта. Scripts Writer - пошлёт в поиск(я кстати там нашёл всяких разных). И ещё немало-важный момент, - 100% работающих скриптов - небывает. Любой если работает, то не долго. Так как есть нюанс с железом... да и по мелочи. Ведь шарды и инжекты бывают разные.
