alias temizle {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

on *:text:*:#webmaster: {
  if $1 == !keywords {
    if !$2 { msg $chan Yanlış kullanım. Kullanmanız gereken kod: !keywords domain.com , !keywords domain.net gibi. }
    else {
      if !$regex($2,.com|.net|.org|.biz|.info|.com.tr|.in|. tv|.cc|.xxx|.co|.gen.tr|.me|.bel.tr|.org.tr|.gov.t r|.edu.tr|.web.tr|.name.tr) {
        msg $chan Sorgulama başarısız. Sorgulama yapabileceğiniz uzantılar: com, net, org, biz, com.tr, info, in, tv, cc, gen.tr, co, me, bel.tr, gov.tr, edu.tr, web.tr, name.tr
      }
      else {
        sockclose keywords-incele
        remove keywords.txt
        set %keywords-domain $2
        webmasters keywords-incele
        set %keywords-nick $chan
        msg $chan $2 domaini anahtar kelimeleri toplanıyor.
      }
    }
  }
}
alias webmasters { sockopen $1 webmaster-toolkit.com 80 }
on *:sockopen:keywords-incele: {
  set %swp sockwrite -n $sockname
  %swp GET $+(/keyword-analysis-tool.shtml?url=http://,%keywords-domain) HTTP/1.1
  %swp Host: webmaster-toolkit.com
  %swp $crlf
}
on *:sockread:keywords-incele: {
  var %keywords
  sockread %keywords
  write keywords.txt $turkce($htmlfree(%keywords))
  if $regex(%keywords,</html>) {
    keywords-gonder
  }
}
alias keywords-gonder {
  msg #webmaster Toplam $remove($read(keywords.txt,24),Found,unique,words. ) anahtar kelime bulundu. 10 tanesi kanala gönderiliyor.
  msg %keywords-nick 1. Kelime: $+($chr(3),4,$read(keywords.txt,28),$chr(3)) – Frekans: $read(keywords.txt,29) – Pay: $+(%,$read(keywords.txt,30))
  msg %keywords-nick 2. Kelime: $+($chr(3),4,$read(keywords.txt,31),$chr(3)) – Frekans: $read(keywords.txt,32) – Pay: $+(%,$read(keywords.txt,33))
  msg %keywords-nick 3. Kelime: $+($chr(3),4,$read(keywords.txt,34),$chr(3)) – Frekans: $read(keywords.txt,35) – Pay: $+(%,$read(keywords.txt,36))
  msg %keywords-nick 4. Kelime: $+($chr(3),4,$read(keywords.txt,37),$chr(3)) – Frekans: $read(keywords.txt,38) – Pay: $+(%,$read(keywords.txt,39))
  msg %keywords-nick 5. Kelime: $+($chr(3),4,$read(keywords.txt,40),$chr(3)) – Frekans: $read(keywords.txt,41) – Pay: $+(%,$read(keywords.txt,42))
  msg %keywords-nick 6. Kelime: $+($chr(3),4,$read(keywords.txt,43),$chr(3)) – Frekans: $read(keywords.txt,44) – Pay: $+(%,$read(keywords.txt,45))
  msg %keywords-nick 7. Kelime: $+($chr(3),4,$read(keywords.txt,46),$chr(3)) – Frekans: $read(keywords.txt,47) – Pay: $+(%,$read(keywords.txt,48))
  msg %keywords-nick 8. Kelime: $+($chr(3),4,$read(keywords.txt,49),$chr(3)) – Frekans: $read(keywords.txt,50) – Pay: $+(%,$read(keywords.txt,51))
  msg %keywords-nick 9. Kelime: $+($chr(3),4,$read(keywords.txt,52),$chr(3)) – Frekans: $read(keywords.txt,53) – Pay: $+(%,$read(keywords.txt,54))
  msg %keywords-nick 10. Kelime: $+($chr(3),4,$read(keywords.txt,55),$chr(3)) – Frekans: $read(keywords.txt,56) – Pay: $+(%,$read(keywords.txt,57))
}

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}

alias turkce return $replace($1-,ç,ç,ÄŸ,ğ,ı,ı,ÅŸ,ş,ö,ö,ü,ü)