acilsusam on
on *:start:{
.echo -s 1 4 UYARI : 14 Botunuza Zline yetkisi verdiginizden Emin olunuz.. ve Bot Ayarlarınızı Yapınız..
.echo -s 1 [7Bot Ayarları4]1nızı yaptıysanız bu uyarıları dikkate Almadan Her Açılışta Sadece [7Bağlan4] 1 butonuna tıklayınız.
.echo -s 1 veya [7Bu paneli bidaha gösterme4] 1butonuna tıklayarak Artık Bot'un Sunucunuza otomatik girmesini Sağlayınız.
.echo -s 1 **************************************************  *********
.echo -s 1 14IRCProxy 1IRc7 Security 12System®1 ile Sunucunuz Artık Güvende...!
.echo -s 1 **************************************************  *********
.echo -s 1 Tek yapmanız Gereken 1 Kereye mahsus [7Bot Ayarları4] 1nızı yapmak
.echo -s 1 [7Bot Ayarları4]1nızı yaptıktan sonra [7Bağlan4] 1butonuna Tıklamak...
.echo -s 1 [7Bu paneli bidaha gösterme4] 1butonuna Tıkladığınızda Artık panel karşınıza çıkmaz ve bot Sunucunuza direk girer..
.echo -s 1 4Not:[7Bu paneli bidaha gösterme4] 1ye Tıklamadan önce Mutlaka [7Bot Ayarları4]1nızı yapınız...!
.echo -s 1 **************************************************  *********
.echo -s 1 [7Bot Ayarları4]1nızı yaptıysanız bu uyarıları dikkate Almadan Her Açılışta Sadece [7Bağlan4] 1 butonuna tıklayınız.
.echo -s 1 veya [7Bu paneli bidaha gösterme4] 1butonuna tıklayarak Artık Bot'un Sunucunuza otomatik girmesini Sağlayınız.
.echo -s 1 **************************************************  *********
.echo -s 1 14IRCProxy 1IRc7 Security 12System® [3aCode4] By ; [3ircproxy.Net4]
}
#acilsusam end
on *:connect:{
.oper %botopernick %botopernicksifre 
timer 1 6 ns ghost %botnick %botnicksifre
timer 1 6 nick %botnick
timer 1 6 identify %botnicksifre
timer 1 8 /umode +cX
timer 1 10 join 0
timer 1 13 /join %rapor
timer 1 15 /samode %rapor +o %botnick
timer 1 20 /girisguncel
timer 0 50 /ping %botnick
timer 0 3600 /txtguncelle
}
alias prxguncelle {
timer 1 1 /msg %rapor Conf Güncelleme Başladı.. Lütfen 5-10 dk Arası Botu Kapatmayınız...
timer 1 1 /remove haftalik-proxy-conf/haftalik-ircproxy.conf
timer 1 1 /remove ircproxy.conf
timer 1 1 /remove tor.conf
timer 1 10 /guncelle haftalik-proxy-conf/haftalik-ircproxy.conf
timer 1 200 /guncelle tor.conf
timer 1 400 /guncelle ircproxy.conf
timer 1 600 /gonder
}
alias girisguncel {
timer 1 1 txtguncelle
timer 1 10 msg %rapor 4Proxy Güncellemesi yapılıyor. bu işlem 20-30 saniye sürebilir Lütfen Botu Çıkarmayınız.
timer 1 50 msg %rapor 4Proxy Güncellemesi bitti.
}
alias txtguncelle {
timer 1 1 /remove proxy.txt
timer 1 10 /guncelle proxy.txt
}
#acildim off
on *:start:{
server %server
}
#acildim end
alias guncelle {
if $sock(guncelle) {
sockclose guncelle
}
unset %dr
set %yukle $1
sockopen guncelle ircproxy.net 80
}
on *:SOCKCLOSE:guncelle: {
halt
}
on *:SOCKREAD:guncelle: {
if %dr != 1 {
var %h
sockread %h
while $sockbr {
if * !iswm %h {
set %dr 1
break
}
sockread %h
}
}
sockread 4096 &d
while $sockbr {
bwrite %yukle -1 -1 &d
sockread 4096 &d
}
}
on *:SOCKOPEN:guncelle: {
if $sockerr {
return
}
sockwrite -nt $sockname GET $+(/,%yukle) HTTP/1.0
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Host: ircproxy.net
sockwrite -nt $sockname
}
alias manual {
timer 1 1 /echo -a 0,1Conf Güncelleme Başladı.. Lütfen 5-10 dk Arası Botu Kapatmayınız...
timer 1 1 /girisguncel
}
on *:SNOTICE:*Client*connecting*:if !$regex($left($8,-1),(7030)) { who $9 }
raw 352:*:{ if $read(proxy.txt,w,$4) { zline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,]) | /msg %rapor ( $+ $time $+ ) 4 $4 3Proxy-Girisi! - 4Atıldı }
}

alias tor_ { 
if ($1) { 
inc %xx
sockopen $+(tor*,%xx) anonymouse.org 80
sockmark $+(tor*,%xx) $1 
}
}
on *:sockopen:tor*:{
var %s sockwrite -n $sockname
%s GET / $+ $sock($sockname).mark HTTP/1.1
%s Host: anonymouse.org
%s $crlf
}
on *:sockread:tor*:{
var %x [ $+ [ $sockname ] ]
if 6068: isin %x [ $+ [ $sockname ] ] halt
sockread %x [ $+ [ $sockname ] ]
if (*<tr class="rblred">*rbl.efnetrbl* iswm %x [ $+ [ $sockname ] ]) {
kline $+(*@,$sock($sockname).mark) 1h 1IP adresinizde 4PROXY 1girişi tespit edilmiştir. Lamer Ban.)
sockclose $sockname
inc -u20 %ppp 1
if (%ppp == 3) { amsg  #sohbet  $read(soyle.txt) }
}
}
on *:snotice:*Client connecting*: { 
if ($8 == :6068) { return }
tor_ $remove($deltok($10,1,64),$chr(41))
}

raw 352:*:{ 
 if $read(proxy.txt,w,$4) { zline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,])
 /msg %rapor ( $+ $time $+ ) 4 $4 3Proxy-Girisi! - 4Atıldı 
  inc -u20 %ppp 1
   if (%ppp == 3) { mode #sohbet $read(mode.txt) nick }
 }
}

+a
+o
+v

#proxy off
on *:Snotice:*Client*Connect*:{
  .who +I $9
}
raw 352:*:{
 if $read(proxylist.txt,w,$+($4,*)) {
    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 
    gzline $+(*@,$4) : Ban Sebebi 
  }
#proxy end
menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.
  .-
  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı
}

#proxy off 
on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who $9 } } raw 352:*:{ if $read(proxylist.txt,w,$4) { gzline $+(,$4) : 1IP adresinizde 4( PROXY ) 1girişi tespit edilmiştir. $date $time $+([,IRCProxy,]) if !$window(@P-Tor) { window -neg1 @P-Tor } | echo @P-Tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi! } }
#proxy end
menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.
  .-
  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı

#proxy off
on *:Snotice:*Client*Connect*:{
  .who +I $9
}
 if $read(proxylist.txt,w,$+($4,*)) {
    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 
    gzline $+(*@,$4) : Ban Sebebi 
  }
#proxy end
menu channel,menubar {
  » Proxy Koruması
  .» Proxy Koruması Aç:.enable #proxy | echo -a «Proxy Koruması Acılmışdır.
  .-
  .» Proxy Koruması Kapat:.disable #proxy | echo -a «Proxy Koruması Kapatıldı
}

raw 352:*:{
if $read(proxylist.txt,w,$+($4,*)) {
    $iif(!$window(@KSC-P-1),window -e @KSC-P-1) | aline -p @KSC-P-1 $+([,$time(HH:nn),]) $+(<2,KSC-P-1,>) 3Ip Atıldı : 1[2Nick1]: $6  1[2IP1]: $4 
    gzline $+(*@,$4) : Ban Sebebi 
  }
}