Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5

Alchemy+Poisoning(Injection)
#1

I made this one for a friend and thought I'll share it. I know not many people here use injection, but if anyone is interested I'll share more of my scripts...

So basically the description is - If you have alchemy less than 100.0 it will attempt on making Lesser Poisons, make sure you don't move the ingame gump as I made it click by coordinates(Screw the RunUO menus, Injection runs smoothly on sphere ones xD)
If you want the script to restock NS then drop Nightshade on the ground, it will attempt to pick it up from the ground as soon as you run out of it.
If you have less than 100.0 poisoning it will apply the poison on dagger after the pot is made, so make sure you have the dagger in pack as well. If you already have or will reach GM poisoning while afk it will just make lesser poisons and drop piles (200 each) on the ground.
If you will be poisoned (fail when applying) it will cure you and heal up to 100hp as well.
I recommend taking enough bandages and Pitcher of water, as it will attempt to wash bloody aids when you have more than 20 of it, also you can just drop clean bandages on floor and it will attempt to pick it up when you'll have less than 30.

That is it, no need to set anything up, just make sure you have dagger/mortar/pitcher of water/enough nightshade and bandages on the ground.


Code:
sub alch_pois()
    VAR counter
    UO.UseType('0x0E9B')
    wait(500)
    UO.LClick(68,231)
    wait(200)
    While UO.SkillVal('Alchemy','1') < 1000
        if UO.Count('0x0F88') > 1 then
            UO.DeleteJournal()
            counter = 0
            UO.LClick(275,111)
            wait(50)
            repeat
                counter = counter + 1
                wait(200)
            Until UO.InJournal('You put the') OR (counter>15)
            Wait(100)
            if UO.SkillVal('Poisoning','1') < 1000 then
                g_poison()
            endif
        else
            Restock_Ns()
            wait(1000)
        endif
        If UO.Count('0x0F0A','0x0000') > 200 then
            DropPP()
        EndIf
    wend
endsub
Sub Restock_Ns()
    UO.FindType(0x0F88,-1,'ground')
    UO.Moveitem('finditem','150','backpack')
    wait(1000)
EndSub
sub DropPP()
    UO.FindType(0x0F0A,0x0000,'backpack')
    UO.Moveitem('finditem','150','ground')
    wait(1000)
EndSub
sub g_poison()
    var pp
    var dagger='0x0f52'
    var c=0
    UO.FindType('0x0F0A','0x0000')
    If UO.FindCount() > 0 then
        check_aids()  
        pp=UO.GetSerial('finditem')
        UO.DeleteJournal()
        UO.WaitTargetObjectType(PP,dagger)
        UO.UseSkill('Poisoning')
        repeat
            c = c + 1
            wait(8000)
        Until UO.InJournal('You apply the') OR UO.InJournal('You fail to') OR UO.InJournal('You have made') OR (c>2)
    else
        UO.Print('You have no poison potions')
                wait(100)
            UO.UseType('0x0E9B')
                wait(200)
    endif
    check_poison()
endsub
sub check_poison()
    if UO.Poisoned() then
        repeat
            UO.Bandageself()
            wait(3000)
        until NOT UO.Poisoned() AND UO.Life>99
    endif
endsub
sub check_aids()
    if UO.Count('0x0E21') < 30 then
        UO.FindType(0x0E21,-1,'ground')
        UO.Moveitem('finditem','150','backpack')
        wait(1000)
    endif
    if UO.Count('0x0E20') > 20 then
        UO.WaitTargetType('0x1F9D')
        UO.UseType('0x0E20')
        wait(500)
    endif
EndSub
#2

Yes please! I'm trying to learn injection because razor seems to be giving me some issues. I've got some things down but the more complex macros I have no idea how to make.

This ones going to sound weird, but how would I make something to accept trades?
#3

good look man.
#4

bump


Forum Jump:


Users browsing this thread: 2 Guest(s)