Why a goto loop and alias? You can make your script a little better as such:
on *:text:@yt *:#:{
set -u1 %name.y $2
set -u2 %channel #
if $sock(poper) { sockclose poper }
sockopen poper www.youtube.com 80
sockmark poper $sock(poper).wserr $sock(poper).wsmsg
}
on *:sockopen:poper: {
if (!$sockerr) {
sockwrite -n poper GET $+(/,%name.y) HTTP/1.0
sockwrite -n poper Host: www.youtube.com
sockwrite -n poper $crlf
}
else {
echo -st Socket Error: $sock(poper).mark
sockclose poper
}
}
on *:sockread:poper: {
if ($sockerr) {
echo -st Socket Error: $sock(poper).mark
sockclose poper
}
else {
var %Youtube | sockread %Youtube
if ($regex(%Youtube,/<div style="float:right;" id="profile_show_viewed_count">(.+)</div>/)) { set %youtube.a $regml(1) }
if ($regex(%Youtube,/<div style="float:right;" id="profile_show_first_name">(.+)</div>/)) { set %youtube.b $regml(1) }
if ($regex(%Youtube,/<div style="float:right;" id="profile_show_last_login">(.+)</div>/)) { set %youtube.c $regml(1) }
if ($regex(%Youtube,/<div style="float:right;" id="profile_show_subscriber_count">(.+)</div>/)) { set %youtube.d $regml(1) }
}
}
on *:sockclose:poper:{
if %youtube.a {
msg %channel %name.y Name: %youtube.b Views: %youtube.a Lasted logged in: %youtube.c Subscribers: %youtube.d
unset %youtube.*
}
else { msg %channel Error 404:user name does not exsist }
}