[immortaL]

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

[pektek]

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"