mIRC Tabu Oyun Botu
 

Forumda bir arkadaş mirc tabu oyunu sormuş bulup paylaştım güle güle kullanın.
Oyun botunu ekteki dosyadan da indirebilirsiniz.

Cevap: mIRC Tabu Oyun Botu
 

Tek Kelime ile harikasın. Eline sağlık

Arkadaşlar !kirmizi yazınca takımı seçmiyordu. Bu alttaki kod düzeltilmiş hali bunu kullanabilirsiniz. Kolay gelsin.

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,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 }

}

Cevap: mIRC Tabu Oyun Botu
 

merhaba bu script nasıl calıştırılıyor mirc indirip script bölümünde users a yapıştırıp denedim ancak bağlantı esnasında değişen bir şey olmadı

Cevap: mIRC Tabu Oyun Botu
 

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Paylasimin Icin Cok Tesekkürler.

Ben Botu Denerken Yasakli Kelimeyi Bilerek Kullaninca Bot Bunu Gormuyor/Algilamiyor.
Ayrica Botun Konusma Metinlerini Renklendirip Duzenledigim Zaman Yine Hicbir Sekilde Cevabi ve Yasaklilari Algilamiyor.
Bu Konuda Yardimci Olursaniz Sevinirim.

Cevap: mIRC Tabu Oyun Botu
 

Sorun yok kodda çalışıyor.Yasaklı kelimeyi goruyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: mIRC Tabu Oyun Botu
 

Cok Tesekkürler. Anladigim Kadariyla Yasakli Kelimenin Sonun Sira Numarasi Yazmak Gerekiyor.
Fakat Sunucuda Sayi-Rakam Yazildiginda Engelleniyor.
Bu Konuda Napabiliriz ?

Cevap: mIRC Tabu Oyun Botu
 

-Tabu- Oyuna katılmak için bir Takım seçin.Mavi takım için : !Mavi , Kırmızı takım için !Kırmızı , Takımları görmek için ise, !Takımlar komutunu uygulayın.

Bu sorun neden kaynakli olabilir cozemedim gitti.