Çevrimdışı

Merhaba Sayın Coderler belki aradigim konu burda vardir ama bulamadim.. şöyle açıklıyayım sizlere. ben ircopum kanalalrda deop iken birisi kanalda küfür ettiginde veya badnickli biri girdiginde o kişiyi nasıl atarim ve badnick ile giren kisiyi cinsellik ve *** kanalına oto nasıl ajoinlerim

----------

yokmu acaba bilen birisi?

----------

yokmu acaba bilen birisi?

 

Çevrimdışı

koruma kodlarını buraya kopyalarsan bakabilirim.

 

Çevrimdışı

koruma kodlari derken? remote yimi

 

Çevrimdışı

devrimsami Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

korumalar opa cıkmadan aktif yapma elimde bir kod var fakat bu kod kanada op olmadan aktif olmuyor opa cıkmadan nasıl aktif edebilirim kolay gelsin yardımlarınız icin şimdiden tşkler if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== } alias k_start { hmake $1 $2 hload $1 $+(remote\save\,$1,.save) } alias kstart { k_start kufur 1000 } on *:start: { kstart } on *:text:*:#: { if $istok(%muafn,$nick,32) == $true { halt } if $istok(%muafall,#,32) == $true { halt } if $istok(%muaf2,#,32) == $true { halt } if (%kufur == 1) && ($me isop $chan) && ($nick isreg $chan) && ($nick !isop #) { if $hfind(kufur,$1-,1,W).data { ban -u900 # $nick 2 | .zline $nick %kufur.yazi echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalindan 12Küfür 1Sebebinden Atilmistir. }

($me isop $chan) &&
bu satırı değişirsen sorun çözülüyor
remotenden bul koruma kodlarını

----------

veya deop olsanda f tuşu ile atabilirsin

/f11 /cs op #kanal $me | /mode # +b $$1 | /kick # $$1 Kurallara Uyunuz. | /cs deop #kanal $me

 

Çevrimdışı

on @Badnick:JOIN:#:{ .timer 1 300 mode $chan -b $nick
/opme /chanserv op $chan $me
/ping /ctcp $$1 ping
/finger /ctcp $$1 finger
/op /mode # +ooo $$1 $2 $3
/deop /mode # -ooo $$1 $2 $3
/j /join #$$1 $2-
/n /names #$$1
/w /whois $$1
/p /part #
/k /kick # $$1 $2-
/b /ban # $$1
/kb /ban $$1 2 | /kick # $$1
/q /query $$1
/s /server
/pass /nickserv identify $1
/cs /chanserv $1-
/ns /nickserv $1-
/ms /memoserv $1-
/os /operserv $1-
/rs /rootserv $1-
/F1 /gline $1 1gülümsemeyi, 4Sevgi; 1haketmeyi, 12Vefa; 1hatırlamayı, 4Dostluk; 1paylaşmayı bilen için vardır.12Sen ise Dostluk Kurallarini Aştin Dostum
/f2 /mode # +b $$1 | /kick # $$1 4Global Kanallarda Bu Tarz Nick Yasaktir 12/Nick YeniNick 1Seklinde Lutfen Nickinizi Degistirin
/F3 /gline $1 dışarı..!Sunucumuzda..!! 4Trojen Atmak, Flood Yapmak, Clone Sokmak, Reklam Yapmak ve Global Kanallarda Rahatasız Edici Kelimeler Kullanmak Yasaktır.
/f4 $$1 | /Say $$1 4Global Kanallarda Bu Tarz Kelimeler Kullanmak Yasaktir 12Lütfen Seviyeli Sohbet Ediniz 1Aksi Taktirde Sizi Uzaklastirmak Zorunda Kalacagim
/F5 /nick $$?="Yeni Nickiniz?"
/f6 /mode # +v $$1 | /Say $$1 $active 4KanaLina Ho$ geLdiniz... Size 12lRC ve Servisler hakkinda Nasil Yardimci Olabilirim
/f7 /say $$1 :4 Baska Sorununuz Yoksa Lütfen Bekleme Yapmayiniz?
/f8 /mode # -v $$1 | /say $$1 : Lütfen 4 $active KanaLinda BekLeme Yapmayiniz... 12 :/Part $active
/alias F9 /sajoin $* #Cinsellik
/F10 /ban $$1 2 | /kick # $$1 4Global Kanallarda Bu Tarz Kelimeler Kullanmak Yasaktir 12Lütfen Seviyeli Sohbet Ediniz
/F11 /quit %çıkış | exit
/F12 /dialog -m yardimci yardimci

bu aliases deki yazilar burdakinimi deiscem valla benim script cok karisik bir sürü kod alip koydum

 

Çevrimdışı

on @Badnick:JOIN:#:{ .timer 1 300 mode $chan +b $nick

@ i silipte kaydedip denermisin

 

Çevrimdışı

on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** -----------------
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg Kick mesajınız
}
on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}
%kckmsg Kick mesajınız
on @Badnick:JOIN:#:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Canimhelp,$chan,32) {
mode $chan +b $nick
kick $chan $nick Rumuzunuz KanaL Seviyesine Uygun Degil.
}
}
on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),badnick,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#Canimhelp,%e,32) {
mode %e +b $newnick
kick %e $newnick Gecmis oldugunuz rumuz kanal Seviyesine uygun degil.
}
inc %Cnk
}
}
}
}


Buda Remote

 

Çevrimdışı

on *:join:#:if $kotunick($nick) { /cs kick # +b $nick | kick # $nick %kckmsg }
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %`
}
}
}
#oto-tara on
on *:OP:#:if $opnick == $me { krt $chan }
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** -----------------
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg Kick mesajınız
}
on *:UNLOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı.
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}
%kckmsg Kick mesajınız
on Badnick:JOIN:#:{
if ($ulist($nick,koruma,0) >= 1) { return }
elseif !$istok(#Canimhelp,$chan,32) {
mode $chan +b $nick
kick $chan $nick Rumuzunuz KanaL Seviyesine Uygun Degil.
}
}
on *:NICK:{
if ($ulist($+($newnick,!*@*),koruma,0) >= 1) { return }
else {
if $ulist($+($newnick,!*@*),badnick,0) {
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e && !$istok(#Canimhelp,%e,32) {
mode %e +b $newnick
kick %e $newnick Gecmis oldugunuz rumuz kanal Seviyesine uygun degil.
}
inc %Cnk
}
}
}
}

ircopsan bu işe yaraması lazım bot sayesinde deopkende atabiliyor olman lazım. kopyalayıp deneyebilirsin denemedim ben ama.

 

Çevrimdışı

lütfen denermisiniz daha ircop deilim bakamiyorum

 

Çevrimdışı

benim yetkim yok biyerde ama çalışacaktır çünkü sen bota uygulatıyorsun bu kod sayesınde komutu.
@ iken uyguluyor kodu optan indiğimde ve listedeki kötu nıck gırdıgınde de uyguluyor fakat cs ye @ olmadıgım için erişim sağlayamıyorum ve atamıyorum gördüğün gibi.
ircop ken cs ye erişim sağlarsın kanalda op olmana gerek yok.

0,5 [00:37] [ Notice - 15ChanServ 0] 5 SERHAT #NucLeaR kanalinda oplandi.
[00:37] * SERHAT sets mode: +b LoRDGuaRD!*@*
4*** [00:37] LoRDGuaRD 12,4 SERHAT tarafından kicklendi. (Kick mesajınız4)
[00:37] * SERHAT sets mode: -b LoRDGuaRD!*@*
[00:37] * SERHAT sets mode: -o SERHAT
10*** [00:37] Giriş: LoRDGuaRD (ideod@IP.6824F14E.5A05D3DD.552A2CFF)
12*** [00:37] Clone Tespit Edildi: (Nick: 4LoRDGuaRD12 /4 4SERHAT 12<-> 12IP: (*!*@IP.6824F14E.5A05D3DD.552A2CFF)12 - (2)
0,5 [00:37] [ Notice - 15ChanServ 0] 5 +b nick'i su anda kullanimda degil.
12*** 4( #NucLeaR ) 12Kanalında Operator Değilsin!