Ultima Online Antares

sub OdnaRuna (runa)


uo.DeleteJournal()

repeat
    uo.cast('Recall',runa)
    wait (6000)
until NOT UO.InJournal("The spell fizzles")


end sub

mana=uo.mana
lastX=uo.getX()
lastY=uo.getY()
    uo.cast('Recall',runa)
    repeat
        wait(100)
    until UO.InJournal('fizzles') and uo.JournalSerial(uo.injournal('fizzles')-1)== '0xFFFFFFFF' or mana <> uo.mana or (uo.getX()<>lastX and uo.getY()<>LastY)

Sub Recall(i,rune)
    var b
    uo.print('Recoll Rune '+str(i))
    for b=1 to 10; повторять 10 раз
        uo.deletejournal()
        uo.waittargetobject(rune[i])
        uo.cast('Recall',rune[i])
        if WaitForRecall()==1 then
            return 1; остановит каст завершит скрипт
        end if
    next
    return 0
end sub
Sub WaitForRecall()
    var Text1=uo.getname()+": The spell fizzles"
    var mess='',lastX=uo.getX(),lastY=uo.getY()
    for var v=0 to 200
        mess=uo.journal(0)
        if uo.Journal(0)==Text1 then ; проверка на сообщение
            return 0
        end if
        if uo.getX()<>lastX OR uo.getY()<>LastY then ; проверка на координату
            return 1
        end if
        wait(50)
    next
    return 0
end sub

Teleport(runa)
PovtorUZ3(stanok)

wait (3000)

if UO.InJournal("Engelos:Trick")then
Teleport(runa1)
PovtorUZ3(stanok)
endif

sub main()
deistvie1()
deistvie2()
deistvie3()
end sub

sub perebor()
   uo.DeleteJournal()
   repeat
      uo.findtype(type,color,3); цифру поставить по расстоянию между крайними токами.
      if uo.findcount() then
         podhod('finditem'); функция подхождения к станку
         uo.useobject('finditem')
         if UO.InJournal("какое то сообщение") then
            uo.DeleteJournal()
            uo.ignore('finditem')
         else
            wait(1000)
         endif
      endif
      wait(100)
   until uo.dead()
endsub

sub Moon()

repeat
if  uo.GetHP() < uo.GetMaxHP() then
UO.Say('Guards')
endif
wait (3000)
until uo.Dead()

end sub



sub Start ()

uo.ignorereset()
uo.DeleteJournal()
uo.set('finddistance', '1')

OdnaRuna('ID вашей руны', '0x2AFA'); Moon music
OdnaRuna('ID вашей руны', '0x160B'); cooking
OdnaRuna('ID вашей руны', '0x2130'); Forensic
OdnaRuna('ID вашей руны', '0x1865'); Poisoning
OdnaRuna('ID вашей руны', '0x1BDF'); lumber
OdnaRuna('ID вашей руны', '0x0E2E'); medit
OdnaRuna('ID вашей руны', '0x2D4E'); inscript
OdnaRuna('ID вашей руны', '0x12CA'); begging
MnogoRun('ID вашей руны','ID вашей руны','ID вашей руны','0x1EA6');fishing
MnogoRun('ID вашей руны','ID вашей руны','0x403B2091','0x1E2C');snooping
MnogoRun('ID вашей руны','ID вашей руны','ID вашей руны','0x11AD');rem trap


end sub




sub OdnaRuna (runa, stanok)

var LastTimer

Teleport(runa)
PovtorUZ3(stanok)

LastTimer=UO.Timer()

repeat
wait (1000)
Until UO.InJournal("Выполнение работы прервано!|Вы успешно справились с работой!") or uo.Dead() or (UO.Timer()>LastTimer+5000)
end sub





sub MnogoRun (runa, runa1, runa2, stanok)

var LastTimer

Teleport(runa)
uo.DeleteJournal()
UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
uo.waitgump(1)
wait (3000)

if UO.InJournal("Рабочее место уже занято!") then
teleport(runa1)
uo.DeleteJournal()
UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
uo.waitgump(1)
wait (3000)
endif

if UO.InJournal("Рабочее место уже занято!") then
teleport(runa2)
uo.DeleteJournal()
UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
uo.waitgump(1)
wait (3000)
endif

LastTimer=UO.Timer()

repeat

wait (1000)

Until UO.InJournal("Выполнение работы прервано!|Вы успешно справились с работой!") or uo.Dead() or (UO.Timer()>LastTimer+5000)

end sub




sub PovtorUZ3 (stanok)

UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
uo.waitgump(1)
wait (3000)

if UO.InJournal("Рабочее место уже занято!") then
uo.DeleteJournal()
uo.ignore('finditem')
UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
endif
wait (3000)

if UO.InJournal("Рабочее место уже занято!|You can't reach taht.|You can't see the target") then
uo.DeleteJournal()
uo.ignore('finditem')
UO.FindType(stanok,'-1','ground')
uo.UseObject('finditem')
endif
wait (3000)

uo.ignorereset()

end sub




sub Teleport(runa)

repeat
    uo.DeleteJournal()
    uo.cast('Recall',runa)
    wait (6000)
until NOT UO.InJournal("The spell fizzles")
uo.useskill('Meditation')
wait (1000)

end sub

Sub Moon()
    repeat
        if  uo.GetHP() < uo.GetMaxHP() then
            UO.Say('Guards')
            wait (3000)
        endif
        wait (300); меньше думаю не стоит
    until uo.Dead()
end sub

    UO.FindType(stanok,'-1','ground')
    uo.UseObject('finditem')
    uo.waitgump(1)
    wait (3000); вот эта пауза не на месте стоит.
    if UO.InJournal("Рабочее место уже занято!") then
        uo.DeleteJournal()
        uo.ignore('finditem')
        UO.FindType(stanok,'-1','ground')
        uo.UseObject('finditem')
    endif

sub t1()
var i
i=1
t2(i)
i=2
t2(i)
endsub

sub t2(x)
var j=x
uo.print(j)
endsub