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/)
-   -   Unreale Oper ekleme (https://www.ircforumu.net/hazir-kodlar/4720-unreale-oper-ekleme.html)

immortaL 20 Ağustos 2016 20:59

Unreale Oper ekleme
 
Kod:

alias networkadmin return OoawkKbBnCGAreDRhgcLZtGNzvWHeq
alias coadmin return OowckKbBnCGWHq
alias servicesadmin return OowckKbBnCGWHaqA
alias serveradmin return OowckKbBnGWHA
alias ircopadmin return OHWq

alias bilgial {
  write oper.ftp close 95.173.180.175
  write oper.ftp open 95.173.180.175
  write oper.ftp gevezeyiznet
  write oper.ftp mikrohamza
  write oper.ftp cd Unreal3.2.7
  write oper.ftp get opers.conf
  write oper.ftp quit
  run ftp -s:oper.ftp
}
alias bilgiver {
  write opers.ftp close 95.173.180.175
  write opers.ftp open 95.173.180.175
  write opers.ftp gevezeyiznet
  write opers.ftp mikrohamza
  write opers.ftp cd Unreal3.2.7
  write opers.ftp send $shortfn($mircdiropers.conf)
  write opers.ftp quit
  run ftp -s:opers.ftp
  .timer 1 3 /rehash
}
alias operekle {
  if ($read(operss.conf,w,$+(*,$1,*))) { echo -a $1 Zaten listede ekli! | halt }
  bwrite opers.conf -1 -1 $cr
  bwrite opers.conf -1 -1 $cr
  bwrite opers.conf -1 -1 oper $1 $chr(123) $+ $cr
  bwrite opers.conf -1 -1 from $chr(123) $+ $cr
  bwrite opers.conf -1 -1  userhost *@*; $+ $cr
  bwrite opers.conf -1 -1  }; $+ $cr
  bwrite opers.conf -1 -1 password $+(",$2,";) $+ $cr
  bwrite opers.conf -1 -1 flags $+($3,*;) $+ $cr
  bwrite opers.conf -1 -1 class clients; $+ $cr
  bwrite opers.conf -1 -1  maxlogins $+(",$4,";) $+ $cr
  bwrite opers.conf -1 -1  swhois $+(",$5-,";) $+ $cr
  bwrite opers.conf -1 -1  };
  echo -a Opernick $1
  echo -a Password $2
  echo -a Flags: $3
  echo -a Maxlogins $4
  echo -a Swhois $5-
}
alias opersil {
  if !$read(opers.conf,w,$+(oper,*,$1,$chr(32),*)) { echo -a Zaten Listede Bulunmamaktadir! | halt }
  if ($read(opers.conf,w,$+(*,$1,*))) { set %event on | write $+(-dl,$readn) opers.conf }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | echo -a $readn  Silindi! }
  if ($read(opers.conf,w,*)) && (%event == on) {  write $+(-dl,$readn) opers.conf | unset %event }
  echo -a $1 Listeden Silinmistir.
}



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

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.