!Kısmet Oyunu Cinsiyet Bazlı Erkek/Bayan

; 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! :)
    }
  }
}