Çevrimdışı

Arkadaslar bu kufur koruması var ama bunda ban atarken hem sonunda küfürü yazıyor hemde banı aradan 1 dk gecdıkden sonra gerı acıyor ben hem ettıgı kufuru yazmasını ıstemıyorum hemde banı zamanlı acmasını ıstemıyorum ben kurcaladım denedım ama ban atmadı yardımcı olabılırmısınız bu kod ıse belırttıgım gıbı alıntıdır...

Alıntı:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Swear protection ;; ;; ;; ;; Author : Amidos ;; ;; Version : 1.03 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; on *:load:{ .set %kiket on .set %oplar on .set %banvaxt 200 .set %kickmsj BAD-WORD Detected. Please stop swearing- .set %soyush fuck,shit,bitch,idiot .echo -a 2Swear4 protection... .echo -a 4Type 2/bad4 to open ! .echo -a 7 Good luck!! 4:12> } on @*:text:*:#: { if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } _swer_ $1- } on @*:action:*:#: { if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } _swer_ $1- } on @*:notice:*:#: { if ($nick isop #) && (%oplar == on) { return } if ($nick isvo #) && (%vlar == on) { return } _swer_ $1- } alias _swer_ { var %x $strip($1-) , %i $numtok(%soyush,44) while (%i) { if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) { if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) } if (%banet == on) { .ban $iif(%banvaxt isnum,-u $+ %banvaxt) # $nick 2 } return } dec %i } } dialog swear { title "Swear protection By Amidos" size -1 -1 185 111 option dbu box "List of Bad Words", 1, 90 1 94 79 combo 2, 94 10 87 53, size button "Add", 3, 98 66 31 10 button "Del", 4, 144 65 31 10 box "", 5, 96 60 36 18 box "", 6, 142 60 36 18 box "Penalty", 7, 2 2 84 45 check "Kick ", 8, 5 13 39 10 check "Ban ", 9, 5 31 32 10 edit "", 10, 36 30 23 12, disable text "Seconds", 11, 62 32 21 8, disable box "Except", 12, 2 49 84 31 check "@ps", 13, 6 57 77 10 check "+Voices", 14, 6 68 75 10 box "Kick Message", 15, 2 81 182 27 edit "", 16, 6 90 174 13, autohs } alias bad { .dialog -m swear swear } on *:dialog:swear:init:*:{ if (%soyush) didtok $dname 2 44 $ifmatch if (%kiket) { .did -c $dname 8 } if (%banet) { .did -c $dname 9 | did -e $dname 10,11 } if (%oplar) { .did -c $dname 13 } if (%vlar) { .did -c $dname 14 } did -a $dname 10 %banvaxt did -a $dname 16 %kickmsj } on *:dialog:swear:sclick:*:{ if ($did == 3) { if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } } } if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } } if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } } if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } } if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } } if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } } } on *:dialog:swear:edit:*:{ %kickmsj = $did(16) %banvaxt = $did(10) } menu status,menubar { BAD-WORD:.bad }

 

Çevrimdışı

on *:text:*@hotmail*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@hot*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0544*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*@0537*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:********:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }
on *:text:*zikerim*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > }




bu kodu txt ıcıne at ve scrpte yukle gayet ıyı calısıyor baska bır scrpten alıntı yaptım ayrıca kendın de aynı sekılde cogaltabılırsın zaten cok kısa ben sana bır bolumunu yolladım kendın aynı sekılde cogaltırsın artık kolay gelsın

 

Çevrimdışı

mujdat Nickli Üyeden Alıntı

on *:text:*@hotmail*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } on *:text:*@hot*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } on *:text:*@0544*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } on *:text:*@0537*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } on *:text:********:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } on *:text:*zikerim*:#: { kick # $nick 2,0KanaL G£n£Lind£ s£viy£ ßozucu Davranışta ßuLunduğunuz için uzakLaştırıLdınız..!!! > } bu kodu txt ıcıne at ve scrpte yukle gayet ıyı calısıyor baska bır scrpten alıntı yaptım ayrıca kendın de aynı sekılde cogaltabılırsın zaten cok kısa ben sana bır bolumunu yolladım kendın aynı sekılde cogaltırsın artık kolay gelsın

bununla yukardakinin ne alakasi varki ? biraz dikkat lütfen


if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],BAD-WORD Detected. Please stop swearing-
kirmizi kismi silersen ettigi küfür kick mesaji icinde yer almaz

if (%banet == on) { .ban # $nick 2 }
buda süresiz ban icin