alias youtube {
  if $sock(youtube1) {
    sockclose $ifmatch
  }
  sockopen -e youtube1 www.************ 443
}
on *:sockopen:youtube1: {
  if $sockerr {
    echo -a 12Baðlantý hatasý $sock($sockname).wsmsg
    return
  }
  sockwrite -nt $sockname GET $+(/results?search_query=,$hget(********youtube)) HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: www.************
  sockwrite -nt $sockname
}
on *:sockread:youtube1: {
  if $sockerr {
    return
  }
  else {
    if $sock($sockname) {
      sockread %f
      if *h3 class="yt-lockup-title "><a hre* iswm %f {
        inc -u1 %yu
        if %yu == 1 {
          echo -a 0,4 $+ $ghta($htmlfree($gettok(%f,12,34))) 11,1 Parçanýn 4YouTube11,1 klibi için týklayýnýz. 12 $+ $+(https://www.************,$gettok(%f,6,34)  ) $+ 
          sockclose $sockname
        }
      }
    }
  }
}
alias ytb {
  var %m 1 
  %retyb = $1-
  while %m <= $numtok(%retyb,32) {
    if www 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(********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;,')
}

on $*:text:/^[.!]l[Ýiý]nkara/Si:#: {
  %ytbc = $chan
  klipara $2-
}