Derma Target Finder

Katelyn · April 2011

Current version: 3.0.0.0
This is the BA Derma Target Finder V2 by me. It allows you to target by class, and sort by owner fast and lag free. It features optional wiring to a seat, saving and removing from a list of classes that load when you spawn the chip, and lots of output data. If you're good with Derma you can even add onto it pretty easy.

How to use:
The top drop down menu is a list of classes. Below that is a text box that you can add or remove classes to the list above. It saves automatically when you add. Below that is the Owner drop down list, and below that is the Entity list that you target.

@name BA Derma Target finder V2
@inputs Apc:wirelink
@outputs Vec:vector Debug
@outputs Ent:entity 
@outputs X Y Z
@outputs Ang:angle
@outputs &#91;Owner, Type, Model&#93;:string
@persist &#91;List, Targets, Listbox, Parr, Master, Default&#93;:array
@persist &#91;Player, Tarr, Aarr, Cfgt&#93;:table
@persist Width Height Count Start
@persist &#91;Pos, Size&#93;:vector2
@persist &#91;Cfg, Targetlist&#93;:string
interval(200)
#By Katelyn

if (first() | dupefinished()) 
{
    runOnFile(1)

    Cfg = "KateKollection/DermaTargetFinderv2/cfg.txt"
    Targets&#91;1, string&#93; = "player"
    Targets&#91;2, string&#93; = "gmod_wire_expression2"
    Targets&#91;3, string&#93; = "resource_node"
    Targets&#91;4, string&#93; = "ship_core*"
    Targets&#91;5, string&#93; = "gyropod_advanced"
    Targets&#91;6, string&#93; = "prop_physics"
    Targets&#91;7, string&#93; = "generator_*"
    
    Cfgt&#91;"First", number&#93; = 0
    
    Default = array(glonEncode(Targets), glonEncode(Cfgt))
    Targets:clear()
    Cfgt:clear()
    
    
    
    Width = 150
    Height = 140
    
    
    Pos = vec2(scrW() - Width, 0)
    Size = vec2(Width, Height)
        
    dPod(Apc&#91;"Entity", entity&#93;)
    dPanel("Targets", Pos, Size)
#    dTabHolder("Tabs", "Targets", vec2(0,0), vec2(Width, 24))
#    dTab("Find", "Tabs")
#    dTab("Options", "Tabs")
    dDropBox("Targetselect", "Targets", vec2(0, 25), Width)
    dTextBox("Label", "Targets", vec2(0, 50), Width)
    dText("Label","")
    dButton("Save", "Targets", vec2(2, 70), vec2((Width / 2) - 4, 20))
    dButton("Del", "Targets", vec2((Width / 2) + 2, 70), vec2((Width / 2) - 4, 20))
    dDropBox("Player", "Targets", vec2(0, 98), Width)
    dDropBox("Target", "Targets", vec2(0, 120), Width)

    dShow("Targets", 0)
    
    
    dRunOnChange("Targetselect", 1)
    dRunOnChange("Target", 1)
    dRunOnChange("Player", 1)

    if (fileCanLoad())
    {
        fileLoad(Cfg)
    }
    else
    {
        print("Config file can not be loaded at this time.")
        Master = Default:clone()
        print("Target finder is now ready for operation")
        dShow("Targets", 1)
    }
    
    
}



if (fileClk(Cfg))
{
    if (fileStatus() != _FILE_OK)
    {        
        Master = Default
        
        fileWrite(Cfg, glonEncode(Master))
        print("Configuration file not found, creating one with default settings.")
    }
    else
    {
        Master = glonDecode(fileRead())
        
        print("Configuration file loaded correctly!")
        
    }
    Targets = glonDecode(Master&#91;1, string&#93;)
    Cfgt = glonDecodeTable(Master&#91;2, string&#93;)
    
    dArray("Targetselect", Targets)
    print("Target finder is now ready for operation")
    dShow("Targets", 1)
}





Count = numPlayers()
#findExcludePlayer(owner())
findExcludeClass("Ship_Core_Base")
#findExcludePlayerProps(owner())

#Changing target type
if (dClk("Targetselect") | ~Count) 
{
    findByClass(dSval("Targetselect"))
    List = findToArray()
    Listbox:clear()
    Player:clear()
    if (dSval("Targetselect") == "player")
    {
        I = 1
        while (I &lt;= List:count() & perf()) 
        {
            if (List&#91;I, entity&#93;:isPlayer())
            {
                Tarr&#91;List&#91;I, entity&#93;:name(), entity&#93; = List&#91;I, entity&#93;
                Player&#91;List&#91;I, entity&#93;:name(), table&#93; = Tarr
            }
            I++
        }
    }
    else
    {
        I = 1
        while (I &lt;= List:count() & perf()) 
        {
            if (List&#91;I, entity&#93;:owner():isPlayer())
            {
                Temp = Player&#91;List&#91;I, entity&#93;:owner():name(), table&#93;
                M = List&#91;I, entity&#93;:model():explode("/")
                Mtemp = M&#91;M:count(), string&#93;:explode(".mdl")
                Temp&#91;"&#91;" + List&#91;I, entity&#93;:id():toString() + "&#93; " + Mtemp&#91;1, string&#93;, entity&#93; = List&#91;I, entity&#93;
                Player&#91;List&#91;I, entity&#93;:owner():name(), table&#93; = Temp
            }
            I++
        }
    }
    Parr = Player:keys()
    dSetSval("Player", Parr&#91;1, string&#93;)
    
    Aarr = Player&#91;dSval("Player"), table&#93;:clone()
    dSetSval("Target", Aarr:keys()&#91;1, string&#93;)
    dArray("Player", Parr)
    dArray("Target", Aarr:keys())
}
if (dClk("Player"))
{
    Aarr = Player&#91;dSval("Player"), table&#93;:clone()

    dArray("Target", Aarr:keys())
    dSetSval("Target", Aarr:keys()&#91;1, string&#93;)
    Listbox:clear()

}
if (dClk("Save") & dSval("Label") != "")
{
    for (I=1, Targets:count())
    {
        A = 0
        if (Targets&#91;I, string&#93;:find(dSval("Label")))
        {
            A++
        }
    }
    if (A == 1)
    {
        print("Entry already exists or is a partial phrase in another entry.")
    }
    else
    {
        Targets:pushString(dSval("Label"))
        print("Query saved")

        Master = array(glonEncode(Targets), glonEncode(Cfgt))
        
        fileWrite(Cfg, glonEncode(Master))
        dSetSval("Label", "") 
    }
    dArray("Targetselect", Targets)
    
}
if (dClk("Del") & dSval("Label") != "")
{
    A = 0
    B = 0
    for (I=1, Targets:count())
    {
        if (Targets&#91;I, string&#93;:find(dSval("Label")))
        {
            A++
            B = I
        }
    }
    if (A == 1)
    {
        if (dSval("Targetselect") == Targets&#91;B, string&#93;)
        {
            dSetSval("Targetselect", "")  
        }
        Targets:remove(B)
        print("Removed entry")
        fileWrite(Targetlist, glonEncode(Targets))
        dSetSval("Label", "") 
    }
    elseif (A &gt;= 2)
    {
        print("More than one entry detected.")
    }
    else
    {
        print("No entries match query")
    }
    dArray("Targetselect", Targets)
}

#Outputting data
Ent = Aarr&#91;dSval("Target"), entity&#93;
Vec = Ent:pos()
X = Vec:x()
Y = Vec:y()
Z = Vec:z()
Ang = Ent:angles()
Owner = Ent:owner():name()
Type = Ent:type()
Model = Ent:model()

Alex4921 · April 2011

Also to mention,when you select player as target the "Owner" box shows everyone,apparently everybody is owned by everybody and you DO NOT need to select the "Owner" of the player as well as the player target in order to target him,it will still target the target player regardless of owner selected.

NormallyClosedSwitch · April 2011

Thank you very very much katelyn, you'r like a genius or something

I'm not on the server often these days but my mind is still building ships, and that is the corner stone of my futur ships.

Thank you again, you are amazing

Paper Clip · April 2011

You should consider posting your chips on the wiremod contraption forum as well kate!

Katelyn · April 2011

Why? I never go there.

Daracon · May 2011

We need to get factions off the ground again, get a list somewhere and have it intergrated into the chip, maybe have it do checks like mouldys resourcechip to make sure it's members directory is upto date.

Katelyn · May 2011

Apparently, something broke it, so I am going to remake it from scratch. Any ideas?

Alex4921 · May 2011

Katelyn wrote:

Apparently, something broke it, so I am going to remake it from scratch. Any ideas?

I spammed you yesterday with ideas but i'm gonna make a list.

Atmosphere detection with a warning like "YOU ARE TARGETING SPAWN" if you target a ship that happens to be on the spawn planet.
Grabbing E2 names for the E2 targeting
Priority list option in the targeting that orders everyone's ship cored ships in order of how many weapons/danger level they have.
Im sure i had more but that's all I can remember for the moment.

Katelyn · May 2011

The problem with those ideas are that they are extensions of a target finder. This is simply a target finder. I'm going to code it with a buttload of comments so that it is easier to mod for you guys.

Katelyn · May 2011

It is looking good so far. I've added an Options tab, because I spent the time actually figuring out why I couldn't get tabs to work last time. So now it is going to look like how I was originally going to release it. I will use hard coded chat commands instead of my custom command system as it is more taxing, and I want this to be as light as I can make it.

Sanders · August 2011

This probably doesn't even affect you anymore, but I think I found what broke your Derma Target Finder. While taking it apart for integrating into my hud (I sincerely hope you dont mind) I learned that a bug in the derma extension seems to have broken the "Player" drop box. If you change the name of the dropbox (in my case, I changed it to "Zlayer") and properly change the name of everything that references it as well it works again. It might be related to the fact that you have another variable named "Player", but I don't know.

For all I know, you might have already figured this out since the last post was a long time ago but, if you haven't, there you go.

@name BA Derma Target finder V2 - 1
@inputs Apc:wirelink
@outputs Vec:vector Debug
@outputs Ent:entity
@outputs X Y Z
@outputs Ang:angle
@outputs &#91;Owner, Type, Model&#93;:string
@persist &#91;List, Targets, Listbox, Parr, Master, Default&#93;:array
@persist &#91;Player, Tarr, Aarr, Cfgt&#93;:table
@persist Width Height Count Start
@persist &#91;Pos, Size&#93;:vector2
@persist &#91;Cfg, Targetlist&#93;:string
interval(200)
#By Katelyn

if (first() | dupefinished())
{
    runOnFile(1)

    Cfg = "KateKollection/DermaTargetFinderv2/cfg.txt"
    Targets&#91;1, string&#93; = "player"
    Targets&#91;2, string&#93; = "gmod_wire_expression2"
    Targets&#91;3, string&#93; = "resource_node"
    Targets&#91;4, string&#93; = "ship_core*"
    Targets&#91;5, string&#93; = "gyropod_advanced"
    Targets&#91;6, string&#93; = "prop_physics"
    Targets&#91;7, string&#93; = "generator_*"
   
    Cfgt&#91;"First", number&#93; = 0
   
    Default = array(glonEncode(Targets), glonEncode(Cfgt))
    Targets:clear()
    Cfgt:clear()
   
   
   
    Width = 150
    Height = 140
   
   
    Pos = vec2(scrW() - Width, 0)
    Size = vec2(Width, Height)
       
    dPod(Apc&#91;"Entity", entity&#93;)
    dPanel("Targets", Pos, Size)
#    dTabHolder("Tabs", "Targets", vec2(0,0), vec2(Width, 24))
#    dTab("Find", "Tabs")
#    dTab("Options", "Tabs")
    dDropBox("Targetselect", "Targets", vec2(0, 25), Width)
    dTextBox("Label", "Targets", vec2(0, 50), Width)
    dText("Label","")
    dButton("Save", "Targets", vec2(2, 70), vec2((Width / 2) - 4, 20))
    dButton("Del", "Targets", vec2((Width / 2) + 2, 70), vec2((Width / 2) - 4, 20))
    dDropBox("Zlayer", "Targets", vec2(0, 98), Width)
    dDropBox("Target", "Targets", vec2(0, 120), Width)

    dShow("Targets", 0)
   
   
    dRunOnChange("Targetselect", 1)
    dRunOnChange("Target", 1)
    dRunOnChange("Zlayer", 1)

    if (fileCanLoad())
    {
        fileLoad(Cfg)
    }
    else
    {
        print("Config file can not be loaded at this time.")
        Master = Default:clone()
        print("Target finder is now ready for operation")
        dShow("Targets", 1)
    }
   
   
}



if (fileClk(Cfg))
{
    if (fileStatus() != _FILE_OK)
    {       
        Master = Default
       
        fileWrite(Cfg, glonEncode(Master))
        print("Configuration file not found, creating one with default settings.")
    }
    else
    {
        Master = glonDecode(fileRead())
       
        print("Configuration file loaded correctly!")
       
    }
    Targets = glonDecode(Master&#91;1, string&#93;)
    Cfgt = glonDecodeTable(Master&#91;2, string&#93;)
   
    dArray("Targetselect", Targets)
    print("Target finder is now ready for operation")
    dShow("Targets", 1)
}





Count = numPlayers()
#findExcludePlayer(owner())
findExcludeClass("Ship_Core_Base")
#findExcludePlayerProps(owner())

#Changing target type
if (dClk("Targetselect") | ~Count)
{
    findByClass(dSval("Targetselect"))
    List = findToArray()
    Listbox:clear()
    Player:clear()
    if (dSval("Targetselect") == "player")
    {
        I = 1
        while (I &lt;= List:count() & perf())
        {
            if (List&#91;I, entity&#93;:isPlayer())
            {
                Tarr&#91;List&#91;I, entity&#93;:name(), entity&#93; = List&#91;I, entity&#93;
                Player&#91;List&#91;I, entity&#93;:name(), table&#93; = Tarr
            }
            I++
        }
    }
    else
    {
        I = 1
        while (I &lt;= List:count() & perf())
        {
            if (List&#91;I, entity&#93;:owner():isPlayer())
            {
                Temp = Player&#91;List&#91;I, entity&#93;:owner():name(), table&#93;
                M = List&#91;I, entity&#93;:model():explode("/")
                Mtemp = M&#91;M:count(), string&#93;:explode(".mdl")
                Temp&#91;"&#91;" + List&#91;I, entity&#93;:id():toString() + "&#93; " + Mtemp&#91;1, string&#93;, entity&#93; = List&#91;I, entity&#93;
                Player&#91;List&#91;I, entity&#93;:owner():name(), table&#93; = Temp
            }
            I++
        }
    }
    Parr = Player:keys()
    dSetSval("Zlayer", Parr&#91;1, string&#93;)
   
    Aarr = Player&#91;dSval("Player"), table&#93;:clone()
    dSetSval("Target", Aarr:keys()&#91;1, string&#93;)
    dArray("Zlayer", Parr)
    dArray("Target", Aarr:keys())
}
if (dClk("Zlayer"))
{
    Aarr = Player&#91;dSval("Zlayer"), table&#93;:clone()

    dArray("Target", Aarr:keys())
    dSetSval("Target", Aarr:keys()&#91;1, string&#93;)
    Listbox:clear()

}
if (dClk("Save") & dSval("Label") != "")
{
    for (I=1, Targets:count())
    {
        A = 0
        if (Targets&#91;I, string&#93;:find(dSval("Label")))
        {
            A++
        }
    }
    if (A == 1)
    {
        print("Entry already exists or is a partial phrase in another entry.")
    }
    else
    {
        Targets:pushString(dSval("Label"))
        print("Query saved")

        Master = array(glonEncode(Targets), glonEncode(Cfgt))
       
        fileWrite(Cfg, glonEncode(Master))
        dSetSval("Label", "")
    }
    dArray("Targetselect", Targets)
   
}
if (dClk("Del") & dSval("Label") != "")
{
    A = 0
    B = 0
    for (I=1, Targets:count())
    {
        if (Targets&#91;I, string&#93;:find(dSval("Label")))
        {
            A++
            B = I
        }
    }
    if (A == 1)
    {
        if (dSval("Targetselect") == Targets&#91;B, string&#93;)
        {
            dSetSval("Targetselect", "") 
        }
        Targets:remove(B)
        print("Removed entry")
        fileWrite(Targetlist, glonEncode(Targets))
        dSetSval("Label", "")
    }
    elseif (A &gt;= 2)
    {
        print("More than one entry detected.")
    }
    else
    {
        print("No entries match query")
    }
    dArray("Targetselect", Targets)
}

#Outputting data
Ent = Aarr&#91;dSval("Target"), entity&#93;
Vec = Ent:pos()
X = Vec:x()
Y = Vec:y()
Z = Vec:z()
Ang = Ent:angles()
Owner = Ent:owner():name()
Type = Ent:type()
Model = Ent:model()

P.S. I hate your variable names

Lambda217 · August 2011

Also, you could try removing the "dupefinished()" bit, cause I believe that's constantly true after duping is finished, making the E2 constantly start itself.

Katelyn · August 2011

This is an old chip, and I actually never figured the bug out that was causing this. I don't mind what anyone does with my E2s, so thanks for figuring out that enigma!

P.S. My variable names hate you too! :P

LtBrandon · August 2011

Am I the only one that likes Kate's variable names?

Steeveeo · August 2011

Lambda217 wrote:

Also, you could try removing the "dupefinished()" bit, cause I believe that's constantly true after duping is finished, making the E2 constantly start itself.

It's not, that's a ClkCheck function. Advanced Duplicator will run any E2 chips it placed when the contraption is finished pasting, and that is the only time dupefinished() is ever true.

In short, dupefinished() == "PasteClk" (like useClk() or tickClk()).

Derma Target Finder

Comments

Leave a Comment