IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

PHP- Kodu:
   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
  }
}