client/var/list/Key=list("A", "B", "C", "D", "E")

proc
    GenerateKeyMacros(client/C, macro_control="macro")
        for(var/v in C.Key)
            C.Key[v]=0
            winset(C, "[v]_Macro", "parent=[macro_control];name=[v]+UP;command='KeyUp [v]'")
            alert(C, "parent=[macro_control];name=[v]+UP;command='KeyUp [v]'")//test...and its there

client/verb
    KeyUp(key as text)
        set instant = 1
        world<<"yea"
        if(Key.Find(key))
            Key[key]=0
        else
            return
    KeyDown(key as text)
        set instant = 1
        if(Key.Find(key))
            Key[key]=0
        else
            return

//winset(usr, "myCtrlEmacro", "parent=macro1;name=Ctrl+E;command=exit")
//winget(player, null, "macros") will return the IDs of the macros available in the program, separated by semicolons.


client
    New()
        ..()
        GenerateKeyMacros(src, "macro")



mob
    verb
        Check()
            src<<winget(src, null, "macros")
    Stat()
        ..()
        statpanel("Checks")
        for(var/v in client.Key)
            stat("[v] : [client.Key[v]]")