IRCForum - IRC ve mIRC Kullanıcıları Topluluğu - !Kısmet Oyunu Cinsiyet Bazlı Erkek/Bayan

Bu kodda %yetkililer listesi, !bayanekle ve !erkekekle komutlarını kullanabilen kişilerin listesini içerir. İlgili komutları yalnızca bu listeye dahil olan kişiler kullanabilir. Siz yetkilendirilmiş kişilerin nicklerini %yetkililer değişkenine eklemelisiniz. Bu şekilde, belirli yetkilendirilmiş kişilerin !bayanekle ve !erkekekle komutlarını kullanabilmesini sağlamış olursunuz. Kendinize göre ayarlayabilirsiniz

Kod:

; Cinsiyet listeleri için değişkenler
 var %erkekler
 var %bayanlar
 
 
 ; Yetkilendirilmiş kullanıcı listesi
 var %yetkililer = founder1 founder2 sop1 sop2
 
 
 ; !bayanekle komutu
 on *:TEXT:!bayanekle*:#kanal: {
  if ($nick isin %yetkililer) && ($2 != $null) {
    set %bayanlar $addtok(%bayanlar,$2,32)
    msg $chan Nick $2 artık bayan listesine eklendi!
  }
 }
 
 
 ; !erkekekle komutu
 on *:TEXT:!erkekekle*:#kanal: {
  if ($nick isin %yetkililer) && ($2 != $null) {
    set %erkekler $addtok(%erkekler,$2,32)
    msg $chan Nick $2 artık erkek listesine eklendi!
  }
 }
 
 
 ; !kısmet komutu
 on *:TEXT:!kısmet:#kanal: {
  var %kisiler = $nick($chan,0)
  if (%kisiler >= 4000) { ; En az 4000 kişi olmalı, 2000'erkek 2000 bayan için
    var %erkekler = $nick($chan, erkek, 0)
    var %bayanlar = $nick($chan, bayan, 0)
 
    if (%erkekler >= 2000 && %bayanlar >= 2000) {
      var %rastgele1 = $rand(1,%erkekler)
      var %rastgele2 = $rand(1,%bayanlar)
      var %rastgele3 = $rand(1,%erkekler)
      var %rastgele4 = $rand(1,%bayanlar)
 
      var %erkek1 = $nick($chan, erkek, %rastgele1)
      var %bayan1 = $nick($chan, bayan, %rastgele2)
      var %erkek2 = $nick($chan, erkek, %rastgele3)
      var %bayan2 = $nick($chan, bayan, %rastgele4)
 
      msg $chan Kısmet kısmet! $nick(%erkek1) ile $nick(%bayan1) birbirine, $nick(%erkek2) ile $nick(%bayan2) birbirine denk geliyor! :)
    }
  }
 }