| Stefua | 10 Ekim 2007 06:28 |
koruma
mrb elimde bir kod var kod başka dosya daki txt içindeki korumalar ile çalışıyor sanırım
mesela BÜYÜK YAZI Korumasında Uyarı : Stefua diyor sebebini söylemiyor
Bu kodu tek bir kod haline getirebilecek varmı PHP- Kodu:
alias yardim20 { yardi Bu özelligin aktif edilmesi halinde kanala giren kişi eger uygunsuz bir kanalda bulunuyorsa (Kötükanal Listesinde Bulunan) cezalandırılır. }
alias yardim21 { yardi Bu özelligin aktif edilmesi halinde kanala giren kişi uygunsuz identle girmişse (Ident Listesinde Bulunan) örn: Siker@217.131.96.*** gibi cezalandırılır. }
alias yardim22 { yardi Bu özelligin aktif edilmesi halinde kanaldaki @plardan kanalı ele geçirmeye çalışan olursa (/mode #kanal +l 1) @pu alınarak kanaldan atılır.. }
alias yardim23 { yardi Bu özelliğin aktif edilmesi halinde Kanal/Web/IRC reklamlarından özelinize gelen olduğu taktirde reklam yapan kişi cezalandırılır. }
alias yardim24 { yardi Bu özelliğin aktif edilmesi halinde Kanalda bir nick'in IP'sine ban atıldığında bu IP'den herkes kanaldan atılır. }
alias yardim25 { yardi Bu özelliğin aktif edilmesi halinde Kanalda belirtilen sayıdan fazla @p olduğu taktirde son gelen @p deop edilir. }
alias yardim26 { yardi Bu özelliğin aktif edilmesi halinde Kanalda bütün kullanıcılara ban atmaya çalışan @p olduğu taktirde @p'u alınarak kanaldan atılır. }
alias kick { if ($3 == $null) { kick $1- 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.xx.com } | else { kick $1- } }
alias kb { ban $chan $1 2 | kick # $1 4 $+ $2- }
alias kb2 { //ban %gidici1 %gidici 2 | //kick %gidici1 %gidici 4 $+ %Quickkick }
alias banlistele { set %banlisteler on | mode %kanal +b }
alias bansil { if ($server) { set %silban on | set %kanal # | .banlistele | if ($me isop #) { msg # KanaLdaki Bütün BanLar Temizlenmiştir.. | else { echo 4 -a %symb 7,1 # 11,1Kanalında @p Degilsiniz! } } }
else { echo 11 -a %symb 11,1 Hiçbir Sunucuya Bağlı Değilsiniz! }
}
on *:START:{ if ($exists(system\ini\uyarilar.ini)) { .remove system\ini\uyarilar.ini } }
alias korumalar2 { extremeprotect }
alias -l dopen { var %u = $rand(1,3) | dopen [ $+ [ %u ] ] $1 $2 $3 $4 $5 $6 }
alias -l dopen1 { dialog $6 $1 $1 | var %x = 1 | while (%x <= 200) { dialog -s $1 $2 $3 $round($calc( $4 / 200 * %x )) $round($calc( $5 / 200 * %x )) | inc %x } }
alias -l dopen2 { dialog $6 $1 $1 | var %x = 1 | while (%x <= 200) { dialog -s $1 $2 $3 $4 $round($calc( $5 / 200 * %x )) | inc %x } }
alias -l dopen3 { dialog $6 $1 $1 | var %x = 1 | while (%x <= 200) { dialog -s $1 $2 $3 $round($calc( $4 / 200 * %x )) $5 | inc %x } }
alias korumastyle2 { korumastyle }
alias korumastyle {
inc %kori 1
set %korumastyle $read -l $+ %kori system\txt\korumastyle.txt
checkkoruma
did -a eXtReMeProtect 1 %korumastyle
if (.tr isin %korumastyle) { set %kori 0 | unset %korumastyle }
.timer 1 3 korumastyle2
}
alias checkkoruma { if ($dialog(eXtReMeProtect) == $null) { halt } }
alias eXtReMeProtect { $iif(!$dialog(eXtReMeProtect),dopen eXtReMeProtect 140 150 400 250 -m) }
dialog eXtReMeProtect {
title "[eXtReMe - Kanal Korumaları]"
size -1 -1 0 0
text "" ,1,20 227 120 25 read autohs
icon 99,335 217 40 40, images\cprot.ico, tab7
icon images\eXtReMe.ico,0
button "Kapat",4,165 227 150 20,ok
tab "Genel",6,5 5 390 215
tab "Reklam",7
tab "Kötü Kelimeler",8
tab "Yazılar",9
tab "MASS",199
tab "eXtRa",122
;___________( Genel )_______________________________
check "Yazı Flood Kor.",10,10 35 111 20,tab6
edit %floodno ,11,122 33 35 20,tab6
text "Harf veya",12,160 37 50 20,tab6
edit %floodsn ,13,210 33 20 20,tab6
text "sn'de",14,232 37 25 20,tab6
edit %floodst ,133,260 33 20 20,tab6
text "Satır",144,282 37 25 20,tab6
button "Ceza",15,310 33 80 20,tab6
check "Yazı Tekrarı Koruması",16,10 60 116 20,tab6
edit %tekrarno ,17,135 58 35 20,tab6
text "Tekrar",18,175 62 50 20,tab6
edit %tekrarsn ,19,215 58 50 20,tab6
text "sn'de",20,270 62 25 20,tab6
button "Ceza",21,310 58 80 20,tab6
check "Join/Part Flood Kor.",74,10 85 113 20,tab6
edit %partno ,75,135 83 35 20,tab6
text "Giriş ",76,175 87 50 20,tab6
edit %parttimer ,77,215 83 50 20,tab6
text "sn'de",78,270 87 25 20,tab6
button "Ceza",79,310 83 80 20,tab6
check "Büyük Harf/CAPS" ,22,10 110 103 20,tab6
edit %capsoran ,23,135 108 35 20,tab6,autohs
text "%",24,123 112 10 20,tab6
edit %buyukno ,25,215 108 50 20,tab6
text "veya",176,178 110 30 20,tab6
text "Harf",26,270 110 50 20,tab6
button "Ceza",27,310 108 80 20,tab6
check "Nick Değ. Flood Kor.",774,10 135 116 20,tab6
edit %ndno ,775,135 135 35 20,tab6
text "Nick D.",776,175 137 50 20,tab6
edit %ndtimer ,777,215 135 50 20,tab6
text "sn'de",778,270 137 25 20,tab6
button "Ceza",779,310 135 80 20,tab6
check "Uzun Harf Koruması",40,10 160 116 20,tab6
edit %harfno ,41,135 160 35 20,tab6
text "Harf",42,175 162 50 20,tab6
button "Ceza",45,225 160 80 20,tab6
check "Uzun Noktalama Kor.",28,10 185 116 20,tab6
edit %noktano ,29,135 185 35 20,tab6
text "Karakter",30,175 187 50 20,tab6
button "Ceza",33,225 185 80 20,tab6
text "Rakamları",332,327 165 50 20,tab6
button "RESETLE",333,323 180 55 25,tab6
box "", 900,315 155 70 55, tab6
;____________( Reklam )________________________________
check "Kanal Reklamı",52,15 50 95 20,tab7
button "Reklam Unsurları+Ceza",53,120 50 130 20,tab7
check "Website Reklam",55,15 80 98 20,tab7
button "Reklam Unsurları+Ceza",56,120 80 130 20,tab7
check "Server Reklam",61,15 110 95 20,tab7
button "Reklam Unsurları+Ceza",62,120 110 130 20,tab7
check "Özele Reklam",300,15 140 95 20,tab7
link "[ ? ]",301,120 142 100 20,tab7
;________( Kötü Kelimeler )____________________
check "Kötü Ident İle Giriş Kor.",66,15 60 130 20,tab8
button "Identler+Ceza",67,150 60 100 20,tab8
link "[ ? ]" 631, 260 62 30 20,flat, tab8
check "Kötü Nick İle Giriş Kor.",68,15 83 130 20,tab8
button "Nickler+Ceza", 628, 150 83 100 20,tab8
check "Kanalda Küfür Koruması.",72,15 110 130 20,tab8
button "Küfürler+Ceza",73,150 110 100 20,tab8
check "Kötü Kanalda Bulunma K.",70,15 135 133 20,tab8
button "Kanallar+Ceza",71,150 135 100 20,tab8
link "[ ? ]" 630, 260 137 30 20,flat, tab8
icon 990,290 90 35 35, images\off.ico, tab 8
;____________( Yazılar )____________________________
icon 991,10 40 375 69, images\extreme.bmp, tab 9
check "Renkli Yazı Koruması",34,20 120 120 20,tab9
button "Ceza",39,143 120 50 20,tab9
check "Notice Koruması",282,20 145 120 20,tab9
button "Ceza",182,143 145 50 20,tab9
check "Actions Koruması",46,20 170 120 20,tab9
button "Ceza",51,143 170 50 20,tab9
check "Altı Çizili Yazı Koruması",152,200 120 122 20,tab9
button "Ceza",153,330 120 50 20,tab9
check "Kalın Yazı Koruması",154,200 145 120 20,tab9
button "Ceza",155,330 145 50 20,tab9
check "CTCP Koruması",84,200 170 100 20,tab9
button "Ceza",85,330 170 50 20,tab9
;_______( MASS )____________________
check "Mass Kick Koruması",1000,15 50 115 20,tab199
edit %mkickno ,1001,143 50 30 20,tab199
text "Kick",1002,180 53 50 20,tab199
edit %mkicksn ,1003,225 50 30 20,tab199
text "sn'de",1004,270 53 25 20,tab199
button "Ceza",1005,315 50 70 20,tab199
check "Mass +@p Koruması",1100,15 75 120 20,tab199
edit %mopno ,1101,143 75 30 20,tab199
text "Op",1102,180 78 30 20,tab199
edit %mopsn ,1103,225 75 30 20,tab199
text "sn'de",1104,270 78 25 20,tab199
button "Ceza",1105,315 75 70 20,tab199
check "Mass -De@p Koruması",1200,15 100 120 20,tab199
edit %mdeopno ,1201,143 100 30 20,tab199
text "DeOp",1202,180 103 40 20,tab199
edit %mdeopsn ,1203,225 100 30 20,tab199
text "sn'de",1204,270 103 25 20,tab199
button "Ceza",1205,315 100 70 20,tab199
check "Mass +Voice Koruması",1300,15 125 122 20,tab199
edit %mvoiceno ,1301,143 125 30 20,tab199
text "Voice",1302,180 128 40 20,tab199
edit %mvoicesn ,1303,225 125 30 20,tab199
text "sn'de",1304,270 128 25 20,tab199
button "Ceza",1305,315 125 70 20,tab199
check "Mass -DeVoice Kor.",1400,15 150 120 20,tab199
edit %mdevoiceno ,1401,143 150 30 20,tab199
text "DeVoice",1402,180 153 40 20,tab199
edit %mdevoicesn ,1403,225 150 30 20,tab199
text "sn'de",1404,270 153 25 20,tab199
button "Ceza",1405,315 150 70 20,tab199
link "[Rakamları Resetle]",1406,220 185 150 20,tab199
;___________( eXtRa )___________________________________________
check "Take Over Koruması",720,20 40 120 20,tab122
link "[ ? ]" ,721, 150 42 50 15,flat, tab122
check "Limitli @p ",820,20 60 72 20,tab122
edit %opsayisi ,822,95 60 25 18,tab122
text "@p",823,123 62 20 20,tab122
link "[ ? ]" ,821, 150 62 50 15,flat, tab122
check "Guest Nick K.",80,20 80 80 20,tab122
button "Nickler+Ceza",81,110 81 72 18,tab122
check "*!*@* Ban Koruması",880,20 100 120 20,tab122
link "[ ? ]" ,881, 150 102 50 15,flat, tab122
check "Tel.no Koruması",180,20 120 100 20,tab122
button "Numaralar+Ceza",181,120 120 90 18,tab122
box "Ban Enforcer", 500,200 30 170 40, tab 122
check "Banlanan IP'yi Kick'le",501,215 46 120 20,tab122
link "[ ? ]",502,340 48 20 20,tab122
check "Full Büyük Harfli Nick K.",980,215 80 128 20,tab122
button "Ceza",981,350 80 35 18,tab122
link "[F7 Kick Mesajları]",982,240 103 120 20,tab122
Button "Bütün Kick Mesajlarını Resetle",983,225 125 150 20,tab122
icon 93,295 163 35 35, images\user.ico, tab 122
box "Klon Sistem", 50,10 148 350 60, tab 122
check "Giren Klonları Belirle",90,20 163 150 20,tab122
check "Giren Klonları Kick+Ban'la",91,20 183 150 20,tab122
link "Klon Menu",92,200 170 80 20,tab122
}
alias rakamresetle {
set %capsoran 78
set %partno 3
set %parttimer 50
set %floodno 200
set %floodsn 7
set %floodst 5
set %buyukno 40
set %noktano 5
set %harfno 5
set %tekrarno 3
set %tekrarsn 60
set %opsayisi 4
set %ndno 4
set %ndtimer 8
.timer 1 0.1 korumalar2
.timer 1 1 echo -a %symb Genel Korumalar İçin Rakamlar Resetlendi.
}
alias rakamresetle2 {
set %mkickno 5
set %mkicksn 8
set %mopno 3
set %mopsn 5
set %mdeopno 3
set %mdeopsn 5
set %mvoiceno 4
set %mvoicesn 6
set %mdevoiceno 4
set %mdevoicesn 6
.timer 1 0.1 korumalar2
.timer 1 1 echo -a %symb Mass Korumalar İçin Rakamlar Resetlendi.
}
on *:DIALOG:eXtReMeProtect:INIT:*:{
unset %korumastyle | set %kori 0 | korumastyle
if ($group(#kanalaflood).status == on ) { did -c eXtReMeProtect 10 }
if ($group(#tekrarkoruma).status == on ) { did -c eXtReMeProtect 16 }
if ($group(#capskoruma).status == on ) { did -c eXtReMeProtect 22 }
if ($group(#noktalama).status == on ) { did -c eXtReMeProtect 28 }
if ($group(#uzunharf).status == on ) { did -c eXtReMeProtect 40 }
if ($group(#ozelereklam).status == on ) { did -c eXtReMeProtect 300 }
if ($group(#kanalakufur).status == on ) { did -c eXtReMeProtect 72 }
if ($group(#takeover).status == on ) { did -c eXtReMeProtect 720 }
if ($group(#kanalanotice).status == on ) { did -c eXtReMeProtect 282 }
if ($group(#kanalatelno).status == on ) { did -c eXtReMeProtect 180 }
if ($group(#giriscikis).status == on ) { did -c eXtReMeProtect 74 }
if ($group(#kanalakanalreklam).status == on ) { did -c eXtReMeProtect 52 }
if ($group(#kanalawebreklam).status == on ) { did -c eXtReMeProtect 55 }
if ($group(#kanalaircreklam).status == on ) { did -c eXtReMeProtect 61 }
if ($group(#badident).status == on ) { did -c eXtReMeProtect 66 }
if ($group(#badnick).status == on ) { did -c eXtReMeProtect 68 }
if ($group(#badchan).status == on ) { did -c eXtReMeProtect 70 }
if ($group(#clonegiris).status == on) { did -c eXtReMeProtect 90 }
if ($group(#clonegiriskickban).status == on) { did -c eXtReMeProtect 91 }
if ($group(#guestkoruma).status == on) { did -c eXtReMeProtect 80 }
if ($group(#renkkoruma).status == on) { did -c eXtReMeProtect 34 }
if ($group(#kalinkoruma).status == on) { did -c eXtReMeProtect 154 }
if ($group(#alticizilikoruma).status == on) { did -c eXtReMeProtect 152 }
if ($group(#kanalaaction).status == on) { did -c eXtReMeProtect 46 }
if ($group(#kanalactcp).status == on) { did -c eXtReMeProtect 84 }
if ($group(#bankick).status == on) { did -c eXtReMeProtect 501 }
if ($group(#limitliop).status == on) { did -c eXtReMeProtect 820 }
if ($group(#cokluban).status == on) { did -c eXtReMeProtect 880 }
if ($group(#fullbuyuknick).status == on) { did -c eXtReMeProtect 980 }
if ($group(#ndflood).status == on) { did -c eXtReMeProtect 774 }
if ($group(#masskick).status == on) { did -c eXtReMeProtect 1000 }
if ($group(#massop).status == on) { did -c eXtReMeProtect 1100 }
if ($group(#massdeop).status == on) { did -c eXtReMeProtect 1200 }
if ($group(#massvoice).status == on) { did -c eXtReMeProtect 1300 }
if ($group(#massdevoice).status == on) { did -c eXtReMeProtect 1400 }
}
on *:DIALOG:eXtReMeProtect:SCLICK:*:{
if ($did == 10) { if ($group(#kanalaflood).status == on ) { .disable #kanalaflood } | else { .enable #kanalaflood } }
if ($did == 16) { if ($group(#tekrarkoruma).status == on ) { .disable #tekrarkoruma } | else { .enable #tekrarkoruma } }
if ($did == 22) { if ($group(#capskoruma).status == on ) { .disable #capskoruma } | else { .enable #capskoruma } }
if ($did == 28) { if ($group(#noktalama).status == on ) { .disable #noktalama } | else { .enable #noktalama } }
if ($did == 40) { if ($group(#uzunharf).status == on ) { .disable #uzunharf } | else { .enable #uzunharf } }
if ($did == 180) { if ($group(#kanalatelno).status == on ) { .disable #kanalatelno } | else { .enable #kanalatelno } }
if ($did == 181) { telno }
if ($did == 282) { if ($group(#kanalanotice).status == on ) { .disable #kanalanotice } | else { .enable #kanalanotice } }
if ($did == 300) { if ($group(#ozelereklam).status == on ) { .disable #ozelereklam } | else { .enable #ozelereklam } }
if ($did == 301) { yardim23 }
if ($did == 627) { swear }
if ($did == 628) { shitlist }
if ($did == 630) { yardim20 }
if ($did == 631) { yardim21 }
if ($did == 720) { if ($group(#takeover).status == on ) { .disable #takeover } | else { .enable #takeover } }
if ($did == 779) { massnickmenu }
if ($did == 74) { if ($group(#giriscikis).status == on ) { .disable #giriscikis } | else { .enable #giriscikis } }
if ($did == 52) { if ($group(#kanalakanalreklam).status == on ) { .disable #kanalakanalreklam } | else { .enable #kanalakanalreklam } }
if ($did == 53) { kkanalreklam }
if ($did == 55) { if ($group(#kanalawebreklam).status == on ) { .disable #kanalawebreklam } | else { .enable #kanalawebreklam } }
if ($did == 56) { kwebreklam }
if ($did == 61) { if ($group(#kanalaircreklam).status == on ) { .disable #kanalaircreklam } | else { .enable #kanalaircreklam } }
if ($did == 62) { kircreklam }
if ($did == 66) { if ($group(#badident).status == on ) { .disable #badident } | else { .enable #badident } }
if ($did == 67) { badident }
if ($did == 68) { if ($group(#badnick).status == on ) { .disable #badnick } | else { .enable #badnick } }
if ($did == 69) { badnick }
if ($did == 70) { if ($group(#badchan).status == on ) { .disable #badchan } | else { .enable #badchan } }
if ($did == 71) { badchan }
if ($did == 72) { if ($group(#kanalakufur).status == on ) { .disable #kanalakufur } | else { .enable #kanalakufur } }
if ($did == 73) { swear }
if ($did == 81) { guestnick }
if ($did == 90) { if ($group(#clonegiris).status == on ) { .disable #clonegiris } | else { .enable #clonegiris } }
if ($did == 91) { if ($group(#clonegiriskickban).status == on ) { .disable #clonegiriskickban } | else { .enable #clonegiriskickban } }
if ($did == 92) { klonmenu }
if ($did == 80) { if ($group(#guestkoruma).status == on ) { .disable #guestkoruma } | else { .enable #guestkoruma } }
if ($did == 34) { if ($group(#renkkoruma).status == on ) { .disable #renkkoruma } | else { .enable #renkkoruma } }
if ($did == 154) { if ($group(#kalinkoruma).status == on ) { .disable #kalinkoruma } | else { .enable #kalinkoruma } }
if ($did == 152) { if ($group(#alticizilikoruma).status == on ) { .disable #alticizilikoruma } | else { .enable #alticizilikoruma } }
if ($did == 46) { if ($group(#kanalaaction).status == on ) { .disable #kanalaaction } | else { .enable #kanalaaction } }
if ($did == 84) { if ($group(#kanalactcp).status == on ) { .disable #kanalactcp } | else { .enable #kanalactcp } }
if ($did == 333) { rakamresetle | dialog -c eXtReMeprotect }
if ($did == 501) { if ($group(#bankick).status == on ) { .disable #bankick } | else { .enable #bankick } }
if ($did == 502) { yardim24 }
if ($did == 774) { if ($group(#ndflood).status == on ) { .disable #ndflood } | else { .enable #ndflood } }
if ($did == 820) { if ($group(#limitliop).status == on ) { .disable #limitliop } | else { .enable #limitliop } }
if ($did == 880) { if ($group(#cokluban).status == on ) { .disable #cokluban } | else { .enable #cokluban } }
if ($did == 881) { yardim26 }
if ($did == 980) { if ($group(#fullbuyuknick).status == on ) { .disable #fullbuyuknick } | else { .enable #fullbuyuknick } }
if ($did == 981) { fullbuyukmenu }
if ($did == 982) { kicks }
if ($did == 983) { kickmesajlari }
if ($did == 1406) { rakamresetle2 | dialog -c eXtReMeprotect }
if ($did == 1000) { if ($group(#masskick).status == on ) { .disable #masskick } | else { .enable #masskick } }
if ($did == 1005) { masskickmenu }
if ($did == 1100) { if ($group(#massop).status == on ) { .disable #massop } | else { .enable #massop } }
if ($did == 1105) { massopmenu }
if ($did == 1200) { if ($group(#massdeop).status == on ) { .disable #massdeop } | else { .enable #massdeop } }
if ($did == 1205) { massdeopmenu }
if ($did == 1300) { if ($group(#massvoice).status == on ) { .disable #massvoice } | else { .enable #massvoice } }
if ($did == 1305) { massvoicemenu }
if ($did == 1400) { if ($group(#massdevoice).status == on ) { .disable #massdevoice } | else { .enable #massdevoice } }
if ($did == 1405) { massdevoicemenu }
if ($did == 821) { yardim25 }
if ($did == 721) { yardim22 }
if ($did == 182) { noticemenu }
if ($did == 51) { actionmenu }
if ($did == 15) { floodmenu }
if ($did == 21) { tekrarmenu }
if ($did == 79) { joinpartmenu }
if ($did == 27) { capsmenu }
if ($did == 45) { uzunharfmenu }
if ($did == 33) { uzunnoktalamamenu }
if ($did == 39) { renklimenu }
if ($did == 153) { alticizilimenu }
if ($did == 155) { kalinmenu }
if ($did == 85) { ctcpmenu }
if ($did == 1) { }
}
on *:DIALOG:eXtReMeProtect:EDIT:*:{
if ($did == 23) { set %capsoran $did(23) | if ($did(23) > 100) { erro Lütfen 1-100 arasında bir sayı değeri giriniz } }
if ($did == 75) { set %partno $did(75) | if ($did(75) > 100) { erro Lütfen 1-100 arasında bir sayı değeri giriniz } }
if ($did == 77) { set %parttimer $did(77) | if ($did(77) > 100) { erro Lütfen 1-100 arasında bir sayı değeri giriniz } }
if ($did == 11) { set %floodno $did(11) | if ($did(11) > 500) { erro Lütfen 1-500 arasında bir sayı değeri giriniz } | if ($did(11) isnum) { } | else { erro Lütfen 1-500 arasında bir sayı değeri giriniz } }
if ($did == 13) { set %floodsn $did(13) | if ($did(13) > 10) { erro Lütfen 1-10 arasında bir sayı değeri giriniz } | if ($did(13) isnum) { } | else { erro Lütfen 1-10 arasında bir sayı değeri giriniz } }
if ($did == 133) { set %floodst $did(133) | if ($did(133) > 10) { erro Lütfen 1-10 arasında bir sayı değeri giriniz } | if ($did(133) isnum) { } | else { erro Lütfen 1-10 arasında bir sayı değeri giriniz } }
if ($did == 25) { set %buyukno $did(25) | if ($did(25) > 300) { erro Lütfen 1-300 arasında bir sayı değeri giriniz } | if ($did(25) isnum) { } | else { erro Lütfen 1-500 arasında bir sayı değeri giriniz } }
if ($did == 29) { set %noktano $did(29) | if ($did(29) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(29) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 41) { set %harfno $did(41) | if ($did(41) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(41) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 17) { set %tekrarno $did(17) | if ($did(17) > 10) { erro Lütfen 1-10 arasında bir sayı değeri giriniz } | if ($did(17) isnum) { } | else { erro Lütfen 1-10 arasında bir sayı değeri giriniz } }
if ($did == 19) { set %tekrarsn $did(19) | if ($did(19) > 500) { erro Lütfen 1-500 arasında bir sayı değeri giriniz } | if ($did(19) isnum) { } | else { erro Lütfen 1-500 arasında bir sayı değeri giriniz } }
if ($did == 775) { set %ndno $did(775) | if ($did(775) > 10) { erro Lütfen 1-10 arasında bir sayı değeri giriniz } | if ($did(775) isnum) { } | else { erro Lütfen 1-10 arasında bir sayı değeri giriniz } }
if ($did == 777) { set %ndtimer $did(777) | if ($did(777) > 10) { erro Lütfen 1-10 arasında bir sayı değeri giriniz } | if ($did(777) isnum) { } | else { erro Lütfen 1-10 arasında bir sayı değeri giriniz } }
if ($did == 822) { set %opsayisi $did(822) | if ($did(822) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(822) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1001) { set %mkickno $did(1001) | if ($did(1001) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1001) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1003) { set %mkicksn $did(1003) | if ($did(1003) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1003) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1101) { set %mopno $did(1001) | if ($did(1101) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1101) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1103) { set %mopsn $did(1003) | if ($did(1103) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1103) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1201) { set %mdeopno $did(1001) | if ($did(1201) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1201) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1203) { set %mdeopsn $did(1003) | if ($did(1203) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1203) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1301) { set %mvoiceno $did(1001) | if ($did(1301) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1301) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1303) { set %mvoicesn $did(1003) | if ($did(1303) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1303) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1401) { set %mdevoiceno $did(1001) | if ($did(1401) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1401) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
if ($did == 1403) { set %mdevoicesn $did(1003) | if ($did(1403) > 30) { erro Lütfen 1-30 arasında bir sayı değeri giriniz } | if ($did(1403) isnum) { } | else { erro Lütfen 1-30 arasında bir sayı değeri giriniz } }
}
;__________________( Text Korumaları )______________________________________________________________________
on *:text:*:#: {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
if ($group(#kanalakufur).status == on ) { kanalakufur $1- }
if ($group(#kanalatelno).status == on ) { kanalatelno $1- }
if ($group(#kanalakanalreklam).status == on ) { kanalakanalreklam $1- }
if ($group(#kanalawebreklam).status == on ) { kanalawebreklam $1- }
if ($group(#kanalaircreklam).status == on ) { kanalaircreklam $1- }
if ($group(#renkkoruma).status == on ) { renkkoruma $1- }
if ($group(#uzunharf).status == on ) { uzunharfler $1- }
if ($group(#noktalama).status == on ) { uzunnoktalama $1- }
if ($group(#capskoruma).status == on ) { capskoruma $1- }
if ($group(#kalinkoruma).status == on ) { kalinkoruma $1- }
if ($group(#tekrarkoruma).status == on ) { tekrarkoruma $1- }
if ($group(#kanalaflood).status == on ) { floodkoruma $1- }
if ($group(#alticizilikoruma).status == on ) { alticizilikoruma $1- }
}
:end
}
;__________________( Koruma Incelemeleri )______________________________________________
alias uzunharfler {
unset %i %sonharf
set %uzunluk $len($1-)
set %sonharf $mid($1-,%uzunluk,1)
set %ayniharfsayisi 1
set %i %uzunluk
:inceleyelim
dec %i 1
if ($mid($1-,%i,1) != $chr(32)) {
set %soniki $mid($1-,%i,1)
if (%soniki !isin a,b,ß,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,q,r,s,ş,t,u,ü,v,w,x,y,z) { goto inceleyelim }
if (%soniki == %sonharf) { inc %ayniharfsayisi 1 }
else { set %ayniharfsayisi 1 }
set %sonharf %soniki
if (%ayniharfsayisi == %harfno) { uzunharfceza | unset %ayniharfsayisi | halt }
if (%i <= 1) { goto son } | else { goto inceleyelim }
}
if ($mid($1-,%i,1) == $chr(32)) {
dec %i 1 | set %soniki $mid($1-,%i,1)
if (%soniki !isin a,b,ß,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,q,r,s,ş,t,u,ü,v,w,x,y,z) { goto inceleyelim }
if (%soniki == %sonharf) { inc %ayniharfsayisi 1 }
else { set %ayniharfsayisi 1 }
set %sonharf %soniki
if (%ayniharfsayisi == %harfno) { uzunharfceza | unset %ayniharfsayisi | halt }
if (%i <= 1) { goto son } | else { goto inceleyelim }
}
:son
}
alias uzunnoktalama {
unset %i %sonharf
set %uzunluk $len($1-)
set %sonharf $mid($1-,%uzunluk,1)
set %ayniharfsayisi 1
set %i %uzunluk
:inceleyelim
dec %i 1
if ($mid($1-,%i,1) != $chr(32)) {
set %soniki $mid($1-,%i,1)
if (%soniki isin a,b,ß,,,,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,q,r,s,ş,t,u,ü,v,w,x,y,z) { goto inceleyelim }
if (%soniki == %sonharf) { inc %ayniharfsayisi 1 }
else { set %ayniharfsayisi 1 }
set %sonharf %soniki
if (%ayniharfsayisi >= %noktano) { uzunnoktalamaceza | unset %ayniharfsayisi | halt }
if (%i <= 1) { goto son } | else { goto inceleyelim }
}
if ($mid($1-,%i,1) == $chr(32)) {
dec %i 1 | set %soniki $mid($1-,%i,1)
if (%soniki isin a,b,ß,,,,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,q,r,s,ş,t,u,ü,v,w,x,y,z) { goto inceleyelim }
if (%soniki == %sonharf) { inc %ayniharfsayisi 1 }
else { set %ayniharfsayisi 1 }
set %sonharf %soniki
if (%ayniharfsayisi >= %noktano) { uzunnoktalamaceza | unset %ayniharfsayisi | halt }
if (%i <= 1) { goto son } | else { goto inceleyelim }
}
:son
}
alias kanalakufur {
set %i 0
:kanalakufur
inc %i 1
set %currentsword $read -l $+ %i system\txt\swear.txt
if (%currentsword == $null) { .unset %i | goto son }
if (%currentsword isin $1- ) { kanalaswearceza | halt }
else { goto kanalakufur }
:son
}
alias kanalatelno {
set %i 0
:kanalatelno
inc %i 1
set %currentsword $read -l $+ %i system\txt\telno.txt
if (%currentsword == $null) { .unset %i | goto son }
if (%currentsword isin $1- ) { kanalatelnoceza | halt }
else { goto kanalatelno }
:son
}
alias kanalakanalreklam {
set %i 0
:kanalakanalreklam
inc %i 1
set %currentsword $read -l $+ %i system\txt\kanalreklam.txt
if (%currentsword == $null) { .unset %i | goto son }
if ($chr(35) isin %currentsword) && ($chr(35) isin $1- ) { kanalakanalceza | halt }
if (%currentsword isin $1- ) { kanalakanalceza | halt }
else { goto kanalakanalreklam }
:son
}
alias kanalawebreklam {
set %i 0
:kanalawebreklam
inc %i 1
set %currentsword $read -l $+ %i system\txt\webreklam.txt
if (%currentsword == $null) { .unset %i | goto son }
if (%currentsword isin $1- ) { kanalawebceza | halt }
else { goto kanalawebreklam }
:son
}
alias kanalaircreklam {
set %i 0
:kanalaircreklam
inc %i 1
set %currentsword $read -l $+ %i system\txt\ircreklam.txt
if (%currentsword == $null) { .unset %i | goto son }
if (%currentsword isin $1- ) { kanalaircceza | halt }
else { goto kanalaircreklam }
:son
}
alias kaps { return %kaps }
alias capskoruma {
var %text = $strip($remove($1-,$chr(32)))
set %buyukler $len($removecs(%text,a,b,c,ç,d,e,f,g,ğ,h,ı,i,j,k,l,m,n,o,ö,p,q,r,s,ş,t,u,ü,v,w,x,y,z,:,1,2,3,4,5,6,7,8,9))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(%buyukler / %full.line)
if (%buyukler >= %buyukno) && (%buyukler >= 10) { set %kaps [ $+ %buyukler Büyük Harf $+ ] | capsceza | unset %text | halt }
if (%percent >= $calc(%capsoran /100)) && (%buyukler >= 10) { set %kaps [ $+ %percent CAPS Oranı $+ ] | capsceza | unset %text }
}
alias renkkoruma { if ( isin $1- ) { renkceza | halt } }
alias kalinkoruma { if ( isin $1- ) { kalinceza | halt } }
alias alticizilikoruma { if ( isin $1- ) { alticiziliceza } }
alias ut { return -u $+ %tekrarsn }
alias tekrarkoruma {
if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
if (%>reps_ [ $+ [ $nick ] ] == $null) { set $ut %>reps_ [ $+ [ $nick ] ] $1- | inc $ut %>repsa_ [ $+ [ $nick ] ] }
if (%>repsa_ [ $+ [ $nick ] ] >= %tekrarno) { tekrarceza | unset %*_ [ $+ [ $nick ] ] | halt }
}
alias floodkoruma {
if ($len($strip($1-)) >= %floodno ) { kanalafloodceza | halt }
.timer 1 %floodsn unset %flood. [ $+ [ $nick ] ]
inc %flood. [ $+ [ $nick ] ] 1
if (%flood. [ $+ [ $nick ] ] >= %floodst) { kanalafloodceza | halt }
}
#kanalaflood on
#kanalaflood end
;_____________( Altı Çizili Ceza Seçimi )______________________________________
#alticizilikoruma on
#alticizilikoruma end
alias alticiziliceza {
if ($group(#alticiziliuyar).status != on ) { alticizilikick }
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i
set %incelenen.nick $readini system/ini/uyarilar.ini alticizili %dnick
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini alticizili %dnick %uyarilacak.nick | alticiziliuyar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { remini system/ini/uyarilar.ini alticizili %dnick | uyarildi | goto son }
else { goto check }
:son
set %i 0 | unset %incelenen.nick | unset %uyarilacak.nick | unset %dnick
}
alias alticiziliuyar { msg # [UYARI:] $nick $+ , %alticiziliuyar }
alias alticizilikick { kb $nick %alticizilikick }
;_____________( Swear Ceza Seçimi )______________________________________
#kanalakufur on
#kanalakufur end
alias kanalaswearceza {
if ($group(#opermodu).status == on ) { klinemenu }
if ($group(#kufuruyar).status != on ) { kanalaswearkick }
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i
set %incelenen.nick $readini system/ini/uyarilar.ini kufur %dnick
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini kufur %dnick %uyarilacak.nick | kanalaswearuyar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { remini system/ini/uyarilar.ini kufur %dnick | kanalaswearkick | goto son }
else { goto check }
:son
set %i 0 | unset %incelenen.nick | unset %uyarilacak.nick | unset %dnick
}
alias kanalaswearkick { kb $nick %kufurkick }
alias kanalaswearuyar { msg # [UYARI:] $nick $+ , %kufuruyar }
;_____________( Telno Ceza Seçimi )______________________________________
alias kanalatelnoceza { kanalatelkick }
alias kanalatelkick { kb $nick %telnokick }
;_____________( KanalReklam Ceza Seçimi )______________________________________
alias kanalakanalceza {
if ($group(#opermodu).status == on ) { klinemenu }
kanalakanalkick
}
alias kanalakanalkick { kb $nick %kkanalreklamkick }
;_____________( Webreklam Ceza Seçimi )______________________________________
alias kanalawebceza {
if ($group(#opermodu).status == on ) { klinemenu }
kanalawebkick
}
alias kanalawebkick { kb $nick %kwebreklamkick }
;_____________( IRCreklam Ceza Seçimi )______________________________________
alias kanalaircceza {
if ($group(#opermodu).status == on ) { klinemenu }
kanalairckick
}
alias kanalairckick { kb $nick %kircreklamkick }
;_____________( Caps Ceza Seçimi )______________________________________
#capskoruma on
#capskoruma end
alias capsceza {
if ($group(#capsuyar).status != on ) { capskick }
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i
set %incelenen.nick $readini system/ini/uyarilar.ini caps %dnick
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini caps %dnick %uyarilacak.nick | capsuyar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { remini system/ini/uyarilar.ini caps %dnick | uyarildi | goto son }
else { goto check }
:son
set %i 0 | unset %incelenen.nick | unset %uyarilacak.nick | unset %dnick
}
alias capskick { kb $nick %capskick }
alias capsuyar { msg # [UYARI:] $nick $+ , %capsuyar }
;_____________( Uzunnoktalama Ceza Seçimi )______________________________________
alias uzunnoktalamaceza { uzunnoktalamakick }
alias uzunnoktalamakick { kb $nick %uzunnoktalamakick }
;_____________( Uzunharf Ceza Seçimi )______________________________________
alias uzunharfceza { uzunharfkick }
alias uzunharfkick { kb $nick %uzunharfkick }
;_____________( TEkrar Ceza Seçimi )______________________________________
alias tekrarceza {
if ($group(#opermodu).status == on ) { klinemenu }
ktekrarkick
}
alias ktekrarkick { kb $nick %ktekrarkick }
;_____________( Flood Ceza Seçimi )______________________________________
alias kanalafloodceza {
if ($group(#opermodu).status == on ) { klinemenu }
kanalafloodkick
}
alias kanalafloodkick { kb $nick %kfloodkick }
;_____________( Renk Ceza Seçimi )______________________________________
alias renkceza { renkkick }
alias renkkick { kb $nick %renklikick }
;_____________( Kalin Ceza Seçimi )______________________________________
alias kalinceza { kalinkick }
alias kalinkick { kb $nick %kalinkick }
alias kalinuyar { msg # UYARI: $$1 $+ , %kalinuyar }
;_____________( Joinpart Ceza Seçimi )______________________________________
alias joinpartceza {
if ($group(#opermodu).status == on ) { klinemenu }
joinpartkick
}
alias joinpartkick { kb $nick %joinpartkick }
;__________( Groups )_____________
#tekrarkoruma on
#tekrarkoruma end
#kanalatelno on
#kanalatelno end
#kanalakanalreklam on
#kanalakanalreklam end
#kanalaircreklam on
#kanalaircreklam end
#kanalawebreklam on
#kanalawebreklam end
#renkkoruma on
#renkkoruma end
#kalinkoruma on
#kalinkoruma end
#guestkoruma on
#guestkoruma end
#noktalama on
#noktalama end
#uzunharf on
#uzunharf end
;____________________
#badchan on
#badchan end
;____________( TakeOver Koruması )__________________________
#takeover on
on 1:mode:#:{
if ($nick == $me) { goto son }
if ($1 == +l) && ($2 == 1) { mode $chan -o+b $nick $nick | kick $chan $nick 4TakeOver Koruması ( $1- ) | mode $chan -lOkisp }
:son
}
#takeover end
;____________( Full Büyük Harf Nick )__________________________
#fullbuyuknick off
ON *:JOIN:#: {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) { if ($nick isupper) { msg # $nick %fullbuyukuyar } }
:end
}
#fullbuyuknick end
;________( Join Olayı )_________________________________________
on @*:JOIN:#:{
if ($group(#badnick).status == on ) { badnickjoincheck }
if ($group(#guestkoruma).status == on ) { guestnickjoincheck }
}
;____________( Bad Nick Koruması )_______________________________
alias badnickkick { kb $nick %badnickkick }
alias badnickceza { badnickkick }
#badnick on
#badnick end
alias badnickcheck {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %i 0
:checking
inc %i 1
set %currentnick $read -l $+ %i system\txt\badnick.txt
if (%currentnick == $null) { .unset %i | goto end }
if (%currentnick isin $newnick) { badnickceza }
else { goto checking }
}
:end
}
alias badnickjoincheck {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %i 0
:checking
inc %i 1
set %currentnick $read -l $+ %i system\txt\badnick.txt
if (%currentnick == $null) { .unset %i | goto end }
if (%currentnick isin $nick) { badnickceza }
else { goto checking }
}
:end
}
;____________( Guest Nick Koruması )_________________________________
alias guestkick { kb $nick %guestkick }
alias guestnickceza { guestkick }
#guestkoruma on
#guestkoruma end
alias guestnickcheck {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %i 0
:checking
inc %i 1
set %currentnick $read -l $+ %i system\txt\guestuzanti.txt
if (%currentnick == $null) { .unset %i | goto end }
if (%currentnick isin $newnick) { set %guestuzanti %currentnick | guestnickceza }
else { goto checking } }
:end
}
alias guestnickjoincheck {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %i 0
:checking
inc %i 1
set %currentnick $read -l $+ %i system\txt\guestuzanti.txt
if (%currentnick == $null) { .unset %i | goto end }
if (%currentnick isin $nick) { set %guestuzanti %currentnick | guestnickceza }
else { goto checking }
}
:end
}
;____________( Bad Ident KOruması )________________________________
alias badidentkick { ban -u120 # $nick 11 | ban -u120 # $nick 5 | kick # $nick %badidentkick }
alias badidentceza { badidentkick }
#badident on
on @*:JOIN:#:{
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %i 0
:checking
inc %i 1
set %currentnick $read -l $+ %i system\txt\badnick.txt
if (%currentnick == $null) { .unset %i | goto end }
if (%currentnick isin $fulladdress) { badidentceza }
else { goto checking }
}
:end
}
#badident end
;_____________( Giriş Çıkış KOruması )___________________________
alias partolayi { return -u $+ %parttimer }
#giriscikis on
on @*:join:#: {
if ($nick isop $chan) { halt }
if ($me isop $chan) {
inc $partolayi %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
if %join [ $+ [ $nick ] ] [ $+ [ $chan ] ] < %partno halt
unset %join [ $+ [ $nick ] ] [ $+ [ $chan ] ]
joinpartceza
halt
}
}
#giriscikis end
;___________( Actions Koruması )_______________________
alias kactionkick { kb $nick %kactionkick }
alias kactionceza { kactionkick }
#kanalaaction on
on *:action:*:#: {
if (.net isin $nick) { goto son }
if (.com isin $nick) { goto son }
if (.org isin $nick) { goto son }
if (.gen isin $nick) { goto son }
if ($nick == $me) { goto son }
if ($nick isop $chan) { goto son }
if ($me isop #) {
set %rmesaj $1-
set %rnick $nick
kactionceza
}
:son
}
#kanalaaction end
on *:ban:#: {
if ($group(#bankick).status == on ) { banlananikickle }
if ($group(#cokluban).status == on ) { cokluban }
}
;__________( Ban Enforcer )______________________________________________________
#bankick off
#bankick end
alias banlananikickle {
if ($nick == $me) { goto son }
if ($nick isop $chan) { goto son }
if ($me isop #) {
set %i 0
:nickadresscan
inc %i 1
if ($nick($chan,%i) == $null) { goto son }
set %kadres $address($nick($chan,%i),2)
if ($banmask isin %kadres) {
if ($nick($chan,%i) == $me) { goto nickadresscan }
if ($nick($chan,%i) isop $chan) { goto nickadresscan }
kick $chan $nick($chan,%i) 4 $+ $nick Tarafından IP Numaranız Banlandı!
goto nickadresscan
}
else { goto nickadresscan }
:son
}
}
;___________( *!*@* Ban Koruması )_______________________
#cokluban on
#cokluban end
alias cokluban {
if ($nick == $me) { goto son }
if ($me isop #) {
if ($banmask == *!*@*) {
mode $chan -bo $banmask $nick
ban # $nick 2 | kick $chan $nick 4Geniş IP Ban (*!*@*) Kullanmak Yasaktır!. | halt
}
}
:son
}
;__________( Notice Koruması )___________________________________________________
alias knoticekick { kb $nick %noticekick }
alias knoticeceza { knoticekick }
#kanalanotice on
on *:notice:*:#: {
if (.net isin $nick) { goto son }
if (.com isin $nick) { goto son }
if (.org isin $nick) { goto son }
if (.gen isin $nick) { goto son }
if ($nick == $me) { goto son }
if ($nick isop $chan) { goto son }
if ($me isop #) {
set %rmesaj $1-
set %rnick $nick
knoticeceza
}
:son
}
#kanalanotice end
;_____________( Kanala CTCP Koruması )_____________________________
alias kctcpkick { kb $nick %kctcpkick }
alias kctcpceza { kctcpkick }
#kanalactcp on
ctcp *:*:#: {
if ($nick == $me) { goto son }
if ($nick isop $chan) { goto son }
if ($me isop #) {
set %rmesaj $1-
set %rnick $nick
kctcpceza
}
:son
}
#kanalactcp end
;_________________( AutoMSG Koruması )__________________________________________
alias automsgkick { kb $nick %automsgkick }
alias automsgceza { automsgkick }
#automsgpro off
on 1:JOIN:#:{ if ($nick == $me) { set %otomsgkanal $chan | .timer 1 8 unset %otomsgkanal } }
on 1:TEXT:*:?:{
set %rnick $nick
set %rmesaj $1-
if ($nick !isop %otomsgkanal) && ($me isop %otomsgkanal) && ($nick ison %otomsgkanal) { automsgceza }
}
#automsgpro end
;__________________( Ban Part )__________________________________________________
on 1:PART:#:{ if ($nick ison $active) { set %partnick $nick } }
alias banpart { ban $chan %partnick 2 }
alias uyarildi { kb $nick %uyarildi }
;___________( Kick Mesajları )_____________________________________________
alias kickmesajlari {
set %ozeltelkick 4Özelde Telefon Numarası Vermek Yasaktır!.
set %ozelircreklam 4Özele Server RekLamı Yapmak Yasaktır.
set %ozelwebreklam 4Özele Web RekLamı Yapmak Yasaktır!.
set %ozelkanalreklam 4Özele Kanal RekLamı Yapmak Yasaktır!.
set %kflooduyar Kanala Flood/Kopyala-Yapıştır/Uzun Yazı Yazmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kfloodkick 4Kanala Flood/Kopyala-Yapıştır/Uzun Yazı Yazmak Yasaktır!.
set %ktekraruyar Aynı Şeyleri Tekrarlamayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %ktekrarkick 4Aynı Şeyleri Tekrarlamak Yasaktır!.
set %joinpartuyar Kanala Sürekli Girip Çıkmayınız, Seçiminizi Yapın Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %joinpartkick 4Join/Part Flood Yapmak Yasaktır!.
set %capsuyar Lütfen BÜYÜK harf kullanmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %capskick 4BÜYÜK HARF KULLANMAK YASAKTIR!.
set %uzunharfuyar Lütfen harfleri uzatmayınız, Aksi takdirde kanaldan uzaklaştırılacaksınız!.
set %uzunharfkick 4Harfleri Uzatmak Yasaktır!.
set %uzunnoktalamauyar Lütfen Noktalama İşaretlerini Gereğinden Fazla Kullanmayınız, Aksi takdirde kanaldan uzaklaştırılacaksınız!.
set %uzunnoktalamakick 4Noktalama İşaretlerini Gereğinden Fazla Kullanmak Yasaktır!.
set %badnickkick 4Kullandığınız Nick İle Bu Kanalda Bulunmanız Yasaktır!.
set %badnickuyar Lütfen Nickinizi 30sn. İçerisinde Değiştiriniz, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %badidentkick 4Bu Tür Ident İle Kanala Giremezsiniz! Lütfen Identinizi Değiştiriniz ve 2 Dakika Sonra Tekrar Giriş Yapınız!.
set %badchankick 4Bulunduğunuz Bazı Kanallar İle Bu Kanalda Birlikte Bulunamazsınız 2 Dakika İçinde Seçiminizi Yapıp Tekrar Deneyiniz!.
set %telnokick 4Kanalda Telefon Numarası Vermek Yasaktır!.
set %telnouyar Kanalda Telefon Numarası Vermeyiniz, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kufurkick 4Küfür Etmek Yasaktır!.
set %kufuruyar Argo Kelimeler Kullanmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %clonekick 4Klonlara Yer Yok!.
set %cloneuyar Clone Yapmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kkanalreklamkick 4Kanal Reklamı Yapmak Yasaktır!.
set %kkanalreklamuyar Kanal Reklamı Yapmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kircreklamkick 4IRC Reklamı Yapmak Yasaktır!.
set %kircreklamuyar Kanala IRC Reklamı Yapmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kwebreklamkick 4Web Reklamı Yapmak Yasaktır!.
set %kwebreklamuyar Kanala Web Reklamı Yapmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kalinkick 4Kalın Yazılar Kullanmak Yasaktır!.
set %kalinuyar Lütfen Kalın Yazılar Kullanmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %alticiziliuyar Lütfen Altı Çizili Yazılar Kullanmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %alticizilikick 4Altı Çizili Yazılar Kullanmak Yasaktır!.
set %kalinkick 4Kalın Yazılar Kullanmak Yasaktır!.
set %renklikick 4R5e1n10k12L14i 4Yazılar Kullanmak Yasaktır!.
set %renkliuyar Lütfen Renkli Yazılar Kullanmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %knoticekick 4Kanala Notice Atmak Yasaktır!.
set %knoticeuyar Kanala Notice Atmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kactionkick 4Kanala Action Mesaj Atmak Yasaktır!.
set %kactionuyar Kanala Action Mesaj Atmayınız, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %kctcpkick Kanala CTCP Göndermek Yasaktır!.
set %kctcpuyar Kanala CTCP Göndermeyiniz, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %guestuyar %guestuzanti Uzantılı Nicklerle Kanalda Bulunmanız Yasaktır. 1 Dakika İçerisinde Nickinizi Değiştirmediğiniz Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %guestkick 4 $+ %guestuzanti Uzantılı Nicklerle Kanalda Bulunmanız Yasaktır!.
set %automsgkick 4AutoMSG/Reklam Yapmak Yasaktır!.
set %fullbuyukuyar Kanalda Büyük Harflerden Oluşan Nickle Bulunmanız Yasaktır, 1 Dakika İçerisinde Nickinizi Değiştirmediğiniz Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %fullbuyukkick 4Kanalda Büyük Harflerden Oluşan Nickle Bulunmak Yasaktır!.
set %masskickkick 4Mass Kick Koruması!.
set %massnickuyar Kanalda Sürekli Nick Değiştirmeyiniz, Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!.
set %massnickkick 4Sürekli Nick Değiştirmek Yasaktır!.
set %massopkick 4Mass +@p Koruması!.
set %massdeopkick 4Mass -De@p Koruması!.
set %massvoicekick 4Mass +Voice Koruması!.
set %massdevoicekick 4Mass -DeVoice Koruması!.
set %uyarildi 4Sizi Daha Önce Uyarmıştım!.
echo -a %symb Kick Mesajları Düzenlendi!.
}
;___________________( Mass Kick Koruması )_______________________________________
ON *:KICK:#: { if ($group(#masskick).status == on ) { masskickceza } }
#masskick on
#masskick end
alias masskickkick {
kb $nick %masskickkick
remini system/ini/uyarilar.ini masskick %dnick
remini system/ini/uyarilar.ini masskick %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias masskickceza {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.nick $readini system/ini/uyarilar.ini masskick %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini masskick %dnicktekrar
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini masskick %dnick %uyarilacak.nick | writeini system/ini/uyarilar.ini masskick %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini masskick %dnicktekrar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %mkickno) { goto ceza } | else { writeini system/ini/uyarilar.ini masskick %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
masskickkick
:son
.timer 1 %mkicksn remini system/ini/uyarilar.ini masskick %dnick
.timer 1 %mkicksn remini system/ini/uyarilar.ini masskick %dnicktekrar
:end
}
}
;________( Nick Olayı )_________________________________________
on *:NICK:{
if ($group(#ndflood).status == on ) { massnickceza $address($newnick,2) | set %massnickchan $comchan($newnick,1) }
if ($group(#badnick).status == on ) { badnickcheck }
if ($group(#guestkoruma).status == on ) { guestnickcheck }
}
;__________________( Mass Nick Koruması )_______________________________________
#ndflood on
#ndflood end
alias ndtimer { return -u $+ %ndtimer }
alias massnickkick {
mode %massnickchan +d
ban %massnickchan $newnick 2 | kick %massnickchan $newnick %massnickkick
.timer 1 60 mode %massnickchan -d
remini system/ini/uyarilar.ini massnick %dnick
remini system/ini/uyarilar.ini massnick %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias massnickceza {
if ($nick == $me) { goto end }
if ($nick isop $chan) { goto end }
if ($me isop #) {
set %uyarilacak.ip $1-
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.ip $readini system/ini/uyarilar.ini massnick %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini massnick %dnicktekrar
if (%incelenen.ip == $null) { writeini system/ini/uyarilar.ini massnick %dnick %uyarilacak.ip | writeini system/ini/uyarilar.ini massnick %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini massnick %dnicktekrar | goto son }
if (%incelenen.ip == %uyarilacak.ip) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %ndno) { goto ceza } | else { writeini system/ini/uyarilar.ini massnick %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
massnickkick
:son
.timer 1 %ndtimer remini system/ini/uyarilar.ini massnick %dnick
.timer 1 %ndtimer remini system/ini/uyarilar.ini massnick %dnicktekrar
:end
}
}
;___________( Limitli @p Koruması )________________________________
#limitliop on
#limitliop end
alias limitliop {
if ($opnick == $me) { goto end }
if ($me isop #) {
if ($opnick(#,0) >= %opsayisi + 1) {
mode $chan -o $opnick
msg $chan Yeterli Op Koruması Aktif!. ( $+ %opsayisi Op $+ ) - %logo5
}
}
:end
}
;___________( Op Olayı )________________________________________________
;on 1:OP:#:{
; if ($group(#limitliop).status == on ) { limitliop }
; if ($group(#massop).status == on ) { massopceza }
;}
;_________( Mass Op Koruması )__________________________________________________________
#massop on
#massop end
alias massopkick {
kb $nick %massopkick
massdeop
remini system/ini/uyarilar.ini massop %dnick
remini system/ini/uyarilar.ini massop %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias massopceza {
if ($opnick == $me) { goto end }
if ($nick == $me) { goto end }
if ($me isop #) {
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.nick $readini system/ini/uyarilar.ini massop %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini massop %dnicktekrar
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini massop %dnick %uyarilacak.nick | writeini system/ini/uyarilar.ini massop %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini massop %dnicktekrar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %mopno) { goto ceza } | else { writeini system/ini/uyarilar.ini massop %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
massopkick
:son
.timer 1 %mopsn remini system/ini/uyarilar.ini massop %dnick
.timer 1 %mopsn remini system/ini/uyarilar.ini massop %dnicktekrar
:end
}
}
;___________( DeOp Olayı )______________________________________________________________
on 1:DEOP:#:{
if ($group(#massdeop).status == on ) { massdeopceza }
}
;________( Mass Deop Koruması )__________________________________________________________
#massdeop on
#massdeop end
alias massdeopkick {
kb $nick %massdeopkick
remini system/ini/uyarilar.ini massdeop %dnick
remini system/ini/uyarilar.ini massdeop %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias massdeopceza {
if ($opnick == $me) { goto end }
if ($nick == $me) { goto end }
if ($me isop #) {
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.nick $readini system/ini/uyarilar.ini massdeop %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini massdeop %dnicktekrar
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini massdeop %dnick %uyarilacak.nick | writeini system/ini/uyarilar.ini massdeop %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini massdeop %dnicktekrar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %mopno) { goto ceza } | else { writeini system/ini/uyarilar.ini massdeop %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
massdeopkick
:son
.timer 1 %mopsn remini system/ini/uyarilar.ini massdeop %dnick
.timer 1 %mopsn remini system/ini/uyarilar.ini massdeop %dnicktekrar
:end
}
}
;___________( Voice Olayı )________________________________________________
on 1:voice:#:{
if ($group(#massvoice).status == on ) { massvoiceceza }
}
;_________( Mass +Voice Koruması )__________________________________________________________
#massvoice on
#massvoice end
alias massvoicekick {
kb $nick %massvoicekick
remini system/ini/uyarilar.ini massvoice %dnick
remini system/ini/uyarilar.ini massvoice %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias massvoiceceza {
if ($vnick == $me) { goto end }
if ($nick == $me) { goto end }
if ($me isop #) {
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.nick $readini system/ini/uyarilar.ini massvoice %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini massvoice %dnicktekrar
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini massvoice %dnick %uyarilacak.nick | writeini system/ini/uyarilar.ini massvoice %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini massvoice %dnicktekrar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %mopno) { goto ceza } | else { writeini system/ini/uyarilar.ini massvoice %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
massvoicekick
:son
.timer 1 %mopsn remini system/ini/uyarilar.ini massvoice %dnick
.timer 1 %mopsn remini system/ini/uyarilar.ini massvoice %dnicktekrar
:end
}
}
;___________( DeVoice Olayı )________________________________________________
on 1:devoice:#:{
if ($group(#massdevoice).status == on ) { massdevoiceceza }
}
;_________( Mass +Voice Koruması )__________________________________________________________
#massdevoice on
#massdevoice end
alias massdevoicekick {
kb $nick %massdevoicekick
remini system/ini/uyarilar.ini massdevoice %dnick
remini system/ini/uyarilar.ini massdevoice %dnicktekrar
unset %dnicktekrar %dnicktekrarsay
}
alias massdevoiceceza {
if ($vnick == $me) { goto end }
if ($nick == $me) { goto end }
if ($me isop #) {
set %uyarilacak.nick $nick
set %i 0
:check
inc %i 1
set %dnick nick $+ %i | set %dnicktekrar nick $+ %i $+ .tekrar
set %incelenen.nick $readini system/ini/uyarilar.ini massdevoice %dnick | set %incelenen.tekrar $readini system/ini/uyarilar.ini massdevoice %dnicktekrar
if (%incelenen.nick == $null) { writeini system/ini/uyarilar.ini massdevoice %dnick %uyarilacak.nick | writeini system/ini/uyarilar.ini massdevoice %dnicktekrar 1 | set %dnicktekrarsay $readini system/ini/uyarilar.ini massdevoice %dnicktekrar | goto son }
if (%incelenen.nick == %uyarilacak.nick) { inc %dnicktekrarsay 1 | if (%dnicktekrarsay >= %mopno) { goto ceza } | else { writeini system/ini/uyarilar.ini massdevoice %dnicktekrar %dnicktekrarsay | goto son } }
else { goto check }
:ceza
massdevoicekick
:son
.timer 1 %mopsn remini system/ini/uyarilar.ini massdevoice %dnick
.timer 1 %mopsn remini system/ini/uyarilar.ini massdevoice %dnicktekrar
:end
}
}
|
