deop iken otoların çalışması
 

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?

Cevap: deop iken otoların çalışması
 

koruma kodlarını buraya kopyalarsan bakabilirim.

Cevap: deop iken otoların çalışması
 

koruma kodlari derken? remote yimi

Cevap: deop iken otoların çalışması
 

($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

Cevap: deop iken otoların çalışması
 

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

Cevap: deop iken otoların çalışması
 

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

@ i silipte kaydedip denermisin

Cevap: deop iken otoların çalışması
 

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

Cevap: deop iken otoların çalışması
 

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.

Cevap: deop iken otoların çalışması
 

lütfen denermisiniz daha ircop deilim bakamiyorum

Cevap: deop iken otoların çalışması
 

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!

Cevap: deop iken otoların çalışması
 

yok kardeş çalışmadı

Cevap: deop iken otoların çalışması
 

Küfür Korumasi
Kod:

on *:TEXT:*:#: {
; +o +h +v ler bu degerden etkilenmeyecekler
if ($nick !isreg #) return
var %l = $strip($1-)
if ($hmatch(kufur,%l)) {
ban -u300 # $nick 3
kick # $nick 2Tarih:7 $date 2Saat:7 $time  2[  7 $Chan  2 ]  1KanaLına; 4Argo1/4Küfür1 Kullanmak Yasaktir, Ve Atilma Sebebidir.
}
}
alias kufur {
if ($1 == ekle) && ($regex($2,[A-Za-z])) {
if !$hget(kufur) { hmake kufur 1000 }
hadd kufur $2
secho  $2  12Veritabanina Başarıyla Eklendi
hsave kufur kufur.data
}
elseif ($1 == sil) {
if ($hfind(kufur,$2)) {
hdel kufur $2
secho $2 12Veritabanindan Başarıyla Silindi
hsave kufur kufur.data
}
else { secho $2 12Veritabaninda Bulunamadi }
}
elseif ($1 == list) {
var %x = 1
while (%x <= $hget(kufur,0).item) {
set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
inc %x
}
if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
}
else { secho hatali islem }
}
alias secho {
;echo -a $1-
if (!$window(@kufur)) { window -en @kufur }
echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: {
if !$hget(kufur) { hmake kufur 1000 }
if !$isfile(kufur.data) { hsave kufur kufur.data }
hload kufur kufur.data
}

bunu kullanabilirsin, Kodda sorun yok forumdada olan bir kodedir. Alintidir.

mİRC'inde Kufur.data varsa herhangi biyeriyle oynama eger Kufur.txt varsa Kufur.data yazan yerleri Kufur.txt olarak değiştir işini görücektir.

ALT +R yaparak Remotelere eklersen işini görücektir. Kolay gelsin keyifli forumlar.