bind pub -|- !url radio:pub:url
bind pub -|- !stream radio:pub:stream
bind pub -|- !dj radio:pub:dj
bind pub -|- !wunsch radio:pub:wunsch
bind pub -|- !gruss radio:pub:gruss
bind pub -|- !info radio:pub:info
bind pub -|- !nextdj radio:pub:nextdj
bind msg ${radio:flag} dj radio:msg:dj
bind msg ${radio:flag} radiooff radio:msg:off
bind msg ${radio:flag} nextdj radio:msg:nextdj
bind msg ${radio:flag} next radio:msg:next
bind join -|- * radio:join:welcome
bind pub -|- .dj radio:pub:setdj
bind pub -|- .radiooff radio:pub:off
bind pub -|- .info radio:pub:dotinfo
bind pub -|- .nextdj radio:pub:setnextdj
bind pub -|- .next radio:pub:next

proc radio:pub:url {nick host hand chan arg} {
	global radio:name radio:url radio:chan
        if {$chan == ${radio:chan}} {
                putserv "NOTICE $nick :Die Homepage von ${radio:name} ist unter ${radio:url} zu erreichen."
	}
}

proc radio:pub:stream {nick host hand chan arg} {
	global radio:name radio:stream radio:off radio:chan
        if {$chan == ${radio:chan}} {
		if {${radio:off}} {
                        putserv "NOTICE $nick :Das Radioscript ist momentan nicht aktiviert."
			return 0
		}
                putserv "NOTICE $nick :Den Stream von ${radio:name} kannst du dir unter ${radio:stream} reinziehen!"
	}
}

proc radio:pub:dj {nick host hand chan arg} {
	global radio:dj radio:off radio:chan
        if {$chan == ${radio:chan}} {
		if {${radio:off}} {
                        putserv "NOTICE $nick :Das Radioscript ist momentan nicht aktiviert."
			return 0
 		}
                putserv "NOTICE $nick :Momentan dröhnt euch ${radio:dj} mit seiner Musik zu!"
	}
}

proc radio:pub:wunsch {nick host hand chan arg} {
	global radio:name radio:dj radio:off radio:chan radio:wunsch
        set radio:wunsch "$arg"
        if {$chan == ${radio:chan}} {
		if {${radio:off}} {
                        putserv "NOTICE $nick :Das Radioscript ist momentan nicht aktiviert."
			return 0
		}
                if {${radio:wunsch} == ""} {
                        putserv "NOTICE $nick :Du hast keinen Titel angegeben!"
			return 0
		}
                putserv "PRIVMSG ${radio:dj} :04Wunsch: ${radio:wunsch} von $nick."
                putserv "NOTICE $nick :Dein Wunsch ${radio:wunsch} wurde an ${radio:dj} weitergeleitet. Bitte wünsche dir das nicht noch einmal, da wir den Wunsch sonst ignorieren werden!"
	}
}

proc radio:pub:gruss {nick host hand chan arg} {
	global radio:name radio:dj radio:off radio:chan radio:gruss
        set radio:gruss "$arg"
        if {$chan == ${radio:chan}} {
		if {${radio:off}} {
                        putserv "NOTICE $nick :Das Radioscript ist momentan nicht aktiviert."
			return 0
		}
                if {${radio:gruss} == ""} {
                        putserv "NOTICE $nick :Du hast keinen Gruß angegeben!"
			return 0
		}
                putserv "PRIVMSG ${radio:dj} :07Gruss: ${radio:gruss} von $nick."
                putserv "NOTICE $nick :Dein Gruss ${radio:gruss} wurde an ${radio:dj} weitergeleitet. Bitte wünsche dir das nicht noch einmal, da wir deinen Gruß sonst ignorieren werden!"
	}
}

proc radio:msg:dj {nick host hand arg} {
        global radio:name radio:dj radio:dj:mode radio:off radio:chan radio:commandmode
	if {${radio:commandmode} == "2"} { return 0 }
	if {${radio:dj:mode} == "1"} {
		set radio:dj "$nick"
		if {${radio:off}} {
                        putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
                        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
		}
                putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
		set radio:off "0"
        } else {
                if {$arg == ""} {
                        putserv "NOTICE $nick :Du musst schon einen DJ angeben ..."
			return 0
		}
                set radio:dj "$arg"
		if {${radio:off}} {
                        putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
                        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
		}
                putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
                putserv "NOTICE $nick :${radio:dj} wurde als DJ von ${radio:name} eingesetzt."
		set radio:off "0"
	}
}

proc radio:msg:off {nick host hand arg} {
	global radio:name radio:off radio:chan radio:commandmode
	if {${radio:commandmode} == "2"} { return 0 }
	set radio:off "1"
        putserv "NOTICE $nick :Das Radioscript für ${radio:chan} wurde deaktiviert."
}

proc radio:join:welcome {nick uhost hand chan} {
	global radio:name radio:chan botnick radio:welcome
	if {$nick == $botnick} {return 0}
	if {${radio:welcome} == "0"} {return 0}
        if {$chan == ${radio:chan}} {
                putserv "NOTICE $nick :Willkommen in ${radio:chan}, dem IRC-Channel von ${radio:name}! Dir stehen folgende Befehle zur Verfügung:"
                putserv "NOTICE $nick :Mit !url kannst du dir die URL zum Channel anzeigen lassen, !stream zeigt dir an, wo du das Radio hören kannst, !dj sagt dir, wer die Musik auflegt und !nextdj zeigt dir, wer den DJ danach ablöst. Außerdem kannst du mit !wunsch Musikwünsche und mit !gruss Grüße an den/die Moderator(in) weitergeben."
        }
}

proc radio:pub:setdj {nick host hand chan arg} {
	global radio:name radio:dj radio:dj:mode radio:off radio:chan radio:commandchan radio:commandmode
	if {${radio:commandmode} == "1"} { return 0 }
        if {$chan == ${radio:commandchan}} {
		if {${radio:dj:mode} == "1"} {
			set radio:dj "$nick"
			if {${radio:off}} {
        	                putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
	                        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
			}
	                putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
			set radio:off "0"
	        } else {
        	        if {$arg == ""} {
                	        putserv "PRIVMSG $chan :Du musst schon einen DJ angeben, $nick..."
				return 0
			}
	                set radio:dj "$arg"
			if {${radio:off}} {
        	                putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
                	        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
			}
        	        putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
	                putserv "PRIVMSG ${radio:commandchan} :${radio:dj} wurde als DJ von ${radio:name} eingesetzt."
			set radio:off "0"
		}
	}
}

proc radio:pub:off {nick host hand chan arg} {
	global radio:name radio:off radio:chan radio:commandmode radio:commandchan
	if {${radio:commandmode} == "1"} { return 0 }
        if {$chan == ${radio:commandchan}} {
		set radio:off "1"
		putserv "PRIVMSG ${radio:commandchan} :Das Radioscript für ${radio:chan} wurde deaktiviert."
	}
}

proc radio:pub:info {nick host hand chan arg} {
	global radio:name radio:url radio:chan
        if {$chan == ${radio:chan}} {
                putserv "NOTICE $nick :Dir stehen folgende Befehle zur Verfügung:"
                putserv "NOTICE $nick :Mit !url kannst du dir die URL zum Channel anzeigen lassen, !stream zeigt dir an, wo du das Radio hören kannst, !dj sagt dir, wer die Musik auflegt und !nextdj zeigt dir, wer den DJ danach ablöst. Außerdem kannst du mit !wunsch Musikwünsche und mit !gruss Grüße an den/die Moderator(in) weitergeben."
	}
}

proc radio:pub:dotinfo {nick host hand chan arg} {
	global radio:commandmode radio:commandchan radio:dj:mode radio:chan
	if {${radio:commandmode} == "1"} { return 0 }
        if {$chan == ${radio:commandchan}} {
                putserv "NOTICE $nick :Dir stehen folgende Befehle zur Verfügung:"
		if {${radio:dj:mode} == "1"} {
	                putserv "NOTICE $nick :Mit .dj kannst du dich zum DJ von ${radio:chan} machen, .radiooff deaktiviert das Radioscript, .nextdj macht dich zum nächsten DJ und .next aktiviert den nächsten DJ. (Wenn radio:nextdj gesetzt ist.)"
		} else {
			putserv "NOTICE $nick :Mit .dj NICK kannst du NICK zum DJ von ${radio:chan} machen, .radiooff deaktiviert das Radioscript, , .nextdj NICK macht NICK zum nächsten DJ und .next aktiviert den nächsten DJ. (Wenn radio:nextdj gesetzt ist.)"
		}
	}
}

proc radio:pub:nextdj {nick host hand chan arg} {
	global radio:name radio:chan radio:nextdj radio:dj
        if {$chan == ${radio:chan}} {
                putserv "NOTICE $nick :${radio:nextdj} wird ${radio:dj} nachher ablösen."
	}
}

proc radio:pub:setnextdj {nick host hand chan arg} {
	global radio:name radio:nextdj radio:dj:mode radio:off radio:chan radio:commandchan radio:commandmode
	if {${radio:commandmode} == "1"} { return 0 }
        if {$chan == ${radio:commandchan}} {
		if {${radio:dj:mode} == "1"} {
			set radio:nextdj "$nick"
	                putserv "PRIVMSG ${radio:commandchan} :${radio:nextdj} wurde als nächster DJ von ${radio:name} eingestellt."
	        } else {
        	        if {$arg == ""} {
                	        putserv "PRIVMSG $chan :Du musst schon einen DJ angeben, $nick..."
				return 0
			}
	                set radio:nextdj "$arg"
        	        putserv "PRIVMSG ${radio:nextdj} :Du bist der nächste DJ von ${radio:name}."
	                putserv "PRIVMSG ${radio:commandchan} :${radio:nextdj} wurde als nächster DJ von ${radio:name} eingesetzt."
		}
	}
}

proc radio:msg:nextdj {nick host hand arg} {
        global radio:name radio:dj:mode radio:chan radio:commandmode radio:nextdj
	if {${radio:commandmode} == "2"} { return 0 }
	if {${radio:dj:mode} == "1"} {
		set radio:nextdj "$nick"
	                putserv "PRIVMSG $nick :${radio:nextdj} wurde als nächster DJ von ${radio:name} eingestellt."
        } else {
                if {$arg == ""} {
                        putserv "NOTICE $nick :Du musst schon einen DJ angeben ..."
			return 0
		}
                set radio:nextdj "$arg"
        	        putserv "PRIVMSG ${radio:nextdj} :Du bist der nächste DJ von ${radio:name}."
	                putserv "NOTICE $nick :${radio:nextdj} wurde als nächster DJ von ${radio:name} eingesetzt."
	}
}

proc radio:pub:next {nick host hand chan arg} {
	global radio:name radio:dj radio:nextdj radio:off radio:chan radio:commandchan radio:commandmode
	if {${radio:commandmode} == "1"} { return 0 }
        if {$chan == ${radio:commandchan}} {
		if {${radio:nextdj} == ""} {
			putserv "PRIVMSG ${radio:commandchan} :Es wurde kein nächster DJ gesetzt."
			return 0
		} else {
			set radio:dj "${radio:nextdj}"
			set radio:nextdj ""
			if {${radio:off}} {
        	                putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
	                        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
			}
	                putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
			set radio:off "0"
		}
	}
}

proc radio:msg:next {nick host hand arg} {
        global radio:name radio:dj radio:nextdj radio:off radio:chan radio:commandmode
	if {${radio:commandmode} == "2"} { return 0 }
		if {${radio:nextdj == ""} {
			putserv "PRIVMSG $nick :Es wurde kein nächster DJ gesetzt."
			return 0
		} else {
			set radio:dj "${radio:nextdj}"
			set radio:nextdj ""
			if {${radio:off}} {
        	                putserv "PRIVMSG ${radio:dj} :Das Radioscript war deaktiviert und wird nun gestartet."
	                        putserv "PRIVMSG ${radio:chan} :Das Radio ist jetzt ONLINE! Euer DJ ist ${radio:dj}."
			}
	                putserv "PRIVMSG ${radio:dj} :Du bist jetzt DJ von ${radio:name}."
			set radio:off "0"
		}
	}
}