##########################################
##                                      ##
##  Author: Justdabomb2                 ##
##  Script: High Low                    ##
##  Version: v1.0                       ##
##  Date: 10/16/2006                    ##
##                                      ##
##         Thanks for the great         ##
#           suggestions Rolcol!         ##
##                                      ##
##########################################

#######################################################################
## Set this to the highest number you want to be able to guess from. ##
#######################################################################

set highestnumber "100000"

###################################################################
## Set this to the lowest number you want to be able guess from. ##
###################################################################

set lowestnumber "10"

######################################################################
## Random messages the bot will use when you get the correct guess. ##
######################################################################

set correctmsgs {
  "Good job!"
  "Congratulations!"
  "Wowzers!"
  "Great Guess!"
  "Good work!"
  "Outstanding!"
  "Now win again!"
}

#########################################################################
## Random messages your bot will use when you make an incorrect guess. ##
#########################################################################

set incorrectmsgs {
  "Sorry"
  "Too bad,"
  "Try again,"
  "Incorrect guess,"
  "Keep trying"
}

######################################################
## You don't need to edit anything below this line. ##
######################################################

set hlinuse 0
set numbertouse ""
set correctnumber ""
set hlcreator "Justdabomb2"
set hlturnedoff "High Low has been turned off by"
set hlnoton "\0039High Low\0031 is not currently on."
set hlalreadyoff "\0039High Low\0031 is already off."
set hlinvalidguess "Your guesses must be bewteen"
set hlinvalidnumber "Please use a number between"
set hlalreadyon "\0039High Low\0031 is already on."
set hlnumberstoguess "\0031The numbers vary from\0033 \0021\002 \0031to\0037"
set hlturnedon "\0039High Low\00314 has been turned on by"
set hlguesscommand "Type \002!guess <number>\002"
set hlcommand "Type \002!hl on <highest number>.\002"
set hloncommand "on"
set hloffcommand "off"

bind pub - !hl hl:activate
bind pub - !guess hl:guess

proc hl:activate {nick uhost hand chan arg} {
  global hlinuse correctnumber hlcreator hlalreadyon numbertouse highestnumber lowestnumber hlturnedon hlcommand hlguesscommand hlnumberstoguess hloncommand hloffcommand hlturnedoff hlalreadyoff hlinvalidnumber
  set command [lindex $arg 0]
  if {$command == ""} {
    putquick "NOTICE $nick :\0030,1Type $hlcommand"
  }
  if {[string tolower $command] == [string tolower $hloncommand]} {
    if { $hlinuse == 0 } {
      set numbertouse [lindex $arg 1]
      if {[string tolower $numbertouse] < [string tolower $lowestnumber]} {
        putquick "NOTICE $nick :\0030,1I won't use that number, it is too low. $hlinvalidnumber $lowestnumber and $highestnumber."
        return
      }
      if {[string tolower $numbertouse] > [string tolower $highestnumber]} {
        putquick "NOTICE $nick :\0030,1I won't use that number, it is too high. $hlinvalidnumber $lowestnumber and $highestnumber."
        return
      }
      if {$numbertouse == ""} {
        putquick "NOTICE $nick :\0030,1Type $hlcommand"
        } else {
        set hlinuse 1
        set correctnumber [rand $numbertouse]
        putquick "PRIVMSG $chan :\0039,1High Low\0038,14 By: $hlcreator"
        putquick "PRIVMSG $chan :$hlturnedon \00310$nick\00314. $hlguesscommand to guess a number."
        putquick "PRIVMSG $chan :$hlnumberstoguess \002$numbertouse\002\0031."
      }
      } else {
      putquick "PRIVMSG $chan :$hlalreadyon"
    }
  }
  if {[string tolower $command] == [string tolower $hloffcommand]} {
    if { $hlinuse == 1 } {
      set hlinuse 0
      set numbertouse ""
      putquick "PRIVMSG $chan :\0034$hlturnedoff \00310$nick."
      } else {
      putquick "PRIVMSG $chan :\0031$hlalreadyoff"
    }
  }
}

proc hl:guess {nick uhost hand chan args} {
  global hlinuse correctnumber numbertouse hlnoton hlinvalidguess correctmsgs incorrectmsgs hlguesscommand lowestnumber
  set correctmsg [lindex $correctmsgs [rand [llength $correctmsgs]]]
  set incorrectmsg [lindex $incorrectmsgs [rand [llength $incorrectmsgs]]]
  if { $hlinuse == 1 } {
       set guess [lindex $args 0]
    if { [string tolower $guess] == [string tolower $correctnumber] } {
      set hlinuse 0
      putquick "PRIVMSG $chan :\00310$nick\00313 got the correct guess of \002\00312$correctnumber\00313\002. $correctmsg"
    }
    if { [string tolower $guess] > [string tolower $correctnumber] } {
         putquick "PRIVMSG $chan :\0037$incorrectmsg \00310$nick\0037. Your guess of \002$guess\002 was too \002high\002. Try a lower number."
    }
    if { [string tolower $guess] < [string tolower $correctnumber] } {
         putquick "PRIVMSG $chan :\0033$incorrectmsg \00310$nick\0033. Your guess of \002$guess\002 was too \002low\002. Try a higher number."
    }
    if { [string tolower $guess] > [string tolower $numbertouse] } {
         putquick "NOTICE $nick :\0030,1$hlinvalidguess \0033,1 \002$lowestnumber\002 \0030,1and\0037,1 \002$numbertouse\002."
    }
    } else {
    putquick "PRIVMSG $chan :\0031Sorry \00310$nick,\0031 $hlnoton"
  }
     if {$guess == ""} {
       putquick "NOTICE $nick :\0030,1$hlguesscommand"
  }
}

putlog "Justdabot's High Low Script Loaded"

##################################################################################################
##  Coder : Justdabomb2
## Asıl isim : High Low
## Version : v2.0
## Editleyen : kemik - irc.muhabbet.net - Yardım Msn : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

## Edit ismi : tahmin.tcl
##
## Komutlar : !hl on <numara> - Oyunu baslatir ve bota bir 0 ila vereceginiz bir
##                              numara arasinda sayi tutmasini soyler.
##            !hl off         - Oyunu kapatir.
##            !hl help        - Komutlari gosterir.
##            !hl activate    - Oyunu Aktive eder ve diger oyuncularda oynayabilir.
##            !hl deactivate  - Oyunu deaktif eder ve diger oyuncular oyun oynayamaz.
##            !guess <numara> - Numarayi tahmin eder ve Numaranizin dogru,yanlis,yuksek
##                              veya dusuk oldugunu belirtir.
##                                                                                              
##
##################################################################################################

############################
## Sizin Nickiniz         ##
############################

set hlownerofbot "kemik"

############################################################
## Oyunun oynanacagi kanal                                ##
############################################################

set hlchan "#Tahmin"

################################################################################################
## Oyunda Soylenebilecek en yuksek rakam (default 100).                                       ##
################################################################################################

set highestnumber "100"

########################################################################################
## Oyunda Soylenebilecek en dusuk rakam (default 10).                                 ##
########################################################################################

set lowestnumber "10"

######################################################################
## Botun Dogru Verilen Cevaplarda Soyleyecegi Kelimeler.            ##
######################################################################

set correctmsgs {
  "Supersin!"
  "Tebrikler!"
  "Vay Anasini Nasil bildin?"
  "Boyle Tahmine Can Kurban!"
  "iyi is cikardin!"
  "Soyleyecek Soz Bulamiyorum!"
  "Mukkemel!Yeniden Tahmin edebilir misin ?"
}

#########################################################################
## Botun Yanlis Verilen Cevaplarda Soyleyecegi Kelimeler.              ##
#########################################################################

set incorrectmsgs {
  "DeeeeeeL. Tahmin et! Devam :)"
  "Yuh, DeeeeL, Tahmin yurutmeye devam"
  "Tekrar Dene, devam :)"
  "Kotu Tahmin,"
  "Baska Sayi Soyle"
}

######################################################
## Artik edit etmeyin bot bozulabilir.              ##
######################################################

####################################
## Sakin Degismeyin bundan sonra:)##
####################################

set hlonoroff 1
set hldeact 0
set hlinuse 0
set numbertouse ""
set correctnumber ""
set hlcreator "kemik - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
set hlturnedoff "Tahmin Oyunu Kapatildi : Tarafindan :"
set hlnoton "\0039Tahmin Oyunu\0031 Su anda aktif degil."
set hlalreadyoff "\0039Tahmin Oyunu\0031 Su anda halen daha aktif degildir."
set hlinvalidguess "Tahminlerin(iz) Su rakamlar Arasinda Olmali : "
set hlinvalidnumber "Lutfen Su rakamlar Arasında Tahmin Yurutun"
set hlalreadyon "\0039Tahmin Oyunu\0031 Oyunu oynaniyor."
set hlnumberstoguess "\0031Numaralar\0033 10 ila Sizin verdiginiz Sayi arasinda olacaktir. Verilen Sayi : "
set hlturnedon "\0039Tahmin Oyunu\00314 Aktif Edildi : Tarafindan : "
set hlnumbertoolow "bu numarayi soyleyemezsiniz, cunku numara 10 dan dusuk."
set hltryhigher "Yuksek bir numara soyleyiniz."
set hlnumbertoohigh "bu numarayi soyleyemezsiniz, cunku numara 100 den yuksek."
set hltrylower "Daha Dusuk bir numara soyleyiniz."
set hlguesscmd "Yaziniz : !guess <numara>"
set hlcmd "Yaziniz : \002!hl on <numara>.\002"
set hlhelpon "Oyunu aktif eder ve bot 10 ila 100 arasinda bir sayi tutar."
set hlhelpoff "Oyunu kapatir."
set hlhelpguess "<numara> yi tahmin edin ve bot size tahmininizin yuksek veya dusuk oldugunu anlatacak."
set hlhelpactivate "Oyun konsolunu aktif eder boylece diger kullanicilarda tahmine katilabilir."
set hlhelpdeactivate "Oyun konsolunu kapatir boylece diger kullanicilar tahmine katilamazlar."
set hldeactivated "\0039Tahmin oyunu\0031 kapatildi. Botun Sahibi olan : $hlownerofbot e oyunu aktif etmesini soyleyiniz."
set hlbeenactivated "\0039Tahmin oyunu\0031 Aktif edildi."
set hlalreadyactivated "\0039Tahmin Oyunu\0031 Zaten aktif."
set hlbeendeactivated "\0039Tahmin Oyunu\0031 zaten aktif edilmemiski."
set hlalreadydeactivated "\0039Tahmin Oyunu\0031 zaten deaktif konumda."
set hlonlyinchan "\0039Tahmin Oyunu\0031 Yalnizca Bu kanalda oynanir : "
set hloncmd "on"
set hloffcmd "off"
set hlhelpcmd "help"
set hlactivatecmd "activate"
set hldeactivatecmd "deactivate"

#############################
## These are the commands. ##
#############################

bind pub - !hl hl:setuse
bind pub - !guess hl:guess

######################################################################
## This is where the '!hl <command(s)>' part of the script starts.  ##
######################################################################

proc hl:setuse {nick uhost hand chan arg} {
  global hlinuse correctnumber hlcreator numbertouse highestnumber lowestnumber hlonoroff hlchan hlownerofbot hlcmd
  global hlguesscmd hlnumberstoguess hloncmd hloffcmd hlhelpcmd hlactivatecmd hldeactivatecmd hlinvalidnumber
  global hlnumbertoolow hlnumbertoohigh hlhelpon hlhelpoff hlhelpguess hlonlyinchan hlturnedoff hlbeenactivated
  global hlbeendeactivated hlturnedon hlalreadyon hlalreadyoff hldeactivated hldeact hlhelpactivate hlhelpdeactivate
  global hlalreadyactivated hlalreadydeactivated
  if { $hldeact == 1 } {
    set command [lindex $arg 0]
    if {[string tolower $command] == [string tolower $hlactivatecmd]} { 
      if {[string tolower $nick] == [string tolower $hlownerofbot]} {
        putquick "PRIVMSG $chan :$hlbeenactivated"
        set hlonoroff 1
        set hldeact 0
        } else {
        putquick "NOTICE $nick :SAdece $hlownerofbot bu komutu kullanabilir."
      }
      return
    }
    if {[string tolower $command] == [string tolower $hldeactivatecmd]} { 
      if {[string tolower $nick] == [string tolower $hlownerofbot]} {
        putquick "PRIVMSG $chan :$hlalreadydeactivated"
        } else {
        putquick "NOTICE $nick :Sadece $hlownerofbot bu komutu kullanabilir."
      }
      return
    }
  }
  if { $hlonoroff == 1 } {
    if {[string tolower $chan] == [string tolower $hlchan]} {
      set command [lindex $arg 0]
      if {$command == ""} {
        putquick "NOTICE $nick :\0030,1Yaziniz : $hlcmd"
      }
      if {[string tolower $command] == [string tolower $hloncmd]} { 
        if { $hlinuse == 0 } {
          set numbertouse [lindex $arg 1]
          if {$numbertouse == ""} {
            putquick "NOTICE $nick :\0030,1Yaziniz : $hlcmd"
            return
          }
          if {[string tolower $numbertouse] < [string tolower $lowestnumber]} { 
            putquick "NOTICE $nick :\0030,1$hlnumbertoolow $hlinvalidnumber $lowestnumber and $highestnumber."
            return
          }
          if {[string tolower $numbertouse] > [string tolower $highestnumber]} { 
            putquick "NOTICE $nick :\0030,1$hlnumbertoohigh $hlinvalidnumber $lowestnumber and $highestnumber."
            return
            } else {
            set hlinuse 1
            set correctnumber [rand $numbertouse]
            putquick "PRIVMSG $chan :\0039,1Tahmin Oyunu\0038,14 Yaraticisi: $hlcreator" 
            putquick "PRIVMSG $chan :$hlturnedon \00310$nick\00314. $hlguesscmd (bir numara tahmini icin)." 
            putquick "PRIVMSG $chan :$hlnumberstoguess \002$numbertouse\002\0031." 
          }
          } else {
          putquick "PRIVMSG $chan :$hlalreadyon"
        }
      }
      if {[string tolower $command] == [string tolower $hloffcmd]} { 
        if { $hlinuse == 1 } {
          set hlinuse 0
          set numbertouse ""
          putquick "PRIVMSG $chan :\0034$hlturnedoff \00310$nick."
          } else {
          putquick "PRIVMSG $chan :\0031$hlalreadyoff"
        }
      }
      if {[string tolower $command] == [string tolower $hlhelpcmd]} {
        if {[string tolower $nick] == [string tolower $hlownerofbot]} {
          putquick "NOTICE $nick :\0037,1\002!hl on <numara> \002\0033,1- $hlhelpon"
          putquick "NOTICE $nick :\0037,1\002!hl off \002\0033,1- $hlhelpoff"
          putquick "NOTICE $nick :\0037,1\002!guess <numara> \002\0033,1- $hlhelpguess"
          putquick "NOTICE $nick :\0037,1\002!hl activate \002\0033,1- $hlhelpactivate"
          putquick "NOTICE $nick :\0037,1\002!hl deactivate \002\0033,1- $hlhelpdeactivate"
          } else {
          putquick "NOTICE $nick :\0037,1\002!hl on <numara> \002\0033,1- $hlhelpon"
          putquick "NOTICE $nick :\0037,1\002!hl off \002\0033,1- $hlhelpoff"
          putquick "NOTICE $nick :\0037,1\002!guess <numara> \002\0033,1- $hlhelpguess"
        }
      }
      if {[string tolower $command] == [string tolower $hlactivatecmd]} { 
        if {[string tolower $nick] == [string tolower $hlownerofbot]} {
          putquick "PRIVMSG $chan :$hlalreadyactivated"
          } else {
          putquick "NOTICE $nick :\0030,1Sadece $hlownerofbot bu komutu kullanabilir."
        }
      }
      if {[string tolower $command] == [string tolower $hldeactivatecmd]} { 
        if {[string tolower $nick] == [string tolower $hlownerofbot]} {
          putquick "PRIVMSG $chan :$hlbeendeactivated"
          set hlonoroff 0
          set hlinuse 0
          set hldeact 1
          set numbertouse ""
          set correctnumber ""
          } else {
          putquick "NOTICE $nick :\0030,1Sadece $hlownerofbot bu komutu kullanabilir."
        }
      }
      } else {
      putquick "PRIVMSG $chan :$hlonlyinchan $hlchan"
    }
    } else {
    putquick "PRIVMSG $chan :$hldeactivated"
  }
}

#####################################################################
## This is where the '!guess <number>' part of the script starts.  ##
#####################################################################

proc hl:guess {nick uhost hand chan args} {
  global hlinuse correctnumber numbertouse lowestnumber hlchan hlonoroff hlownerofbot 
  global hldeactivated hltrylower hltryhigher hlnoton hlinvalidguess correctmsgs incorrectmsgs hlguesscmd
  set correctmsg [lindex $correctmsgs [rand [llength $correctmsgs]]]
  set incorrectmsg [lindex $incorrectmsgs [rand [llength $incorrectmsgs]]]
  if { $hlonoroff == 1 } {
    if {[string tolower $chan] == [string tolower $hlchan]} {
      if { $hlinuse == 1 } {
        set guess [lindex $args 0]
        if {$guess == ""} {
          putquick "NOTICE $nick :\0030,1$hlguesscmd"
          return
          } else {
          if { [string tolower $guess] == [string tolower $correctnumber] } {
            set hlinuse 0
            putquick "PRIVMSG $chan :\00310$nick\00313 Numarayi bildi. Numaramiz : \002\00312$correctnumber\00313\002 idi. $correctmsg"
          }
          if { [string tolower $guess] > [string tolower $numbertouse] } {
            putquick "NOTICE $nick :\0030,1$hlinvalidguess\0033,1\002 0\002 \0030,1ve\0037,1 \002$numbertouse\002."
            return
          }
          if { [string tolower $guess] > [string tolower $correctnumber] } {
                putquick "PRIVMSG $chan :\0037$incorrectmsg \00310$nick\0037. Tahmininiz olan : \002$guess\002 sayisi oldukca \002yuksek\002. $hltrylower"
          }
          if { [string tolower $guess] < [string tolower $correctnumber] } {
                putquick "PRIVMSG $chan :\0033$incorrectmsg \00310$nick\0033. Tahmininiz olan : \002$guess\002 sayisi oldukca \002dusuk\002. $hltryhigher"
          }
        }
        } else {
        putquick "PRIVMSG $chan :\0031Uzgunum : \00310$nick,\0031 $hlnoton"
      }
      } else {
      putquick "PRIVMSG $chan :$hlonlyinchan $hlchan."
    }
    } else {
    putquick "PRIVMSG $chan :$hldeactivated"
  }
}

putlog "$hlcreator's High Low Script Loaded"