my funktion()

on funktion()
    set timetosleep to 0
    set sleepq to "Nein"
    display dialog "Zeit bis zum Einschlafen (in Minuten):" default answer 19 with icon 0 buttons {"OK", "Abbruch"} default button 1
    if the button returned of the result is "OK" then
        try
            set timetosleep to text returned of the result as integer
        on error
            display dialog "Kein Zahlenwert eingegeben!" with icon 0 buttons {"OK", "Abbruch"} default button 1
            if the button returned of the result is "OK" then
                my funktion()
            end if
        end try
        
        display dialog "Ruhezustand?" with icon 0 buttons {"Ja", "Nein"} default button 1
        if the button returned of the result is "Ja" then
            set sleepq to "Ja"
        end if
        
        if timetosleep is greater than 0 then
            repeat timetosleep times
                delay 60
                tell application "System Events"
                    key code 60
                end tell
            end repeat
            
            tell application "iTunes"
                set i to sound volume
                repeat while i ≥ 0
                    set sound volume to i
                    set i to i - 1
                    delay 0.15
                end repeat
                stop
                delay 2
                set sound volume to 100
                delay 2
            end tell
            if sleepq is "Ja" then
                tell application "System Events"
                    sleep
                end tell
            end if
        end if
    end if
end funktion