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