PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{
var %_xs = hsave -s greet greet.hash
if ($chan == #eklenmekanali) {
if $regex($1,/^!(ekle|sil|liste)/i) { var %_x = $regml(1)
if (%_x == ekle) {
if (!$2 || !$3-) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !ekle nick mesaj , şeklinde olmalıdır. | return }
if (!$hget(greet)) { hmake greet 100 | hload -is greet greet.hash }
hadd -m greet $2 $3-
msg # Kayıtlarımıza, $2 nick'i başarıyla eklendi.
msg # Karşılama Mesajı: $3-
%_xs
}
if (%_x == sil) {
if (!$2) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !sil nick , şeklinde olmalıdır. | return }
if (!$hget(greet,$2)) { msg # Böyle bir kullanıcı zaten, bulunmamaktadır. | return }
msg # Kayıtlarımızdan $2 , başarıyla silindi.
hdel greet $2
%_xs
}
if (liste isin %_x) {
_wlist #
}
}
}
}
alias _wlist {
var %_wl = 1 | while %_wl <= $hget(greet,0).data { var %_w1 = $hget(greet,%_wl).item, %_w2 = $hget(greet,%_wl).data
msg $1 Nick: %_w1 , Mesaj: %_w2
inc %_wl
}
if (!$hget(greet,%_w1)) { msg $1 hiç bir kayıt bulunmamaktadır. | halt }
}
on *:join:#:{
if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }
set -eu5 %_wn $nick | set -eu5 %_wc #
if ($hget(greet,$nick)) { var %_w2 = $hget(greet,$nick) | msg %_wc %_w2 | return }
if $regex($address($nick,2),/(admin|ircop|oper)/i) {
whois %_wn
}
}