bind P [showgui "autosorry"]
editbind P [showgui "autosorry"]
specbind P [showgui "autosorry"]

alias but_text "^f3The script is disabled. Click here to enable."
alias but_text_com but_text_com_1
alias autosorry_var autosorry_2
alias but_name_1 "^f0Say only to teammates"
alias but_name_2 "Say to all"
alias how_to sayteam
if (getalias say_text) [] [alias say_text ""]

newgui "autosorry" [
                    guititle "autosorry"
                    guibar
                    guilist [
                             guistayopen [
                                          guibutton $but_name_1 [alias how_to sayteam; alias but_name_1 "^f0Say only to teammates"; alias but_name_2 "Say to all"]
                                          guibar
                                          guibutton $but_name_2 [alias how_to say; alias but_name_1 "Say only to teammates"; alias but_name_2 "^f0Say to all"]
]
]
                    guibar
                    guitext "Type here the text in, which you want to say, when you did a teamkill:"
                    guifield say_text 59
                    guibar
                    guistayopen [
                                 guibutton $but_text $but_text_com
]
                    guitab "about"
                    guititle "about"
                    guibar
                    guitext "Script is made by ^f6Leetex^f~."
                    guitext "Autosorry-script"
                    guitext "Greetings from ^f3Switzerland^f~!"
]

autosorry_1 = [alias frags (getfrags); alias deaths (getdeaths); sleep 200 [if (< (getfrags) $frags) [if (> (getdeaths) $deaths) [] [if (< (getfrags) 0) [$how_to $say_text; $autosorry_var] [if (> (getfrags) 0) [$how_to $say_text; $autosorry_var] []]]] []; sleep 0 [$autosorry_var]]]
autosorry_2 = 0

but_text_com_1 = [alias but_text "^f0The script is enabled. Click here to disable."; alias but_text_com but_text_com_2; alias autosorry_var autosorry_1; $autosorry_var]
but_text_com_2 = [alias but_text "^f3The script is disabled. Click here to enable."; alias but_text_com but_text_com_1; alias autosorry_var autosorry_2; $autosorry_var]