Yoko
http://forum.yoko.com.ua/

Помогите со скупкой
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12214		 Page 1 of 1
Author:  mort [ 2007-07-13 14:54:51 ]
Post subject:  Помогите со скупкой
Quote:
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 рун,но единственная фигня,когда медитируешь,если подымается скил медитации,то полный стояк,как избавится
Author:  Scripts Writer [ 2007-07-13 15:04:13 ]
Post subject: 
Телепаты в отпуске
Author:  ADEPT_ABP [ 2007-07-13 18:01:08 ]
Post subject: 
Попробуй так:
Code:
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:
while NOT UO.InJournal('You must') AND UO.Mana<100 AND NOT UO.InJournal("You lose")
, поставь задержку поменьше 200 или 100.
Author:  mort [ 2007-07-13 21:19:37 ]
Post subject: 
эту херню я решил,просто отключил отображение прироста скила на экране,у меня теперь другая трабла,если скрипт физлит рекол по руне,то он её пропускает,если ещё раз физл опять руну пропустит как исправить?
Author:  ADEPT_ABP [ 2007-07-14 11:17:39 ]
Post subject: 
Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел. :mrgreen: )
Code:
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
Author:  mort [ 2007-07-14 13:12:19 ]
Post subject: 
ADEPT_ABP wrote:
Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел. :mrgreen: )
Code:
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

респект,всё работает,спасибо
Author:  u0rypT [ 2007-07-19 23:47:40 ]
Post subject: 
Есть готовый под оском. ЛС... хотя...
Author:  ADEPT_ABP [ 2007-07-21 20:09:54 ]
Post subject: 
Однажды мне заманало на Маркете набирать имена вендоров вкупе с BUY.
Вот. Пробуйте.
Code:
sub main()
   UO.AddObject('vendor')
    UO.Print('С кем торгуем?') 
   while UO.Targeting() 
    wait(10)
   wend
wait(1000)
uo.say(uo.GetName('vendor')+" buy")
end sub

Не помню только работает или нет? Не тестил. :mrgreen:
Author:  Mihail [ 2007-07-23 16:56:41 ]
Post subject: 
будет работать при условии что ты хоть раз видел имя вендора
Author:  Scripts Writer [ 2007-07-23 18:29:47 ]
Post subject: 
ADEPT_ABP wrote:
Однажды мне заманало на Маркете набирать имена вендоров вкупе с BUY.
Вот. Пробуйте.
Code:
sub main()
   UO.AddObject('vendor')
    UO.Print('С кем торгуем?') 
   while UO.Targeting() 
    wait(10)
   wend
wait(1000)
uo.say(uo.GetName('vendor')+" buy")
end sub

Не помню только работает или нет? Не тестил. :mrgreen:


Строка

Code:
uo.say(uo.GetName('vendor')+" bye")
в начале скрипта не помешает.

п.с. Еще можно добавить клик по объекту перед тем как произнести его имя.


Mihail wrote:
будет работать при условии что ты хоть раз видел имя вендора


На ДРВ есть 3 локации в которых собраны вендоры игроков. Когда по столбу попадаешь в одну из этих локаций имена показываются сразу у всех, так что работать наверно будет.
Author:  ADEPT_ABP [ 2007-07-23 19:01:08 ]
Post subject: 
Scripts Writer wrote:
" bye")
Это что?
Author:  +GhosT+ [ 2007-07-24 11:11:46 ]
Post subject: 
Выложи полныи скрипт на скупку !
Author:  ADEPT_ABP [ 2007-07-24 21:25:50 ]
Post subject: 
+GhosT+ wrote:
Выложи полныи скрипт на скупку !

Ты это кому? mort-у? Так он в самом верху(правда не совсем рабочий). Если мне, то - у меня нет такого скрипта. Scripts Writer - пошлёт в поиск(я кстати там нашёл всяких разных). И ещё немало-важный момент, - 100% работающих скриптов - небывает. Любой если работает, то не долго. Так как есть нюанс с железом... да и по мелочи. Ведь шарды и инжекты бывают разные. :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/