alias pbotnick return NİCK
 alias pnickpass return NİCKİNDENTİFY
 alias popers return OzeL PASSSWORD
 alias pident return Yeah
 alias poperchan return #opers
 alias psunucu return irc.sohbetsen.org 6667
 alias phostum return irc.Sohbetsen.Org.Devel.Oper
 alias bagla {
 if ($sockerr) { echo -a Bot Zaten Sunucuda | halt } 
else { sockclose prox | sockopen prox $psunucu | echo -a - ProxyBot Devreye Girdi! | halt }
 }
 alias kopart {
 if ($sockerr) { echo -a Bot Zaten Sunuda Degil | halt } 
else { sockclose prox | echo -a - ProxyBot Devreden Cıkarildi! | halt }
 }
 on *:sockopen:prox:{
 if ($sockerr) { echo $color(info) -a Socket botun bağlantısı kesildi. | return }
 swprox NICK User $+ $r(0,99)
 swprox USER $pident * * : ~ Devel-Oper ~
 swprox oper $popers
 swprox join 0,
 swprox NICK $pbotnick
 swprox join $poperchan
 swprox ns identify $pnickpass
 swprox mode $pbotnick +Dp
 swprox sethost $phostum
 swprox setident $pident
 .timer 0 20 swprox ping $pbotnick
 sockmark $sockname hgaehae
 }
 on *:sockread:prox:{
 if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
 var %; | sockread %; | tokenize 32 %;
 swproxy $1-
 }
 alias swprox { if $sock(prox) { sockwrite -n prox $1- } }
 alias swproxy {
 ;eğer bot socketı açıksa
 if $sock(prox) {
 var %: = echo $color(info) -st > Socket bot:
 if :VERSION iswm $4- { swprox NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION $+ $chr(1) }
 if :FINGER iswm $4- { swprox NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER $+ $chr(1) }
 if $1 == PING { swbota PiNG $2- }
if $1 == error && $2 == :closing {
 bagla
 }
 if ($2 == 352) && (%prox == on) {
 kpro $6 | tor_ $6
 }
 if $2 == notice { 
if (*client connecting* iswm $strip($1-)) && (%prox == on) {
 var %:ip = $gettok($left($right($13,-1),-1),2,64)
 swprox who +I $12
 }
 }
 if ($2 == privmsg) {
 var %n = $gettok($gettok($1,1,33),1,58), %m = $4,%text = $right($4-,-1), %k = $3
 if (.pbot isin %m) && (%k == $poperchan) { 
if ($5 == on) {
 if (%prox == on) { swprox privmsg %k ProxyBot Zaten Aktif! | halt }
 set %prox on | swprox privmsg %k ProxyBot Aktif! 
halt
 }
 if ($5 == off) { 
if (%proxy == off) { swprox privmsg %k ProxyBot DEAktif! | halt }
 set %proxy off | swprox privmsg %k ProxyBot DEAktif! 
halt
 }
 }
 }
 }
 }
 alias kpro {
 inc -u6 %xxxx
 sockopen kpro $+ %xxxx 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipsorgu.com 80
 sockmark $+(kpro*,%xxxx) $1
 }
 on *:sockopen:kpro*:{
 sockwrite -n $sockname GET //?ip= $+ $sock($sockname).mark HTTP/1.1
 sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.ipsorgu.com $+ $crlf $+ $crlf
 }
 on *:sockread:kpro*:{
 var %kpro
 sockread %kpro
 if (inetnum: isin %kpro) && (0.0.0.0 isin %kpro) {
 .swprox gzline *@ $+ $sock($sockname).mark +0 4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1 $date $time $+([,$pbotnick,]) 
sockclose $sockname
 }
 }
 alias tor_ {
 if ($1) {
 inc %xx
 sockopen $+(tor*,%xx) ircnet.com 80
 sockmark $+(tor*,%xx) $1 
}
 }
 on *:sockopen:tor*:{
 var %s sockwrite -n $sockname
 %s GET /cgi-bin/bl.cgi?ip= $+ $sock($sockname).mark HTTP/1.1
 %s Host: ircnet.com
 %s $crlf
 }
 on *:sockread:tor*:{
 var %x [ $+ [ $sockname ] ]
 sockread %x [ $+ [ $sockname ] ]
 if (*listed in tor* iswm %x [ $+ [ $sockname ] ]) {
 gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4TOR 1girişi tespit edilmiştir.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
 if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4TOR 1girişi tespit edilmiştir.4J14a5s7o10n1_7Statham1_5B4o3t7N10e14t6T7e4A5m1_14DevelOper1
 halt
 }
 if (*listed in rbl* iswm %x [ $+ [ $sockname ] ]) {
 gzline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir.
 if !$window([MENTION=8082]pRoXy[/MENTION]-tor) { window -neg1 [MENTION=8082]pRoXy[/MENTION]-tor } | echo [MENTION=8082]pRoXy[/MENTION]-tor ( $+ $time $+ ) $+(4 $chr(32),$sock($sockname).mark),$chr(32)) 1IP adresinden 4PROXY 1girişi tespit edilmiştir.
 sockclose $sockname
 }
 }
 raw 352:*:{
 tor_ $4
 }
 on *:snotice:*Client connecting*: {
 .who +I $9
 }