14 Haziran 2016, 22:45
|
#1 |
Çevrimdışı | Taş, Kağıt ve Makas.. 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 |
| |
IRCForumu.Net - Reklam Alanı |
|