Cevap: tahmin.tcl yeni oyun botu
PHP- Kodu:
##################################################################################################
## 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"
gecikme için herkezden özür dilerim bunu umarım telafi ederim.
saygılarımla |
