Çevrimdışı

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.