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">}

}