Injection

  • Просмотры Просмотры: 326
  • Последнее обновление Последнее обновление:
  • C++:
    ##Injection - AutoLoot



    sub loot()

    repeat

    UO.FindType("0x0EED","-1","lastcorpse") #Gold

    if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then

    UO.Grab("0","finditem")

    wait(500)

    end if

    UO.FindType("0x26B4","-1","lastcorpse") #Scales
    UO.FindType("0x0E34","-1","lastcorpse") #MMF
    UO.FindType("0x2258","-1","lastcorpse") #EYM
    UO.FindType("0x283B","-1","lastcorpse") #ZIP
    UO.FindType("0x0E34","-1","lastcorpse") #MMF
    UO.FindType("0x0F0E","-1","lastcorpse") #WUF
    UO.FindType("0x2258","-1","lastcorpse") #EYM
    UO.FindType("0x2F5A","-1","lastcorpse") #GWR
    UO.FindType("0x1410","-1","lastcorpse") #MSH
    UO.FindType("0x1B76","-1","lastcorpse") #CIK
    UO.FindType("0x1415","-1","lastcorpse") #HSH
    UO.FindType("0x1413","-1","lastcorpse") #NSH
    UO.FindType("0x1412","-1","lastcorpse") #OSH
    UO.FindType("0x1414","-1","lastcorpse") #ISH
    UO.FindType("0x1411","-1","lastcorpse") #LSH
    UO.FindType("0x14ED","-1","lastcorpse") #RVH

    if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then

    UO.Grab("0","finditem")

    wait(500)

    end if

    UO.FindType("0x1C06","-1","lastcorpse") #Female Leather Armor

    if UO.FindCount()>0 and Uo.GetDistance("lastcorpse")<=2 then

    UO.Grab("0","finditem")

    wait(500)

    end if

    until false

    end sub
    C#:
    ##Injection - Heading-Stels

    sub main()
    while not UO.Dead()
    while not UO.Hidden()
    UO.Useskill("Hiding")
    wait(3200)
    wend
    UO.Press(37,2,300)
    wait(500)
    UO.Press(39,2,300)
    wait(500)
    wend
    end sub
    C++:
    ##Injection - Tracking

    sub main()
    While not UO.Dead()
    UO.UseSkill("Tracking");
    wait(100);
    UO.exec("waitmenu 'Tracking' 'Monsters'");
    wait(200);
    UO.exec("waitmenu 'Tracking' 'Monsters'");
    wait(200);
    UO.exec("waitmenu 'Tracking' 'Monsters'");
    wait(200);
    wend
    end sub
    ]
    C#:
    0.05.2020
    Добавить закладку
    #1
    ##Injection - EvalutIntel

    sub main()
    While not UO.Dead()
    UO.Exec("useskill 'Evaluating Intelligence' self");
    wait(1800);
    wend
    end sub
    C++:
    ##Injection - Armslore

    sub main()
    var count=0
    uo.print('totem')
    uo.exec('addobject TOT')
    while uo.targeting()
    wait(100)
    wend
    UO.DeleteJournal()
    repeat
    uo.waittargetobject('TOT')
    UO.Useskill('Arms Lore')
    wait(1000)
    until UO.Dead()
    end sub
    C#:
    ##Injection - Lumberjacking

    sub hatch()
    var printcolour = '1069'
    var knopka = 67 ; укажи кнопку, на которую у тебя забит в опциях уо LastObject


    UO.DeleteJournal()
    UO.FindType('0x0f43','-1','backpack')
    if UO.FindCount() > 0 then
    uo.Usetype('0x0f43')
    while uo.targeting()
    wait(100)
    wend
    repeat
    wait(300)
    until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
    repeat
    UO.DeleteJournal()
    uo.Usetype('0x0f43')
    uo.press(knopka)
    repeat
    wait(300)
    until uo.injournal('og') or uo.injournal('There is nothing') or uo.injournal('have no line') or uo.injournal('fail') or uo.injournal('see the target')
    until uo.injournal('There is nothing') or uo.injournal('have no line')
    uo.charprint(printcolour, 'Готово!' )
    else
    uo.charprint(printcolour, 'Положи в пак 2 (!!!) топора' )
    endif
    end sub
    C++:
    30.05.2020
    Добавить закладку
    #1
    ##Injection - Fishing

    var TryToHide=0 ## 1 - Включить хаид перед рыбалкои , 0 - Отключить.
    var TakeFish=0 ## 1 - Собирать рыбку, 0 - Не нужна она нам.
    var Chest="backpack" #Куда кладём рыбку?

    sub main()
    var mX=0, mY=0, mZ=0, i, j, r=0
    mX=uo.getX("self")
    mY=uo.getY("self")
    mZ=uo.getZ("self")
    uo.print('Olmer auto fishing 5x5 bot v.1.0')
    uo.setreceivingcontainer(Chest)
    for i = mX-5 to mX+5
    for j = mY-5 to mY+5
    if TryToHide==1 then
    ToHide()
    endif
    uo.Print("Сейчас ловим: "+str(mx-i)+" "+str(my-j))
    repeat
    if uo.Dead() then
    return
    endif
    uo.DeleteJournal()
    uo.Waittargettile("0",str(i),str(j),'-5')
    UsePole()
    r=Wait4Result()
    until r
    next
    next
    GetFish()
    uo.unsetreceivingcontainer(Chest)
    end sub

    Sub Wait4Result()
    var allmsg='лишком далеко|лишком близко|ы что-то выловили|опробуйте порыбачить в другом месте|десь нет рыбы|ы не можете ловить рыбу здесь|ry fishing elsewher|here are no fish here|fish from where you are standing|ry fishing in water|ou cannot fish so close to yourself|ou have no line of sight to that location|hat is too far away|ou are too far away|ou pull out a|ou can not fish here|ou fish a while, but fail to catch anythin|ou are too close'
    var finmsg='ы что-то выловили|ou pull out a|put the'
    var i
    for i=0 to 50
    if uo.injournal(allmsg) then
    if uo.injournal('е клюёт') or uo.injournal(finmsg) then
    return 0
    endif
    return 1
    endif
    wait(1000)
    next
    return 0
    end sub

    Sub GetFish()
    dim Fish[7]
    Fish[0]='0x09CC'
    Fish[1]='0x09CD'
    Fish[2]='0x09CE'
    Fish[3]='0x09CF'
    Fish[4]='0x14EB'
    Fish[5]='0x0DD6'
    Fish[6]='0x0DD6'
    var f
    if TakeFish==1 then
    uo.Print('Собираем рыбу.')
    for f=0 to 6
    uo.FindType(Fish[f],"-1","ground")
    if uo.findcount() then
    repeat
    uo.grab('0',"finditem")
    wait(500)
    uo.FindType(Fish[f],"-1","ground")
    until not uo.findcount()
    endif
    next
    endif
    end sub

    Sub UsePole()
    dim t[2]
    t[0]='0x0DBF'
    t[1]='0x0DC0'
    var i,obj=''
    obj=uo.objatlayer('Lhand')
    if obj<>'' then
    for i=0 to 1
    if uo.getgraphic(obj)==t then
    uo.useobject(obj)
    return
    endif
    next
    uo.moveitem(obj)
    wait(100)
    endif
    for i=0 to 1
    if uo.count(t) then
    uo.usetype(t)
    return
    endif
    next
    uo.print('Нет удочки.')
    end sub

    sub ToHide()
    while not uo.Hidden()
    uo.Print('Пытаемся уйти в хайд...')
    uo.DeleteJournal()
    uo.UseSkill('Stealth')
    wait(4500)
    wend
    end sub
    C++:
    ##Injection - Taming

    sub Taming()
    if uo.getglobal("Taming") == "On" then
    uo.setglobal("Taming", "Off")
    else
    uo.setglobal("Taming", "On")
    end if
    if uo.getglobal("Taming") == "On" then
    uo.deletejournal()
    uo.warmode(0)
    uo.print('Select Animal')
    uo.addobject('animal')
    while uo.targeting()
    wait(100)
    wend
    else
    return 0
    end if
    taming:
    uo.warmode(0)
    uo.useskill('Animal Taming')
    uo.waittargetobject('animal')
    while not uo.injournal("It seems to accept you as master|remembers you and accepts you|is already tame")
    if uo.injournal('You fail to tame the creature.|You are too far away.|You can not see|You give up trying to tame the creature.') or uo.injournal("You can't see the target") then
    uo.deletejournal()
    goto taming
    else if uo.getglobal("Taming") == "Off" then
    return 0
    end if
    wait(1000)
    wend
    uo.setglobal("Taming", "Off")
    end sub
    C#:
    ##Injection - Mining

    sub minround()
    VAR Kirka = '0x0E85' ;Тип того чем будем копать
    VAR MaxVes = 800 ; максимальнай вес минус 10-15 стоуов
    VAR TileNum = '-1' ; Номер тайла
    VAR x, y, t, k
    VAR MaxTime = 100
    VAR ms1 = "There is nothing here to mine for"
    VAR ms2 = "You can't use"
    VAR ms3 = "You put "
    VAR ms4 = "You loosen some rocks"
    VAR ms5 = "location"
    VAR ms6 = "Try mining"
    VAR ms7 = "You can't see that"
    for y=-2 to 2
    for x=-2 to 2
    while not UO.Hidden()
    UO.Warmode("0")
    uo.print("Hiding...")
    UO.UseSkill("Hiding")
    wait(4000)
    wend
    k = 0
    repeat
    UO.DeleteJournal()
    t = UO.Timer()
    k = k + 1
    UO.CancelTarget()
    wait(300)
    UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
    UO.UseType( Kirka )
    repeat
    wait(300)
    until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
    If UO.Weight > MaxVes Then
    UO.Print(" Overweight!" )
    return
    Endif
    until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
    next
    next
    endsub
    C#:
    ##Injection - AutoHeal - bandage

    sub main()
    while not UO.Dead()
    while UO.Life == UO.STR
    wait (2000)
    wend
    while UO.Life < UO.STR
    UO.Exec("bandageself")
    wait (4200)
    wend
    wend
    end sub
    C#:
    sub Animal_Taming()
    while not uo.Dead()
    uo.useskill('Animal Taming')
    uo.waittargetobject('0x00003320') ;Вписываем ИД животного
    wait(16000)
    uo.say('All release')
    wait(400)
    wend
    endsub
    C++:
    ##Injection - Magery

    sub main()
    repeat

    if UO.Life<(UO.Str*0.80) then
    UO.bandageself()
    wait(4000)
    endif

    If UO.mana>=5 Then
    UO.Exec("cast 'Magic Arrow' self")
    wait(2100)
    Else
    while uo.mana<(UO.INT)
    UO.useskill('Meditation')
    wait(10000)
    wend
    EndIf
    until false
    end sub