Forums Scripts & Popups Sockets

on *:SOCKOPEN:SongReq:{
  [color:#006600];
  ;  NICK <nickname>
  ;[/color]
  sockwrite -n $sockname NICK $mnick
  [color:#006600];
  ;  USER <userid> <email host> <servername> <:full name/GCOS>
  ;[/color]
  sockwrite -n $sockname USER $&
    $+(",$readini($mircini,ident,userid),") $&
    $+(",$gettok($emailaddr,2,64),") $&
    $+(",%SongRequest.server,") $&
    $+(:,$fullname)
  [color:#006600];
  ;  Let yourself know the socket was opened (server found).
  ;[/color]
  echo $color(info2) -abflirt * Song Request: connected
}
on *:SOCKCLOSE:SongReq:{
  [color:#006600];
  ;  Report that the socket was closed by remote host.
  ;[/color]
  echo $color(ctcp) -abflirt * Song Request: terminated by the server
  [color:#006600];
  ;  Request a retry.
  ;[/color]
  SongRequest.Retry
}
alias SongRequest.Retry {
  [color:#006600];
  ;  Increment the retry counter
  ;[/color]
  inc %SongRequest.retries
  [color:#006600];
  ;  Check to make sure we haven't gone over the maximum retries limit.
  ;[/color]
  if (%SongRequest.retries <= SongRequest.maxretries) .timer 1 10 sockopen $sockname %SockRequest.server 6667
  [color:#006600];
  ;  Terminate the process if maximum retries is reached.
  ;[/color]
  else echo $color(ctcp) -abflirt * Song Request: All ( $+ %SongRequest.maxretries $+ ) retries failed.
  [color:#006600];
  ;  Stop the script.
  ;[/color]
  halt
}  
on *:SOCKREAD:SongReq:{
  [color:#006600];
  ;  Check for a socket error, such as Connection reset by peer.
  ;[/color]
  if ($sockerr > 0) {
    [color:#006600];
    ;  Report the error condition.
    ;[/color]
    echo $color(info) -abflirt * Song Request: $+([,$sock($sockname).wserr,]) $sock($sockname).wsmsg
  [color:#006600];
  ;  Request a retry.
  ;[/color]
    SongRequest.Retry
  }
  [color:#006600];
  ;  Otherwise, prepare to read the data sent from the server.
  ;[/color]
  var %1-
  [color:#006600];
  ;  Read the data sent by the server.
  ;[/color]
  sockread %1-
  [color:#006600];
  ;  If there was data, process it.
  ;[/color]
  while ($sockbr > 0) {
    [color:#006600];
    ;  Tokenize it so you can use $1, $2, etc.
    ;[/color]
    tokenize 32 %1-
    [color:#006600];
    ;  Respond to the initial PING :from the server.
    ;[/color]
    if (PING == $1) sockwrite -n $sockname PONG $remove($2,:)
    [color:#006600];
    ;  Respond correctly to VERSION requests.
    ;[/color]
    elseif ($4 == :
VERSION
) {
      sockwrite -n $sockname NOTICE $right($gettok($1,1,33),-1) :
VERSION mIRC v6.03 Khaled Mardam-Bey

    }
    [color:#006600];
    ;  Make sure you try at least 3 nicks in case your primary nick is taken.
    ;[/color]
    elseif ($2 == 433) {
      [color:#006600];
      ;  If the primary nick was taken, try the alternate nick.
      ;[/color]
      if ($4 == $mnick) sockwrite -n $sockname NICK $anick
      [color:#006600];
      ;  Or if the alternate nick was taken, try a modified primary nick.
      ;[/color]
      elseif ($4 == $anick) sockwrite -n $sockname NICK $mnick $+ ``
      [color:#006600];
      ;  If all 3 nicks tries were unsuccessful, halt the script.
      ;[/color]
      else {
        [color:#006600];
        ;  Report nicks in use and halt.
        ;[/color]
        echo $color(ctcp) -abflirt * Song Request: all nicks in use
        [color:#006600];
        ;  Close the socket.
        ;[/color]
        sockclose $sockname
        [color:#006600];
        ;  Halt the script.
        ;[/color]
        halt
      }
    }
    [color:#006600];
    ;  Wait for the End of /MOTD command. Send the message, then close the socket.
    ;[/color]
    elseif ($2 == 376) {
      [color:#006600];
      ;  Ask for the song.
      ;[/color]
      sockwrite -n $sockname PRIVMSG CurrentDJ :Will you play Song/Artist %SongRequest.song
      [color:#006600];
      ;  Let yourself know the song was requested and the script got this far.
      ;[/color]
      echo $color(info2) -abflirt * Song request sent: %SongRequest.song
      [color:#006600];
      ;  Get rid of the variables used by the script.
      ;[/color]
      unset %SongRequest.*
      [color:#006600];
      ;  Close the socket.
      ;[/color]
      sockclose $sockname
      [color:#006600];
      ;  Halt the script.
      ;[/color]
      halt
    }
    sockread %1-
  }
}
alias SongReq {
  [color:#006600];
  ;  Check for input.
  ;[/color]
  if (!$1) {
    [color:#006600];
    ;  Report that no song was requested.
    ;[/color]
    echo $color(ctcp) -abflirt * Song Request: No song requested
    [color:#006600];
    ;  Halt the script.
    ;[/color]
    halt
  }
  [color:#006600];
  ;  Here is where you set in the real server name you wish to connect to.
  ;[/color]
  set -u600 %SongRequest.server [color:red]radio.shoutcastserver.com[/color]
  [color:#006600];
  ;  Here is where you set the maximum times you wish to retry the connection.
  ;[/color]
  set -u600 %SongRequest.maxretries [color:red]5[/color]
  [color:#006600];
  ;  Save the song that is to be requested for use later.
  ;[/color]
  set -u600 %SongRequest.song $1-
  [color:#006600];
  ;  Open the socket to the ShoutCast server
  ;[/color]
  sockopen SongReq %SongRequest.server 6667
}