Помогите со скупкой

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
mort
Posts: 10
Joined: 2007-07-02 12:26:55

Помогите со скупкой

Post 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 рун,но единственная фигня,когда медитируешь,если подымается скил медитации,то полный стояк,как избавится
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Телепаты в отпуске
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post 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.
mort
Posts: 10
Joined: 2007-07-02 12:26:55

Post by mort »

эту херню я решил,просто отключил отображение прироста скила на экране,у меня теперь другая трабла,если скрипт физлит рекол по руне,то он её пропускает,если ещё раз физл опять руну пропустит как исправить?
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел. :mrgreen: )

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
mort
Posts: 10
Joined: 2007-07-02 12:26:55

Post by mort »

ADEPT_ABP wrote:Пример.(...это отрывок из скрипта на мининг, над которым я долго корптел. :mrgreen: )

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

респект,всё работает,спасибо
u0rypT
Posts: 175
Joined: 2004-12-30 18:13:16
Location: Russia
Contact:

Post by u0rypT »

Есть готовый под оском. ЛС... хотя...
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post 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

Не помню только работает или нет? Не тестил. :mrgreen:
Mihail
Expert!
Posts: 548
Joined: 2005-05-20 20:30:10
Contact:

Post by Mihail »

будет работать при условии что ты хоть раз видел имя вендора
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post 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

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


Строка

Code: Select all

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

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


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


На ДРВ есть 3 локации в которых собраны вендоры игроков. Когда по столбу попадаешь в одну из этих локаций имена показываются сразу у всех, так что работать наверно будет.
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

Scripts Writer wrote:" bye")
Это что?
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
+GhosT+
Posts: 36
Joined: 2007-06-10 06:00:59

Post by +GhosT+ »

Выложи полныи скрипт на скупку !
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

+GhosT+ wrote:Выложи полныи скрипт на скупку !

Ты это кому? mort-у? Так он в самом верху(правда не совсем рабочий). Если мне, то - у меня нет такого скрипта. Scripts Writer - пошлёт в поиск(я кстати там нашёл всяких разных). И ещё немало-важный момент, - 100% работающих скриптов - небывает. Любой если работает, то не долго. Так как есть нюанс с железом... да и по мелочи. Ведь шарды и инжекты бывают разные. :D
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.
Post Reply