mirc Scriptler için bazı addonlar eklentiler yapalım

Y

yunus44

Active member
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Swear protection ;;
;; ;;
;; Author : Amidos ;;
;; Version : 1.03 ;;
;; ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj Küfür yasak!
.set %soyush buraya,yasklı*,kelimeleri,yazabilirsiniz
.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) { splay $mircdirsounds/uyari.wav
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj 1[4 $gettok(%soyush,%i,44) 1],Yasak_kelime 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 {
Yasak_kelime:.bad
}

not:birde size sesvermesi için scriptin içine sounds diye bir klasör ve içinde uyari.wav olması lazım.
not: buyazılanları remote bölümüne yüklerseniz. sizin ekleyeceğiniz kelime geçince atar,veya işareti. Oplar ve voiceleri istisna edebilirsiniz.
deneyin. güzel bir eklenti.
 
K

KaLeM

Active member
Ynt: mirc Scriptler için bazı addonlar eklentiler yapalım

walla anlamadım ama ıyı olduğu kesin, bizde otomatıkler korumalar yani sorun oluyor bazen,
Allah razı olsun
 
Y

yunus44

Active member
Ynt: mirc Scriptler için bazı addonlar eklentiler yapalım

dosya adını yasakkalime.mrc koyun sonrada
yeni load\yukle yapın yükleyin
..............................
yada
statüsteyken /load -rs dosyanın tam adresi ve adı(c:\script\yasakkelime.mrc
yazarsaanız direk olarak yükler menüde kullanıma hazır hale gelir.
 
Y

yunus44

Active member
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
}
#Takip on
on ^*:QUIT:{ hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick)) }
on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $hget(Takip,$address($nick,2)) }
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 { ban -k $chan $nick 2 Nick Change }
}
#Takip end
.....................................................................
açıklarsak bunu takip.txt veya mrc diye mircinize yüklerseniz
ne yapar:300 sn içinde nik değişikliklerini size haber verir eski nik yeni nik ama eski nik ortada yokken
yüklemek için:: statuste şu komutu yazacan /load -rs takip.mrc
gülel güle kullanın
 
Üst