dialog fuelradioreq {
title "MaxOctane Radio Requester"
size -1 -1 149 80
option dbu
button "Close", 1, 114 66 34 12, default cancel
text "Enter Artist and Song Name Below", 2, 24 1 86 8
text "Artist: ", 3, 4 14 15 8
edit "", 4, 32 13 71 10, autohs
text "Song Title:", 5, 3 25 26 8
edit "", 6, 32 24 71 10, autohs
button "Send Request", 7, 106 16 40 12
edit "", 8, 1 43 147 21, read multi return autohs autovs
text "Status Window", 9, 44 35 52 8
}
on *:dialog:fuelradioreq:init:0: {
did -a fuelradioreq 4 %fnreq.artist
did -a fuelradioreq 6 %fnreq.song
}
on *:dialog:fuelradioreq:sclick:7: {
set %fnreq.artist $did(fuelradioreq,4).text
set %fnreq.song $did(fuelradioreq,6).text
songreq
}
;;Request Sockets
on *:SOCKOPEN:SongReq:{
sockwrite -n $sockname NICK FN-RadioReq
sockwrite -n $sockname USER $&
$+(",FN-RadioReq),") $&
$+(",$gettok($emailaddr,2,64),") $&
$+(",%SongRequest.server,") $&
$+(:,$fullname)
fnreq_conn * Song Request: connected
}
on *:SOCKCLOSE:SongReq:{
fnreq_term * Song Request: terminated by the server
SongRequest.Retry
}
alias SongRequest.Retry {
inc %SongRequest.retries
if (%SongRequest.retries <= SongRequest.maxretries) .timer 1 10 sockopen $sockname %SockRequest.server 6667
fnreq_retry * Song Request: All ( $+ %SongRequest.maxretries $+ ) retries failed, Cant send request.
halt
}
on *:SOCKREAD:SongReq:{
if ($sockerr > 0) {
fnreq_retry1 * Song Request: $+([,$sock($sockname).wserr,]) $sock($sockname).wsmsg
SongRequest.Retry
}
var %1-
sockread %1-
while ($sockbr > 0) {
tokenize 32 %1-
if (PING == $1) sockwrite -n $sockname PONG $remove($2,:)
elseif ($4 == :VERSION) { sockwrite -n $sockname NOTICE $right($gettok($1,1,33),-1) :VERSION MaxOctane.net Radio Requester
}
elseif ($2 == 433) {
if ($4 == $mnick) sockwrite -n $sockname NICK FN-RadioReq1
elseif ($4 == FN-RadioReq1) sockwrite -n $sockname NICK FN-RadioReq2
else {
fnreq_full * Song Request: Requests are Full, Please try again.
sockclose $sockname
halt
}
}
elseif ($2 == 376) {
sockwrite -n $sockname PRIVMSG syn-test :!awayrequest 4 $mnick from $server -- Requests - 7 Artist/Song : %SongRequest.song
fnreq_sent * Song request sent: %SongRequest.song
unset %SongRequest.*
unset %fnreq.*
sockclose $sockname
fnreq_done * Song Request: Request Sent -- DONE
halt
}
sockread %1-
}
}
alias SongReq {
if (%fnreq.artist == $null) {
fnreq_art * Song Request: No Artist Requested -- Enter Artist Name
halt
}
if (%fnreq.song == $null) {
fnreq_song * Song Request: No Song Requested -- Enter Song Name
halt
}
set -u600 %SongRequest.server irc.maxoctane.net
set -u600 %SongRequest.maxretries 5
set -u600 %SongRequest.song %fnreq.artist - %fnreq.song
sockopen SongReq %SongRequest.server 6667
}
alias -l fnreq_art did -ra fuelradioreq 8 $1-
alias -l fnreq_song did -ra fuelradioreq 8 $1-
alias -l fnreq_conn did -ra fuelradioreq 8 $1-
alias -l fnreq_sent did -ra fuelradioreq 8 $1-
alias -l fnreq_full did -ra fuelradioreq 8 $1-
alias -l fnreq_term did -ra fuelradioreq 8 $1-
alias -l fnreq_retry did -ra fuelradioreq 8 $1-
alias -l fnreq_retry1 did -ra fuelradioreq 8 $1-
alias -l fnreq_done did -ra fuelradioreq 8 $1-