quick spec binds

bindtoggle = [
    if $numargs [
        a = [toggle_@arg1 = 1 ; onrelease [toggle_@@arg1 = 0]]
        t = (at ["" "edit" "spec"] $arg2)
        d = ((concatword get $t bind) $arg1)

        if (< (strstr $d $a) 0) [
            (concatword $t bind) $arg1 [
                @d
                @a
            ]
        ]
    ]
]

iskeypressed = [getalias [toggle_@arg1]]

bindtoggle LCTRL 0
specbind K [if (&& [ismaster (getclientnum)] [> (getfollow) -1] [iskeypressed LCTRL]) [kick (getfollow)]]
specbind S [if (&& [ismaster (getclientnum)] [> (getfollow) -1] [iskeypressed LCTRL]) [spectator 1 (getfollow)] [backward]]
specbind T [if (&& [ismaster (getclientnum)] [> (getfollow) -1] [iskeypressed LCTRL]) [setteam (getfollow) (? (=s (getclientteam (getfollow)) good) evil good)] [saycommand]]