mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Like Tree1Beğeni(ler)
  • 1 Post By Che
Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 23 Aralık 2017, 12:52   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 541
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 85
Post Founder, Sop, Halfop, Voice Karşılama

Kod:
alias mst { set %mst $1 | echo -a 10Bot admin komutları 4"10 $+ $1 $+ 4" }
on *:text:!dizin:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    notice %mst 10Sistem Komutları:
    notice %mst 10Founder eklemek için 4!founderekle <nick> 
    notice %mst 10Süper Op eklemek için 4!sopekle <nick>
    notice %mst 10Operatör eklemek için 4!opekle <nick>
    notice %mst 10Halfop eklemek için 4!halfopekle <nick>
    notice %mst 10Voice eklemek için 4!voiceekle <nick>
    notice %mst 10Founder silmek için 4!delFounder <nick>
    notice %mst 10Süper Op silmek için 4!delsop <nick>
    notice %mst 10Operatör silmek için 4!delop <nick>
    notice %mst 10Halfop silmek için 4!delhalfop <nick>
    notice %mst 10Voice silmek için 4!delvoice <nick>
    notice %mst 10Yetkili 4"10User4" 10listeleme komutları8: 4!10founderlist 8- 4!10soplist 8- 4!10oplist 8- 4!10halfoplist 8- 4!10voicelist
  }
}
on *:text:!Founderlist:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    if $read(Founder.txt) == $null {
      msg $chan 10Founder listesi sıralanıyor.
    }
    elseif $read(Founder.txt) != $null {
      var %x = 1
      while (%x <= $lines(Founder.txt)) {
        if (%x = 1) {
          set %Founderlist $read(Founder.txt,%x)
          inc %x
        }
        else {
          set %Founderlist %Founderlist $+ , $read(Founder.txt,%x)
          inc %x
        }
      }
    }
    msg $chan 10Founder Listesi4:10 %Founderlist
    unset %Founderlist
  }
}
on *:text:!soplist:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    if $read(sysop.txt) == $null {
      msg $chan 10Süper Operatör listesi sıralanıyor.
    }
    elseif $read(sysop.txt) != $null {
      var %x = 1
      while (%x <= $lines(sysop.txt)) {
        if (%x = 1) {
          set %operlist $read(sysop.txt,%x)
          inc %x
        }
        else {
          set %operlist %operlist $+ , $read(sysop.txt,%x)
          inc %x
        }
      }
    }
    msg $chan 10Oper Listesi4:10 %operlist
    unset %operlist
  }
}
on *:text:!oplist:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    if $read(op.txt) == $null {
      msg $chan 10Your Op listesi sıralanıyor.
    }
    elseif $read(op.txt) != $null {
      var %x = 1
      while (%x <= $lines(op.txt)) {
        if (%x = 1) {
          set %oplist $read(op.txt,%x)
          inc %x
        }
        else {
          set %oplist %oplist $+ , $read(op.txt,%x)
          inc %x
        }
      }
    }
    msg $chan 10Op Listesi4:10 %oplist
    unset %oplist
  }
}
on *:text:!halfoplist:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    if $read(halfop.txt) == $null {
      msg $chan 10Halfop listesi sıralanıyor.
    }
    elseif $read(halfop.txt) != $null {
      var %x = 1
      while (%x <= $lines(halfop.txt)) {
        if (%x = 1) {
          set %halfoplist $read(halfop.txt,%x)
          inc %x
        }
        else {
          set %halfoplist %halfoplist $+ , $read(halfop.txt,%x)
          inc %x
        }
      }
    }
    msg $chan 10Halfop Listesi4:10 %halfoplist
    unset %halfoplist
  }
}
on *:text:!voicelist:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    if $read(voice.txt) == $null {
      msg $chan 10Voice ( Özel kullanıcı ) listesi sıralanıyor.
    }
    elseif $read(voice.txt) != $null {
      var %x = 1
      while (%x <= $lines(voice.txt)) {
        if (%x = 1) {
          set %voicelist $read(voice.txt,%x)
          inc %x
        }
        else {
          set %voicelist %voicelist $+ , $read(voice.txt,%x)
          inc %x
        }
      }
    }
    msg $chan 10Voice Listesi4:10 %voicelist
    unset %voicelist
  }
}
on *:text:!Founderekle *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %addFounder $readFounder.txt,w,$$2)
    if (%addFounder == $$2) {
      msg $chan  4 $$2 10Zaten ekli.
      unset %addFounder
    }
    else {
      write Founder.txt $$2
      msg $chan 4 $$2 10Founder listesine eklendi.
      unset %addFounder
    }
  }
}
on *:text:!sopekle *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %addsysop $read(sysop.txt,w,$$2)
    if (%addsysop == $$2) {
      msg $chan 4 $$2 10Zaten ekli
      unset %addsysop
    }
    else {
      write sysop.txt $$2
      msg $chan 4 $$2 10oper listesine eklendi.
      unset %addsysop
    }
  }
}
on *:text:!opekle *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %addop $read(op.txt,w,$$2)
    if (%addop == $$2) {
      msg $chan 10Op: 4 $$2 10already exists!
      unset %addop
    }
    else {
      write op.txt $$2
      msg $chan 4 $$2 10OP listesine eklendi
      unset %addop
    }
  }
}
on *:text:!halfopekle *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %addhalfop $read(halfop.txt,w,$$2)
    if (%addhalfop == $$2) {
      msg $chan  4 $$2 10zaten ekli.
      unset %addhalfop
    }
    else {
      write halfop.txt $$2
      msg $chan 4 $$2 10Halfop listesine eklendi.
      unset %addhalfop
    }
  }
}
on *:text:!voiceekle *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %addvoice $read(voice.txt,w,$$2)
    if (%addvoice == $$2) {
      msg $chan 4 $$2 10zaten ekli.
      unset %addvoice
    }
    else {
      write voice.txt $$2
      msg $chan 4 $$2 10Voice listesine eklendi.
      unset %addvoice
    }
  }
}
on *:text:!delFounder *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10Gerekli yetkiye sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %delFounder $read(Founder.txt,w,$$2)
    if (%delFounder == $$2) {
      write  -dl [ $+ [ $readn ] ] Founder.txt
      msg $chan 10Founder: 4 $$2 10Silindi.
      unset %delFounder
    }
    else {
      msg $chan 10Founder: 4 $$2 10Zaten listede bulunmuyor.
      unset %delFounder
    }
  }
}
on *:text:!delsop *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10komut istemi için gerekli yetkilere sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %delsysop $read(sysop.txt,w,$$2)
    if (%delsysop == $$2) {
      write  -dl [ $+ [ $readn ] ] sysop.txt
      msg $chan 4 $$2 10silindi.
      unset %delsysop
    }
    else {
      msg $chan 4 $$2 10zaten bulunamıyor.
      unset %delsysop
    }
  }
}
on *:text:!delop *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10komut istemi için gerekli yetkilere sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %delop $read(op.txt,w,$$2)
    if (%delop == $$2) {
      write  -dl [ $+ [ $readn ] ] op.txt
      msg $chan 4 $$2 10silindi.
      unset %delop
    }
    else {
      msg $chan 4 $$2 10zaten bulunamıyor.
      unset %delop
    }
  }
}
on *:text:!delhalfop *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10komut istemi için gerekli yetkilere sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %delhalfop $read(halfop.txt,w,$$2)
    if (%delhalfop == $$2) {
      write  -dl [ $+ [ $readn ] ] halfop.txt
      msg $chan 4 $$2 10Silindi.
      unset %delhalfop
    }
    else {
      msg $chan 4 $$2 10zaten bulunamıyor.
      unset %delhalfop
    }
  }
}
on *:text:!delvoice *:#: {
  if ($nick != %mst) {
    msg $chan 10Üzgünüm 4 $+ $nick $+  10komut istemi için gerekli yetkilere sahip değilsiniz.
  }
  elseif ($nick == %mst) {
    set %delvoice $read(voice.txt,w,$$2)
    if (%delvoice == $$2) {
      write  -dl [ $+ [ $readn ] ] voice.txt
      msg $chan 4 $$2 10silindi.
      unset %delvoice
    }
    else {
      msg $chan 4 $$2 10zaten bulunamıyor.
      unset %delvoice
    }
  }
}
on *:join:#: {
  if ($nick isin $read(Founder.txt, w, $nick)) {
    msg $chan 10Greet message 4" $+ $nick $+ 4" 10Sunucumuz founderlerinden 4 $nick  10şuanda online.. 4'' 5[Chanserv Departmanı]
    mode $chan +q $nick
  }
  elseif ($nick isin $read(sysop.txt, w, $nick)) {
    msg $chan 10Greet message 4" $+ $nick $+ 4" 10Sunucumuz Süper operatörlerinden 4 $nick  10şuanda online.. 4'' 5[Chanserv Departmanı]
    mode $chan +ao $nick
  }
  elseif ($nick isin $read(op.txt, w, $nick)) {
    msg $chan 10Greet message 4" $+ $nick $+ 4" 10Sunucumuz Operatörlerinden 4 $nick  10şuanda online.. 4'' 5[Chanserv Departmanı]
    mode $chan +o $nick
  }
  elseif ($nick isin $read(halfop.txt, w, $nick)) {
    msg $chan 10Greet message 4" $+ $nick $+ 4" 10Sunucumuz Halfoplarından 4 $nick  10şuanda online.. 4'' 5[Chanserv Departmanı]
    mode $chan +h $nick
  }
  elseif ($nick isin $read(voice.txt, w, $nick)) {
    msg $chan 10Greet message 4" $+ $nick $+ 4" 10Sunucumuz Özel Kullanıcısı 4 $nick  10şuanda online.. 4'' 5[Chanserv Departmanı]
    mode $chan +v $nick
  }
}

Sizlere kodumuzun çalışma mantığından bahsedeyim.
<denek> !Dizin
-Serazad- Sistem Komutları:
-Serazad- Founder eklemek için !founderekle <nick>
-Serazad- Süper Op eklemek için !sopekle <nick>
-Serazad- Operatör eklemek için !opekle <nick>
-Serazad- Halfop eklemek için !halfopekle <nick>
-Serazad- Voice eklemek için !voiceekle <nick>
-Serazad- Founder silmek için !delFounder <nick>
-Serazad- Süper Op silmek için !delsop <nick>
-Serazad- Operatör silmek için !delop <nick>
-Serazad- Halfop silmek için !delhalfop <nick>
-Serazad- Voice silmek için !delvoice <nick>
-Serazad- Yetkili "User" listeleme komutları: !founderlist - !soplist - !oplist - !halfoplist - !voicelist

Gerisi kendiliğinden gelecektir, op sop için karşılama Greet Message niye olmasın dedik. Bazı kısımlar alıntı, bazıları çeviri ama genel olarak kodumuz sorunsuz çalışıyor önemli olanda bu ya..
Zanay bunu beğendi.





 Che isimli Üye şuanda  online konumundadır   Alıntı
Alt 25 Eylül 2018, 15:40   #2
 
Üyelik tarihi: 22 Eylül 2018
Bulunduğu yer: Zonguldak
Mesajlar: 1
WEB Sitesi: www.zanay.net
IRC Sunucusu:
İlgi Alanı: mIRC Scripting
Kan Grubu: B RH (-)
Alınan Beğeni: 0
Standart Cevap: Founder, Sop, Halfop, Voice Karşılama

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap

 Zanay isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
founder, halfop, karşılama, sop, voice

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.