ileriturk
28-10-2006, 05:41
Arkadaslar Forumda Daha Onceden Verildiyse TCL Ler Ozür Dilerim. İyi CaLısmalar.. Ama En Azından Toplanmış Oldu Biyere :)
Örnek Bir .Conf Bu Confu Kendinize Göre Ayarlayıp İstediginiz TCL'de Kullanabilirsiniz.
###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
##### Bilgi Satiri #####
##### Bot bilgileri #####
set username "ident"
set nick "BotNick"
set realname "2Bot İdenti"
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
#set my-ip "1.2.3.4"
set init-server {
putserv "oper opernick opersifre"
putserv "PRIVMSG nickserv identify nicksifresi"
}
set servers { 66.90.107.187:6667 }
channel add #KanalAdı { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner TimothY
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "bots.user"
set chanfile "bots.chan"
set temp-path "/tmp"
logfile msbxco * "logs/bots.log"
logfile jpk #kanaladi "logs/#kanaladi.log"
set console "mkcobxs"
##### SCRIPTLER #####
source scripts/userinfo.tcl
source scripts/script1.tcl
source scripts/script2.tcl
source scripts/script3.tcl
loadhelp userinfo.help
# EndOf
CR'de Fjoin TCL Si
#--------------- USERİ KANALA ALMA ----------------
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 1 "kanalaal $kisi #sohbet"
utimer 1 "kanalaal $kisi #oyun"
}
}
Kötü Nickle (BADNICK) Giren Kullanıcılara Direk ßan Atıp ve İstediginiz ßir Kanala Cekmek için ßir TCL (Unreal İçin Ayarlı CR ye Cevirebilirsiniz)
## Badnick scans
set badnicks {
"penis"
"fuck"
"bitch"
"asshole"
"kontol"
"contol"
"pepek"
"vevek"
"ngentot"
"kentot"
"jembut"
"zembut"
"pantat"
"totong"
"tetek"
"vagina"
"pukimak"
"bujanginam"
"cibai"
"c1b41"
"lanciau"
"gigolo"
"peler"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"pler"
"plerr"
"pller"
"p3l3r"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"pipi"
"amcik"
"ananin"
"amina"
"sikerim"
"beceririm"
"becerme"
"belani"
}
## ----------------------------------------------------------------
## --- Buradan Aşagısını Ellemeyin. ---
## ----------------------------------------------------------------
################################################## ####################
##--------------------------------------------------------------------
##--- F O R --- P R O T E C T I O N --- CHANNEL ----
##--------------------------------------------------------------------
################################################## ####################
set arg.v "Change Badnick protection ILERITURK.NET"
bind nick - * Detected_changebad
proc Detected_changebad {nick uhost hand chan newnick} {
global badnicks botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $badnicks] {
if {[string match *$badchange* [string tolower $newnick]]} {
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız."
putserv "sajoin $nick #sex"
return 0
}
}
}
}
## -----------------------------------------------------------------------
putlog "-=-= Kötü Nick Koruma =-=-=-=-=-"
putlog "Kötü Nick Koruma 1.1:"
putlog "${arg.v} Yükleme Tamamlandı"
##------------------------------------------------------------------------
## *** E N D OF ChangeBadnick.TCL ***
## -----------------------------------------------------------------------
Konuşan Bot TCL'si.
# Begin - Entertainment, Message Auto-Reply. (ent_areply.tcl)
# Designed & Written by Ninja_baby (Jaysee@Jaysee.Tv), © October 2000
# This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot.
# This was a kewl idea, he ask how can his bots reply people who sent specific message-
# to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs*
# Well as I said above, this TCL will make your bot reply people who send message-
# to it or to a channel (which listed in the variable). And that's the only purpose ;p
# but do not worry, the bot will auto-ignore people if it consider lines of messages-
# as excessive flood.
# Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou-
# the words are same with what you sets below. You can set channelnames here as many as you-
# wish, but carefull you might make your bot getting lagged coz it has too many channels to-
# greet for ;p
set repchan {
"#sohbet"
}
# Ok fill this one with your words. Let me explain a little bit about HOW to set this variable.
# The one on the left side of the ":" sign is the trigger words. And words on the right side-
# of the ":" sign is what your bot will reply following the left one.
# Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"-
# in channel or to it.
# As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot-
# will reply to. Example: there's a nick called "TheLamer" in channel, and you set-
# "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"-
# in channel or to it.
# set this carefully and you might set this as many as you wish. ;)
set repwords {
"s.a:%nick, aleyküm selam hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"bye:hoşçakal %nick"
"bye:%nick: yine gelme seni özlemiycez =P"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"catlakFM:efendim %nick"
"bot:%nick: benmi?"
"canım:birtanem"
"askım:canımın içi"
"bebegim:sevgilim"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"catlakFM:catlakFM diyen dilini %nick"
"sen:hadicanım sende"
"ordamısın:evet burdayım"
"eee:sustum"
"selamun aleykum:aleykum selam %nick hoş geldin"
}
# Set this as maximum trigger or lines before your bot consider the line of words as a flood.
# By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot-
# will consider this as flood and will auto-ignore the person without giving any answers.
# So don't set this too low ;pp
set maxmsgrep 5:10
# Set this as messages which your bot will send to a user that just considered flooding.
# Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this-
# variable. I'm too lazy to convert those key in this variable, and will only get this script-
# work too hard ;pp hehe
set msgfloodm {
"you're performing MSG which considered as FLOOD..."
}
# Set this as your bot auto-ignore time. Set this one in Minute(s) format.
set msgrepignore 1
# This is for your benefit hehe ;), you can either set your own LOGO here, your logo will appear-
# when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling-
# and set this variable as you wish ;), you can either set this to "" to leave it blank.
set utlarlg "\[J- C \]:"
######### Please do not edit anything below unless you know what you are doing ;) #########
proc replyuser {nick uhost hand rest} {
global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
set repperf 0
foreach repwrd $repwords {
set rquestion [lindex [split $repwrd :] 0]
set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
regsub -all "%nick" $ranswer "$nick" ranswer
set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
}
}
if {!$repperf && $repto != $nick} {return 0}
set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
if {[info exists msgcount($n)]} {
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
if {$currmsgcount >= $maxmsgreprecv} {
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
} else {
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
}
} else {set msgcount($n) 1}
}
proc replychan {nick uhost hand chan rest} {
global botnick repchan
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
}
bind msgm - * replyuser
bind pubm - * replychan
putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."
# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)
CR'de Oper Girildiginde Otomatik Operlerin ßulundugu Kanala Cekme TCL'si
##########################
#
# Oper Join TCL Writed Ahmet : ILERITURK.NET
#
#########################
bind raw - Notice operjoin
proc operjoin { from keyword text } {
if {[string match -nocase "*is now an operator*" $text]} {
set _nick [lindex [split $text] 4]
set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
putserv "fjoin $snr #ops"
putserv "fjoin $snr #opers"
putserv "fjoin $snr #sops"
putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
putserv "SAMODE #opers +o $snr"
}
}
putlog "OperJoin Yüklendi. TCL BY Ahmet ILERITURK.NET"
Opme.TCL
################################################## ##############################
# opal.tcl 1.0 - www.ileriturk.Net (http://www.ileriturk.net/) #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
################################################## ####################Stonkeep##
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnicki"
# Buda gerekli olan sifre
set ipass "123bot"
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
putserv "sajoin #OpS"
putserv "samode #Ops +o botnick"
putserv "umode +c"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "FJOIN $kanal $n"
putserv "samode $kanal +o $n"
}
Kanala Girişte Otomatik Radyonuzun Acılması için ßir TCL
1.Kod u tcL ye ekliyorsunuz.
proc join_greet {nick uhost handle channel} {
putserv "NOTICE $nick :Merhaba 12$nick"
putserv "NOTICE $nick :Ben 4ileriturk 5Network icin ayarlanmis bir robotum!"
putserv "NOTICE $nick :istekte bulunmak icin 4!istek dinlenmis parcalar incin 4!eski"
putserv "NOTICE $nick :radyo durumu icin 4!durum yazmanız yeterlidir ; 4ileriturk hos dakikalar gecirmenizi diler"
putserv "privmsg $nick :radyoac"
}
bind join - * join_greet
putserv "privmsg $nick :* 2Radyomuzu Dinlemek Için Aşağıdaki Linki Tıklayınız :4 http://62.68.193.111:7750/listen.pls "
putserv "privmsg $nick :* 4 http://62.68.193.111:7750/listen.pls "
}
bind join - * join_greet
2. yani ßu kodu Serverinizin Mirc'in Remote Bolumune Ekliyorsunuz
ON 1:TEXT:*radyoac:?: {
if ($nick == ileriturk) { /run C:\Program Files\Winamp/winamp.exe /run http://irc.ileriturk.net:7750/listen.pls | /close -m ileriturk }
else HALTDEF
}
Radyo Kanalı için Çalan Parcayı Dinleyici Sayısını Vs. Yazan Bot TCL'si.
# config ##########################
set radiochans "#radyo"
set streamip "RADYOIPADRESI"
set streamport "PORTUNUZ"
set streampass "RADYOSIFRENIZ"
set scstatstrigger "!durum"
set scstreamtrigger "!url"
set sclistenertrigger "!dinleyici"
set scplayingtrigger "!dinleyen"
set scdjtrigger "!dj"
set scsetdjtrigger "!setdj"
set scwishtrigger "!istek"
set scgreettrigger "!greet"
set sclastsongstrigger "!eski"
set schelptrigger "!help"
set announce "1"
set urltopic "1"
set tellsongs "1"
set tellusers "1"
set tellbitrate "1"
set advertise "1"
set offlinetext "^C0,12Radyomuz Yayındaki Dj Tarafından Kesilmiştir.^C0,7 Online Dj ' Lerimize Basvrunuz ."
set offlinetopic "^C0,4Radyo kanalına hoşgeldiniz. ^C0,12Yayınımız şu an yoktur...^C0,7 Online Dj ' Lerimize Basvrunuz ."
set onlinetext "^C0,4Radyomuz Yayına Başladı. Dinlemek Için Adresimiz ^C0,12 http://89.149.195.252:8082/listen.pls "
set onlinetopic "^C4,1 Yerli ^C0,2 ve ^C4,1 Yabanci ^C8,1 En Hit ^C9,1 Slow, Pop, Arabesk ve Tum Muzik Turlerinin Raksettigi Bir Mekan.. ^$
set streamtext "^C0,4Radyo Adresimiz : ^C8,1 http://89.149.195.252:8082/listen.pls "
set advertisetext "^C4,1 Yerli ^C0,2 ve ^C4,1 Yabanci ^C8,1 En Hit ^C9,1 Slow, Pop, Arabesk ve Tum Muzik Turlerinin Raksettigi Bir Mekan..$
# end of config #####################
bind pub - $scstatstrigger pub_scstat
bind msg - $scstatstrigger msg_scstat
bind pub - $scplayingtrigger pub_playing
bind msg - $scplayingtrigger msg_playing
bind pub - $scdjtrigger pub_dj
bind msg - $scdjtrigger msg_dj
bind pub D $scsetdjtrigger pub_setdj
bind msg D $scsetdjtrigger msg_setdj
bind pub - $scwishtrigger pub_wish
bind msg - $scwishtrigger msg_wish
bind pub - $scgreettrigger pub_greet
bind msg - $scgreettrigger msg_greet
bind pub - $scstreamtrigger pub_stream
bind msg - $scstreamtrigger msg_stream
bind pub - $sclastsongstrigger pub_lastsongs
bind msg - $sclastsongstrigger msg_lastsongs
bind pub - $sclistenertrigger pub_listener
bind msg - $sclistenertrigger msg_listener
bind pub - $schelptrigger pub_help
bind msg - $schelptrigger msg_help
bind time - "* * * * *" isonline
bind time - "?0 * * * *" advertise
bind nick D * djnickchange
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc poststuff { mode text } {
global radiochans
foreach chan [channels] {
if {$radiochans == "" } { putserv "$mode $chan :$text" }
if {$radiochans != "" } {
if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -1) || ($radiochans == "")} {putserv "$mode $chan :$text"}
}}}
proc schelp { target } {
global scstatstrigger scstreamtrigger scplayingtrigger scdjtrigger sclastsongstrigger scwishtrigger scgreettrigger sclistenertrigger
putserv "notice $target :Mevcut Komutlar :"
putserv "notice $target :$scstatstrigger - $scstreamtrigger - $sclistenertrigger - $scdjtrigger - $sclastsongstrigger - $scwishtrigger - $sc$
}
proc pub_help {nick uhost hand chan arg} {
global radiochans
if {$radiochans == "" } { schelp $nick }
if {$radiochans != "" } {
if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -1) || ($radiochans == "")} { schelp $nick}
}}
proc advertise { nick uhost hand chan arg } {
global advertisetext advertise
if {$advertise == "1" } { poststuff privmsg $advertisetext }
}
proc setdj {nickname djnickname } {
if {$djnickname == "" } { set djnickname $nickname }
global streamip streamport streampass
putlog "shoutcast: new dj: $djnickname ($nickname)"
set temp [open "dj" w+]
puts $temp $djnickname
close $temp
set temp [open "djnick" w+]
puts $temp $nickname
close $temp
putserv "privmsg $nickname :your are now dj of this radio"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } { poststuff privmsg "$djnickname is now rocking the turntables, enjoy." } else {
putserv "privmsg $nickname :this has not been announced because the radio is currentlfy offline." }
}}
proc listener { target } {
global streamip streamport streampass
putlog "shoutcast: $target requested listener count"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
}}
close $sock
putserv "notice $target :^C0,12Şu An Yayınımızı Dinleyen Kişi Sayısı ^C0,4 $repl "
}}
proc msg_listener { nick uhost hand arg } { global radiochans; listener $nick }
proc pub_listener { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]$
proc wish { nick arg } {
if {$arg == ""} { putserv "notice $nick :^C0,4İsteğinizi belirtmeyi unuttunuz."; return 0}
global streamip streamport streampass
putlog "shoutcast: $nick wants to hear: $arg"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
putserv "privmsg $djnick :(WISH) - $nick - $arg"
} else {
putserv "notice $nick :sorry radio is currently offline" }
}}
proc msg_wish { nick uhost hand arg } { global radiochans; wish $nick $arg }
proc pub_wish { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !=$
proc sclastsongs { target } {
global streamip streamport streampass
putlog "shoutcast: $target requested songhistory"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set songs [string range $bl [string first "<TITLE>" $bl] [expr [string last "</TITLE>" $bl] + 7]]
regsub -all "<" $songs "<" songs
regsub -all ">" $songs ">" songs
regsub -all "&" $songs "+" songs
regsub -all """ $songs "\"" songs
regsub -all "'" $songs "'" songs
regsub -all "ÿ" $songs "" songs
regsub -all "<TITLE>" $songs "(" songs
regsub -all "</TITLE>" $songs ")" songs
regsub -all "<SONG>" $songs "" songs
regsub -all "</SONG>" $songs " - " songs
regsub -all "<PLAYEDAT>" $songs "" songs
regsub -all "</PLAYEDAT>" $songs "" songs
regsub -all {\d} $songs "" songs
}}
putserv "notice $target :$songs"
}}
proc msg_lastsongs { nick uhost hand arg } { global radiochans; sclastsongs $nick }
proc pub_lastsongs { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan$
proc scstream { target } {
global streamip streamport streamtext
putlog "shoutcast: streaminfo requested by $target"
putserv "notice $target :$streamtext"
}
proc msg_stream { nick uhost hand arg } { global radiochans; scstream $nick }
proc pub_stream { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] $
proc scgreet { nick arg } {
if {$arg == ""} { putserv "notice $nick :^C0,4Mesajı eklemeyi unuttunuz."; return 0}
global dj streamip streamport streampass
putlog "shoutcast: $nick greets fly out to: $arg"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
putserv "privmsg $djnick :(GREET) - $nick - $arg"
} else {
putserv "notice $nick :sorry radio is currently offline" }
}}
proc msg_greet { nick uhost hand arg } { global radiochans; scgreet $nick $arg }
proc pub_greet { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !$
proc msg_setdj { nick uhost hand arg } { global radiochans; setdj $nick $arg }
proc pub_setdj { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !$
proc djnickchange { oldnick uhost hand chan newnick } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
if {$oldnick == $djnick} {
putlog "shoutcast: dj nickchange $oldnick -> $newnick"
set temp [open "djnick" w+]
puts $temp $newnick
close $temp
}}
proc dj { target } {
global streamip streamport streampass
putlog "shoutcast: $target asked for dj info"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if {$streamstatus == 1} {
if {[file exists dj]} {
set temp [open "dj" r]
set dj [gets $temp]
close $temp
putserv "notice $target :$dj is at the turntables!"
} else { putserv "notice $target : ^C0,7 Radyo7BitirdiFM Şu Anki Dj'
^C2$stitle$sgenre " }
} else {
putserv "notice $target :sorry radio is currently offline"
}
close $sock
}}
proc msg_dj { nick uhost hand arg } { global radiochans; dj $nick"}
proc pub_dj { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -$
proc scstat {target} {
global streamip streamport streampass
putlog "shoutcast: $target asked for serverstats"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
if {$sgenre != ""} {set sgenre " ($sgenre)"}
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]]
set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]]
if {$icq == 0} { set icq "N/A" }
set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]]
set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]]
set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]]
set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]]
if {$streamstatus == 1} {
if {[file exists dj]} {
set temp [open "dj" r]
set dj [gets $temp]
close $temp
} else { set dj "none" }
putserv "notice $target :^C11,1$stitle$sgenre ^C0,2şu anda yayında. Sitemizi Her zaman Ziyaret edin : ^C0,12 www.7Bitirdi.Com (http://www.7bitirdi.com/) "
} else {
putserv "notice $target :^C11,1Şuanda $stitle$sgenre Online değil.." }
putserv "notice $target :^C9,1Şu An Yayınımızı Dinleyen Kişi Sayısı^C8,1 $repl "
putserv "notice $target :^C0,12Ortalama dinlenme süresi^C0,4 $avgtime ^C0,12 saniye."
putserv "notice $target :^C8,1http://89.149.195.252:8082/listen.pls "
}}
close $sock
}}
proc msg_scstat { nick uhost hand arg } { global radiochans; scstat $nick}
proc pub_scstat { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] $
proc playing {target} {
global streamip streamport streampass
putlog "shoutcast: $target asked for current song"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
set songtitle [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]]
if {$songurl != ""} { set songurl " ($songurl)"}
regsub -all "<" $songtitle "<" songtitle
regsub -all ">" $songtitle ">" songtitle
regsub -all "&" $songtitle "+" songtitle
regsub -all """ $songtitle "\"" songtitle
regsub -all "'" $songtitle "'" songtitle
regsub -all "ÿ" $songtitle "" songtitle
if {$streamstatus == 1} {
putserv "notice $target :^C0,12Çalan Parça $songtitle$songurl ^C0,4 Dj $stitle$sgenre "
} else {
putserv "notice $target :server is currently offline, sorry"
}}}
close $sock
}}
proc msg_playing { nick uhost hand arg } { global radiochans; playing $nick}
proc pub_playing { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]]$
proc isonline { nick uhost hand chan arg } {
global radiochans announce tellusers tellsongs tellbitrate urltopic
global offlinetext offlinetopic onlinetext onlinetopic
global streamip streampass streamport
if {$announce == 1 || $tellsongs == 1 || $tellusers == 1 || $tellbitrate == 1} {
set isonlinefile "isonline"
set oldisonline "isonline: 0"
set oldcurlist "curlist: 0"
set oldcurhigh "curhigh: 0"
set oldsong "cursong: 0"
set oldbitrate "bitrate: 0"
if {[file exists $isonlinefile]} {
putlog "shoutcast: checking if stream is online"
set temp [open "isonline" r]
while {[eof $temp] != 1} {
set zeile [gets $temp]
if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile }
if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile }
if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile }
if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile }
if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile }
}
close $temp
}
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0} else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"
set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]"
set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]"
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]"
set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]"
set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]]
set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]"
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
}}
close $sock
}
set temp [open "isonline" w+]
puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate"
close $temp
if {$announce == 1 } {
if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} {
poststuff privmsg $offlinetext
if {$urltopic == 1} { poststuff topic $offlinetopic }
}
if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } {
if {$sgenre != ""} {
set sgenre " ($sgenre)"
}
poststuff privmsg "^C0,4Radyo Url Adresimiz : ^C0,12 http://www.7bitirdi.com:8082/listen.pls "
if {$urltopic == 1} { poststuff topic "^C9,4*^C8,4*^C11,4*^C0,4Radyo Url Adresimiz ^C12,4=^C9,4>^C11,4>^C0,4> ^C0,12 http://89.149.195.252:8$ (http://89.149.195.252:8$/)
}}
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } {
if {$oldcurhigh != $curhigh} {
poststuff privmsg "^C11,1Yeni dinleyici sayısı : [lindex $curhigh 1]"
}
if {$oldcurlist != $repl} {
poststuff privmsg "^C0,12Şu An Yayınımızı Dinleyen Kişi Sayısı ^C0,4 $repl "
}}
if {($tellsongs == 1) && ($oldsong != $cursong) && ($streamstatus == "isonline: 1") } {
if {$songurl != ""} { set songurl " ($songurl)"}
regsub -all "<" $cursong "<" cursong
regsub -all ">" $cursong ">" cursong
regsub -all "&" $cursong "+" cursong
regsub -all """ $cursong "\"" cursong
regsub -all "'" $cursong "'" cursong
regsub -all "ÿ" $cursong "" cursong
poststuff privmsg "^C0,12*^C11,12Ç^C0,12a^C11,12L^C0,12a^C11,12n ^C11,12P^C0,12a^C11,12r^C0,12ç^C11,12a ^C4,12: ^C11,1 [lrange $cursong 1 [$
}
if {($tellbitrate == 1) && ($oldbitrate != $bitrate) && ($streamstatus == "isonline: 1") && ($oldbitrate != "bitrate: 0")} {
poststuff privmsg "bitrate switched to [lindex $bitrate 1]kbps"
}}}
proc join_greet {nick uhost handle channel} {
putserv "NOTICE $nick :^C0,2 89.149.195.252 ^C0,2 ^O ^O^C0,2 Radyo Istasyonuna Hoş Geldiniz."
putserv "NOTICE $nick :^C0,3Radyo Dinlemek İçin : ^C0,7 http://89.149.195.252:8082/listen.pls "
#putserv "privmsg $nick : ^C0,2Dj ' Lerimiz ^C4: "
#putserv "privmsg $nick : ^C0,2Kayhan ^C0,4ve ^C0,2Yavuz ^C0,7 Talk Showcularımız . "
#putserv "privmsg $nick : ^C0,2MafLa "
#putserv "privmsg $nick : ^C0,4MaHiR "
#putserv "privmsg $nick : ^C0,4 "
#putserv "privmsg $nick : ^C0,4MaHiR "
#putserv "privmsg $nick : ^C0,4MaHiR "
}
bind join - * join_greet
putlog "##############################################"
putlog "# ILERITURK.NET #"
putlog "# Düzenleyen: Ahmet #"
putlog "# Email CRDestek@ILERITURK.NET #"
putlog "# Web: www.ILERTURK.NET (http://www.ilerturk.net/) #"
putlog "##############################################"
Radyo için Eklenti !istek !yes !no
#gerekli bindler
bind pub - !yes yes
bind pub - !no no
bind pub - !istek istek
bind evnt - init-server baglan_yap
#Gerekli degiskenler
set inick "iSTeK"
set ipass "botcuka"
#ELLEMEYIN (Siz Bİlirsiniz)
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum "
}
proc yes {n u h c a} {
set kanal [lindex $a 0]
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc no {n u h c a} {
set kanal [lindex $a 0]
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}
proc istek {n u h c a} {
set kanal [lindex $a]
putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal"
putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
}
İstek İçin Conf Biraz Farklı Oluyo Bir Ekleme Yapmanız Lazım. Veya Ayrı Bir Conflada Sokabilirsiniz.
channel add #Radyo {
chanmode "+nrt"
idle-kick 0
}
yazan yerin altina
channel add #DJ {
chanmode "+nrt"
idle-kick 0
}
Şiir TCL Si !soz Yazarak Kanala Şiir Yazdırabilirsiniz.
set soz {
" gidiyorum uzaklara bilinmez diyarlara seni bırakıp gitmek var ya o koyuyor bana ben senle olamadım gençliğime doyamadım ben senle kalamadım günlerimi sayamadım ölümde var sonunda gülümde var dağların arkasında yağar yar."
"gecemidir insanı hüzünlendiren yoksa insan mıdır hüzünlenmek icin geceyi bekleyen. gecemidir senin bana düsündüren yoksa benmiyim seni düsünmek icin geceyi bekleyen??"
"bu gece pencereni açık bırak uzaklardan kuş uçurdum biraz yorgun biraz ıslak ama yinede başucuna bir tutam sevgi bırakacak almayı unutma...."
"geceleri uzaklara cıglık olur sesim,denizden cıkan yosun kokusundan keskin sana olan özlemim, bu gece senin icin kapanacak gözlerim iyi geceler herseyim."
"Sen Tanrıya dilenen dilek, göklere uzanan ellerimsin. Sen gözümden süzülen yas, tek düşüncem, hasretimsin. Sen yaşadığım ömür, en güzel günlerimsin."
"Aşk, gülü dikeniyle avuçlamaya benzer. Ellerin kan içinde kalır ama dikenlerinden hesabini, gülden soramazsın."
"O kadar güzelsin ki yüzüne bakamıyorum. Titriyor ellerim, ellerini tutamıyorum. Dolanıp sarmak geliyor saramıyorum. Öylesine bağlanmışım ki sensiz duramıyorum."
"Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim,özlenen her şeye dedi,benimde aklıma sen geldin;çünkü buralarda özlendin,Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim,"
"Duanla Yaşamadımki Bedduanla Öleyim."
"Hayat, silgisiz resim çizme sanatıdır."
"sahilde oturup denize bakan,Yakasız gömleğe kıravat takan, Ağzındaki sigarayı tersten yakan, Bir sevdalı görürsen hatırla beni.!"
"ne yıldızlar istiyorum gece yarılarıma ,ne güneşi istiyorumkaranlıklarıma,yalnız seni istiyorum yalnızlığıma..."
"Birgün Hayat Dedikleri Şeyi Merak edersen Unutmaki Hayat Hayatım Diyebilecegin İnsanı Bulunca Baslar.Benim içinde Hayat Seninle Başlıyor"
"Dostluk,gereğince tanımlanamazlardandır ve ancak yasamakla anlaşılır. Bu yüzden dostluk şiir gibi aşk gibi anlatılmaz yasanır."
"Ölmekten korkmuyorum seni milyonlarca yağmur damlasıyla paylaşmatan korkuyorum çiçek olup açmandan değil seni bir gün gelip koparmalarından korkuyorum."
"yarınlar umudumdu benim bugünlere düşmandım, yarınımdım sen benim bugünüm olamazdın ,yarınlar hic gelmedi,ben hep bu gunlerde kaldım."
"TOK OLAN CÜMLE CİHANI TOK SANIR , AÇ OLAN ALEMDE EKMEK YOK SANIR."
"Kader beyaz kağıta sütle yazılmış yazı, elindeyse sıyır beyazdan beyazı. Tanrımdan umuyorum ki seni kaderime yazmış olsun."
"Sevenler sevilmediklerini bilseler bile sevdiklerini unutmazlar.."
"ben seni unutmak için sevseydim sana olan askimi kalbime degil günes dogdugu zaman kaybolan bugulu camlara yazardim."
"size dün tanistigim dört arladastan bahsedecegim isimleri biri herkez hangisi ve kimse konu dostluk biri sordu herkezle dost olurmu herkez hangisi dost oldumuki bende dost olayim hangisi üzülür kimse yoktuki der kimse sessiz kimse buruk kimse saskin çünkü o hiç kimse deyildiki ben isie bir and aldim yildizlari seyire ve sonra bir yildiz kaydi bende düstüm yer yüzüne anladim hiç birimiz hiç kimse deyilmisiz eger allaha kul olmayi beceremiyorsak."
"bagrimda bir ates var ne bileceksin ölsemde ne duyacak ne göreceksin hep seninle yasadi öldü deseler belki biraz üzülüp kim diyeceksin!!"
"50-60 yillik dunyayi neyleyim versen bana sadece ilim irfan gerisi zaten hep yalan."
"Ben yamaçtan ineyim Yol senin olsun. Ben zehir içeyim Su senin olsun. Duydum ki, Bir sevgili bulmussun, Hayirli olsun Bir tanede ben buldum Haberin olsun."
"Mademki sen yoksun yanimda leylaklar dökülüp güller aglasin."
"Yasadiklarimdan pisman degilim Öfkem Yasayamadiklarimdandir."
"bir gün sende seveceksin sevene zulum etmenin cezasini cekeceksin .iste o zaman ben gelirim aklina ama ayni anda sende benim kalbimde öleceksin"
"beni sensiz biraktigin gun geliyor aklima , dusunuyorumda cok aci cekmistim , ama su anda dahada cok cekiyorum ama biliyorumki sen bu aciya hicbir zaman degmedin beni hic bir zaman sevmedin sen sevsende sevmesende ben seni sevdim hepde öyle kalacak."
"sen benzer diye kücük cicekleri öptügümsün,sen yoklugunu uzun yillara gömdügümsün,sen bir türlü cözemedigim kördügüm,sen sevipde koklayamadigim GÜLÜMSÜN!!"
"GÜN GELİRSE ELLERİN ELLERİMDEN AYRILIRSA BİR YABANCI GİBİ SÖZ SÖYLERSE DİLLERİN BENİ GÖRÜPTE GÖRMEZDEN GELİRSE GÖZLERİN ECEL GEREKMEZ BEN O ZAMAN ÖLÜRÜM GÜLÜM."
"Biz yıkılmaz sevgilerin sarsılmaz yaşlarıyız.yüreğimizde sevda yazar anlımızda bela biz delice sevmeyi biliriz.Ama sevdiğimizi unutmayı asla."
"AŞK, KÖLE OLMAYACAK KADAR ÖZGÜR, ULAŞILAMAYACAK KADAR DERİN, KAÇAMAYACAK KADAR YAKIN, SENİNLE YAŞANACAK KADAR GÜZELDİR."
"Güzel insan O dur ki kaderden gelen lütfa sevinmez kahra incinmez."
"SENI SEVDIGIMI SANA DAHA NASIL ANLATAYIM. ÖLMEK GEREKİRSE ÖLÜRÜM AMA SENIN BENI SEVDIGINI BILIRSEM."
"HER HAKSIZ ELEŞTİRİNİN ALTINDA GİZLİ BİR HAYRANLIK YATAR."
"KAVUŞMAK ÖLÜMSE HASRETİN ZULÜM.ELBETTE KAVUŞURUZ BEKLE GÜLÜM TEK SANA AİTTİR ŞU GÖNLÜM BEN YOLUMU SEÇTİM YA SEN YA ÖLÜM."
"En büyük felaketler dahi içinde ümidini kaybetme,unutmaki, en yumusak ilik en sert kemigin içinden çikar, gülmek senin için bir tutku olsun.Olurda bir gün aglarsan o da mutluluktan olsun."
"Yüregimizde ates,gözlerimizde sevgi, ellerimizde umutla bütün kötülüklere inat, gülümseyerek yasiyoruz.Her insan bir yasam, unutma! sen de bir yasamsin."
"Gönlüne düserse bir imkansiz ask, kacarken vurulmus ceylan gibi yüregin, aglarsin. Irmak olur gözyaslarin bosa, kendini taniyamazsin. Asiksan yarimsin ..., yikamam kumdan kalemi, aldatamam kendimi, acamam mühürlü kalbimi, anlatamam derdimi."
"KIZIL GÜNAHLAR KALDI SENDEN GERIYE,VEBALI AGIR YASANMISLARIN.MAVI SEVDALAR TÜKENDI ARTIK..NE SEN KALDIN NE DE HAYALIN PENCEREMDE."
"YAGMUR GORURSEN GOZLERIMI HATIRLA SARI YAPRAK GORURSEN KALBIMI HATIRLA ACI TEBESSUM GORURSEN DUDAKLARIMI HATIRLA ELLER USTUNDE BIR TABUT GORURSEN BENI HATIRLA."
"KALBIMI YERINDEN SOKUP, BIR ZARFA KOYUP GONDERIYORUM SANA. ZARFI ACINCA SASIRMA! CUNKU HERYERINDE BIRTEK KENDINI GORECEKSIN. VE ANLAYACAKSIN SENI SEVMENIN NE DEMEK OLDUGUNU."
"Yillar vardir nasil geçtigini bilmezdim bir gün vardir yasamin anlamini degistirdi bana dair hissetmedigimi bilmedigimi yasatti iste o ani senle yasadim senle sevdim."
"Birgün senden ayrilacagim biryana yalniz kalacagim hiç aklima gelmemisti. ve birde birgün umudum olmayinca yarina,bugünü yasiyormuyum anlayamadim."
"Hayatta yasamanin 2 yolu vardir 1.Hiçbirseyin mucize olmadigini düsünmek 2.Herseyin bir mucize oldugunu düsünmek."
"Hayat Güzeldir Ama Acilari Olsada, Güller GÜzeldir Ama Dikenleri Olsada, Insanlar Güzeldir Ama yalanlari Olsada, Ask Güzeldir Ama Sevipte Ayrilik Olmasa."
"Ask, insanin kendisine yapabilecegi en büyük iskencedir.."
"dostum var diye gezerdim ne zaman yikilacak gibi oldumsa dostlarima giderdim ama bugun yine agliyorum ve anladimki gercek dostlarim ben aglarken guluyormus YAZIK BE DOSTLUK OLMUS."
"BiR AşKı PaYLaŞMaK İçiN ÇoK GeÇ irPaYLaŞıMa aşıK OLMaK İçinSe ErKeN YiNe SeVDa YeRiMDeN VuRDu ZaMaNŞiMDi SaNa SÖYLeNeCeK TeK CüMLe BeNDe SaNa YeTeCeK KADaR BEN KaLMaDı."
"ŞaiR ßenSem ŞiiRim SenSiN AşıK ßenSem aŞkım SenSiN SarhoŞ ßenSem ŞaRaßım SenSiN DeLi ßenSem ZinCiRim SenSiN ßen HaLa YaŞıYoRSam Seßebi SenSiN.."
"Gördüğüm en güzel rüya senin olduğun,Duyduğum en derin sevgi senin eserin, Gördüğüm en güzel dünya senin gözlerin,Ve kurduğum en güzel hayal sensin"
"Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?"
"Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!"
"Sana doğru bir kelebek uçurdum, dağları denizleri aştı seni buldu, yanağına ufacık bir öpücük kondurdu. Hissettin mi?"
"Ağzımdan çıkacak söz olsan konuşmam, gözümden akacak yaş olsan ağlamam, kalbime hapsettim seni hiçbir yere bırakmam!"
"Bir insanı sevmek onunla yaşlanmayı kabul etmek demektir benim için. Ben seni seviyorum ve bir ömür boyu seninle olmak istiyorum."
"Seni yıldızlara benzetiyorum onlar kadar uzak onlar kadar erişilmezsin ama bir farkın var onlar bin tane sen bir tanesin."
"Hayallere dalıp gitmem ben, Çünkü tek hayalim sensin benim! Hiçbirşey isteyemem benÇünkü birtek istediğim sensin benim."
"Bir an buruk bir acı saplanırsa yüreğine,gözlerin zamansız takılırsa,kulakların zamansız deli gibi çınlarsabil ki bir yerlerde özlemişsindir"
"Sen benim gözlerimde saf bir gerçek,Yüreğime bahar getiren bir çiçeksin.Sen bedenimdeki yumuşak kudret,Gönül bahçemde uçuşan bir kelebeksin.."
"Sevgilerin en güzeli seni sevmek, Özlemlerin en güzeli seni özlemek, Ve hayatın tadı sabah kalktığımda, Senin varolduğunu bilmek... "
"Bırakma beni sevdiğim gidişine dayanamam,Hasret gözyaşlarımla kendimi avutamam,Dönerim dersin ama kadere inanamam,Bıraktığın anılarla sensiz yaşayamam... "
"Sahiller dalgayı nasıl beklerse, Gökyüzü mehtabı nasıl özlerse, Kuru topraklar suya nasıl hasretse, Sende benim hasretimsin..."
"Aşkınla sararıp solacak kadar,Sevginle bahtiyar olacak kadar Uğruna canımı verecek kadar seviyorum desem inanırmısın ?"
"Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!"
"Bir yağmur damlası seni seviyorum anlamı taşısaydı ve sen bana seni ne kadar sevdiğimi soracak olsaydın, inan ki birtanem her gün yağmur yağardı."
"Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?"
"Bütün mevsimleri bir günde, bütün yılları bir mevsimde yaşamaya razıyım seninle... Bir tutam sevinç, bir tutam umut ve bir tutam mutluluk gönderiyorum sana."
"Beyaz bir güvercin yolluyorum sana; kanatlarında mutluluk, yüreğinde sevgi ve sadakat, karbeyaz tüylerinde umut ve gagasında iyi geceler öpücüğü, yanağını uzat."
"Seni bulmaktan çok aramak isterim! Seni sevmeden önce anlamak isterim! Seni bir ömür boyu bitirmek değil de sana hep yeniden başlamak isterim."
"Bir gül olmak isterdim! Neden mi? Beni koparıp kokladığında vücudunun derinliklerine girip bir daha oradan çıkmamak için?"
"Bizi anlatan şiirler yazılmadı henüz.Çünkü biz dünyanın oyununda,hayatın acımasızlığında ve de sevdiklerimizin baygın bakışlarında unutulduk.."}
# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!
bind pub - !soz tell_that
proc tell_that {nick uhost hand chan $rand} {
global soz
putserv "privmsg #Siir 4 $nick 2 Güzel Söz isteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| ..::ILERITURK.NET::.."
}
Merlin.tcl Soru Botu Bonuslu.
http://irc.gevezechat.com/CR/merlin2.rar
Merlin.tcl için Soru Bankası.
http://irc.gevezechat.com/CR/banka.rar
IRC Yardım Kanalınız İçin Bot
#Yardim Botu Edit By Ahmet
bind join - * join_selam
bind pub - yardim pub_help
bind msgm - help pub_help
bind msgm - yardim msg_help
bind msgm - nshelp msg_nshelp
bind msgm - cshelp msg_cshelp
bind msgm - memohelp msg_memohelp
bind msgm - nsregister msg_nsregister
bind msgm - nsidentify msg_nsidentify
bind msgm - nsset msg_nsset
bind msgm - nsghost msg_nsghost
bind msgm - nspassword msg_nspassword
bind msgm - nslanguage msg_nslanguage
bind msgm - nsurl msg_nsurl
bind msgm - nsemail msg_nsemail
bind msgm - nsicqnumber msg_nsicqnumber
bind msgm - nslocation msg_nslocation
bind msgm - nskill msg_nskill
bind msgm - nsprivate msg_nsprivate
bind msgm - nshide msg_nshide
bind msgm - csregister msg_csregister
bind msgm - csidentify msg_csidentify
bind msgm - csset msg_csset
bind msgm - csaccess msg_csaccess
bind msgm - cslevel msg_cslevel
bind pub - selam msg_selam
proc join_selam {nick uhost handle chan} {
if {$chan == "#help"} {
putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz."
putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum."
putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa. www.ileriturk.net (http://www.ileriturk.net/) adresinden gerekli bilgileri alabilirsiniz"
putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz."
putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz."
}
return 1
}
proc msg_help { nick uhost handle text } {
putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"
putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"
putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
proc msg_nshelp { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )"
putserv "PRIVMSG $nick :Nick Identify ( nsidentify )"
putserv "PRIVMSG $nick :Nick Droplama ( nsdrop )"
putserv "PRIVMSG $nick :Nick Set Ayarlari ( nsset )"
putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" }
proc msg_nsregister { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."
putserv "PRIVMSG $nick :( /ns register sifreniz email_adresiniz )"
putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." }
proc msg_nsidentify { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir."
putserv "PRIVMSG $nick :( /ns identify sifreniz )" }
proc msg_nsdrop { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir."
putserv "PRIVMSG $nick :( /ns drop )" }
proc msg_nsset { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin ayarlari."
putserv "PRIVMSG $nick :(1) nspassword "
putserv "PRIVMSG $nick :(2) nslanguage "
putserv "PRIVMSG $nick :(3) nsurl "
putserv "PRIVMSG $nick :(4) nsemail "
putserv "PRIVMSG $nick :(5) nsicqnumber "
putserv "PRIVMSG $nick :(6) nslocation "
putserv "PRIVMSG $nick :(7) nskill "
putserv "PRIVMSG $nick :(8) nsprivate "
putserv "PRIVMSG $nick :(9) nshide "
}
proc msg_nsghost { nick uhost handle text } {
putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse"
putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz."
putserv "PRIVMSG $nick :( /ns ghost nickiniz sifreniz )" }
proc msg_nspassword { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir."
putserv "PRIVMSG $nick :( /ns set password yenisifre )" }
proc msg_nslanguage { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar."
putserv "PRIVMSG $nick :( /ns set language dilno )"
putserv "PRIVMSG $nick :Dil No: 1 ingilizce "
putserv "PRIVMSG $nick :Dil No: 2 Portekizce "
putserv "PRIVMSG $nick :Dil No: 3 Turkce "
putserv "PRIVMSG $nick :Dil No: 4 Almanca "
}
proc msg_nsurl { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar."
putserv "PRIVMSG $nick :( /ns set url Adres )" }
proc msg_nsemail { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar."
putserv "PRIVMSG $nick :( /ns set email mail@adresiniz.com )" }
proc msg_nsicqnumber { nick uhost handle text } {
putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar."
putserv "PRIVMSG $nick :( /ns set icqnumber #icq_no )" }
proc msg_nslocation { nick uhost handle text } {
putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar."
putserv "PRIVMSG $nick :( /ns set location bulundugunuz_yer )"
}
proc msg_nskill { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. "
putserv "PRIVMSG $nick :( /ns set kill On/OFF )"
putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir."
putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir."
}
proc msg_nsprivate { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler."
putserv "PRIVMSG $nick :( /ns set private On/Off )"
putserv "PRIVMSG $nick :On: Gorunmez."
putserv "PRIVMSG $nick :Off: Gorunur."
}
proc msg_nshide { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller"
putserv "PRIVMSG $nick :( /ns set hide On/Off )"
putserv "PRIVMSG $nick :On: Gorunmez."
putserv "PRIVMSG $nick :Off: Gorunur."
}
proc msg_cshelp { nick uhost handle text } {
putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )"
putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )"
putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )"
putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )"
putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" }
proc msg_csregister { nick uhost handle text } {
putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir."
putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir."
putserv "PRIVMSG $nick :( /cs register #kanal sifre aciklama )"
putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." }
proc msg_csidentify { nick uhost handle text } {
putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."
putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir."
putserv "PRIVMSG $nick :( /cs identify #kanal sifre )" }
proc msg_csset { nick uhost handle text } {
putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."
putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi."
putserv "PRIVMSG $nick :( /cs help set komutu ile alabilirsiniz. )" }
proc msg_csaccess { nick uhost handle text } {
putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."
putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999 a kadardir."
putserv "PRIVMSG $nick :( /cs access #kanal add Nick Seviye )" }
proc msg_cslevel { nick uhost handle text } {
putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."
putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin."
putserv "PRIVMSG $nick :( /cs help level yazarak alabilirsiniz. )" }
proc msg_selam { nick uhost handle chan text } {
putserv "PRIVMSG $nick :Selam $nick . Ben Ahmet’in hazirlamis oldugu yardim botuyum."
putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim."
putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." }
#End putlog "Edit By Ahmet"
Kufur.TCL Kanalda Kufur Edenleri Uzaklastırılmak İçin Yazılmıs Bir TCL (Unreal için Ayarlanmıstır CR ye Cevirebilirsiniz)
################################################## ################
## Kufur.tcl - Bu .tcl ILERITURK Network Team Tarafindan ##
## hazirlanmistir. Eger herhangi bir problemle karsilasirsaniz ##
## yada bir oneriniz varsa CRDestek@ILERITURK.NET ##
## adresinden bizlere ##
## Bu yaziyi lutfen burdan kaldirmayiniz.. ##
## ##
## Degisiklikler ##
## * Tamamiyle yeni bir mimari ile tcl en bastan sifirdan yazil ##
## di. Bu sayede bot kufurleri cok daha iyi bir sekilde yakali ##
## yabiliyor. Orn: selam a ban atmazken am a ban atiyor. ##
## * Bot eger oper olarak baglanirsa ban yerine gline atiyor.. ##
## Bu ban unreal a gore ayarlanmistir. ##
## ##
################################################## ####Ahmet####
# Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..! - WwW.ileriturk.Net (http://www.ileriturk.net/)"
# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"
## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"
set opass "operpass"
# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..
set kufurler {
"am"
"got"
"sik*"
"göt*"
"düzerim"
"duzerim"
"sık*"
"sokar*"
"yalarım"
"yalarim"
"*orospu*"
"*orozpu*"
"yarrak*"
"yarak*"
"pic"
"*piç*"
"yarrag"
"hasiktir"
"*siker*"
"*amci*"
"*amcı*"
"*ibne*"
"gotun*"
}
# Bu kadar..!
TCL'ler Coderlerine Ayittir ve Üzerlerinde Oynama Yapılmamıştır. Hiç Biri Kendi Codem Degildir. Coderlerine Teşekkür Eder İyi CaLısmalar Dilerim...
Yapamayan Arkadaslar Olursa MSN'den Yardım Edebilirim
MSN : CRDestek@ILERITURK.NET
Örnek Bir .Conf Bu Confu Kendinize Göre Ayarlayıp İstediginiz TCL'de Kullanabilirsiniz.
###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
##### Bilgi Satiri #####
##### Bot bilgileri #####
set username "ident"
set nick "BotNick"
set realname "2Bot İdenti"
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
#set my-ip "1.2.3.4"
set init-server {
putserv "oper opernick opersifre"
putserv "PRIVMSG nickserv identify nicksifresi"
}
set servers { 66.90.107.187:6667 }
channel add #KanalAdı { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner TimothY
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "bots.user"
set chanfile "bots.chan"
set temp-path "/tmp"
logfile msbxco * "logs/bots.log"
logfile jpk #kanaladi "logs/#kanaladi.log"
set console "mkcobxs"
##### SCRIPTLER #####
source scripts/userinfo.tcl
source scripts/script1.tcl
source scripts/script2.tcl
source scripts/script3.tcl
loadhelp userinfo.help
# EndOf
CR'de Fjoin TCL Si
#--------------- USERİ KANALA ALMA ----------------
bind raw - Notice gelenvar
proc kanalaal { nick chan } {
putserv "fjoin $nick $chan"
killutimer "kanalaal $nick $chan"
}
proc gelenvar { from keyword text } {
if {[string match -nocase "*client connecting*" $text]} {
set kisi [lindex [split $text] 9]
putserv "WALLOPS : $kisi Bağlandı"
utimer 1 "kanalaal $kisi #sohbet"
utimer 1 "kanalaal $kisi #oyun"
}
}
Kötü Nickle (BADNICK) Giren Kullanıcılara Direk ßan Atıp ve İstediginiz ßir Kanala Cekmek için ßir TCL (Unreal İçin Ayarlı CR ye Cevirebilirsiniz)
## Badnick scans
set badnicks {
"penis"
"fuck"
"bitch"
"asshole"
"kontol"
"contol"
"pepek"
"vevek"
"ngentot"
"kentot"
"jembut"
"zembut"
"pantat"
"totong"
"tetek"
"vagina"
"pukimak"
"bujanginam"
"cibai"
"c1b41"
"lanciau"
"gigolo"
"peler"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"pler"
"plerr"
"pller"
"p3l3r"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"pipi"
"amcik"
"ananin"
"amina"
"sikerim"
"beceririm"
"becerme"
"belani"
}
## ----------------------------------------------------------------
## --- Buradan Aşagısını Ellemeyin. ---
## ----------------------------------------------------------------
################################################## ####################
##--------------------------------------------------------------------
##--- F O R --- P R O T E C T I O N --- CHANNEL ----
##--------------------------------------------------------------------
################################################## ####################
set arg.v "Change Badnick protection ILERITURK.NET"
bind nick - * Detected_changebad
proc Detected_changebad {nick uhost hand chan newnick} {
global badnicks botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $badnicks] {
if {[string match *$badchange* [string tolower $newnick]]} {
set banmask "*!*[string range $uhost [string first "@" $uhost] end]"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız."
putserv "sajoin $nick #sex"
return 0
}
}
}
}
## -----------------------------------------------------------------------
putlog "-=-= Kötü Nick Koruma =-=-=-=-=-"
putlog "Kötü Nick Koruma 1.1:"
putlog "${arg.v} Yükleme Tamamlandı"
##------------------------------------------------------------------------
## *** E N D OF ChangeBadnick.TCL ***
## -----------------------------------------------------------------------
Konuşan Bot TCL'si.
# Begin - Entertainment, Message Auto-Reply. (ent_areply.tcl)
# Designed & Written by Ninja_baby (Jaysee@Jaysee.Tv), © October 2000
# This TCL was made following the request of my friend Imran (ImRaN-- on DALnet) for his bot.
# This was a kewl idea, he ask how can his bots reply people who sent specific message-
# to the bot or to a channel, without getting lagged or stuffs. Thanks Imran ;) *hugs*
# Well as I said above, this TCL will make your bot reply people who send message-
# to it or to a channel (which listed in the variable). And that's the only purpose ;p
# but do not worry, the bot will auto-ignore people if it consider lines of messages-
# as excessive flood.
# Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou-
# the words are same with what you sets below. You can set channelnames here as many as you-
# wish, but carefull you might make your bot getting lagged coz it has too many channels to-
# greet for ;p
set repchan {
"#sohbet"
}
# Ok fill this one with your words. Let me explain a little bit about HOW to set this variable.
# The one on the left side of the ":" sign is the trigger words. And words on the right side-
# of the ":" sign is what your bot will reply following the left one.
# Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"-
# in channel or to it.
# As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot-
# will reply to. Example: there's a nick called "TheLamer" in channel, and you set-
# "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"-
# in channel or to it.
# set this carefully and you might set this as many as you wish. ;)
set repwords {
"s.a:%nick, aleyküm selam hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"bye:hoşçakal %nick"
"bye:%nick: yine gelme seni özlemiycez =P"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"catlakFM:efendim %nick"
"bot:%nick: benmi?"
"canım:birtanem"
"askım:canımın içi"
"bebegim:sevgilim"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"catlakFM:catlakFM diyen dilini %nick"
"sen:hadicanım sende"
"ordamısın:evet burdayım"
"eee:sustum"
"selamun aleykum:aleykum selam %nick hoş geldin"
}
# Set this as maximum trigger or lines before your bot consider the line of words as a flood.
# By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot-
# will consider this as flood and will auto-ignore the person without giving any answers.
# So don't set this too low ;pp
set maxmsgrep 5:10
# Set this as messages which your bot will send to a user that just considered flooding.
# Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this-
# variable. I'm too lazy to convert those key in this variable, and will only get this script-
# work too hard ;pp hehe
set msgfloodm {
"you're performing MSG which considered as FLOOD..."
}
# Set this as your bot auto-ignore time. Set this one in Minute(s) format.
set msgrepignore 1
# This is for your benefit hehe ;), you can either set your own LOGO here, your logo will appear-
# when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling-
# and set this variable as you wish ;), you can either set this to "" to leave it blank.
set utlarlg "\[J- C \]:"
######### Please do not edit anything below unless you know what you are doing ;) #########
proc replyuser {nick uhost hand rest} {
global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
set repperf 0
foreach repwrd $repwords {
set rquestion [lindex [split $repwrd :] 0]
set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
regsub -all "%nick" $ranswer "$nick" ranswer
set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
}
}
if {!$repperf && $repto != $nick} {return 0}
set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
if {[info exists msgcount($n)]} {
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
if {$currmsgcount >= $maxmsgreprecv} {
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
} else {
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
}
} else {set msgcount($n) 1}
}
proc replychan {nick uhost hand chan rest} {
global botnick repchan
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
}
bind msgm - * replyuser
bind pubm - * replychan
putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."
# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)
CR'de Oper Girildiginde Otomatik Operlerin ßulundugu Kanala Cekme TCL'si
##########################
#
# Oper Join TCL Writed Ahmet : ILERITURK.NET
#
#########################
bind raw - Notice operjoin
proc operjoin { from keyword text } {
if {[string match -nocase "*is now an operator*" $text]} {
set _nick [lindex [split $text] 4]
set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
putserv "fjoin $snr #ops"
putserv "fjoin $snr #opers"
putserv "fjoin $snr #sops"
putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
putserv "SAMODE #opers +o $snr"
}
}
putlog "OperJoin Yüklendi. TCL BY Ahmet ILERITURK.NET"
Opme.TCL
################################################## ##############################
# opal.tcl 1.0 - www.ileriturk.Net (http://www.ileriturk.net/) #
# #
# Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
################################################## ####################Stonkeep##
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnicki"
# Buda gerekli olan sifre
set ipass "123bot"
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
putserv "sajoin #OpS"
putserv "samode #Ops +o botnick"
putserv "umode +c"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "FJOIN $kanal $n"
putserv "samode $kanal +o $n"
}
Kanala Girişte Otomatik Radyonuzun Acılması için ßir TCL
1.Kod u tcL ye ekliyorsunuz.
proc join_greet {nick uhost handle channel} {
putserv "NOTICE $nick :Merhaba 12$nick"
putserv "NOTICE $nick :Ben 4ileriturk 5Network icin ayarlanmis bir robotum!"
putserv "NOTICE $nick :istekte bulunmak icin 4!istek dinlenmis parcalar incin 4!eski"
putserv "NOTICE $nick :radyo durumu icin 4!durum yazmanız yeterlidir ; 4ileriturk hos dakikalar gecirmenizi diler"
putserv "privmsg $nick :radyoac"
}
bind join - * join_greet
putserv "privmsg $nick :* 2Radyomuzu Dinlemek Için Aşağıdaki Linki Tıklayınız :4 http://62.68.193.111:7750/listen.pls "
putserv "privmsg $nick :* 4 http://62.68.193.111:7750/listen.pls "
}
bind join - * join_greet
2. yani ßu kodu Serverinizin Mirc'in Remote Bolumune Ekliyorsunuz
ON 1:TEXT:*radyoac:?: {
if ($nick == ileriturk) { /run C:\Program Files\Winamp/winamp.exe /run http://irc.ileriturk.net:7750/listen.pls | /close -m ileriturk }
else HALTDEF
}
Radyo Kanalı için Çalan Parcayı Dinleyici Sayısını Vs. Yazan Bot TCL'si.
# config ##########################
set radiochans "#radyo"
set streamip "RADYOIPADRESI"
set streamport "PORTUNUZ"
set streampass "RADYOSIFRENIZ"
set scstatstrigger "!durum"
set scstreamtrigger "!url"
set sclistenertrigger "!dinleyici"
set scplayingtrigger "!dinleyen"
set scdjtrigger "!dj"
set scsetdjtrigger "!setdj"
set scwishtrigger "!istek"
set scgreettrigger "!greet"
set sclastsongstrigger "!eski"
set schelptrigger "!help"
set announce "1"
set urltopic "1"
set tellsongs "1"
set tellusers "1"
set tellbitrate "1"
set advertise "1"
set offlinetext "^C0,12Radyomuz Yayındaki Dj Tarafından Kesilmiştir.^C0,7 Online Dj ' Lerimize Basvrunuz ."
set offlinetopic "^C0,4Radyo kanalına hoşgeldiniz. ^C0,12Yayınımız şu an yoktur...^C0,7 Online Dj ' Lerimize Basvrunuz ."
set onlinetext "^C0,4Radyomuz Yayına Başladı. Dinlemek Için Adresimiz ^C0,12 http://89.149.195.252:8082/listen.pls "
set onlinetopic "^C4,1 Yerli ^C0,2 ve ^C4,1 Yabanci ^C8,1 En Hit ^C9,1 Slow, Pop, Arabesk ve Tum Muzik Turlerinin Raksettigi Bir Mekan.. ^$
set streamtext "^C0,4Radyo Adresimiz : ^C8,1 http://89.149.195.252:8082/listen.pls "
set advertisetext "^C4,1 Yerli ^C0,2 ve ^C4,1 Yabanci ^C8,1 En Hit ^C9,1 Slow, Pop, Arabesk ve Tum Muzik Turlerinin Raksettigi Bir Mekan..$
# end of config #####################
bind pub - $scstatstrigger pub_scstat
bind msg - $scstatstrigger msg_scstat
bind pub - $scplayingtrigger pub_playing
bind msg - $scplayingtrigger msg_playing
bind pub - $scdjtrigger pub_dj
bind msg - $scdjtrigger msg_dj
bind pub D $scsetdjtrigger pub_setdj
bind msg D $scsetdjtrigger msg_setdj
bind pub - $scwishtrigger pub_wish
bind msg - $scwishtrigger msg_wish
bind pub - $scgreettrigger pub_greet
bind msg - $scgreettrigger msg_greet
bind pub - $scstreamtrigger pub_stream
bind msg - $scstreamtrigger msg_stream
bind pub - $sclastsongstrigger pub_lastsongs
bind msg - $sclastsongstrigger msg_lastsongs
bind pub - $sclistenertrigger pub_listener
bind msg - $sclistenertrigger msg_listener
bind pub - $schelptrigger pub_help
bind msg - $schelptrigger msg_help
bind time - "* * * * *" isonline
bind time - "?0 * * * *" advertise
bind nick D * djnickchange
proc shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc poststuff { mode text } {
global radiochans
foreach chan [channels] {
if {$radiochans == "" } { putserv "$mode $chan :$text" }
if {$radiochans != "" } {
if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -1) || ($radiochans == "")} {putserv "$mode $chan :$text"}
}}}
proc schelp { target } {
global scstatstrigger scstreamtrigger scplayingtrigger scdjtrigger sclastsongstrigger scwishtrigger scgreettrigger sclistenertrigger
putserv "notice $target :Mevcut Komutlar :"
putserv "notice $target :$scstatstrigger - $scstreamtrigger - $sclistenertrigger - $scdjtrigger - $sclastsongstrigger - $scwishtrigger - $sc$
}
proc pub_help {nick uhost hand chan arg} {
global radiochans
if {$radiochans == "" } { schelp $nick }
if {$radiochans != "" } {
if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -1) || ($radiochans == "")} { schelp $nick}
}}
proc advertise { nick uhost hand chan arg } {
global advertisetext advertise
if {$advertise == "1" } { poststuff privmsg $advertisetext }
}
proc setdj {nickname djnickname } {
if {$djnickname == "" } { set djnickname $nickname }
global streamip streamport streampass
putlog "shoutcast: new dj: $djnickname ($nickname)"
set temp [open "dj" w+]
puts $temp $djnickname
close $temp
set temp [open "djnick" w+]
puts $temp $nickname
close $temp
putserv "privmsg $nickname :your are now dj of this radio"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } { poststuff privmsg "$djnickname is now rocking the turntables, enjoy." } else {
putserv "privmsg $nickname :this has not been announced because the radio is currentlfy offline." }
}}
proc listener { target } {
global streamip streamport streampass
putlog "shoutcast: $target requested listener count"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
}}
close $sock
putserv "notice $target :^C0,12Şu An Yayınımızı Dinleyen Kişi Sayısı ^C0,4 $repl "
}}
proc msg_listener { nick uhost hand arg } { global radiochans; listener $nick }
proc pub_listener { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]$
proc wish { nick arg } {
if {$arg == ""} { putserv "notice $nick :^C0,4İsteğinizi belirtmeyi unuttunuz."; return 0}
global streamip streamport streampass
putlog "shoutcast: $nick wants to hear: $arg"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
putserv "privmsg $djnick :(WISH) - $nick - $arg"
} else {
putserv "notice $nick :sorry radio is currently offline" }
}}
proc msg_wish { nick uhost hand arg } { global radiochans; wish $nick $arg }
proc pub_wish { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !=$
proc sclastsongs { target } {
global streamip streamport streampass
putlog "shoutcast: $target requested songhistory"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set songs [string range $bl [string first "<TITLE>" $bl] [expr [string last "</TITLE>" $bl] + 7]]
regsub -all "<" $songs "<" songs
regsub -all ">" $songs ">" songs
regsub -all "&" $songs "+" songs
regsub -all """ $songs "\"" songs
regsub -all "'" $songs "'" songs
regsub -all "ÿ" $songs "" songs
regsub -all "<TITLE>" $songs "(" songs
regsub -all "</TITLE>" $songs ")" songs
regsub -all "<SONG>" $songs "" songs
regsub -all "</SONG>" $songs " - " songs
regsub -all "<PLAYEDAT>" $songs "" songs
regsub -all "</PLAYEDAT>" $songs "" songs
regsub -all {\d} $songs "" songs
}}
putserv "notice $target :$songs"
}}
proc msg_lastsongs { nick uhost hand arg } { global radiochans; sclastsongs $nick }
proc pub_lastsongs { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan$
proc scstream { target } {
global streamip streamport streamtext
putlog "shoutcast: streaminfo requested by $target"
putserv "notice $target :$streamtext"
}
proc msg_stream { nick uhost hand arg } { global radiochans; scstream $nick }
proc pub_stream { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] $
proc scgreet { nick arg } {
if {$arg == ""} { putserv "notice $nick :^C0,4Mesajı eklemeyi unuttunuz."; return 0}
global dj streamip streamport streampass
putlog "shoutcast: $nick greets fly out to: $arg"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if { $streamstatus == "1" } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
putserv "privmsg $djnick :(GREET) - $nick - $arg"
} else {
putserv "notice $nick :sorry radio is currently offline" }
}}
proc msg_greet { nick uhost hand arg } { global radiochans; scgreet $nick $arg }
proc pub_greet { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !$
proc msg_setdj { nick uhost hand arg } { global radiochans; setdj $nick $arg }
proc pub_setdj { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] !$
proc djnickchange { oldnick uhost hand chan newnick } {
set temp [open "djnick" r]
set djnick [gets $temp]
close $temp
if {$oldnick == $djnick} {
putlog "shoutcast: dj nickchange $oldnick -> $newnick"
set temp [open "djnick" w+]
puts $temp $newnick
close $temp
}}
proc dj { target } {
global streamip streamport streampass
putlog "shoutcast: $target asked for dj info"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
}}
if {$streamstatus == 1} {
if {[file exists dj]} {
set temp [open "dj" r]
set dj [gets $temp]
close $temp
putserv "notice $target :$dj is at the turntables!"
} else { putserv "notice $target : ^C0,7 Radyo7BitirdiFM Şu Anki Dj'
^C2$stitle$sgenre " }
} else {
putserv "notice $target :sorry radio is currently offline"
}
close $sock
}}
proc msg_dj { nick uhost hand arg } { global radiochans; dj $nick"}
proc pub_dj { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] != -$
proc scstat {target} {
global streamip streamport streampass
putlog "shoutcast: $target asked for serverstats"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
set repl [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]
set curhigh [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]
set maxl [string range $bl [shrink + 14 "<MAXLISTENERS>" 0 $bl] [shrink - 1 "</MAXLISTENERS>" 0 $bl]]
set bitrate [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
if {$sgenre != ""} {set sgenre " ($sgenre)"}
set avgtime [string range $bl [shrink + 13 "<AVERAGETIME>" 0 $bl] [shrink - 1 "</AVERAGETIME>" 0 $bl]]
set irc [string range $bl [shrink + 5 "<IRC>" 0 $bl] [shrink - 1 "</IRC>" 0 $bl]]
set icq [string range $bl [shrink + 5 "<ICQ>" 0 $bl] [shrink - 1 "</ICQ>" 0 $bl]]
if {$icq == 0} { set icq "N/A" }
set aim [string range $bl [shrink + 5 "<AIM>" 0 $bl] [shrink - 1 "</AIM>" 0 $bl]]
set webhits [string range $bl [shrink + 9 "<WEBHITS>" 0 $bl] [shrink - 1 "</WEBHITS>" 0 $bl]]
set streamhits [string range $bl [shrink + 12 "<STREAMHITS>" 0 $bl] [shrink - 1 "</STREAMHITS>" 0 $bl]]
set version [string range $bl [shrink + 9 "<VERSION>" 0 $bl] [shrink - 1 "</VERSION>" 0 $bl]]
if {$streamstatus == 1} {
if {[file exists dj]} {
set temp [open "dj" r]
set dj [gets $temp]
close $temp
} else { set dj "none" }
putserv "notice $target :^C11,1$stitle$sgenre ^C0,2şu anda yayında. Sitemizi Her zaman Ziyaret edin : ^C0,12 www.7Bitirdi.Com (http://www.7bitirdi.com/) "
} else {
putserv "notice $target :^C11,1Şuanda $stitle$sgenre Online değil.." }
putserv "notice $target :^C9,1Şu An Yayınımızı Dinleyen Kişi Sayısı^C8,1 $repl "
putserv "notice $target :^C0,12Ortalama dinlenme süresi^C0,4 $avgtime ^C0,12 saniye."
putserv "notice $target :^C8,1http://89.149.195.252:8082/listen.pls "
}}
close $sock
}}
proc msg_scstat { nick uhost hand arg } { global radiochans; scstat $nick}
proc pub_scstat { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]] $
proc playing {target} {
global streamip streamport streampass
putlog "shoutcast: $target asked for current song"
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0 } else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]
set songtitle [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]
set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]]
if {$songurl != ""} { set songurl " ($songurl)"}
regsub -all "<" $songtitle "<" songtitle
regsub -all ">" $songtitle ">" songtitle
regsub -all "&" $songtitle "+" songtitle
regsub -all """ $songtitle "\"" songtitle
regsub -all "'" $songtitle "'" songtitle
regsub -all "ÿ" $songtitle "" songtitle
if {$streamstatus == 1} {
putserv "notice $target :^C0,12Çalan Parça $songtitle$songurl ^C0,4 Dj $stitle$sgenre "
} else {
putserv "notice $target :server is currently offline, sorry"
}}}
close $sock
}}
proc msg_playing { nick uhost hand arg } { global radiochans; playing $nick}
proc pub_playing { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans] [string tolower $chan]]$
proc isonline { nick uhost hand chan arg } {
global radiochans announce tellusers tellsongs tellbitrate urltopic
global offlinetext offlinetopic onlinetext onlinetopic
global streamip streampass streamport
if {$announce == 1 || $tellsongs == 1 || $tellusers == 1 || $tellbitrate == 1} {
set isonlinefile "isonline"
set oldisonline "isonline: 0"
set oldcurlist "curlist: 0"
set oldcurhigh "curhigh: 0"
set oldsong "cursong: 0"
set oldbitrate "bitrate: 0"
if {[file exists $isonlinefile]} {
putlog "shoutcast: checking if stream is online"
set temp [open "isonline" r]
while {[eof $temp] != 1} {
set zeile [gets $temp]
if {[string first "isonline:" $zeile] != -1 } { set oldisonline $zeile }
if {[string first "curlist:" $zeile] != -1 } { set oldcurlist $zeile }
if {[string first "curhigh:" $zeile] != -1 } { set oldcurhigh $zeile }
if {[string first "cursong:" $zeile] != -1 } { set oldsong $zeile }
if {[string first "bitrate:" $zeile] != -1 } { set oldbitrate $zeile }
}
close $temp
}
if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
putlog "error: $sockerror"
return 0} else {
puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
puts $sock "Host: $streamip"
puts $sock "Connection: close"
puts $sock ""
flush $sock
while {[eof $sock] != 1} {
set bl [gets $sock]
if { [string first "standalone" $bl] != -1 } {
set streamstatus "isonline: [string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"
set repl "curlist: [string range $bl [shrink + 19 "<REPORTEDLISTENERS>" 0 $bl] [shrink - 1 "</REPORTEDLISTENERS>" 0 $bl]]"
set curhigh "curhigh: [string range $bl [shrink + 15 "<PEAKLISTENERS>" 0 $bl] [shrink - 1 "</PEAKLISTENERS>" 0 $bl]]"
set currentl [string range $bl [shrink + 18 "<CURRENTLISTENERS>" 0 $bl] [shrink - 1 "</CURRENTLISTENERS>" 0 $bl]]
set surl "serverurl: [string range $bl [shrink + 11 "<SERVERURL>" 0 $bl] [shrink - 1 "</SERVERURL>" 0 $bl]]"
set cursong "cursong: [string range $bl [shrink + 11 "<SONGTITLE" 0 $bl] [shrink - 1 "</SONGTITLE>" 0 $bl]]"
set songurl [string range $bl [shrink + 9 "<SONGURL>" 0 $bl] [shrink - 1 "</SONGURL>" 0 $bl]]
set bitrate "bitrate: [string range $bl [shrink + 9 "<BITRATE>" 0 $bl] [shrink - 1 "</BITRATE>" 0 $bl]]"
set stitle [string range $bl [shrink + 13 "<SERVERTITLE>" 0 $bl] [shrink - 1 "</SERVERTITLE>" 0 $bl]]
set sgenre [string range $bl [shrink + 13 "<SERVERGENRE>" 0 $bl] [shrink - 1 "</SERVERGENRE>" 0 $bl]]
}}
close $sock
}
set temp [open "isonline" w+]
puts $temp "$streamstatus\n$repl\n$curhigh\n$cursong\n$bitrate"
close $temp
if {$announce == 1 } {
if {$streamstatus == "isonline: 0" && $oldisonline == "isonline: 1"} {
poststuff privmsg $offlinetext
if {$urltopic == 1} { poststuff topic $offlinetopic }
}
if {$streamstatus == "isonline: 1" && $oldisonline == "isonline: 0" } {
if {$sgenre != ""} {
set sgenre " ($sgenre)"
}
poststuff privmsg "^C0,4Radyo Url Adresimiz : ^C0,12 http://www.7bitirdi.com:8082/listen.pls "
if {$urltopic == 1} { poststuff topic "^C9,4*^C8,4*^C11,4*^C0,4Radyo Url Adresimiz ^C12,4=^C9,4>^C11,4>^C0,4> ^C0,12 http://89.149.195.252:8$ (http://89.149.195.252:8$/)
}}
if {($tellusers == 1) && ($streamstatus == "isonline: 1") && ($oldcurhigh != "curhigh: 0") } {
if {$oldcurhigh != $curhigh} {
poststuff privmsg "^C11,1Yeni dinleyici sayısı : [lindex $curhigh 1]"
}
if {$oldcurlist != $repl} {
poststuff privmsg "^C0,12Şu An Yayınımızı Dinleyen Kişi Sayısı ^C0,4 $repl "
}}
if {($tellsongs == 1) && ($oldsong != $cursong) && ($streamstatus == "isonline: 1") } {
if {$songurl != ""} { set songurl " ($songurl)"}
regsub -all "<" $cursong "<" cursong
regsub -all ">" $cursong ">" cursong
regsub -all "&" $cursong "+" cursong
regsub -all """ $cursong "\"" cursong
regsub -all "'" $cursong "'" cursong
regsub -all "ÿ" $cursong "" cursong
poststuff privmsg "^C0,12*^C11,12Ç^C0,12a^C11,12L^C0,12a^C11,12n ^C11,12P^C0,12a^C11,12r^C0,12ç^C11,12a ^C4,12: ^C11,1 [lrange $cursong 1 [$
}
if {($tellbitrate == 1) && ($oldbitrate != $bitrate) && ($streamstatus == "isonline: 1") && ($oldbitrate != "bitrate: 0")} {
poststuff privmsg "bitrate switched to [lindex $bitrate 1]kbps"
}}}
proc join_greet {nick uhost handle channel} {
putserv "NOTICE $nick :^C0,2 89.149.195.252 ^C0,2 ^O ^O^C0,2 Radyo Istasyonuna Hoş Geldiniz."
putserv "NOTICE $nick :^C0,3Radyo Dinlemek İçin : ^C0,7 http://89.149.195.252:8082/listen.pls "
#putserv "privmsg $nick : ^C0,2Dj ' Lerimiz ^C4: "
#putserv "privmsg $nick : ^C0,2Kayhan ^C0,4ve ^C0,2Yavuz ^C0,7 Talk Showcularımız . "
#putserv "privmsg $nick : ^C0,2MafLa "
#putserv "privmsg $nick : ^C0,4MaHiR "
#putserv "privmsg $nick : ^C0,4 "
#putserv "privmsg $nick : ^C0,4MaHiR "
#putserv "privmsg $nick : ^C0,4MaHiR "
}
bind join - * join_greet
putlog "##############################################"
putlog "# ILERITURK.NET #"
putlog "# Düzenleyen: Ahmet #"
putlog "# Email CRDestek@ILERITURK.NET #"
putlog "# Web: www.ILERTURK.NET (http://www.ilerturk.net/) #"
putlog "##############################################"
Radyo için Eklenti !istek !yes !no
#gerekli bindler
bind pub - !yes yes
bind pub - !no no
bind pub - !istek istek
bind evnt - init-server baglan_yap
#Gerekli degiskenler
set inick "iSTeK"
set ipass "botcuka"
#ELLEMEYIN (Siz Bİlirsiniz)
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum "
}
proc yes {n u h c a} {
set kanal [lindex $a 0]
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc no {n u h c a} {
set kanal [lindex $a 0]
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}
proc istek {n u h c a} {
set kanal [lindex $a]
putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal"
putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
}
İstek İçin Conf Biraz Farklı Oluyo Bir Ekleme Yapmanız Lazım. Veya Ayrı Bir Conflada Sokabilirsiniz.
channel add #Radyo {
chanmode "+nrt"
idle-kick 0
}
yazan yerin altina
channel add #DJ {
chanmode "+nrt"
idle-kick 0
}
Şiir TCL Si !soz Yazarak Kanala Şiir Yazdırabilirsiniz.
set soz {
" gidiyorum uzaklara bilinmez diyarlara seni bırakıp gitmek var ya o koyuyor bana ben senle olamadım gençliğime doyamadım ben senle kalamadım günlerimi sayamadım ölümde var sonunda gülümde var dağların arkasında yağar yar."
"gecemidir insanı hüzünlendiren yoksa insan mıdır hüzünlenmek icin geceyi bekleyen. gecemidir senin bana düsündüren yoksa benmiyim seni düsünmek icin geceyi bekleyen??"
"bu gece pencereni açık bırak uzaklardan kuş uçurdum biraz yorgun biraz ıslak ama yinede başucuna bir tutam sevgi bırakacak almayı unutma...."
"geceleri uzaklara cıglık olur sesim,denizden cıkan yosun kokusundan keskin sana olan özlemim, bu gece senin icin kapanacak gözlerim iyi geceler herseyim."
"Sen Tanrıya dilenen dilek, göklere uzanan ellerimsin. Sen gözümden süzülen yas, tek düşüncem, hasretimsin. Sen yaşadığım ömür, en güzel günlerimsin."
"Aşk, gülü dikeniyle avuçlamaya benzer. Ellerin kan içinde kalır ama dikenlerinden hesabini, gülden soramazsın."
"O kadar güzelsin ki yüzüne bakamıyorum. Titriyor ellerim, ellerini tutamıyorum. Dolanıp sarmak geliyor saramıyorum. Öylesine bağlanmışım ki sensiz duramıyorum."
"Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim,özlenen her şeye dedi,benimde aklıma sen geldin;çünkü buralarda özlendin,Ilık bir rüzgâr esti buradan,nerden geldiğini bilemedim,Nereye gidiyorsun dedim,"
"Duanla Yaşamadımki Bedduanla Öleyim."
"Hayat, silgisiz resim çizme sanatıdır."
"sahilde oturup denize bakan,Yakasız gömleğe kıravat takan, Ağzındaki sigarayı tersten yakan, Bir sevdalı görürsen hatırla beni.!"
"ne yıldızlar istiyorum gece yarılarıma ,ne güneşi istiyorumkaranlıklarıma,yalnız seni istiyorum yalnızlığıma..."
"Birgün Hayat Dedikleri Şeyi Merak edersen Unutmaki Hayat Hayatım Diyebilecegin İnsanı Bulunca Baslar.Benim içinde Hayat Seninle Başlıyor"
"Dostluk,gereğince tanımlanamazlardandır ve ancak yasamakla anlaşılır. Bu yüzden dostluk şiir gibi aşk gibi anlatılmaz yasanır."
"Ölmekten korkmuyorum seni milyonlarca yağmur damlasıyla paylaşmatan korkuyorum çiçek olup açmandan değil seni bir gün gelip koparmalarından korkuyorum."
"yarınlar umudumdu benim bugünlere düşmandım, yarınımdım sen benim bugünüm olamazdın ,yarınlar hic gelmedi,ben hep bu gunlerde kaldım."
"TOK OLAN CÜMLE CİHANI TOK SANIR , AÇ OLAN ALEMDE EKMEK YOK SANIR."
"Kader beyaz kağıta sütle yazılmış yazı, elindeyse sıyır beyazdan beyazı. Tanrımdan umuyorum ki seni kaderime yazmış olsun."
"Sevenler sevilmediklerini bilseler bile sevdiklerini unutmazlar.."
"ben seni unutmak için sevseydim sana olan askimi kalbime degil günes dogdugu zaman kaybolan bugulu camlara yazardim."
"size dün tanistigim dört arladastan bahsedecegim isimleri biri herkez hangisi ve kimse konu dostluk biri sordu herkezle dost olurmu herkez hangisi dost oldumuki bende dost olayim hangisi üzülür kimse yoktuki der kimse sessiz kimse buruk kimse saskin çünkü o hiç kimse deyildiki ben isie bir and aldim yildizlari seyire ve sonra bir yildiz kaydi bende düstüm yer yüzüne anladim hiç birimiz hiç kimse deyilmisiz eger allaha kul olmayi beceremiyorsak."
"bagrimda bir ates var ne bileceksin ölsemde ne duyacak ne göreceksin hep seninle yasadi öldü deseler belki biraz üzülüp kim diyeceksin!!"
"50-60 yillik dunyayi neyleyim versen bana sadece ilim irfan gerisi zaten hep yalan."
"Ben yamaçtan ineyim Yol senin olsun. Ben zehir içeyim Su senin olsun. Duydum ki, Bir sevgili bulmussun, Hayirli olsun Bir tanede ben buldum Haberin olsun."
"Mademki sen yoksun yanimda leylaklar dökülüp güller aglasin."
"Yasadiklarimdan pisman degilim Öfkem Yasayamadiklarimdandir."
"bir gün sende seveceksin sevene zulum etmenin cezasini cekeceksin .iste o zaman ben gelirim aklina ama ayni anda sende benim kalbimde öleceksin"
"beni sensiz biraktigin gun geliyor aklima , dusunuyorumda cok aci cekmistim , ama su anda dahada cok cekiyorum ama biliyorumki sen bu aciya hicbir zaman degmedin beni hic bir zaman sevmedin sen sevsende sevmesende ben seni sevdim hepde öyle kalacak."
"sen benzer diye kücük cicekleri öptügümsün,sen yoklugunu uzun yillara gömdügümsün,sen bir türlü cözemedigim kördügüm,sen sevipde koklayamadigim GÜLÜMSÜN!!"
"GÜN GELİRSE ELLERİN ELLERİMDEN AYRILIRSA BİR YABANCI GİBİ SÖZ SÖYLERSE DİLLERİN BENİ GÖRÜPTE GÖRMEZDEN GELİRSE GÖZLERİN ECEL GEREKMEZ BEN O ZAMAN ÖLÜRÜM GÜLÜM."
"Biz yıkılmaz sevgilerin sarsılmaz yaşlarıyız.yüreğimizde sevda yazar anlımızda bela biz delice sevmeyi biliriz.Ama sevdiğimizi unutmayı asla."
"AŞK, KÖLE OLMAYACAK KADAR ÖZGÜR, ULAŞILAMAYACAK KADAR DERİN, KAÇAMAYACAK KADAR YAKIN, SENİNLE YAŞANACAK KADAR GÜZELDİR."
"Güzel insan O dur ki kaderden gelen lütfa sevinmez kahra incinmez."
"SENI SEVDIGIMI SANA DAHA NASIL ANLATAYIM. ÖLMEK GEREKİRSE ÖLÜRÜM AMA SENIN BENI SEVDIGINI BILIRSEM."
"HER HAKSIZ ELEŞTİRİNİN ALTINDA GİZLİ BİR HAYRANLIK YATAR."
"KAVUŞMAK ÖLÜMSE HASRETİN ZULÜM.ELBETTE KAVUŞURUZ BEKLE GÜLÜM TEK SANA AİTTİR ŞU GÖNLÜM BEN YOLUMU SEÇTİM YA SEN YA ÖLÜM."
"En büyük felaketler dahi içinde ümidini kaybetme,unutmaki, en yumusak ilik en sert kemigin içinden çikar, gülmek senin için bir tutku olsun.Olurda bir gün aglarsan o da mutluluktan olsun."
"Yüregimizde ates,gözlerimizde sevgi, ellerimizde umutla bütün kötülüklere inat, gülümseyerek yasiyoruz.Her insan bir yasam, unutma! sen de bir yasamsin."
"Gönlüne düserse bir imkansiz ask, kacarken vurulmus ceylan gibi yüregin, aglarsin. Irmak olur gözyaslarin bosa, kendini taniyamazsin. Asiksan yarimsin ..., yikamam kumdan kalemi, aldatamam kendimi, acamam mühürlü kalbimi, anlatamam derdimi."
"KIZIL GÜNAHLAR KALDI SENDEN GERIYE,VEBALI AGIR YASANMISLARIN.MAVI SEVDALAR TÜKENDI ARTIK..NE SEN KALDIN NE DE HAYALIN PENCEREMDE."
"YAGMUR GORURSEN GOZLERIMI HATIRLA SARI YAPRAK GORURSEN KALBIMI HATIRLA ACI TEBESSUM GORURSEN DUDAKLARIMI HATIRLA ELLER USTUNDE BIR TABUT GORURSEN BENI HATIRLA."
"KALBIMI YERINDEN SOKUP, BIR ZARFA KOYUP GONDERIYORUM SANA. ZARFI ACINCA SASIRMA! CUNKU HERYERINDE BIRTEK KENDINI GORECEKSIN. VE ANLAYACAKSIN SENI SEVMENIN NE DEMEK OLDUGUNU."
"Yillar vardir nasil geçtigini bilmezdim bir gün vardir yasamin anlamini degistirdi bana dair hissetmedigimi bilmedigimi yasatti iste o ani senle yasadim senle sevdim."
"Birgün senden ayrilacagim biryana yalniz kalacagim hiç aklima gelmemisti. ve birde birgün umudum olmayinca yarina,bugünü yasiyormuyum anlayamadim."
"Hayatta yasamanin 2 yolu vardir 1.Hiçbirseyin mucize olmadigini düsünmek 2.Herseyin bir mucize oldugunu düsünmek."
"Hayat Güzeldir Ama Acilari Olsada, Güller GÜzeldir Ama Dikenleri Olsada, Insanlar Güzeldir Ama yalanlari Olsada, Ask Güzeldir Ama Sevipte Ayrilik Olmasa."
"Ask, insanin kendisine yapabilecegi en büyük iskencedir.."
"dostum var diye gezerdim ne zaman yikilacak gibi oldumsa dostlarima giderdim ama bugun yine agliyorum ve anladimki gercek dostlarim ben aglarken guluyormus YAZIK BE DOSTLUK OLMUS."
"BiR AşKı PaYLaŞMaK İçiN ÇoK GeÇ irPaYLaŞıMa aşıK OLMaK İçinSe ErKeN YiNe SeVDa YeRiMDeN VuRDu ZaMaNŞiMDi SaNa SÖYLeNeCeK TeK CüMLe BeNDe SaNa YeTeCeK KADaR BEN KaLMaDı."
"ŞaiR ßenSem ŞiiRim SenSiN AşıK ßenSem aŞkım SenSiN SarhoŞ ßenSem ŞaRaßım SenSiN DeLi ßenSem ZinCiRim SenSiN ßen HaLa YaŞıYoRSam Seßebi SenSiN.."
"Gördüğüm en güzel rüya senin olduğun,Duyduğum en derin sevgi senin eserin, Gördüğüm en güzel dünya senin gözlerin,Ve kurduğum en güzel hayal sensin"
"Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?"
"Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!"
"Sana doğru bir kelebek uçurdum, dağları denizleri aştı seni buldu, yanağına ufacık bir öpücük kondurdu. Hissettin mi?"
"Ağzımdan çıkacak söz olsan konuşmam, gözümden akacak yaş olsan ağlamam, kalbime hapsettim seni hiçbir yere bırakmam!"
"Bir insanı sevmek onunla yaşlanmayı kabul etmek demektir benim için. Ben seni seviyorum ve bir ömür boyu seninle olmak istiyorum."
"Seni yıldızlara benzetiyorum onlar kadar uzak onlar kadar erişilmezsin ama bir farkın var onlar bin tane sen bir tanesin."
"Hayallere dalıp gitmem ben, Çünkü tek hayalim sensin benim! Hiçbirşey isteyemem benÇünkü birtek istediğim sensin benim."
"Bir an buruk bir acı saplanırsa yüreğine,gözlerin zamansız takılırsa,kulakların zamansız deli gibi çınlarsabil ki bir yerlerde özlemişsindir"
"Sen benim gözlerimde saf bir gerçek,Yüreğime bahar getiren bir çiçeksin.Sen bedenimdeki yumuşak kudret,Gönül bahçemde uçuşan bir kelebeksin.."
"Sevgilerin en güzeli seni sevmek, Özlemlerin en güzeli seni özlemek, Ve hayatın tadı sabah kalktığımda, Senin varolduğunu bilmek... "
"Bırakma beni sevdiğim gidişine dayanamam,Hasret gözyaşlarımla kendimi avutamam,Dönerim dersin ama kadere inanamam,Bıraktığın anılarla sensiz yaşayamam... "
"Sahiller dalgayı nasıl beklerse, Gökyüzü mehtabı nasıl özlerse, Kuru topraklar suya nasıl hasretse, Sende benim hasretimsin..."
"Aşkınla sararıp solacak kadar,Sevginle bahtiyar olacak kadar Uğruna canımı verecek kadar seviyorum desem inanırmısın ?"
"Yanağına düşen kar tanesi eriyip dudaklarına indiğinde ve o bir damla serinliği biriyle paylaşmak istediğinde yüzünü rüzgara dön, ordayım!"
"Bir yağmur damlası seni seviyorum anlamı taşısaydı ve sen bana seni ne kadar sevdiğimi soracak olsaydın, inan ki birtanem her gün yağmur yağardı."
"Seni asil insanların basit sevgileriyle değil, basit insanların asil sevgileriyle sevdim. Bu güzel aşkımıza nokta koyma, sana kucak dolusu virgül getirdim?"
"Bütün mevsimleri bir günde, bütün yılları bir mevsimde yaşamaya razıyım seninle... Bir tutam sevinç, bir tutam umut ve bir tutam mutluluk gönderiyorum sana."
"Beyaz bir güvercin yolluyorum sana; kanatlarında mutluluk, yüreğinde sevgi ve sadakat, karbeyaz tüylerinde umut ve gagasında iyi geceler öpücüğü, yanağını uzat."
"Seni bulmaktan çok aramak isterim! Seni sevmeden önce anlamak isterim! Seni bir ömür boyu bitirmek değil de sana hep yeniden başlamak isterim."
"Bir gül olmak isterdim! Neden mi? Beni koparıp kokladığında vücudunun derinliklerine girip bir daha oradan çıkmamak için?"
"Bizi anlatan şiirler yazılmadı henüz.Çünkü biz dünyanın oyununda,hayatın acımasızlığında ve de sevdiklerimizin baygın bakışlarında unutulduk.."}
# !!!!!!!!! Ayarlamalar Bitti !!!!!!!!!!!!
bind pub - !soz tell_that
proc tell_that {nick uhost hand chan $rand} {
global soz
putserv "privmsg #Siir 4 $nick 2 Güzel Söz isteğiniz : 2|7 [lindex $soz [rand [llength $soz]]] 2| ..::ILERITURK.NET::.."
}
Merlin.tcl Soru Botu Bonuslu.
http://irc.gevezechat.com/CR/merlin2.rar
Merlin.tcl için Soru Bankası.
http://irc.gevezechat.com/CR/banka.rar
IRC Yardım Kanalınız İçin Bot
#Yardim Botu Edit By Ahmet
bind join - * join_selam
bind pub - yardim pub_help
bind msgm - help pub_help
bind msgm - yardim msg_help
bind msgm - nshelp msg_nshelp
bind msgm - cshelp msg_cshelp
bind msgm - memohelp msg_memohelp
bind msgm - nsregister msg_nsregister
bind msgm - nsidentify msg_nsidentify
bind msgm - nsset msg_nsset
bind msgm - nsghost msg_nsghost
bind msgm - nspassword msg_nspassword
bind msgm - nslanguage msg_nslanguage
bind msgm - nsurl msg_nsurl
bind msgm - nsemail msg_nsemail
bind msgm - nsicqnumber msg_nsicqnumber
bind msgm - nslocation msg_nslocation
bind msgm - nskill msg_nskill
bind msgm - nsprivate msg_nsprivate
bind msgm - nshide msg_nshide
bind msgm - csregister msg_csregister
bind msgm - csidentify msg_csidentify
bind msgm - csset msg_csset
bind msgm - csaccess msg_csaccess
bind msgm - cslevel msg_cslevel
bind pub - selam msg_selam
proc join_selam {nick uhost handle chan} {
if {$chan == "#help"} {
putserv "NOTICE $nick :$nick xxxxx Networkunun Resmi Yardim Kanalina Hos geldiniz."
putserv "NOTICE $nick :Ben size, yardima ihtiyaciniz olan konularda yardim edecek sekilde programlanmis bir Help Botum."
putserv "NOTICE $nick :Eger benim yardimlarim sizlere yeterli olmazsa. www.ileriturk.net (http://www.ileriturk.net/) adresinden gerekli bilgileri alabilirsiniz"
putserv "NOTICE $nick :Simdi yardim almak icin lutfen ozelime 4yardim yaziniz."
putserv "NOTICE $nick :Lutfen /remote off yapmayi unutmayiniz."
}
return 1
}
proc msg_help { nick uhost handle text } {
putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"
putserv "PRIVMSG $nick :1.) Nickserv Komutlari konusunda yardim almak icin: ( nshelp )"
putserv "PRIVMSG $nick :2.) Chanserv Komutlari konusunda yardim almak icin: ( cshelp )"
putserv "PRIVMSG $nick :3.) Memoserv Komutlari konusunda yardim almak icin: ( memohelp )" }
proc msg_nshelp { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick Sifreleme ( nsregister )"
putserv "PRIVMSG $nick :Nick Identify ( nsidentify )"
putserv "PRIVMSG $nick :Nick Droplama ( nsdrop )"
putserv "PRIVMSG $nick :Nick Set Ayarlari ( nsset )"
putserv "PRIVMSG $nick :Nickiniz Kullanimda ise ( nsghost )" }
proc msg_nsregister { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi Sifrelemek icin lutfen asagidaki komutu yaziniz."
putserv "PRIVMSG $nick :( /ns register sifreniz email_adresiniz )"
putserv "PRIVMSG $nick :Mail Adresinizi Kesinlikle Dogru vermelisniz Aksi Taktirde Kaybedilen Nick Sifreleri uzerinde hak iddia edemezsiniz." }
proc msg_nsidentify { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi ident ederken kullanmaniz gereken komut asagidaki gibidir."
putserv "PRIVMSG $nick :( /ns identify sifreniz )" }
proc msg_nsdrop { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizi droplarken kullanmaniz gereken komut asagidaki gibidir."
putserv "PRIVMSG $nick :( /ns drop )" }
proc msg_nsset { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin ayarlari."
putserv "PRIVMSG $nick :(1) nspassword "
putserv "PRIVMSG $nick :(2) nslanguage "
putserv "PRIVMSG $nick :(3) nsurl "
putserv "PRIVMSG $nick :(4) nsemail "
putserv "PRIVMSG $nick :(5) nsicqnumber "
putserv "PRIVMSG $nick :(6) nslocation "
putserv "PRIVMSG $nick :(7) nskill "
putserv "PRIVMSG $nick :(8) nsprivate "
putserv "PRIVMSG $nick :(9) nshide "
}
proc msg_nsghost { nick uhost handle text } {
putserv "PRIVMSG $nick :Servere girdiginizde nickiniz kullanimda uyarisi verirse"
putserv "PRIVMSG $nick :Asagidaki komutla Nickinizi kullanabilirsiniz."
putserv "PRIVMSG $nick :( /ns ghost nickiniz sifreniz )" }
proc msg_nspassword { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick sifresini degistirmek icin kullanilir."
putserv "PRIVMSG $nick :( /ns set password yenisifre )" }
proc msg_nslanguage { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickservin dilini degistirmeye yarar."
putserv "PRIVMSG $nick :( /ns set language dilno )"
putserv "PRIVMSG $nick :Dil No: 1 ingilizce "
putserv "PRIVMSG $nick :Dil No: 2 Portekizce "
putserv "PRIVMSG $nick :Dil No: 3 Turkce "
putserv "PRIVMSG $nick :Dil No: 4 Almanca "
}
proc msg_nsurl { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin bagli oldugu url yi belirtmenizi saglar."
putserv "PRIVMSG $nick :( /ns set url Adres )" }
proc msg_nsemail { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin sifresinin size gonderilecegi mail adresini yazmanizi saglar."
putserv "PRIVMSG $nick :( /ns set email mail@adresiniz.com )" }
proc msg_nsicqnumber { nick uhost handle text } {
putserv "PRIVMSG $nick :Kullanmakta oldugunuz icq numarasinin info da gozukmesini saglar."
putserv "PRIVMSG $nick :( /ns set icqnumber #icq_no )" }
proc msg_nslocation { nick uhost handle text } {
putserv "PRIVMSG $nick :Bulundugunuz bolgeyi belirtmenizi saglar."
putserv "PRIVMSG $nick :( /ns set location bulundugunuz_yer )"
}
proc msg_nskill { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin sifre sormasi icin gereken komut. "
putserv "PRIVMSG $nick :( /ns set kill On/OFF )"
putserv "PRIVMSG $nick :On: sifrenin girilmesi icin 60 sn sure tanir."
putserv "PRIVMSG $nick :Off: Sifre korumasini kapatir."
}
proc msg_nsprivate { nick uhost handle text } {
putserv "PRIVMSG $nick :Nickinizin Listede gozukmesini onler."
putserv "PRIVMSG $nick :( /ns set private On/Off )"
putserv "PRIVMSG $nick :On: Gorunmez."
putserv "PRIVMSG $nick :Off: Gorunur."
}
proc msg_nshide { nick uhost handle text } {
putserv "PRIVMSG $nick :Nick bilgilerinizin bir kisminin INFO da gozukmesini engeller"
putserv "PRIVMSG $nick :( /ns set hide On/Off )"
putserv "PRIVMSG $nick :On: Gorunmez."
putserv "PRIVMSG $nick :Off: Gorunur."
}
proc msg_cshelp { nick uhost handle text } {
putserv "PRIVMSG $nick :Kendi Kanalinizi Kaydetmek icin ( csregister )"
putserv "PRIVMSG $nick :Kanalinizin sifresini girmek icin ( csidentify )"
putserv "PRIVMSG $nick :Kanal Ayarlari icin ( csset )"
putserv "PRIVMSG $nick :Access islemleri icin ( csaccess )"
putserv "PRIVMSG $nick :Level ayarlari icin ( cslevel )" }
proc msg_csregister { nick uhost handle text } {
putserv "PRIVMSG $nick :Kanal kaydetmekte kullanilan komut asagidaki gibidir."
putserv "PRIVMSG $nick :Fakat bu kanal daha once kayit edilmemis olmasi gerekmektedir."
putserv "PRIVMSG $nick :( /cs register #kanal sifre aciklama )"
putserv "PRIVMSG $nick :Aciklama yerine herhangi bir sey yazabilirsiniz." }
proc msg_csidentify { nick uhost handle text } {
putserv "PRIVMSG $nick :Kanal DeSifre Etmekte kullanilan komut asagidaki gibidir."
putserv "PRIVMSG $nick :Fakat bu kanalin daha once kayit edilmisolmasi gerekmektedir."
putserv "PRIVMSG $nick :( /cs identify #kanal sifre )" }
proc msg_csset { nick uhost handle text } {
putserv "PRIVMSG $nick :Chanserv Set komutlari Kanallarinizin Set ayarlarini yapmaniza yardimci olur."
putserv "PRIVMSG $nick :Set Komutlari icin ayrintili bilgiyi."
putserv "PRIVMSG $nick :( /cs help set komutu ile alabilirsiniz. )" }
proc msg_csaccess { nick uhost handle text } {
putserv "PRIVMSG $nick :Access Komutu Bir kisiye sahib yada yetkili oldugunuz kanalda yetki vermeye yarar."
putserv "PRIVMSG $nick :Yetki seviyeleri 1 - 9999 a kadardir."
putserv "PRIVMSG $nick :( /cs access #kanal add Nick Seviye )" }
proc msg_cslevel { nick uhost handle text } {
putserv "PRIVMSG $nick :Level Komutu Kanal yetkililerinin yada sahibinin erisim duzeylerini ayarlamaya yarar."
putserv "PRIVMSG $nick :Daha Ayrintili bilgi icin."
putserv "PRIVMSG $nick :( /cs help level yazarak alabilirsiniz. )" }
proc msg_selam { nick uhost handle chan text } {
putserv "PRIVMSG $nick :Selam $nick . Ben Ahmet’in hazirlamis oldugu yardim botuyum."
putserv "PRIVMSG $nick :#help kanalinda Irc ile ilgili sorunlarinizi cozmek icin bulunmaktayim."
putserv "PRIVMSG $nick :Yardim almak icin ozelime ( yardim ) yazmaniz yeterlidir. Tesekkurler. Iyi Sohbetler." }
#End putlog "Edit By Ahmet"
Kufur.TCL Kanalda Kufur Edenleri Uzaklastırılmak İçin Yazılmıs Bir TCL (Unreal için Ayarlanmıstır CR ye Cevirebilirsiniz)
################################################## ################
## Kufur.tcl - Bu .tcl ILERITURK Network Team Tarafindan ##
## hazirlanmistir. Eger herhangi bir problemle karsilasirsaniz ##
## yada bir oneriniz varsa CRDestek@ILERITURK.NET ##
## adresinden bizlere ##
## Bu yaziyi lutfen burdan kaldirmayiniz.. ##
## ##
## Degisiklikler ##
## * Tamamiyle yeni bir mimari ile tcl en bastan sifirdan yazil ##
## di. Bu sayede bot kufurleri cok daha iyi bir sekilde yakali ##
## yabiliyor. Orn: selam a ban atmazken am a ban atiyor. ##
## * Bot eger oper olarak baglanirsa ban yerine gline atiyor.. ##
## Bu ban unreal a gore ayarlanmistir. ##
## ##
################################################## ####Ahmet####
# Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..! - WwW.ileriturk.Net (http://www.ileriturk.net/)"
# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"
## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"
set opass "operpass"
# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..
set kufurler {
"am"
"got"
"sik*"
"göt*"
"düzerim"
"duzerim"
"sık*"
"sokar*"
"yalarım"
"yalarim"
"*orospu*"
"*orozpu*"
"yarrak*"
"yarak*"
"pic"
"*piç*"
"yarrag"
"hasiktir"
"*siker*"
"*amci*"
"*amcı*"
"*ibne*"
"gotun*"
}
# Bu kadar..!
TCL'ler Coderlerine Ayittir ve Üzerlerinde Oynama Yapılmamıştır. Hiç Biri Kendi Codem Degildir. Coderlerine Teşekkür Eder İyi CaLısmalar Dilerim...
Yapamayan Arkadaslar Olursa MSN'den Yardım Edebilirim
MSN : CRDestek@ILERITURK.NET