RazorEnhanced Wiki

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<code>
#Alchemy Trainer by Frank Castle
#
#What you need:
# 1 - 30.0+ Tinkering Skill. If you do not have it buy it up. 
# 1 - 30.0+ Alchemy Skill. If you do not have it buy it up.
# 2 - a player made Tinker Tools
# 3 - a chest with plenty of iron ingots, reagents, and bottles
# 
# Written and tested on OSI. 

from System.Collections.Generic import List

global stoCont

stoCont = Target.PromptTarget('Target your resource chest')
Misc.Pause(100)
Items.UseItem(stoCont)
Misc.Pause(1100)

Player.UseSkill('Hiding')
Misc.Pause(11000)

mandrakeroot = 0x0F86
bloodmoss = 0x0F7B
sulphurousash = 0x0F8C
nightshade = 0x0F88
blackpearl = 0x0F7A
spidersilk = 0x0F86
ginseng = 0x0F85
garlic = 0x0F84
gravedust = 0x0F8F


def makeLast(skill, item, reg1):
    Alchemy = Player.GetSkillValue('Alchemy')
    mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
    Items.UseItem(mortar)
    while Alchemy < skill and Alchemy != Player.GetSkillCap('Alchemy'):
        Alchemy = Player.GetSkillValue('Alchemy')
        checkRegs(reg1)
        Gumps.WaitForGump(460, 1500)
        Gumps.SendAction(460, 1999)
        Misc.Pause(500)
        
        if Journal.Search('You have worn out') == True:
            Journal.Clear()
            checkTools()
            mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
            Items.UseItem(mortar)
           
        if Items.BackpackCount(item,-1) > 20:
            potion = Items.FindByID(item,-1,Player.Backpack.Serial)
            Misc.Pause(100)
            Items.Move(potion,stoCont,0)
            Misc.Pause(300)     
        


def checkRegs(reg1):
    if Items.BackpackCount(reg1,0x0000) < 15:
        global stoCont
        Misc.Pause(1100)
        Reg = Items.FindByID(reg1,-1,stoCont)
        Misc.Pause(100)
        Items.Move(Reg,Player.Backpack.Serial,500)
        Misc.Pause(1100)
        
    if Items.BackpackCount(0x0F0E,0x0000) < 5: #bottles
        global stoCont
        Misc.Pause(1100)
        bottle = Items.FindByID(0x0F0E,0x0000,stoCont)
        Misc.Pause(100)
        Items.Move(bottle ,Player.Backpack.Serial,100)
        Misc.Pause(1100)        
        
def checkIngots():
    if Items.BackpackCount(0x1BF2,0x0000) < 15:
        global stoCont
        Misc.Pause(1100)
        ingot = Items.FindByID(0x1BF2,0x0000,stoCont)
        Misc.Pause(100)
        Items.Move(ingot,Player.Backpack.Serial,40)
        Misc.Pause(1100)
        
def checkTools():
    checkIngots()
    countOne = Items.BackpackCount(0x1EB9,-1)
    while countOne < 3:
        tinkerTool = Items.FindByID(0x1EB9,-1,Player.Backpack.Serial)
        Misc.Pause(100)
        Items.UseItem(tinkerTool)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 11)
        Misc.Pause(1500)
        countOne = Items.BackpackCount(0x1EB9,-1)
        Misc.SendMessage('I have {} tinker tools in my bag'.format(countOne),48)
        
    countTwo = Items.BackpackCount(0x0E9B,-1)
    while countTwo < 3:
        tinkerTool = Items.FindByID(0x1EB9,-1,Player.Backpack.Serial)
        Misc.Pause(100)
        Items.UseItem(tinkerTool)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 9)
        Misc.Pause(1500)
        countTwo = Items.BackpackCount(0x0E9B,-1)
        Misc.SendMessage('I have {} morter and pestle in my bag'.format(countOne),48)

        
def selectCraft():        
    Alchemy = Player.GetSkillValue('Alchemy')
    if Alchemy < 45:
        checkRegs(bloodmoss)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 20)   #MAKE AGILITY
        makeLast(45, 0x0F08, bloodmoss)
        Misc.Pause(100)


    if Alchemy >= 45 and Alchemy < 55 :
        lastPot = Items.FindByID(0x0F08, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F7B, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)
        checkRegs(mandrakeroot)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 50)   #MAKE STRENGTH
        makeLast(55, 0x0F09, mandrakeroot)
        Misc.Pause(100)        
        
    if Alchemy >= 55 and Alchemy < 65 :
        lastPot = Items.FindByID(0x0F09, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F86, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)
        checkRegs(bloodmoss)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 21)   #MAKE GREATER AGILITY
        makeLast(65, 0x0F08, bloodmoss)
        Misc.Pause(100)
        
    if Alchemy >= 65 and Alchemy < 75 :
        lastPot = Items.FindByID(0x0F08, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F7B, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)    
        checkRegs(mandrakeroot)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 51)   #MAKE GREATER STRENGTH
        makeLast(75, 0x0F09, mandrakeroot)
        Misc.Pause(100)
        
    if Alchemy >= 75 and Alchemy < 85 :
        lastPot = Items.FindByID(0x0F09, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F86, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)    
        checkRegs(ginseng)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 42)   #MAKE GREATER HEAL
        makeLast(85, 0x0F0C, ginseng)
        Misc.Pause(100)       
        
    if Alchemy >= 85 and Alchemy < 95 :
        lastPot = Items.FindByID(0x0F0C, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F85, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)    
        checkRegs(garlic)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 72)   #MAKE GREATER CURE
        makeLast(95 ,0x0F07, garlic)
        Misc.Pause(100) 
        
    if Alchemy >= 95 and Alchemy < 100 :
        lastPot = Items.FindByID(0x0F07, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F84, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)    
        checkRegs(gravedust)
        checkTools()
        mortar = Items.FindByID(0x0E9B,-1,Player.Backpack.Serial)
        Items.UseItem(mortar)
        Gumps.WaitForGump(460, 10000)
        Gumps.SendAction(460, 102)   #MAKE GREATER CONFLAGRATION
        makeLast(100 ,0x0F06, gravedust)
        Misc.Pause(100)        

        
    if Alchemy == Player.GetSkillCap('Alchemy'):
        lastPot = Items.FindByID(0x0F06, -1, Player.Backpack.Serial)
        if lastPot:
            Items.Move(lastPot,stoCont,0)
            Misc.Pause(1100)
        lastreg = Items.FindByID(0x0F8F, -1, Player.Backpack.Serial) 
        if lastreg:
            Items.Move(lastreg,stoCont,0)
            Misc.Pause(1100)    
        Misc.ScriptStopAll()
        
    Misc.Pause(1100)

while True:
    selectCraft()
</code>