on *:sockopen:burc:{ 

  sockwrite -n $sockname GET /yildizfali/ $+ $+(%burc,.asp)  HTTP/1.1 

  sockwrite -n $sockname Host: [url=http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sockwrite -n $sockname $crlf 

}

on *:sockread:burc:{

  var %: | sockread %:

  if (*<p align="left"* iswm %:) { set %:oke oke! } | elseif %:oke { if (&nbsp; isin %:) { msg %burckanali $+(4,",$upper(%burc),",$chr(32),BURCU YORUMU,1) $htmlfree(%:) | unset %:oke | sockclose $sockname } }

}

on *:text:*:#: { 

  if $1 == !burc { 

    if $hmatch(floodengelb,$remove($gettok($1,1,33),:)) { msg # 4 $+ $nick 1Bir Dakikada Sadece 1 burç yorumu öğrenebilirsiniz. Beklemeniz Gereken Süre:4 $hget(floodengelb,$remove($gettok($1,1,33),:) ).unset 1Saniye }

    elseif !$hmatch(floodengelb,,$remove($gettok($1,1,33),:))  { set %burc $replace($2,A,a,B,b,C,c,Ç,c,ç,c,D,d,E,e,F,f,G,g,Ğ,g,ğ,g,H,h,I,i,ı,i,İ,i,J,j,K,k,L,l,M,m,N,n,O,o,Ö,o,ö,o,P,p,R,r,S,s,Ş,s,ş,s,T,t,U,u,Ü,ü,V,v,Y,y,Z,z,W,w,@,a) | set %burckanali $chan | sockopen burc [url=http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}

} 

on *:sockopen:burç*:{
  var %s = sockwrite -n $sockname
  %s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1
  %s Host: burc.web.tr | %s
}
on *:sockread:burç*:{
  var %burcyorum
  sockread %burcyorum
  if milliyet.jpg isin %burcyorum {  sockmark $sockname posta }
  if </p> isin %burcyorum && $sock($sockname).mark && burc.web.tr !isin %burcyorum {
    $iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93))
write burç.txt $replace($utfdecode($htmlfree(%burcyorum)),&Ccedil;,Ç) } }

on *:text:*:#: {
  if $regex($1,/^([.!]bur[cÇç])/Si) {
    inc -u5 $+(%,play,+,$nick)
    if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | halt } 
    if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
    if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
    if !$istok($+(%burçlar,|,ikizler),$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt }
    if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 }
    msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ .
    msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$iif($2 == ikizler,İkizler,$2),124),124)) | msg $nick -
    $iif(%yenigün,.timer $+ $ticks 1 4) yorumat $nick $2
  }
}
alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i)),$chr(93))) { 
    var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46)
while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } }

alias burçlarıal {
  sockclose burç*
  if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık
  $iif($isfile(burç.txt),.remove burç.txt) | write burç.txt $date |  var %burc 1
while %burc <= 12 { sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i))) burc.web.tr 80 | inc %burc  } }

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