IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Haziran 2016, 22:45   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Taş, Kağıt ve Makas..


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
################################################################################################ # # # Taş/Kağıt/Makas TCL v1.0 - Written By CLubber # # Bu TCL ile kullanıcıların botunuzla taş/kağıt/makas oyununu oynamasını sağlayabilirsiniz. # # Botu #Sohbet kanalı genelinde <!seç taş/kağıt/makas> komutları ile kullanabilirsiniz. # # # ################################################################################################ set maddeler { "taş" "kağıt" "makas" } bind pub - !seç choose:entry proc choose:entry {nick uhost hand chan text} { global botnick maddeler set clause [lindex $maddeler [rand [llength $maddeler]]] set choice [lindex $text 0] if {[string match -nocase "#Sohbet" $chan]} { if {$choice == ""} {putquick "PRIVMSG $chan :Bot ile taş/kağıt/makas oyunu oynamak için lütfen bir madde seçiniz. Kullanımı <!seç taş/kağıt/makas> şeklindedir.";return} if {$choice == $clause} { utimer 5[list putserv "PRIVMSG $chan Bu kadar şans olamaz heralde.. Benim seçtiğimde $clause, sizin seçtiğinizde $choice."] } if {[string match -nocase "taş" $choice] && [string match -nocase "kağıt" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde kağıttı.. Malesef kağıt taşı sarar, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "taş" $choice] && [string match -nocase "makas" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde makastı.. Taş makası kırar.. Tebrikler bu eli siz kazandınız."] } if {[string match -nocase "kağıt" $choice] && [string match -nocase "taş" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde taştı.. Kağıt taşı sarar.. Tebrikler bu eli siz kazandınız."] } if {[string match -nocase "kağıt" $choice] && [string match -nocase "makas" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde makastı.. Malesef makas kağıdı keser, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "makas" $choice] && [string match -nocase "taş" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde taştı.. Malesef taş makası kırar, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "makas" $choice] && [string match -nocase "kağıt" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde kağıttı. Makas kağıdı keser.. Tebrikler bu eli siz kazandınız."] } } } putlog "Taş/Kağıt/Makas TCL v1.0 - Written By CLubber"


* Bu script ile #Sohbet kanalında, Eggdrop botunuz ile beraber taş/kağıt/makas oyununu oynayabilirsiniz.

* #Sohbet kanalı genelinde !seç taş/kağıt/makas komutu ile botunuz çalışır.

* TCL Yapımcısı: CLubber
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
################################################################################################ # # # Taş/Kağıt/Makas TCL v1.0 - Written By CLubber # # Bu TCL ile kullanıcıların botunuzla taş/kağıt/makas oyununu oynamasını sağlayabilirsiniz. # # Botu #Sohbet kanalı genelinde <!seç taş/kağıt/makas> komutları ile kullanabilirsiniz. # # # ################################################################################################ set maddeler { "taş" "kağıt" "makas" } bind pub - !seç choose:entry proc choose:entry {nick uhost hand chan text} { global botnick maddeler set clause [lindex $maddeler [rand [llength $maddeler]]] set choice [lindex $text 0] if {[string match -nocase "#Sohbet" $chan]} { if {$choice == ""} {putquick "PRIVMSG $chan :Bot ile taş/kağıt/makas oyunu oynamak için lütfen bir madde seçiniz. Kullanımı <!seç taş/kağıt/makas> şeklindedir.";return} if {$choice == $clause} { utimer 5[list putserv "PRIVMSG $chan Bu kadar şans olamaz heralde.. Benim seçtiğimde $clause, sizin seçtiğinizde $choice."] } if {[string match -nocase "taş" $choice] && [string match -nocase "kağıt" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde kağıttı.. Malesef kağıt taşı sarar, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "taş" $choice] && [string match -nocase "makas" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde makastı.. Taş makası kırar.. Tebrikler bu eli siz kazandınız."] } if {[string match -nocase "kağıt" $choice] && [string match -nocase "taş" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde taştı.. Kağıt taşı sarar.. Tebrikler bu eli siz kazandınız."] } if {[string match -nocase "kağıt" $choice] && [string match -nocase "makas" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde makastı.. Malesef makas kağıdı keser, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "makas" $choice] && [string match -nocase "taş" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde taştı.. Malesef taş makası kırar, üzgünüm bu eli kaybettiniz."] } if {[string match -nocase "makas" $choice] && [string match -nocase "kağıt" $clause]} { utimer 5[list putserv "PRIVMSG $chan Benim seçmiş olduğum madde kağıttı. Makas kağıdı keser.. Tebrikler bu eli siz kazandınız."] } } } putlog "Taş/Kağıt/Makas TCL v1.0 - Written By CLubber"


* Bu script ile #Sohbet kanalında, Eggdrop botunuz ile beraber taş/kağıt/makas oyununu oynayabilirsiniz.

* #Sohbet kanalı genelinde !seç taş/kağıt/makas komutu ile botunuz çalışır.

* TCL Yapımcısı: CLubber
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Alt 14 Şubat 2024, 01:52   #2
Çevrimdışı
Cevap: Taş, Kağıt ve Makas..



Bazı makas tas kagıt tcl sinde hatalar gözükmektedir.

Bende düzenleyip çalışır hale getirdim. Benim kullanmış olduğum makas.tcl yi sunuyorum.


Not : Kırmızı ile işaretlediğim yerleri scriptten renklendirmeyi unutmayınız...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
####### by pektek ####### bind pub - !sec msg_ssp set chan "#Sohbet" set ssp_list { "makas" "tas" "kagit" } proc msg_ssp {nick uhost hand chan rest} { global botnick ssp_list set ssp [lindex $ssp_list [rand [llength $ssp_list]]] set cmd [string tolower [lindex $rest 0]] if {$cmd == "tas"} { if {$ssp == "kagit"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Kağıt..10 Malesef 4 Kağıt Taş`ı 10Sarar, 7 $nick ...4 Üzgünüm Kaybettiniz..." return 0 } if {$ssp == "makas"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Makas.. 10 Tebrikler!! 4 Taş Makas`ı 10 Kırar, 7 $nick ... 4 Tebrik Ederim Kazandınız..." return 0 } } if {$cmd == "kagit"} { if {$ssp == "tas"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Taş.. 10 Tebrikler!! 4 Kağıt Taş`ı 10 Sarar, 7 $nick ... 4 Tebrik Ederim Kazandınız..." return 0 } if {$ssp == "makas"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Makas.. 10 Malesef 4 Makas Kağıt`ı 10 Keser, 7 $nick ...4 Üzgünüm Kaybettiniz..." return 0 } } if {$cmd == "makas"} { if {$ssp == "tas"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Taş.. 10 Malesef 4 Taş Makas`ı 10 Kırar, 7 $nick ...4 Üzgünüm Kaybettiniz..."  return 0 } if {$ssp == "kagit"} { putquick "PRIVMSG $chan :10Benim Seçmiş olduğum 4Kağıt.. 10 Tebrikler!!! 4 Makas Kağıd`ı 10 Keser, 7 $nick ...4 Tebrik Ederim Kazandınız..." return 0 } } } putlog "makas.tcl v1 made by pektek"



Konu pektek tarafından (14 Şubat 2024 Saat 01:57 ) değiştirilmiştir.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
kağıt, makas, taş
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık