Hazır kod Güncel Burc/Addon

on *:text:*:#Radyo:{
  if $regex($1,/^[!.]bur[cçÇ]$/Si)  {
    if $read(Veri/muafkanallar.txt,w,$chan) { notice $nick $chan Kanalı eglence komutlarından muaf'tır. 14 $nick  | return }
    if $nick = $read(Veri/muaflar.txt,w,$nick) { msg $chan 14 $nick  Muaf kullanıcı oldugunuz için eglence komutlarını kullanamazsınız. | return }
    if !$regex($2,/(ko[cçÇ]|bo[gğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[gğĞ]lak|kova|bal[ıiİ]k)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 Koç Boğa İkizler Yengeç Aslan Başak Terazi Akrep Yay Oğlak Kova Balık
    }
    else {
      if %burc1 [ $+ [ $nick ] ] {
        msg $chan 14 $nick Komutunu tekrar kullanmak için14 %burc1 [ $+ [ $nick ] ] saniye beklemelisiniz.
        halt
      }
      set -z %burc1 [ $+ [ $nick ] ] 10
      set %lnk $replace($regml(1),Koç,Koc,Boğa,Boga,İkizler,İkizler,Başak,Basak,Oğlak,Oglak,Balık,Balik,Yengeç,Yengec)
      set %burchn $chan
      set %burcnck $nick
      burc
    }
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias burc { if $sock(burc) { sockclose burc } | sockopen burc www.astroloji.org 80 }
on *:sockopen:burc:{
  sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp HTTP/1.0
  sockwrite -n $sockname User-Agent: Mozilla
  sockwrite -n $sockname Host: www.astroloji.org
  sockwrite -n $sockname $crlf
}
on *:sockread:burc:{
  sockread -f %burc
  if $regex(%burc,/&nbsp;(.+)</td>/i) && $len($regml(1)) > 80 {
    msg %burchn %lnk Burcu yorumu özelinize gönderildi.6 %burcnck
    msg %burcnck [[ %lnk Burcu yorumunuz. ]]
    msg %burcnck -
    msg %burcnck $gettok($gettok($gettok(%burc,2,59),1,60),1-2,46)
    msg %burcnck $gettok($gettok($gettok(%burc,2,59),1,60),3-4,46)
    msg %burcnck $gettok($gettok($gettok(%burc,2,59),1,60),5-6,46)
    msg %burcnck $gettok($gettok($gettok(%burc,2,59),1,60),7-8,46)
    msg %burcnck $gettok($gettok($gettok(%burc,2,59),1,60),9-10,46)
    msg %burcnck -
  }
}