alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Baðlantý hatasý $sock($sockname).wsmsg
    return
  }
  var %komut = sockwrite -n $sockname
  %komut GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut Connection: keep-alive
  %komut $crlf
}

on *:sockread:youtube1: {
  if $sockerr {
    return
  }
  else {
    if $sock($sockname) {
      sockread %f
      if $regex(a,%f,/"title"\:\{"runs"\:\[\{"text"\:"(.+)"\}/i) {
        noop  $regex(b,$regml(a,1),/webCommandMetadata":\{"url":"(.+)"."webPageType":"WEB_PAGE_TYPE_WATCH"/Si) 
        var %a $token($regml(a,1),1,34),%b $token($regml(b,1),$token($regml(b,1),0,34),34)
        inc -u1 %yu
        if %yu == 1 {
          echo -a 0,4 $+ $ghta(%a) 11,1 Parçanýn 4YouTube11,1 klibi için týklayýnýz. 12 $+ $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockclose $sockname
        }
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) {
      %retyb = $deltok(%retyb,%m,32)
    }
    inc %m
  }
  if - isin %retyb {
    return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),-,",$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s),")
  }
  else {
    return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s)
  }
}
alias klipara {
  if $hget(youtube,ytb) {
    hdel youtube ytb
  }
  hadd -m youtube youtube $ytb($1-)
  youtube
}
alias ghta {
  return $replace($1-,â,a,’,',Â,$chr(32),Åž,Þ,°,°,Ç,Ç,Ä°,Ý,Å?,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&rsquo;,')
}

on *:text:!klip *:#: klipara $2-
alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Baðlantý hatasý $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET $+(/results?search_query=,$hget(youtube,youtube)) HTTP/1.1
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:youtube1: {
  if $sockerr {
    return
  }
  else {
    if $sock($sockname) {
      sockread %f
      if $regex(a,%f,/"title"\:\{"runs"\:\[\{"text"\:"(.+)"\}/i) {
        noop  $regex(b,$regml(a,1),/webCommandMetadata":\{"url":"(.+)"."webPageType":"WEB_PAGE_TYPE_WATCH"/Si) 
        var %a $token($regml(a,1),1,34),%b $token($regml(b,1),$token($regml(b,1),0,34),34)
        inc -u1 %yu
        if %yu == 1 {
          msg #sohbet 0,4 $+ $ghta(%a)  11,1 Parçanýn 4YouTube11,1 klibi için týklayýnýz. 12 $+ $+(https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockclose $sockname
        }
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
isin $gettok(%retyb,%m,32) || .com isin $gettok(%retyb,%m,32) || .net isin $gettok(%retyb,%m,32) || .org isin $gettok(%retyb,%m,32) {
      %retyb = $deltok(%retyb,%m,32)
    }
    inc %m
  }
  if - isin %retyb {
    return $+(",$replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),-,",$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s),")
  }
  else {
    return $replace($remove(%retyb,",1,2,3,4,5,6,7,8,9,0),$chr(32),+,ý,i,ü,u,ö,o,ð,g,ç,c,þ,s)
  }
}
alias klipara {
  if $hget(youtube,ytb) {
    hdel youtube ytb
  }
  hadd -m youtube youtube $ytb($1-)
  youtube
}
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)  
  return %x  
}
alias ghta {
  return $replace($1-,â,a,’,',Â,$chr(32),Åž,Þ,°,°,Ç,Ç,Ä°,Ý,Å?,Þ,Ãœ,Ü,ı,ý,ÅŸ,þ,Ç,Ç,ç,ç,ÄŸ,ð,ÅŸ,þ,ü,ü,ı,ý,ö,ö,Ö,Ö,Ä,Ð,&uuml;,ü,&ccedil;,ç,&ouml;,ö,&rsquo;,')
}