Code Sahibi: Doktrin
Kod:
on *:start: {
hmake badnick
hmake kufur
hmake reklam
hload badnick badnick.doktrin
hload kufur kufur.doktrin
hload reklam reklam.doktrin
if !$isfile(muafkanal.db) { .write muafkanal.db }
if !$isfile(muafnick.db) { .write muafnick.db }
}
alias _prots {
tokenize 32 $1-
if ($1 = <-) {
if ($3 = JOIN) {
var %nick = $right($gettok($2,1,33),-1),%chan = $right($4,-1)
if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
if $me isop %chan || o isin $usermode {
if $hfind(badnick,%nick,1,W).data {
ban -k %chan %nick 2 badnick
}
}
}
elseif ($3 = PRIVMSG) {
if ($4 ischan) {
var %nick = $right($gettok($2,1,33),-1),%text = $right($5-,-1),%chan = $4
if $read(muafkanal.db,w,%chan) || $read(muafnick.db,w,%nick) { return }
if $me isop %chan || o isin $usermode {
if $hfind(kufur,%text,1,W).data {
ban -k %chan %nick 2 kufur
}
if $hfind(reklam,%text,1,W).data {
ban -k %chan %nick 2 reklam
}
}
}
}
}
}
alias ekle {
if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /ekle <muafnick|muafkanal|badnick|kufur|reklam> <eklenecek> | return }
if $1 == muafnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek muafnicki girmediniz. | return }
else {
write muafnick.db $2
echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
}
}
elseif $1 == muafkanal {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek muafkanalı girmediniz. | return }
else {
write muafnick.db $2
echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
}
}
elseif $1 == badnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek badnicki girmediniz. | return }
else {
hadd -m badnick $r(1000,999999) $2
hsave badnick badnick.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanına başarıyla eklendi.
}
}
elseif $1 == kufur {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek küfürü girmediniz. | return }
else {
hadd -m kufur $r(1000,999999) $2-
hsave kufur kufur.doktrin
echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
}
}
elseif $1 == reklam {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Eklenecek reklamı girmediniz. | return }
else {
hadd -m reklam $r(1000,999999) $2-
hsave reklam reklam.doktrin
echo $colour(info) $timestamp $+(7,$2-,) veritabanına başarıyla eklendi.
}
}
}
alias sil {
if !$1 { echo $colour(info) $timestamp *** Hatalı işlem! Kullanım şekli: /sil <muafnick|muafkanal|badnick|kufur|reklam> <silinecek> | return }
if $1 == muafnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek muafnicki girmediniz. | return }
if $read(muafnick.db,w,$2) {
write $+(-ds,$2) muafnick.db
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == muafkanal {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek muafkanalı girmediniz. | return }
if $read(muafkanal.db,w,$2) {
write $+(-ds,$2) muafkanal.db
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == badnick {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek badnicki girmediniz. | return }
if $hfind(badnick,$2,1,W).data {
hdel badnick $ifmatch
hsave badnick badnick.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == kufur {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek küfürü girmediniz. | return }
if $hfind(kufur,$2,1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
elseif $1 == reklam {
if !$2 { echo $colour(info) $timestamp *** Hatalı işlem! Silinecek reklamı girmediniz. | return }
if $hfind(reklam,$2,1,W).data {
hdel reklam $ifmatch
hsave reklam reklam.doktrin
echo $colour(info) $timestamp $+(7,$2,) veritabanından başarıyla silindi.
}
else { echo $colour(info) $timestamp $+(7,$2,) veritabanında bulunamadı | return }
}
}