IFGT Bot Tabu Oyun Botu

on *:connect: {
  set %tabukanal #tabucular
  set %puanmavi 0
  set %puankirmizi 0
}
 
on *:OP:%tabukanal:{
  if $opnick == $me {
    mode $chan -f
    topikayar
  }
}
 
on *:join:%tabukanal:{
  if $nick == $me {
    .timer 1 1 mode $chan -f
    .timer 1 1 topikayar
  }
  if $nick != $me {
    notice $nick Oyuna katılmak için bir Takım seçin.Mavi takım için : 12!Mavi , Kırmızı takım için 4!Kırmızı , Takımları görmek için ise, !Takımlar komutunu uygulayın.
  }
}
 
on *:nick:{
  if $newnick ison %tabukanal {
    if $istok(%kırmızılar,$nick,32) {
      msg %tabukanal -4>3> 4Kırmızı takımdan $nick $+ 'in yeni nicki guncellendi.
      if $nick == %soran { set %soran $newnick }
      if $nick == %anlatan { set %anlatan $newnick }
      set %kırmızılar $remtok(%kırmızılar,$nick,1,32)
      set %kırmızılar %kırmızılar $newnick
    }
    if $istok(%maviler,$nick,32) {
      msg %tabukanal -4>3> 12Mavi takımdan $nick $+ 'in yeni nicki guncellendi.
      if $nick == %soran { set %soran $newnick }
      if $nick == %anlatan { set %anlatan $newnick }
      set %maviler $remtok(%maviler,$nick,1,32)
      set %maviler %maviler $newnick
    }
 
  }
}
 
 
on *:quit:{
  if $istok(%kırmızılar,$nick,32) {
 
    set %kırmızılar $remtok(%kırmızılar,$nick,1,32)
    msg %tabukanal -> $+(,$nick,) $+ , 4Kırmızı takım'dan ayrıldı.
    if $nick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
  }
  if $istok(%maviler,$nick,32) {
    set %maviler $remtok(%maviler,$nick,1,32)
    msg %tabukanal -> $+(,$nick,) $+ , 12Mavi takım'dan ayrıldı.
    if $nick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
 
  }
}
 
On !*:part:%tabukanal:{
  if $istok(%kırmızılar,$nick,32) {
    set %kırmızılar $remtok(%kırmızılar,$nick,1,32)
    msg $chan -> $+(,$nick,) $+ , 4Kırmızı takım'dan ayrıldı. 
    if $nick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
 
  }
  if $istok(%maviler,$nick,32) {
    set %maviler $remtok(%maviler,$nick,1,32)
    msg $chan -> $+(,$nick,) $+ , 12Mavi takım'dan ayrıldı. 
    if $nick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
 
  }
}
 
on *:kick:%tabukanal:{
  if $knick == $me { join %tabukanal }
  if $istok(%kırmızılar,$knick,32) {
    set %kırmızılar $remtok(%kırmızılar,$knick,1,32)
    msg $chan -> $+(,$knick,) $+ , 4Kırmızı takım'dan ayrıldı.
    if $knick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
 
  }
  if $istok(%maviler,$knick,32) {
    set %kırmızılar $remtok(%maviler,$knick,1,32)
    msg $chan -> $+(,$knick,) $+ , 12Mavi takım'dan ayrıldı. 
    if $knick == %anlatan  { msg %tabukanal Anlatan olmadigi icin oyun durduruldu. | unseter }
 
  } 
}
 
on *:text:*:?: {
  if $nick == %soran {
    if !%ozelsayac {
      set %anlatilacak $strip($1-)
      msg $nick Lütfen şimdi de, YASAK kelimeleri aralarında boşluk bırakarak yan yana giriniz (Maximum 5 Kelime)
      msg $nick ÖRNEK: yasakkelime1 yasakkelime2 yasakkelime3 yasakkelime4 yasakkelime5 gibi..
      set %ozelsayac 1
      halt
    }
    if %ozelsayac == 1 {
      set %yasaklar $remove($strip($gettok($1-,1-5,32)),$chr(44),$chr(46))
      set %ozelsayac 2
      msg $nick Anlatilacak ve Yasak kelimeler, %anlatan in ozeline gonderiliyor. Oyun baslamak uzere.
      msg %tabukanal -
      msg %tabukanal $+(,%anlatan,) anlatıyor.
      if %anlatant == kırmızılar { msg %tabukanal $+(,$remtok(%kırmızılar,%anlatan,1,32),) bilmeye calisiyor. }
      if %anlatant == maviler { msg %tabukanal $+(,$remtok(%maviler,%anlatan,1,32),) bilmeye calisiyor. }
      msg %tabukanal -
      notice %anlatan Anlatilacak kelime :  %anlatilacak
      notice %anlatan YASAK kelimeler :  %yasaklar
      notice %anlatan Dusunmek icin 5 saniyen var! 
      .timer 1 1 basla
    }
  }
}
 
 
on *:text:*:%tabukanal: {
  if $1 == !basla && !$2 {
    msg $chan !Soran ve !Anlatan kisileri belirleyin oyun baslasin!!!
  }
  if $1 == !dur && !$2 {
    msg $chan Oyun mutelif sebeplerden dolayi durduruldu 4:P
    unseter
  }   
  if $1 == !puanreset && !$2 {
    msg $chan Takımların Puanları Sıfırlandı.
    set %puanmavi 0
    set %puankirmizi 0
    topikayar
  }   
  if $1 == !puanlar && !$2 {
    msg $chan -
    msg $chan 4Kırmızı Takım :  %puankirmizi
    msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %puanmavi
    msg $chan -
  }
  if $regex($1,/^!k(ı|i)rm(ı|i)z(ı|i)$/i) && !$2 {
    if  $istok(%kırmızılar,$nick,32) { msg $chan 4/1!4\  $+ $nick  zaten 4kırmızı takimdasiniz | halt }
    if $istok(%maviler,$nick,1,32) {
      set %maviler $remtok(%maviler,$nick,1,32)
      set %kırmızılar %kırmızılar $nick
      msg $chan -4>3>  $+ $nick $+  takim degistirdi! 4kırmızı takıma katıldı
      msg $chan -
      msg $chan 4Kırmızı Takım : %kırmızılar
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %maviler
      msg $chan -
      halt
    }
    else {
      set %kırmızılar %kırmızılar $nick
      msg $chan -4>3>  $+ $nick $+  4kırmızı takıma katıldı.
      msg $chan -
      msg $chan 4Kırmızı Takım : %kırmızılar
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %maviler
      msg $chan -
      halt
    }
  }
  if $1 == !mavi && !$2 {
    if  $istok(%maviler,$nick,32) { msg $chan 4/1!4\  $+ $nick  zaten 12mavi takimdasiniz.! | halt }
    if $istok(%kırmızılar,$nick,32) {
      set %kırmızılar $remtok(%kırmızılar,$nick,1,32)
      set %maviler %maviler $nick
      msg $chan -4>3>  $+ $nick $+  takim degistirdi! 12mavi takıma katıldı.
      msg $chan -
      msg $chan 4Kırmızı Takım : %kırmızılar
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %maviler
      msg $chan -
      halt
    }
    else {
      set %maviler %maviler $nick
      msg $chan -4>3>  $+ $nick $+  12mavi takıma katıldı.
      msg $chan -
      msg $chan 4Kırmızı Takım : %kırmızılar
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %maviler
      msg $chan -
      halt
    }
  }
  if $regex($1,/^!tak(ı|i)mlar$/i) && $2 == $null {
    msg $chan 4Kırmızı Takım : %kırmızılar
    msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %maviler
  }
 
 
  if $1 == !puanayar {
 
    if $2 == $null { msg $chan 4/1!4\ 4!Puanayar Takım Puan seklinde giris yapin. | return }
    if $2 != mavi && $2 != kırmızı {
      msg $chan 4/1!4\ Takım olarak kırmızı ya da mavi yazmalısınız.
      return
    }
    if $3 == $null { msg $chan 4/1!4\ Puan girilmedi ! | return }
    if $3 !isnum {
      msg $chan 4/1!4\ Puan bir sayı olmalıdır.Duzeltin.
      return
    }
    if $2 == mavi {
      set %puanmavi $3
      msg $chan 12Mavi takımın puanı $+(,$3,) olarak değişti.
      msg $chan -
      msg $chan 4Kırmızı Takım : %puankirmizi 
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %puanmavi
      msg $chan -
      return
    }
    if $2 == kırmızı {
      set %puankirmizi $3
      msg $chan 4Kırmızı takımın puanı $+(,$3,) olarak değişti.
      msg $chan -
      msg $chan 4Kırmızı Takım : %puankirmizi
      msg $chan 12Mavi Takım $chr(3) $chr(3) $chr(3) : %puanmavi 
      msg $chan -
      return
    }
  }
 
  if $1 == !temizle && !$2 {
    msg $chan 12Mavi ve 4Kırmızı takım kadroları Temizlendi!
    unset %kırmızılar %maviler
    unseter
  }
  if $1 == !anlatan && !$3 {
    if !%soran { msg $chan 4/1!4\ Oncelikle Soran kisi'yi belirlemelisiniz ! | halt }
    if !$2  { msg $chan 4/1!4\ Anlatan nicki yaziniz -> "!anlatan nick" gibi | halt }
    if $2 == $me { msg $chan 4/1!4\ Beni anlatan olarak ekleyemezsin canım 2:4P | return }
    if $istok(%kırmızılar,%soran,32) && $istok(%kırmızılar,$2,32) { msg $chan 4/1!4\ Soran kisi ile anlatan kisi ayni takimdan olamazki! | halt   }
    if $istok(%maviler,%soran,32) && $istok(%maviler,$2,32) { msg $chan 4/1!4\ Soran kisi ile anlatan kisi ayni takimdan olamazki! | halt  }
 
    if %anlatan { msg $chan 4/1!4\ Anlatan  secilmis! -> ( %anlatan ) | halt }
    if $istok(%kırmızılar,$2,32) {
      msg $chan 4kırmızı takımdan  $+ $2 $+  Anlatan olarak secildi.!
      set %anlatan $2
      set %anlatant kırmızılar
      msg %soran Lütfen anlatılacak kelimeyi giriniz.   
      msg $chan Soran kisiden, Anlatilacak ve Yasak kelime bilgileri aliniyor... Oyun baslamak üzere hazır olun!!
      halt
    }
    if $istok(%maviler,$2,32) {
      msg $chan 12 mavi takımdan  $+ $2  Anlatan olarak secildi.!
      set %anlatan $2
      set %anlatant maviler     
      msg %soran Lütfen Anlatılacak kelimeyi giriniz.   
      msg $chan Soran kisiden, Anlatilacak ve Yasak kelime bilgileri aliniyor... Oyun baslamak üzere hazır olun!!
      halt
    }
 
    else { msg $chan 4/1!4\ $2 $+ , herhangi bir Takımda bulunmuyor!! }
  }
 
  if $1 == !soran && !$3 {
    if %soran { msg $chan 4/1!4\ Soran kisi zaten secilmis! -> ( %soran )  | halt }
    if !$2 { msg $chan 4/1!4\ Soran nicki seciniz !Soran nick gibi | halt }
    if $2 == $me { msg $chan 4/1!4\ Beni soran olarak ekleyemezsin canım 2:4P | return }
 
    if $istok(%kırmızılar,$2,32) {
      msg $chan 4kırmızı takımdan  $+ $2 $+  Soran olarak secildi.!
      set %soran $2
      set %sorant kırmızılar   
      halt
    }   
 
    if $istok(%maviler,$2,32) {
      msg $chan 12 mavi takımdan  $+ $2  Soran olarak secildi.!
      set %soran $2
      set %sorant maviler     
      halt
    }
    else { msg $chan 4/1!4\ $2 $+ , herhangi bir Takımda bulunmuyor!!! }
  }
 
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; OYUN ICI KELIME KONTROLU BOLUMU ASAGIDAN BASLIYOR ;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
 
 
  if %baslamadugmesi == on {
    if $nick == %anlatan && $tkontrol($1-) && %anlatant == maviler {
      msg $chan 12 Mavi Takım ANLATILACAK KELIMEYI kanala yazdi !!!
      inc %puanmavi
      msg $chan Anlatılacak Kelime : $+(,%anlatilacak,) ve Yasak Kelimeler : $+(,%yasaklar,) idi.
      msg $chan Sıra tekrar 4Kırmızı Takım a geciyorr.. !
      unseter
      topikayar
    }
    if $nick == %anlatan && $tkontrol($1-) && %anlatant == kırmızılar {
      msg $chan 4 Kırmızı Takım ANLATILACAK KELIMEYI kanala yazdi !!!
      inc %puanmavi
      msg $chan Anlatılacak Kelime : $+(,%anlatilacak,)  ve  Yasak Kelimeler : $+(,%yasaklar,) idi.
      msg $chan Sıra tekrar 12Mavi Takım a geciyorr.. !
      unseter
      topikayar
    }
    if $nick == %anlatan && %anlatant == kırmızılar {
      var %i 1
      while $gettok(%yasaklar,%i,32) {
        var %ysk = $strip($v1)
        var %ysk2 = $replace(%ysk,ç,c,ı,i,ğ,g,ü,u,ö,o,ş,s)
        if $istok($strip($1-),%ysk,32) || $istok($strip($1-),%ysk2,32) {
          msg $chan 4Kırmızı Takım YASAK KELIME kullandı.Yasaklar : -- $+ %yasaklar $+ -- , Anlatilacak kelime :  $+ %anlatilacak $+  idi.
          msg $chan "1 PUAN" 12Mavi Takımın!! ve Anlatma sırası, 12Mavi Takım $+ 'a geciyorr!!!
          unseter
          inc %puanmavi
          topikayar
        }
        inc %i
      }
    }
    if $nick == %anlatan && %anlatant == maviler {
      var %i 1
      while $gettok(%yasaklar,%i,32) {
        var %ysk = $v1
        var %ysk2 = $replace($v1,ç,c,ı,i,ğ,g,ü,u,ö,o,ş,s)
        if $istok($strip($1-),%ysk,32) || $istok($strip($1-),%ysk2,32) {
          msg $chan 12 Mavi Takım YASAK KELIME kullandı.  Yasaklar :  -- $+ %yasaklar $+ --, Anlatilacak kelime :  $+ %anlatilacak $+  idi.
          msg $chan "1 PUAN" 4Kırmızı Takımın!! ve Anlatma sırası, 4Kırmızı Takım $+ 'a geciyorr!!!
          unseter
          inc %puankirmizi
          topikayar
        }
        inc %i
      }
    }
 
    if %anlatant == kırmızılar && $istok(%kırmızılar,$nick,32) && $tkontrol($1-) && $nick != %anlatan {
      msg $chan Tebrikler $+(4,$nick,) !!! Dogru kelime  "  $+ %anlatilacak $+  " Bildin 4!! ve Yasak kelimeler : $+(,%yasaklar,) idi.1 Puan 4Kırmızı Takım 'ın !!
      inc %puankirmizi   
      unseter
      topikayar
    } 
 
    if %anlatant == maviler && $istok(%maviler,$nick,32) && $tkontrol($1-) && $nick != %anlatan {
      msg $chan Tebrikler $+(12,$nick,) !!! Dogru kelime "  $+ %anlatilacak $+   Bildin 12!! ve " Yasak kelimeler : $+(,%yasaklar,) idi.1 Puan 12Mavi Takım 'ın !!
      inc %puanmavi
      unseter
      topikayar
    } 
  }
}
 
alias basla {
  set %baslamadugmesi on
  msg %tabukanal Oyun 5 saniye sonra basliyor.Hazır Olun!!
  .timer 1 5 msg %tabukanal 2===== 6OYUN BASLADI 2=====  (Sure: 2 dk1)
  .timer 1 125 msg %tabukanal 6====== SURE DOLDU ======
  .timer 1 115 msg %tabukanal  2==== Son 10 sn ====
  .timer 1 95 msg %tabukanal  2==== Son 30 sn ====
  .timer 1 65 msg %tabukanal  2==== Son 1 DK ====
  .timer 1 125 set %baslamadugmesi off
  .timer 1 126 msg %tabukanal Kimse bilemedi !!! Doğru kelime  %anlatilacak , Yasak kelimeler :  %yasaklar  idi.
  .timer 1 126 kimsebilemedi
  .timer 1 127 unseter
}
 
alias topikayar { .timer 1 1 topic %tabukanal ----- 12Mavi Takım : %puanmavi , 4Kırmızı Takım : %puankirmizi  ----- 1 Komutlar :  15,1 !basla !dur !anlatan !soran !temizle !takımlar !mavi !kırmızı !puanreset !puanlar !puanayar  }
 
alias tkontrol { if $strip($1-) == %anlatilacak || $replace($strip($1-),ç,c,ı,i,ğ,g,ü,u,ö,o,ş,s) == $replace(%anlatilacak,ç,c,ı,i,ğ,g,ü,u,ö,o,ş,s) { return $true } }
 
alias unseter {
  unset %anlatilacak %yasaklar %soran* %anlatan* %ozelsayac
  .timers off
  set %baslamadugmesi off
}
alias kimsebilemedi {
  if %anlatant == kırmızılar { msg %tabukanal 1 puan 12Mavi takıma gidiyor. | inc %puanmavi | topikayar  }
  if %anlatant == maviler { msg %tabukanal 1 puan 4Kırmızı takıma gidiyor. | inc %puankirmizi | topikayar }
 
}