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

Kod:
################################################################################################

#                                                                                              #

#                        Taş/Kağıt/Makas TCL v1.0 - Written By Che                         #

# Bu TCL ile kullanıcıların botunuzla taş/kağıt/makas oyununu oynamasını sağlayabilirsiniz.    #

#      Botu #Sohbet kanalı genelinde  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 "#SohbetTur" $chan]} {

    if {$choice == ""} {putquick "PRIVMSG $chan :Bot ile taş/kağıt/makas oyunu oynamak için lütfen bir madde seçiniz. Kullanımı  ş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 Che"