// ---------------------------------------------------- // AutoSorry Script, v1.0 // (C) Chaos, ZLIB license // http://www.opensource.org/licenses/zlib-license.php // ---------------------------------------------------- // Defaults: createine = [ if (=s (getalias $arg1) "") [ $arg1 = $arg2 ] ] createine as_tktext "Sorry" createine as_opts 2 // Key Bind: bind "M" [ showgui autosorry ] // GUI Menu: newgui autosorry [ guistayopen [ guititle "Auto Sorry" guibar guilist [ guitext "Text: " 0 guifield as_tktext -25 ] guibar guibitfield "Say to Teammates Only" as_opts 1 guibar guibitfield "Enable Script" as_opts 2 ] ] "AutoSorry" // AutoSorry Command: as_autosorry = [ sleep 250 [ case 0 (&& (> @(getfrags) (getfrags)) (= @(getdeaths) (getdeaths)) (& $as_opts 2)) [] (& $as_opts 1) [ say $as_tktext ] [ sayteam $as_tktext ] ]; sleep 250 [ as_autosorry ] ] as_autosorry