This is a fairly simple request logger for IRC radio DJs. Just paste in remotes and replace #RADIO-CHANNEL with you IRC Radio's channel for the script to send the requests to. Menu Channel {
.~Song Request Log~
..Turn ON Song Request Logger:{
set %songrequestlog ON
echo -a Song request logging now 8,1ON
.timersr 1 0 amsg 1,8A8,1T1,8T8,1E1,8N8,1T1,8I8,1O1,8N14,1... 9,1I am now taking song requests14,1!
.timersr2 1 1 amsg 11,1Just type 8,1@reqsong 15,1<8,1Song15,1> 15,1<8,1Artist15,1> 4,1and I will let you know when it plays, 0,1Thank You :D
}
..Turn OFF Song Request Logger:{
set %songrequestlog OFF
echo -a Song request logging now 8,1OFF
.timersr 1 1 amsg 9,1I am not logging song requests at this time
}
..View Song requests:{
msg $active Now showing song request quene
play songrequests.txt
}
..Show #RADIO-CHANNEL the request list:{
msg #RADIO-CHANNEL 11,1Now showing song request quene
play songrequests.txt
}
}
ON $*:Text:/(!|@)req(s|song)\s+/Si:#:{
tokenize 32 $strip($1-)
if (%songrequestlog == ON) {
if ($2 != $read(songrequests.txt,s,$2)) && ($2) {
write songrequests.txt 9,1 $+ $2- by 6,1 $+ $3 $+ 14,1, 7,1 $+ $nick
}
msg $chan Thank you11,1 $nick $+ , 9,1I will let you know when your song is next 14,1:D
echo -a 11,1 $nick has requested a song to be played
msg #iIRC_Radio 8,1-7,1=4,1*15,1 $nick 9,1has requested that8,1 $2 9,1by8,1 $3 9,1be played14,1. 4,1*7,1=8,1-
}
else { msg $chan sorry $nick I am not currently logging song requests }
}