Çevrimdışı

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

cinaryigit Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Selam arkadaşlar herkese hoş sohbetler, Benim aradığım "TABU BOTU" elinde kodu olan var mı? Şimdiden teşekkür ederim

Burdan İndir

Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.

 

Çevrimdışı

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 }

}

 

Çevrimdışı

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ı

 

Çevrimdışı

@[Ü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.

 

Çevrimdışı

S10KALE Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Ü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.

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


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Aytac Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sorun yok kodda çalışıyor.Yasaklı kelimeyi goruyor. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

 

Çevrimiçi

-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.