alias -l swbot $iif($sock($+(proxybotu)).status == active,sockwrite -nt $+(proxybotu) $1-)
alias -l api_key { return API_KEY }
alias -l sunucu { return irc.test.org }
alias proxyservices { sockopen proxybotu 185.114.23.187 6667 }
alias proxyKontrol $iif($sock($+(proxybotu)).status == active,sockwrite -nt $+(proxybotu) privmsg BFServices $1-)
alias muaf {
  $iif(!$hget(muafnick),.hmake muafnick) | $iif(!$hget(muafport),.hmake muafport) | $iif(!$hget(muafident),.hmake muafident) | $iif(!$hget(muafip),.hmake muafip) | $iif(!$hget(PROXYDATA),.hmake PROXYDATA)
  if !$istok(nick port ident ip ,$1,32) || !$istok(ekle sil liste tara ,$2,32) { echo -a 2Yetersiz parametre. Geçerli bir işlem giriniz. Örn; | echo -a 4muaf nick/port/ident/ip ekle/sil EKLENECEK_SORGU 2Belirlenen EKLENECEK_SORGU için muaf ekler / siler. | echo -a 4muaf nick ekle KULLANICI_NICKI 2KULLANICI_NICKI'ne muaf ekledi. | echo -a 4muaf ident liste 2Muaf eklenen identleri sunar. } 
  elseif $2 == ekle { if !$3 { echo -a 2Eklenecek sorguyu giriniz. | return } | elseif $3 { if $hget(muaf $+ $1,$strip($3)) { echo -a 2 Eklemeye çalıştığınız sorgu zaten ekli. | return } | .hadd muaf $+ $1 $strip($3) $me $date $+ - $+ $time | .hsave -o muaf $+ $1 muaf $+ $1 $+ .bf | echo -a 2 Sorgu başarıyla eklendi. } }
  elseif $2 == sil { if !$3 { echo -a 2Silinecek sorguyu giriniz. | return } | elseif $3 { if !$hget(muaf $+ $1,$strip($3)) { echo -a 2 Eklemeye çalıştığınız sorgu zaten ekli değil. | return } | hdel muaf $+ $1 $strip($3) | .hsave -o muaf $+ $1 muaf $+ $1 $+ .bf | echo -a 2 Sorgu başarıyla silindi. } }
  elseif $2 == liste { if $hget(muaf $+ $1,0).data == 0 { echo -a 2 Bu sorguda sonuç yok. | return } | var %i 1 | while %i <= $hget(muaf $+ $1,0).data { if ($hget(muaf $+ $1,%i).data) { echo -a SORGU: $+([4,$replace($hget(muaf $+ $1,%i).item,ö,ö),2,]) Ekleyen: $+([4,$gettok($hget(muaf $+ $1,%i).data,1,32),2,]) Tarih: $+([4,$gettok($hget(muaf $+ $1,%i).data,2,32),2,]) } | inc %i } }
}
on *:start:{ $iif(!$hget(muafnick),.hmake muafnick) | $iif(!$hget(muafport),.hmake muafport) | $iif(!$hget(muafident),.hmake muafident) | $iif(!$hget(muafip),.hmake muafip) | $iif(!$hget(PROXYDATA),.hmake PROXYDATA) | if $isfile(muafnick.BF) { hload muafnick muafnick.BF }  | if $isfile(muafport.BF) { hload muafport muafport.BF }  |  if $isfile(muafident.BF) { hload muafident muafident.BF } | if $isfile(muafip.BF) { hload muafip muafip.BF } | if $isfile(PROXYDATA.BF) { hload PROXYDATA PROXYDATA.BF } }
on *:snotice:*:{ if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) { var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5) | if $hget(muafport,%_port) { return } | elseif $hget(muafnick,%_nick) { return } | elseif $ip == %_ip { return } | elseif $hget(muafident,%_ident) { return } | elseif $hget(muafip,%_ip) { return } | else { who +I %_nick } } }
on *:sockclose:proxybotu:{ timer 1 2 sockopen proxybotu 185.114.23.187 6667 } 
on *:sockopen:proxybotu:{ if ($sockerr) { timer 1 2 sockopen proxybotu 185.114.23.187 6667 } | swbot NICK $+(ProxyService,$r(10,99999)) | swbot USER $api_key "" " $+ $iif($host,$host,$ip) 2 $sunucu Proxy Servisi }
on *:sockread:proxybotu:{
  var %gelen | sockread %gelen | tokenize 32 %gelen
  if ($1 = ping) swbot pong $remove($2,:) 
  elseif $regex($2,/(001|433)/) { swbot join 0,0 }
  elseif $1 == error && $2 == :closing { sockclose $sockname | timer 1 2 sockopen proxybotu 185.114.23.187 6667 }   
  elseif $regex($2,/(473|475|471|474)/) { swbot part $4 } 
  elseif $regex($2,/(PRIVMSG)/Si) {
    if $remove($gettok($1,1,33),:) == BFServices {
      if $regex($remove($4,:),/Hata/Si) { echo -a $remove($4-,:) | sockclose $sockname | return }
      elseif $regex($remove($4-,:),/Sisteme/Si) { echo -a Sisteme başarıyla bağlandınız. }
      elseif $regex($remove($4-,:),/PROXY.+ALGILANDI/Si) { gzline $+(*@,$gettok($strip($remove($4-,:)),4,32)) +5h Proxy Yasak... | echo -a $remove($4-,:) | .hadd PROXYDATA $gettok($strip($remove($4-,:)),4,32) 1 | .hsave -o PROXYDATA PROXYDATA.bf }
    }
  } 
}
raw 352:*:{ if $hget(PROXYDATA,$4) { gzline $+(*@,$4) +2h PROXY GIRISLERI YASAK } | else { if $ip != $4 { proxyKontrol $4 $6 } } }