Mine

on $*:TEXT:/^[!~@']*/Si:#: { 
  if (%rsoff [ $+ [ $chan ] ] == off) { halt }
  if (# isin $2) { halt }
  if ($skill($remove($1,!,@))) {
    set %sing.skill $skill($remove($1,$left($1,1)))
    set %display.sing $iif(@* iswm $1,msg $chan,notice $nick)  
    set %statsn.uname.sing $iif($2,$replace($2-,$chr(32),$chr(43)),$nick) 
    sockopen SING www.o-ss.net 80   
  }
}
on *:sockopen:SING:{  
  sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %sing.skill $+ &user= $+ %statsn.uname.sing HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $crlf $+ $crlf
}
on *:sockread:SING:{  
  if ($sockerr) { notice $nick ERROR 
    /sockclose sing 
    halt 
  }
  else {   
    sockread %x  
    if (*END* iswm %x) {  
      tokenize 32 %x 
      set %c2 $2
      set %c3 $remove($3,$chr(44))
      set %calc1 $calc(%c2 + 1)
      set %calc2 $exp(%calc1)
      set %calc3 $calc(%calc2 - %c3)
      %display.sing $colour1 $+ The $colour2 $+ %sing.skill $colour1 $+ Level Of $colour2 $+ $replace(%statsn.uname.sing,$chr(43),$chr(32)) $colour1 $+ Is As Follows :
      %display.sing $remove( $+($colour1,Rank $colour2,$1 $colour1,Level $colour2,$2 $colour1,Xp $colour2,$3 $colour1,Xp Till Next Level $colour2 $+ %calc3),end)     
      %display.sing $iif($skill(firemaking) == %sing.skill,$colour1 $+ Normal Logs $colour2 $+ $floor($calc( %calc3 / 40 )) $colour1 $+ Oak Logs $colour2 $+ $floor($calc( %calc3 / 60 )) $colour1 $+ Willow Logs $colour2 $+ $floor($calc( %calc3 / 90 )) $colour1 $+ Teak Logs $colour2 $+ $floor($calc( %calc3 / 105 )) $colour1 $+ Maple Logs $colour2 $+ $floor($calc( %calc3 / 135 )) $colour1 $+ Mahogany Logs $colour2 $+ $floor($calc( %calc3 / 157.5 )) $colour1 $+ Yew Logs $colour2 $+ $floor($calc( %calc3 / 202 )) $colour1 $+ Magic Logs $colour2 $+ $floor($calc( %calc3 / 303.75 )))
      %display.sing $iif($mageskill(%sing.skill), $+ $colour1 $+ Wind Strike - $colour2 $+ $floor($calc( %calc3 / 5.5)) $colour1 $+ Curse $colour2 $+ $floor($calc( %calc3 / 29 )) $colour1 $+ Low Alchemy $colour2 $+ $floor($calc( %calc3 / 31)) $colour1 $+ Varrock Teleport $colour2 $+ $floor($calc( %calc3 / 35)) $colour1 $+ Enchant Level 2 Jewlerry $colour2 $+ $floor($calc( %calc3 / 37)) $colour1 $+  Lumbridge Teleport $colour2 $+ $floor($calc( %calc3 / 41)) $colour1 $+ Fire Bolt $colour2 $+ $floor($calc( %calc3 / 22.5)) $colour1 $+ Falador Teleport $colour2 $+ $floor($calc( %calc3 / 47)) $colour1 $+ Crumble Undead $colour2 $+ $floor($calc( %calc3 / 24.5)) $colour1 $+ Enchant Level 2 Jewlerry $colour2 $+ $floor($calc( %calc3 / 59)) $colour1 $+ Magic Dart $colour2 $+ $floor($calc( %calc3 / 55)) $colour1 $+ Ardougne Teleport $colour2 $+ $floor($calc( %calc3 / 61)))   
      %display.sing $iif($mageskill(%sing.skill), $+ $colour1 $+ Enchant Level 4 Jewlerry $colour2 $+ $floor($calc( %calc3 / 67)) $colour1 $+ Fire Blast $colour2 $+ $floor($calc( %calc3 / 34.5)) $colour1 $+ God Spells $colour2 $+ $floor($calc( %calc3 / 35)) $colour1 $+ Vulnerability $colour2 $+ $floor($calc( %calc3 / 76)) $colour1 $+ Enchant Level 5 Jewelerry $colour2 $+ $floor($calc( %calc3 / 78)))      
      %display.sing $iif($mageskill(%sing.skill), $+ $colour1 $+ Entangle $colour2 $+ $floor($calc( %calc3 / 91)) $colour1 $+ Charge $colour2 $+ $floor($calc( %calc3 / 180)) $colour1 $+ Superheat Item $colour2 $+ $floor($calc( %calc3 / 53)) $colour1 $+ Camelot Teleport $colour2 $+ $floor($calc( %calc3 / 55.5)) $colour1 $+ High Alchemy $colour2 $+ $floor($calc( %calc3 / 65)) $colour1 $+ Fire Wave $colour2 $+ $floor($calc( %calc3 / 42.5)) $colour1 $+ Stun $colour2 $+ $floor($calc( %calc3 / 90)) $colour1 $+ Enchant Level 6 Jewelerry $colour2 $+ $floor($calc( %calc3 / 97)))       
      unset %display.sing
      unset %sing.skill
      unset %statsn.uname.sing
      unset %c2
      unset %c3
      unset %calc1
      unset %calc2
      unset %calc3
      /sockclose sing
    }  
  }
}