A Better Chrisloyd's Radio bot
Posted by TrioN
Sunday, April 08, 2007
Description: Much fixed up.. u just need to change the parts where it says #FragHYEP and the stream info. I give like 40% of the credit to Chris and like the rest to me cuz i edited/add ALOT and added a second stream. I added the timer socks but havent fixed wat it was supposed to be used for (cuz i dont know wat its main purpose is)
on *:load:{
set %radiochan #FragHYPE
set %serverip1 216.32.81.114
set %serverip2 216.32.81.114
set %port1 7000
set %port2 9000
}
on *:JOIN:#:{
if ($chan == #FragHYPE) {
if ($ulevel == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Welcome to #Frag[^B][^K]3[^U]HYPE[^O][^K]15,1 Type [^B][^U]@Info[^B][^U] for Information and [^B][^U]@Commands[^B][^U] for a list of commands to use [^K]9»[^K]3]
}
}
if ($ulevel) {
if ($ulevel == 1) { halt }
if ($ulevel >= 200) {
var %info $ulist($address($nick,1),$ulevel,1).info
msg $chan [^K]3,1[^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick $level($address($nick,6)) $+ , %info [^K]9»[^K]3][^O]
if ($chan == #FragHYPE) { notice $nick [^K]3,1[^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 [@managercommands] [@ownercommands] [@DJcommands] [@deletestaff] [@addstaff] [@streaminfo] [@override commands] [^K]9»[^K]3][^O]
}
}
}
}
on *:NICK:{
if ($nick == %DJ1) {
set %DJ1 $newnick
}
if ($nick == %DJ2) {
set %DJ2 $newnick
}
}
on *:TEXT:@commands:#FragHYPE:{
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15Ventrilo - @vent [^K]9»[^K]3][[^K]9« [^K]15Stream - @streams [^K]9»[^K]3][[^K]9« [^K]15Now Playing - @song1 @song2 [^K]9»[^K]3][[^K]9« [^K]15Listeners - @listeners @listeners1 @listeners2 [^K]9»[^K]3][[^K]9« [^K]15DJ - @DJ1 @DJ2 [^K]9»[^K]3][[^K]9« [^K]15Shoutout - @shoutout1 @shoutout2 [^K]9»[^K]3][[^K]9« [^K]15Request-a-song - @request1 @request2 [^K]9»[^K]3][[^K]9« [^K]15Cut(If you don't like the song) - @cut1 @cut2 [^K]9»[^K]3]
}
on *:TEXT:@vent*:#FragHYPE:{
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15Ventrilo ip: ventrilo.fraghype.net port: 2079 [^K]9»[^K]3]
}
on *:TEXT:@info:#:{
notice $nick [^K]3,1[[^K]9« [^K]15Visit our website at [^K]15www[^K]9.[^K]15,1FragHYPE[^K]9.[^K]15,1net [^K]9»[^K]3][^O]
notice $nick [^K]3,1[[^K]9«[^K]15 $me scripted by TrioN only using mIRC [^K]9»[^K]3][^O]
}
on *:TEXT:@DJ1:#FragHYPE:{
if (%DJ1) {
if ($nick == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You're already the DJ that is annihilating the radio waves for Stream-1 [^K]9»[^K]3]
}
else {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 DJ: %DJ1 [^K]9»[^K]3]
}
}
else {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
}
on *:TEXT:@DJ2:#FragHYPE:{
if (%DJ2) {
if ($nick == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You're already the DJ that is annihilating the radio waves for Stream-2 [^K]9»[^K]3]
}
else {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 DJ: %DJ2 [^K]9»[^K]3]
}
}
else {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
}
on *:TEXT:@onair1:#FragHYPE:{
if ($nick >= 200) {
if ($nick == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You're already on Stream-1 [^K]9»[^K]3]
halt
}
if (%DJ1) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is already Stream-1 [^K]9»[^K]3]
halt
}
if (!%DJ1) {
set %DJ1 $nick
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now on Stream-1 [^K]9»[^K]3]
}
}
}
on *:TEXT:@onair2:#FragHYPE:{
if ($nick >= 200) {
if ($nick == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You're already on Stream-2 [^K]9»[^K]3]
halt
}
if (%DJ2) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 DJ: %DJ2 [^K]9»[^K]3]
halt
}
if (!%DJ2) {
set %DJ2 $nick
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now on Stream-2 [^K]9»[^K]3]
}
}
}
on *:TEXT:@offair1:#FragHYPE:{
if ($nick >= 200) {
if (%DJ1) {
if ($nick == %DJ1) {
set %requests1 on
set %shoutouts1 on
set %cuts1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now off air. [^K]9»[^K]3]
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now off air. [^K]9»[^K]3]
unset %DJ1
}
}
}
}
on *:TEXT:@offair2:#FragHYPE:{
if ($nick >= 200) {
if (%DJ2) {
if ($nick == %DJ2) {
set %requests1 on
set %shoutouts1 on
set %cuts1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now off air. [^K]9»[^K]3]
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now off air. [^K]9»[^K]3]
unset %DJ2
}
}
}
}
on *:TEXT:@shoutout1*:#FragHYPE:{
if (!%DJ1) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You did not submit an actual shoutout [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @Shoutout1 FragHYPE is the best [^K]9»[^K]3][^B]
}
else {
if ($2 == on) {
if ($nick == %DJ1) {
if (%shoutouts1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutouts1 are already off [^K]9»[^K]3] | halt
set %shoutouts1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @shoutout1 on [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @shoutouts1 on [^K]9»[^K]3]
halt
}
}
}
if ($2 == off) {
if ($nick == %DJ1) {
if (%shoutouts1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutouts1 are already off [^K]9»[^K]3] | halt
set %shoutouts1 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @shoutouts1 off [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @shoutouts1 off [^K]9»[^K]3]
halt
}
}
}
if (%shoutouts1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ1 [^K]9»[^K]3]
halt
}
if (%spam.shoutouts. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.shoutouts. [ $+ [ $nick ] ] 1
if ($nick == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can't send a shoutout to yourself [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your shoutout has been sent to %DJ1 [^K]9»[^K]3]
msg %DJ1 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutout by $nick $+ : $2- [^K]9»[^K]3]
}
}
}
}
}
on *:TEXT:@requests1*:#FragHYPE:{
if (!%DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You did not submit an actual request [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @request %song1 [^K]9»[^K]3][^B]
}
else {
if ($2 == on) {
if ($nick == %DJ1) {
if (%requests1 == on) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 requests are already on [^K]9»[^K]3] | halt
set %requests1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @request on [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @request on [^K]9»[^K]3]
halt
}
}
}
}
if ($2 == off) {
if ($nick == %DJ1) {
if (%requests1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 requests are already off [^K]9»[^K]3] | halt
set %requests1 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @request off [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @request off [^K]9»[^K]3]
halt
}
}
}
}
if (%requests1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ1 [^K]9»[^K]3]
halt
}
if (%spam.request. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.request. [ $+ [ $nick ] ] 1
if ($nick == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can't send a request to yourself [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your request has been sent to %DJ1 [^K]9»[^K]3]
msg %DJ1 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Request by $nick $+ : $2- [^K]9»[^K]3]
}
}
}
on *:TEXT:@cut1*:#FragHYPE:{
if (!%DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
if ($2 == on) {
if ($nick == %DJ1) {
if (%cuts1 == on) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 cuts are already on for Stream-1 [^K]9»[^K]3] | halt
set %cuts1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @cut1 on for Stream-1 [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @cut1 on for Stream-1 [^K]9»[^K]3]
halt
}
}
}
elseif ($2 == off) {
if ($nick == %DJ1) {
if (%cuts1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 cuts are already off [^K]9»[^K]3] | halt
set %cuts1 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @cut1 off [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 turned the command @cut1 off [^K]9»[^K]3]
halt
}
}
}
else {
if (%cuts1 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ1 [^K]9»[^K]3]
halt
}
if (%spam.cuts. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.cuts. [ $+ [ $nick ] ] 1
if ($nick == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can't cut yourself [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your cut request has been sent to %DJ1 [^K]9»[^K]3]
msg %DJ1 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Request to cut the song has been sent by $nick [^K]9»[^K]3]
}
}
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;2nd stream
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:@shoutout2*:#FragHYPE:{
if (!%DJ2) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is Offline, ask a DJ to go on [^K]9»[^K]3]
}
else {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You did not submit an actual shoutout [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @Shoutout2 FragHYPE is the best [^K]9»[^K]3][^B]
}
else {
if ($2 == on) {
if ($nick == %DJ2) {
if (%shoutouts2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutouts are already off for Stream-2 [^K]9»[^K]3] | halt
set %shoutouts2 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @shoutout2 on for Stream-2 [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @shoutouts2 on for Stream-2 [^K]9»[^K]3]
halt
}
}
}
if ($2 == off) {
if ($nick == %DJ2) {
if (%shoutouts2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutouts are already off for Stream-2 [^K]9»[^K]3] | halt
set %shoutouts2 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @shoutout2 off for Stream-2 [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @shoutout2 off for Stream-2 [^K]9»[^K]3]
halt
}
}
}
if (%shoutouts2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ2 [^K]9»[^K]3]
halt
}
if (%spam.shoutouts. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.shoutouts. [ $+ [ $nick ] ] 1
if ($nick == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You nimrod, you cant send a shouout to your self [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your shoutout has been sent to %DJ2 [^K]9»[^K]3]
msg %DJ2 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Shoutout by $nick $+ : $2- [^K]9»[^K]3]
}
}
}
}
}
on *:TEXT:@requests2*:#FragHYPE:{
if (!%DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is Offline, ask a DJ to go on [^K]9»[^K]3]
}
else {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You did not submit an actual request [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @request %song2 [^K]9»[^K]3][^B]
}
else {
if ($2 == on) {
if ($nick == %DJ2) {
if (%requests2 == on) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 requests are already on [^K]9»[^K]3] | halt
set %requests2 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @request on [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @request on [^K]9»[^K]3]
halt
}
}
}
}
if ($2 == off) {
if ($nick == %DJ2) {
if (%requests2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 requests are already off [^K]9»[^K]3] | halt
set %requests2 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @request off [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @request off [^K]9»[^K]3]
halt
}
}
}
}
if (%requests2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ2 [^K]9»[^K]3]
halt
}
if (%spam.request. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.request. [ $+ [ $nick ] ] 1
if ($nick == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You nimrod, you cant send a request to your self [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your request has been sent to %DJ2 [^K]9»[^K]3]
msg %DJ2 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Request by $nick $+ : $2- [^K]9»[^K]3]
}
}
}
on *:TEXT:@cut2*:#FragHYPE:{
if (!%DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is Offline, ask a DJ to go on [^K]9»[^K]3]
}
else {
if ($2 == on) {
if ($nick == %DJ2) {
if (%cuts2 == on) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 cuts are already on [^K]9»[^K]3] | halt
set %cuts2 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @cut on [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @cut on [^K]9»[^K]3]
halt
}
}
elseif ($2 == off) {
if ($nick == %DJ2) {
if (%cuts2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 cuts are already off [^K]9»[^K]3] | halt
set %cuts2 off
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You turned the command @cut off [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 turned the command @cut off [^K]9»[^K]3]
halt
}
}
}
else {
if (%cuts2 == off) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 This command was turned off by %DJ2 [^K]9»[^K]3]
halt
}
if (%spam.cuts. [ $+ [ $nick ] ] == 1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can only used this command once every 2 minutes [^K]9»[^K]3]
halt
}
else {
set -u120 %spam.cuts. [ $+ [ $nick ] ] 1
if ($nick == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You can't cut your song [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Your cut request has been sent to %DJ2 [^K]9»[^K]3]
msg %DJ2 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Request to cut the song has been sent by $nick [^K]9»[^K]3]
}
}
}
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;@stream Command
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:@streaminfo:#FragHYPE:{
if ($nick >= 200) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1: 216.32.81.114:7000 Password: THESTREAM1password [^K]9»[^K]3][[^K]9«[^K]15 Stream-2: 216.32.81.114:9000 Password: THESTREAM2password [^K]9»[^K]3]
}
}
on *:TEXT:@streams:#FragHYPE:{
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @stream1 and @stream2 for more info! [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1: http:// $+ %serverip1 $+ : $+ %port1 $+ /listen.pls [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2: http:// $+ %serverip2 $+ : $+ %port2 $+ /listen.pls [^K]9»[^K]3]
}
on *:TEXT:@Stream1*:#FragHYPE:{
if (%DJ1) {
sockclose server1
sockopen server1 %serverip1 %port1
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
}
on *:SOCKOPEN:server1: {
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:server1: {
if ($sockerr > 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
return
}
:nextread
sockread -f %scasttemp1
if ($sockbr == 0) return
if (%scasttemp1 == $null) %scasttemp1 = empty
set %scasttemp1 $remove(%scasttemp1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp1) && (content-type* !iswm %scasttemp1) && (%scasttemp1 != empty)) {
set %status1 $gettok(%scasttemp1,2,44)
set %asong $gettok(%scasttemp1,7-,44)
set %listeners1 $gettok(%scasttemp1,1,44)
set %peak1 $gettok(%scasttemp1,3,44)
set %song1 $replace(%asong,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:server1:{
if (%status1 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1: http:// $+ %serverip1 $+ : $+ %port1 $+ /listen.pls [^B]×[^B] OnAir: %DJ1 [^K]9»[^K]3]
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %song1 [^B]×[^B] Listeners: %listeners1 $+ /250 [^B]×[^B] Peak: %peak1 [^K]9»[^K]3]
}
}
on *:TEXT:@Stream2*:#FragHYPE:{
if (%DJ2) {
sockclose server2
sockopen server2 %serverip2 %port2
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
}
on *:SOCKOPEN:server2:{
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:server2:{
if ($sockerr > 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
return
}
:nextread
sockread -f %scasttemp2
if ($sockbr == 0) return
if (%scasttemp2 == $null) %scasttemp2 = empty
set %scasttemp2 $remove(%scasttemp2,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp2) && (content-type* !iswm %scasttemp2) && (%scasttemp2 != empty)) {
set %status2 $gettok(%scasttemp2,2,44)
set %asong2 $gettok(%scasttemp2,7-,44)
set %listeners2 $gettok(%scasttemp2,1,44)
set %peak2 $gettok(%scasttemp2,3,44)
set %song2 $replace(%asong2,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:server2:{
if (%status2 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2: http:// $+ %serverip2 $+ : $+ %port2 $+ /listen.pls [^B]×[^B] OnAir: %DJ2 [^K]9»[^K]3]
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %song2 [^B]×[^B] Listeners: %listeners2 $+ /250 [^B]×[^B] Peak: %peak2 [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;@server Command
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:@song1:#FragHYPE:{
if (!%DJ1) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose song1
sockopen song1 %serverip1 %port1
}
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 %scasttemp1
if ($sockbr == 0) return
if (%scasttemp1 == $null) %scasttemp1 = empty
set %scasttemp1 $remove(%scasttemp1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp1) && (content-type* !iswm %scasttemp1) && (%scasttemp1 != empty)) {
set %status1 $gettok(%scasttemp1,2,44)
set %asong1 $gettok(%scasttemp1,7-,44)
set %listeners1 $gettok(%scasttemp1,1,44)
set %peak1 $gettok(%scasttemp1,3,44)
set %song1 $replace(%asong1,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:song1:{
if (%status1 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %song1 [^K]9»[^K]3]
}
}
on *:TEXT:@song2:#FragHYPE:{
if (!%DJ2) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose song2
sockopen song2 %serverip2 %port2
}
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
sockread -f %scasttemp2
if ($sockbr == 0) return
if (%scasttemp2 == $null) %scasttemp2 = empty
set %scasttemp2 $remove(%scasttemp2,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp2) && (content-type* !iswm %scasttemp2) && (%scasttemp2 != empty)) {
set %status2 $gettok(%scasttemp2,2,44)
set %asong2 $gettok(%scasttemp2,7-,44)
set %listeners2 $gettok(%scasttemp2,1,44)
set %peak2 $gettok(%scasttemp2,3,44)
set %song2 $replace(%asong2,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:song2:{
if (%status2 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %song2 [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;@listeners Command
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:@listeners:#FragHYPE:{
if (!%DJ2) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose listeners2
sockopen listeners2 %serverip2 %port2
if (!%DJ1) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose listeners1
sockopen listeners1 %serverip1 %port1
}
on *:TEXT:@listeners1:#FragHYPE:{
if (!%DJ1) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose listeners1
sockopen listeners1 %serverip1 %port1
}
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 %scasttemp1
if ($sockbr == 0) return
if (%scasttemp1 == $null) %scasttemp1 = empty
set %scasttemp1 $remove(%scasttemp1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp1) && (content-type* !iswm %scasttemp1) && (%scasttemp1 != empty)) {
set %status1 $gettok(%scasttemp1,2,44)
set %asong1 $gettok(%scasttemp1,7-,44)
set %listeners1 $gettok(%scasttemp1,1,44)
set %peak1 $gettok(%scasttemp1,3,44)
set %song1 $replace(%asong1,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:listeners1:{
if (%status1 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Listeners on Stream-1: %listeners1 $+ /250 [^K]9»[^K]3]
}
}
on *:TEXT:@listeners2:#FragHYPE:{
if (!%DJ2) { msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 Is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3] | halt }
sockclose listeners2
sockopen listeners2 %serverip2 %port2
}
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 -f %scasttemp2
if ($sockbr == 0) return
if (%scasttemp2 == $null) %scasttemp2 = empty
set %scasttemp2 $remove(%scasttemp2,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp2) && (content-type* !iswm %scasttemp2) && (%scasttemp2 != empty)) {
set %status2 $gettok(%scasttemp2,2,44)
set %asong2 $gettok(%scasttemp2,7-,44)
set %listeners2 $gettok(%scasttemp2,1,44)
set %peak2 $gettok(%scasttemp2,3,44)
set %song2 $replace(%asong2,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:listeners2:{
if (%status2 == 0) {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
msg %radiochan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Listeners on Stream-2: %listeners2 $+ /250 [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;
;override commands
;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:TEXT:@override command*:#FragHYPE:{
if ($ulevel < 349) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Sorry, you do not have access to this command [^K]9»[^K]3]
}
if ($ulevel >= 350) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 [^B]@override1[^B] and [^B]@override2[^B] -requests [on,off] offair onair [nick] shoutout [on,off] cut [on,off]-
}
}
on *:TEXT:@override1*:#FragHYPE:{
if ($ulevel < 349) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Sorry, you do not have access to this command [^K]9»[^K]3]
}
if ($ulevel >= 350) {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Please choose a actual override command [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15[^B]Example[^B] [^K]9»[^K]3][[^K]9«[^K]15,1 "@override commands" for more info [^K]9»[^K]3]
halt
}
if ($2- == requests on) {
if (%requests1 == off) {
set %requests1 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @requests [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @Request for Stream-1 was already on [^K]9»[^K]3]
}
if ($2- == requests off) {
if (%requests1 == on) {
set %requests1 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @requests [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @Request for Stream-1 was already off [^K]9»[^K]3]
}
if ($2- == offair) {
if (%DJ1) {
set %requests1 on
set %shoutouts1 on
set %cuts1 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now off air. Commanded by $nick [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now off air. Commanded by $nick [^K]9»[^K]3]
unset %DJ1
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 No DJ online right now [^K]9»[^K]3]
}
if ($2 == onair) {
if ($3 == %DJ1) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is is already on air [^K]9»[^K]3]
halt
}
if (!%DJ1) {
set %DJ1 $3
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ1 is now on Stream-1. Commanded by $nick [^K]9»[^K]3]
}
}
if ($2- == shoutout on) {
if (%shoutouts1 == off) {
set %shoutouts1 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @request for Stream-1 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @shoutout for Stream-1 was already on [^K]9»[^K]3]
}
if ($2- == shoutout off) {
if (%shoutouts1 == on) {
set %shoutouts1 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned off @shoutout for Stream-1 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @shoutout for Stream-1 was already off [^K]9»[^K]3]
}
if ($2- == cut on) {
if (%cuts1 == off) {
set %cuts1 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @cut for Stream-1 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @cut for Stream-1 was already on [^K]9»[^K]3]
}
if ($2- == cut off) {
if (%cuts1 == on) {
set %cuts1 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned off @cut [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @cut for Stream-1 was already off [^K]9»[^K]3]
}
}
}
on *:TEXT:@override2*:#FragHYPE:{
if ($ulevel < 349) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Sorry, you do not have access to this command [^K]9»[^K]3]
}
if ($ulevel >= 350) {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Please choose a actual override command [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15[^B]Example[^B] [^K]9»[^K]3][[^K]9«[^K]15,1 "@override commands" for more info [^K]9»[^K]3]
halt
}
if ($2- == requests on) {
if (%requests2 == off) {
set %requests2 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @requests [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @Request for Stream-2 was already on [^K]9»[^K]3]
}
if ($2- == requests off) {
if (%requests2 == on) {
set %requests2 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @requests [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @Request for Stream-2 was already off [^K]9»[^K]3]
}
if ($2- == offair) {
if (%DJ2) {
set %requests2 on
set %shoutouts2 on
set %cuts2 on
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now off air. Commanded by $nick [^K]9»[^K]3]
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now off air. Commanded by $nick [^K]9»[^K]3]
unset %DJ2
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 No DJ online right now [^K]9»[^K]3]
}
if ($2- == onair) {
if ($3 == %DJ2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is is already on air [^K]9»[^K]3]
halt
}
if (!%DJ2) {
set %DJ2 $3
amsg [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 %DJ2 is now on Stream-2. Commanded by $nick [^K]9»[^K]3]
}
}
if ($2- == shoutout on) {
if (%shoutouts2 == off) {
set %shoutouts2 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @request for Stream-2 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @shoutout for Stream-2 was already on [^K]9»[^K]3]
}
if ($2- == shoutout off) {
if (%shoutouts2 == on) {
set %shoutouts2 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned off @shoutout for Stream-2 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @shoutout for Stream-2 was already off [^K]9»[^K]3]
}
if ($2- == cut on) {
if (%cuts2 == off) {
set %cuts2 on
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned on @cut for Stream-2 [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @cut for Stream-2 was already on [^K]9»[^K]3]
}
if ($2- == cut off) {
if (%cuts2 == on) {
set %cuts2 off
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $nick turned off @cut [^K]9»[^K]3]
}
else notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @cut for Stream-2 was already off [^K]9»[^K]3]
}
}
}
;;;;;;;;;;;;;;;
;;QueryScript;;
;;;;;;;;;;;;;;;
on *:TEXT:*:?:{
if ($nick == %DJ1) || ($nick == %DJ2) { closemsg $nick }
else msg #FragHYPE.staff $nick PMed me: $1-
closemsg $nick
}
;;;;;;;;
;;HELP;;
;;;;;;;;
on *:TEXT:@HELP*:#:{
if ($ulevel >= 150) { halt }
if ($2 == $null) { notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 @help [THE THING YOU NEED HELP ON] [^K]9»[^K]3]
else {
msg #FragHYPE.staff [^K]3,1[^B]-[^B]
msg #FragHYPE.staff [^K]3,1[^B]-------------------------------[^B]
msg #FragHYPE.staff [^K]3,1[^B]--[^K]15Nick:[^B] $nick
msg #FragHYPE.staff [^K]3,1[^B]--[^K]15Date:[^B] $date(dddd mmmm dd $+ $chr(44) yyyy)
msg #FragHYPE.staff [^K]3,1[^B]--[^K]15Time:[^B] $asctime(hh:nn:ss TT)
msg #FragHYPE.staff [^K]3,1[^B]--[^K]15Channel:[^B] $chan
msg #FragHYPE.staff [^K]3,1[^B]--[^K]15Message:[^B] $2-
msg #FragHYPE.staff [^K]3,1[^B]-------------------------------[^B]
msg #FragHYPE.staff [^K]3,1[^B]-[^B]
msg $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 The Staff Has Been Paged [^K]9»[^K]3]
}
}
}
;;;;;;;;;;;;
;;addstaff;;
;;;;;;;;;;;;
on *:TEXT:@addstaff*:#FragHYPE:{
if ($nick >= 400) {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You need to set a level [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @addstaff[^B][^K]8 500[^B][^K]15 $nick CEO [^K]9»[^K]3]
halt
}
if (!$3) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You need to set a nick [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @addstaff 500 [^B][^K]8$nick[^B][^K]15 CEO [^K]9»[^K]3]
halt
}
if (!$4) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You need to set info [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @addstaff 500 $nick [^B][^K]8CEO[^B][^K]15 [^K]9»[^K]3]
halt
}
if ($2 >= 300) {
set %setlevel 350
}
else {
set %setlevel 250
}
guser $2 $3 2 $4-
msg ChanServ #FragHYPE adduser $3 %setlevel
msg ChanServ #FragHYPE.staff adduser $3 200
msg ChanServ #FragHYPE resync
msg ChanServ #FragHYPE.staff resync
notice $3 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You have been added to the staff channel [^K]9»[^K]3]
notice $3 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Put the following commands in your preform section [^K]9»[^K]3]
notice $3 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 /cs inviteme #FragHYPE.staff [^K]9»[^K]3]
notice $3 [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 /j #FragHYPE.staff [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $3 has been added to the staff channel and FragHYPE channel [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;
;;deletedstaff;;
;;;;;;;;;;;;;;;;
on *:TEXT:@deletestaff*:#FragHYPE:{
if ($ulevel >= 400) {
if (!$2) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 You need to add a nick [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Example: @deletestaff [^B][^K]8$nick[^B] [^K]9»[^K]3]
halt
}
ruser $2 2
msg ChanServ #FragHYPE deluser $2
msg ChanServ #FragHYPE.staff deluser $2
msg ChanServ #FragHYPE.staff kick $2
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 $2 has been deleted from all the staff [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;
;;DJcommands;;
;;;;;;;;;;;;;;
on *:TEXT:@DJcommands:#: {
if ($ulevel < 199) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Sorry you do not have permission to access this command [^K]9»[^K]3]
halt
}
if ($ulevel >= 199) {
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Requests - @request1/2 on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Shoutouts - @shoutout1/2 on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Cuts - @cut1/2 on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Onair - @Onair1/2 [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Offair - @offair1/2 [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;;;
;;managercommands;;
;;;;;;;;;;;;;;;;;;;
on *:TEXT:@managercommands:#FragHYPE:{
if ($ulevel < 150) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Sorry you do not have permission to access this command [^K]9»[^K]3]
halt
}
if ($ulevel > 199) {
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Override Requests - @override requests on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Override Shoutouts - @override shoutouts on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Override Cuts - @override cut on/off [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Override Offair - @override offair [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;
;;ownercommands;;
;;;;;;;;;;;;;;;;;
on *:TEXT:@ownercommands:#FragHYPE:{
if ($ulevel < 400) {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Sorry you do not have permission to access this command [^K]9»[^K]3]
halt
}
if ($ulevel >= 400) {
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Add Staff - @staff add/delete [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Add Sponsors - @sponsor add/delete [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Add Custom - @custom add/delete [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Bot Channels - @channel add/delete [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15[^B]#FragHYPE[^B] [^K]9»[^K]3]
}
}
;;;;;;;;;
;;power;;
;;;;;;;;;
on 400:TEXT:@power:#: {
set %chanpower $chan
pwr
}
alias pwr {
var %s = $scon(0),%g = 1
while (%g <= %s) {
scid $scon(%g)
var %f = $chan(0),%opped,%voiced,%total
inc %total $chan(0)
while (%f) {
if ($me isop $chan(%f)) {
inc %opped
}
elseif ($me isvoice $chan(%f)) {
inc %voiced
}
dec %f
var %regular = $calc(%total - (%opped + %voiced))
}
inc %g
scid -r
msg %chanpower [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3]
msg %chanpower [^K]3,1[[^K]9« [^K]15Total Channels[^B] [^K]3,1[[^K]9«[^K]15 %total [^K]9»[^K]3]
msg %chanpower [^K]3,1[[^K]9« [^K]15Opped Status[^B] [^K]3,1[[^K]9«[^K]15 %opped [^K]9»[^K]3]
msg %chanpower [^K]3,1[[^K]9« [^K]15Voiced Status[^B] [^K]3,1[[^K]9«[^K]15 %voiced [^K]9»[^K]3]
msg %chanpower [^K]3,1[[^K]9« [^K]15Regular Status[^B] [^K]3,1[[^K]9«[^K]15 %regular [^K]9»[^K]3]
msg %chanpower [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3]
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;timer Command
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:SOCKOPEN:timer1:{
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:timer1:{
if ($sockerr > 0) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
return
}
:nextread
sockread -f %scasttemp1
if ($sockbr == 0) return
if (%scasttemp1 == $null) %scasttemp1 = empty
set %scasttemp1 $remove(%scasttemp1,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp1) && (content-type* !iswm %scasttemp1) && (%scasttemp1 != empty)) {
set %tstatus1 $gettok(%scasttemp1,2,44)
set %tasong1 $gettok(%scasttemp1,7-,44)
set %tlisteners1 $gettok(%scasttemp1,1,44)
set %tpeak1 $gettok(%scasttemp1,3,44)
set %tsong1 $replace(%asong1,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:timer1:{
if (%status1 == 0) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Stream-1 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-1: http:// $+ %serverip1 $+ : $+ %port1 $+ /listen.pls [^K]9»[^K]3][[^K]9« OnAir: %DJ1 [^K]8[^B])
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %tsong1 [^K]9»[^K]3][[^K]9« Listeners: %tlisteners1 $+ /250 [^K]9»[^K]3][[^K]9« Peak: %tpeak1 [^K]9»[^K]3]
}
}
on *:SOCKOPEN:timer2:{
sockwrite -n $sockname GET /7.html HTTP/1.0
sockwrite -n $sockname User-Agent: Mozilla
sockwrite -n $sockname $crlf
}
on *:sockread:timer2:{
if ($sockerr > 0) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
return
}
:nextread
sockread -f %scasttemp2
if ($sockbr == 0) return
if (%scasttemp2 == $null) %scasttemp2 = empty
set %scasttemp2 $remove(%scasttemp2,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html>)
if ((HTTP/1.* !iswm %scasttemp2) && (content-type* !iswm %scasttemp2) && (%scasttemp2 != empty)) {
set %tstatus2 $gettok(%scasttemp2,2,44)
set %tasong2 $gettok(%scasttemp2,7-,44)
set %tlisteners2 $gettok(%scasttemp2,1,44)
set %tpeak2 $gettok(%scasttemp2,3,44)
set %tsong2 $replace(%asong2,&,$chr(38),',$chr(39))
}
goto nextread
}
on *:sockclose:timer2:{
if (%status2 == 0) {
msg $chan [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9« [^K]15,1 Stream-2 is [^K]4[^U]OFFLINE[^U][^K][^K]15,1, ask a DJ to go on [^K]9»[^K]3]
}
else {
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Stream-2: http:// $+ %serverip2 $+ : $+ %port2 $+ /listen.pls [^K]9»[^K]3][[^K]9« OnAir: %DJ2 [^K]9»[^K]3]
notice $nick [^K]3,1[[^K]9« [^K]15Frag[^B][^K]3[^U]HYPE[^B][^U] [^K]9»[^K]3][[^K]9«[^K]15,1 Now Playing: %tsong2 [^K]9»[^K]3][[^K]9« Listeners: %tlisteners2 $+ /250 [^K]9»[^K]3][[^K]9« Peak: %tpeak2 [^K]9»[^K]3]
}
}