on *:TEXT:*:#:{
if ($1 == .commands) {
msg $chan ( Commands: %commands )
}
if ($1 == .server1) {
msg $chan ( Server1: %server1 )
}
if ($1 == .server2) {
msg $chan ( Server2: %server2 )
}
if ($1 == .dj1) {
msg $chan ( DJ1: iff(%dj1,%dj1,None) )
}
if ($1 == .dj2) {
msg $chan ( DJ2: iff(%dj2,%dj2,None) )
}
if ($1 == .nextdj1) {
msg $chan ( Next DJ1: iff(%nextdj1,%nextdj1,None) )
}
if ($1 == .nextdj2) {
msg $chan ( Next DJ2: iff(%nextdj2,%nextdj2,None) )
}
if ($1 == .song1) {
sockclose song1
sockopen song1 %server1ip %port1
}
if ($1 == .song2) {
sockclose song2
sockopen song2 %server2ip %port2
}
if ($1 == .listeners1) {
sockclose listeners1
sockopen listeners1 %server1ip %port1
}
if ($1 == .listeners2) {
sockclose listeners2
sockopen listeners2 %server2ip %port2
}
if ($1 == .request1) || ($1 == .shoutout1) {
if (%dj1 == $null) {
msg $chan ( $+(,$nick,:)There is no DJ onair at the moment please try again later. )
halt
}
if (!$2) {
msg $chan ( $+(,$nick,:)Please provide a valid $right($1,-1) $+ .
halt
}
else {
msg %dj1 $right($1,-1) from $nick $+ : $2-
notice $nick our $right($1,-1) has been submitted.
}
}
if ($1 == .request2) || ($1 == .shoutout2) {
if (%dj2 == $null) {
msg $chan ( $+(,$nick,:) There is no DJ onair at the moment please try again later. )
halt
}
if (!$2) {
msg $chan ( $+(,$nick,:) Please provide a valid $right($1,-1) $+ .
halt
}
else {
msg %dj2 $right($1,-1) from $nick $+ : $2-
notice $nick our $right($1,-1) has been submitted.
}
}
if ($1 == .set server1ip) {
if ($nick !isop $chan) {
set %server1ip $3- | msg $chan ( Server 1 IP has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set port1) {
if ($nick !isop $chan) {
set %port1 $3- | msg $chan ( Server 1 PORT has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set server2ip) {
if ($nick !isop $chan) {
set %server2ip $3- | msg $chan ( Server 2 IP has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set port2) {
if ($nick !isop $chan) {
set %port2 $3- | msg $chan ( Server 2 PORT has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set commands) {
if ($nick !isop $chan) {
set %cmds $3- | msg $chan ( Commands have been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set server1) {
if ($nick !isop $chan) {
set %server1 $3- | msg $chan ( Server 1 IP has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set server2) {
if ($nick !isop $chan) {
set %server2 $3- | msg $chan ( Server 2 IP has been saved )
}
else { notice $nick ERROR: You must be opped }
}
if ($1 == .set channel) {
if ($nick !isop $chan) {
set %chan $3- | msg $chan ( Channel has been saved )
}
else { notice $nick [^B]ERROR[^B]: You must be opped }
}
}
on *:TEXT:*:?:{
if ($1 == .onair1) {
if ($nick !isop %chan) {
msg $nick [^B]Error[^B]: You must be opped in %chan to use this command
halt
}
if (%dj1 == $nick) || (%nextdj1 == $nick) {
msg $nick You are already set as the nextdj in query for server 1
halt
}
if (%nextdj1) {
msg $nick [^B]ERROR[^B]: There is already a dj in query for Server 1.
halt
}
if (%dj1) {
set %nextdj1 $nick
msg $nick You have been set as the next dj in query for server 1. %dj1 is currently on.
halt
}
else {
set %dj1 $nick
msg $nick You are now set as onair for server 1. Requests and Shoutouts will be sent to you.
}
}
if ($1 == .onair2) {
if ($nick !isop %chan) {
msg $nick [^B]ERROR[^B]: You must be opped in %chan to use this command
halt
}
if (%dj2 == $nick) || (%nextdj2 == $nick) {
msg $nick You are already set as the nextdj in query for server 2.
halt
}
if (%nextdj2) {
msg $nick [^B]ERROR[^B]: There is already a dj in query for server 2.
halt
}
if (%dj2) {
set %nextdj2 $nick
msg $nick You have been set as the next dj in query for server 2. %dj2 is currently on.
}
else {
set %dj2 $nick
msg $nick You are not set as onair for server 2. Requests and Shoutouts will be sent to you.
}
}
if ($1 == .offair1) {
if ($nick !isop %chan) {
msg $nick [^B]ERROR[^B]: You must be opped in %chan to use this command
halt
}
if (%dj1 != $nick) && (%nextdj1 != $nick) {
msg $nick You are not currently in the dj query for server 1.
halt
}
if (%dj1 == $nick) {
msg %nextdj1 %dj1 is now offair. You are now the primary DJ for server 1.
set %dj1 %nextdj1
unset %nextdj1
msg $nick You are now set as offair
halt
}
if (%nextdj1 == $nick) {
unset %nextdj1
msg $nick You have been removed from the dj in query for server 2.
}
}
if ($1 == .offair2) {
if ($nick !isop $chan) {
msg $nick [^B]ERROR[^B]: You must be opped in %chan to use this command
halt
}
if (%dj2 != $nick) && (%nextdj2 != $nick) {
msg $nick You are not currently in the dj query for server 2.
halt
}
if (%dj2 == $nick) {
msg %nextdj2 %dj2 is now offair. You are now the primary DJ for server 2.
set %dj2 %nextdj2
unset %nextdj2
msg $nick You are now set as offair
halt
}
if (%nextdj2 == $nick) {
unset %nextdj2
msg $nick You have been removed from the dj in query for server 1.
}
}
}
on *:sockopen:song1:{
sockwrite -n $sockname GET /7.html HTTP:/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:song1:{
if ($sockerr > 0) return
:nextread
sockread -f %song1
if ($sockbr == 0) return
if (%song1 == $null) %song1 = empty
set %song1 $remove(%song1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %song1) && (content-type* !iswm %song1) && (%song1 != empty)) {
set %song1 $gettok(%song1,70,44)
set %song1 $replace(%song,&,$chr(38),',$chr(39)
}
goto nextread
}
on *:sockclose:song1:{
msg %chan ( Current Song: %song1 )
}
on *:sockopen:song2:{
sockwrite -n $sockname GET /7.html HTTP:/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:song2:{
if ($sockerr > 0) return
:nextread
sockwrite -f %song2
if ($sockbr == 0) return
if (%song2 == $null) %song2 = empty
set %song2 $remove(%song2,<HTML><meta http-equiv="Praga" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %song2) && (content-type* !iswm %song2) && (%song2 != empty)) {
set %song2 $gettok(%song2,70,44)
set %song2 $replace(%song2,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:song2:{
msg $chan ( Current Song: %song2 )
}
on *:sockopen:listeners1:{
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:listeners1:{
if ($sockerr > 0) return
:nextread
sockread -f %listeners1
if ($sockbr == 0) return
if (%listeners1 == $null) %listeners1 = empty
set %listeners1 $remove(%listeners1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %listeners1) && (content-type* !iswm %listeners1) && (%listeners1 != empty)) {
set %listeners1 $gettok(%listeners1,1,44)
}
goto nextread
}
on *:sockclose:listeners1:{
msg %chan ( Listeners: %listeners1 )
}
on *:sockopen:listeners2:{
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:listeners2:{
if ($sockerr > 0) return
:nextread
sockread -n %listeners2
if ($sockbr == 0) return
if (%listeners2 == $null) %listeners2 == empty
set %listeners2 $remove(%listeners2,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>
if ((HTTP/1.* !iswm %listeners2) && (content-type* !iswm %listeners2) && (%listeners2 != empty)) {
set %listeners2 $gettok(%listeners2,1,44)
}
goto nextread
}
on *:sockclose:listeners2:{
msg %chan ( Listeners: %listeners2 )
}
alias topic {
topic %chan ( Kurupt.Radio .x. Server1:$+ %dj1 $+ .x. Server2: $+ %dj2 $+ )
}
on *:TEXT:.topic*:%chan:{
if ($nick !isop $chan) {
dotopic
}
else { HALT }
}
on *:nick:{
if ($nick == %dj1) {
set %dj1 $newnick
}
if ($nick == %dj2) {
set %dj2 $newnick
}
if ($nick == %nextdj1) {
set %nextdj1 $newnick
}
if ($nick == %nextdj2) {
set %nextdj2 $newnick
}
}
on *:part:%chan:{
if ($nick == %dj1) {
msg %nextdj1 %dj1 is now offair. you are now the primary DJ for server 1.
msg %dj You are now set as offair for parting the channel for server 1.
set %dj1 %nextdj1
unset %nextdj1
halt
}
if ($nick == %nextdj1) {
msg %nextdj1 You have been removed from the DJ query for parting the channel for servet 1.
unset %nextdj1
}
if ($nick == %dj2) {
msg %nextdj2 %dj2 is now offair. you are now the primary DJ for server 2.
msg %dj2 You are now set as offair for parting the channel for server 2.
set %dj2 %nextdj2
unset %nextdj2
halt
}
if ($nick == %nextdj2) {
msg %nextdj2 You have been removed from the DJ query for parting the channel for server 2.
unset %nextdj2
}