!radio

[chain]

>on *:text:!radio:#: { 

 if (!$sock(_radio)) { 

   sockopen _radio 95.154.227.120 80 

   sockmark _radio $chan 

 } 

} 

on *:sockopen:_radio: { 

 sockwrite -n $sockname GET /number2.php?ip=78.129.197.192&port=9479 HTTP/1.0 

 sockwrite -n $sockname Accept: */* 

 sockwrite -n $sockname Host: 95.154.227.120 

 sockwrite -n $sockname $crlf 

} 

on *:sockread:_radio: { 

 var %_radio | sockread %_radio 

 if ($regex(%_radio,.	 Song\s:\s(.+) )) { set %_radio.song $remove($regml(1), ) } 

} 

on *:sockclose:_radio: { 

 msg $sock(_radio).mark Titolo: %_radio.song 

 unset %_radio.song 

}