IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   Hazır Kodlar (https://www.ircforumu.net/hazir-kodlar/)
-   -   Admin Greet Kodları (https://www.ircforumu.net/hazir-kodlar/4293-admin-greet-kodlari.html)

immortaL 14 Temmuz 2016 22:03

Admin Greet Kodları
 
Bu kod adminlere özel yapılmıstır.Herhangi bir kanalda greet ekleyebilirisiniz.


Kullanımı !greet Nick Mesaj !greettype

Kod:

alias greetadmin {
  set %greetadmin $1-
  echo -at [GreetAdmin] Admin olarak değiştirildi %greetadmin
}
 
on *:text:!greettype*:#:{
  if ($nick == %greetadmin) {
    if ($2 == $null) { notice $nick DeadLy: !greettype  }
    if ($2 == hash) { set %greettype hash | notice $nick Greet systeem için değişti  "HASH" }
    if ($2 == ini) { set %greettype ini | notice $nick Greet systeem için değişti  "INI" }
    if ($2 == variable) { set %greettype variable | notice $nick Greet systeem için değişti "VARIABLE" }
  }
}
 
on *:text:!greetset *:#: {
  if (%greettype == ini) {
    notice $nick New greet set: $2-
    writeini greets.ini greets $nick $2-
  }
}
 
on *:join:#:{

  if ((%greettype == ini) || ($readini(greets.ini, greets , $nick) != $null)) {
    set %stamp $chr(91) $+ $nick $+ $chr(93)
  msg $chan %stamp $readini(greets.ini, greets , $nick) }
  else {
 
    if ((%greet. [ $+ [ $nick ] ] != $null) || (%greettype == variable)) {
      set %stamp $chr(91) $+ $nick $+ $chr(93)
    msg $chan %stamp %greet. [ $+ [ $nick ] ] }
    else {
 
      if ((%greettype == hash) || ($hget(greets,$address($nick,2)) != $null)){
        set %stamp $chr(91) $+ $nick $+ $chr(93)
      msg $chan %stamp $hget(greets,$address($nick,2)) }
      else { halt }
    }
  }
}
 
on *:text:!greetset *:#:{
  if (%greettype == variable) {
    set %greet. [ $+ [ $nick ] ] $2-
    notice $nick Greet değişti: $2-
  }
}
 
on *:text:!greetset *:#: {
  if (%greettype == hash) {
    if $exists($qt($scriptdirgreets.hsh)) { hload greets $qt($scriptdirgreets.hsh)   
      else { hmake greets 100 }
    }
    hadd -m greets $address($nick,2) $2-
    notice $nick Yeni greet set: $2-
    hsave greets greets.hsh
  }
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 17:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.