####### 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"