‘Eggdrop’ kategorisi için Arşiv

chanlimit tcl

Cumartesi, 09 Mayıs 2009

#~~~~~~~~~~~~~~~~~~~~~~~~~
# Kanal Giriş Limiti Ayarlanması
# Copyright © iRC Mirckeyfi.net 2009
#~~~~~~~~~~~~~~~~~~~~~~~~~~
#~~~~~~~~~~~~~~~~~~~~~~~~~~
# Binds
#~~~~~~~~~~~~~~~~~~~~~~~~~~
bind time – “* * * * *” time:ChanLimit

#~~~~~~~~~~~~~~~~~~~~~~~~~~~
# time:ChanLimit start
#~~~~~~~~~~~~~~~~~~~~~~~~~~~
proc time:ChanLimit {min hour day month year} {
foreach chan [channels] {
set newlimit [expr [llength [chanlist $chan]] + 5]
set currentlimit [currentlimit $chan]
if {$currentlimit < [expr $newlimit - 1] || $currentlimit > [expr $newlimit + 1]} {
putserv “mode $chan +l $newlimit”
}
}
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# time:ChanLimit end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# currentlimit start
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

proc currentlimit {chan} {
set currentmodes [getchanmode $chan]
if {[string match "*l*" [lindex $currentmodes 0]]} {
return [lindex $currentmodes end]
}
return 0
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# currentlimit end
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# putlog
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

putlog “Loaded ChanLimit – iRC”

相关文章:

中文关键字:

botserv tcl

Cumartesi, 09 Mayıs 2009

### Thanks to C|ty_Hunter, M4rUsCi4, Neiken and all the members of #egghelp for the helpful test.

set ver “1.6″

set csrehash 30
set msgdelay 8
set reasonsfile “scripts/reasons.txt”
set lamahreason “lamer!”
set noexec “Accesso negato. Non e` possibile eseguire comandi kick e ban su utenti della stessa lista o superiore.”

set tmpchans “”
set dynlist “”
set dyntmpchan “”
set tmpnick “”
set gnick “”
set gnuser “”
set gchan “”
set gcmd “”
set timeleft 0
set listinuse 0

set csmask “ChanServ!service@GarantiShell.com”
set liststrig “*list di*”
set xoplist “*) * (*) by *”
set stopcode “*Fine della Lista*”

bind pub – !op giveop
bind pub – !deop takeop
bind pub – !ban buser
bind pub – !kick kickuser
bind pub n !csrehash rehashlists
bind raw – “NOTICE” addoptolist
bind raw – 307 setid

set flood-msg 0

proc checkid {nick} {
putserv “whois $nick”
}

proc setid {from keyword text} {
global gnick gchan gcmd
checkop $gnick $gchan $gcmd
}

proc checklevel {nick channel} {
global tmpchans
foreach tmplevel $tmpchans {
set dynnick [join [lindex [split $tmplevel ":"] 0]]
set dynchan [join [lindex [split $tmplevel ":"] 1]]
set dynlevel [join [lindex [split $tmplevel ":"] 2]]
if {([string tolower $nick] == [string tolower $dynnick]) && ([string tolower $channel] == [string tolower $dynchan])} {
return $dynlevel
}
}
}

proc checkop {nick channel comando} {
global tmpchans gnuser greason noexec
foreach tmpchan $tmpchans {

set dynnick [join [lindex [split $tmpchan ":"] 0]]
set dynchan [join [lindex [split $tmpchan ":"] 1]]
if {([string tolower $gnuser] == [string tolower $dynnick]) && ([string tolower $channel] == [string tolower $dynchan])} {
switch — [string tolower $comando] {
op { putserv “mode $channel +o $nick” }
deop { putserv “mode $channel -o $nick” }
kick { if {[checklevel $gnuser $channel] > [checklevel $nick $channel]} {
putserv “kick $channel $nick :$greason”
} else { putserv “notice $gnuser :$noexec” }
}
ban { if {[checklevel $gnuser $channel] > [checklevel $nick $channel]} {
putserv “mode $channel +b [getchanhost $nick]”
putserv “kick $channel $nick :$greason”
} else { putserv “notice $gnuser :$noexec” }
}
}
}
}
}

proc giveop {nick uhost handle channel text} {
global gcmd gchan gnick gnuser
set gnuser $nick
set gnick $nick
set gchan $channel
set gcmd “op”
checkid $nick
}

proc takeop {nick uhost handle channel text} {
global gcmd gchan gnick gnuser
set gnuser $nick
set gnick $nick
set gchan $channel
set gcmd “deop”
checkid $nick
}

proc buser {nick uhost handle channel text} {
global botnick gcmd gchan gnick gnuser greason lamahreason
set gnuser $nick
set gnick [string tolower [lindex $text 0]]
set gchan $channel
set gcmd “ban”
set greason [join [lrange [split $text] 1 end]]
if {[llength $text] == 1} { set greason [getreason] }
if {[string tolower $gnick] == [string tolower $botnick]} {
putserv “kick $gchan $nick :$lamahreason”
return
}
checkid $nick
}

proc kickuser {nick uhost handle channel text} {
global botnick gcmd gchan gnick gnuser greason lamahreason
set gnuser $nick
set gnick [string tolower [lindex $text 0]]
set gchan $channel
set gcmd “kick”
set greason [join [lrange [split $text] 1 end]]
if {[string tolower [llength $text]] == 1} { set greason [getreason] }
if {[string tolower $gnick] == [string tolower $botnick]} {
putserv “kick $gchan $nick :$lamahreason”
return
}
checkid $nick
}

proc rehashlists {nick uhost handle channel text} {
sendrehash
}

proc getreason {} {
global reasonsfile
set count 0
set file [open $reasonsfile r]
while {![eof $file]} {
set line [gets $file]
set count [expr $count +1]
}
close $file
set count [rand $count]
set file [open $reasonsfile r]
while {$count > 0 && ![eof $file]} {
set line [gets $file]
set count “[expr $count -1]”
}
close $file
return $line
}

proc sendrehash {} {
global tmpchans csrehash
set tmpchans “”
foreach chan [channels] {
checklist aop $chan
}
dccbroadcast “BotServ: Updating CS lists.”
timer $csrehash sendrehash
}

proc checklist {list chan} {
global msgdelay timeleft
set timeleft [expr $timeleft + $msgdelay]
set msgcmd “putserv \”privmsg ChanServ :$list $chan list\”"
utimer $timeleft $msgcmd
}

proc addoptolist {from keyword text} {
global csmask dynlist liststrig xoplist tmpchans dyntmpchan tmpnick stopcode listinuse
regsub -all “\002″ $text “” text
if {[string tolower $from] == [string tolower $csmask]} {

if {[string match [string tolower $liststrig] [string tolower $text]]} {
set dyntmpchan [lindex $text 4]
regsub “:” [lindex $text 1] “” acclevel
switch — [string tolower $acclevel] {
aop { set listinuse 1 }
sop { set listinuse 2 }
co-founder { set listinuse 3 }
}
}
}

if {[string match [string tolower $xoplist] [string tolower $text]]} {
set tmpnick [lindex $text 3]
regsub -all “\002″ $tmpnick “” tmpnick
lappend tmpchans “$tmpnick:$dyntmpchan:$listinuse”
}

if {[string match [string tolower $stopcode] [string tolower $text]]} {
switch — $listinuse {
1 { checklist sop $dyntmpchan }
2 { checklist cf $dyntmpchan }
}
}
}

timer $csrehash sendrehash
putlog “BotServ $ver by Progeny”

相关文章:

中文关键字:

Karşılama tcl

Cumartesi, 09 Mayıs 2009

# TCL Scripts 2oo4 – 2oo7 – GarantiShell.Com

proc join_greet {nick uhost handle channel } {
putserv “NOTICE $nick :2Merhaba 4 $nick ”
putserv “NOTICE $nick :4IRC.SUNUCUNUZ.COM 2Sohbet 2sunucusuna 2hoşgeldiniz.”
putserv “NOTICE $nick :2sunucu 2kurallarina 2ve 2görev 2dagilimina 4/motd 2yazarak 2ulaşabilirsiniz.”
putserv “NOTICE $nick :2Sunucu 2yardim 2kanalımız 4#help , 2sohbet 2kanalımız 4#Sohbet 2Oyun 2kanalımız 4#Oyun , 2Radyo 2kanalı 4#Radyo 2dur.”
putserv “NOTICE $nick :2WeB Chat Adresimiz http://Www.SUNUCUNUZ.COM Adresidir.”
putserv “NOTICE $nick :2Dilek 2ve 2şikayetlerinizi, 4admin@SUNUCUNUZ.COM 2mail 2adresine 2iletebilirsinizniz..”
putserv “NOTICE $nick :2IRC.idealask.net Ailesi 7Sizlere En güzel En Seviyeli Sohbet Ortamı Hazırlar.4 Www.SUNUCUNUZ.COM 2 Irc.SUNUCUNUZ.COM ” }

bind join – * join_greet

相关文章:

中文关键字:

Oyun soruları

Cumartesi, 09 Mayıs 2009
相关文章:

中文关键字:

Güzel söz botu conf

Cumartesi, 09 Mayıs 2009

#===================== LINE NEEDED FOR LOADCONF ====================#
#! /path/to/eggdrop

#======================= GENERAL BOT SETTINGS ======================#
set username “bots”
set admin “OyLesine1isi
set network “SERVERIP”
set timezone “EST”
set offset “5″
set my-hostname “SERVERIP”
set my-ip “SERVERIP”

#==================== GENERAL BOT LGING OPTIONS ==================#
set max-lsize 0
set quick-ls 0
set l-time 1
set keep-all-ls 0
set switch-lfiles-at 300
set quiet-save 0
set console “mkcobxs”

#================ GENERAL BOT FILE/LOCATION SETTINGS ===============#
set userfile “scripts/log/BOTismi.user”
set sort-users 0
set help-path “help/”
set temp-path “/tmp”
set motd “motd”
set telnet-banner “telnet-banner”

#====================== GENERAL BOTNET OPTIONS =====================#
#set botnet-nick “JaneR”
set protect-telnet 0
set dcc-sanitycheck 0
set ident-timeout 5
set require-p 0
set open-telnets 0
set stealth-telnets 0
set use-telnet-banner 0
set connect-timeout 15
set dcc-flood-thr 3
set telnet-flood 5:60
set paranoid-telnet-flood 1
set resolve-timeout 15

#===================== ADVANCED SETTINGS FOR BOT ===================#
#set firewall “proxy:178″
#set nat-ip “127.0.0.1″
#set reserved-port 9076
set ignore-time 0
set hourly-updates 00
set owner “JaneR”
set notify-newusers “$owner”
set default-flags “hp”
set whois-fields “url birthday”
set remote-boots 2
set share-unlinks 1
set die-on-sighup 0
set die-on-sigterm 0
unbind dcc n tcl *dcc:tcl
unbind dcc n set *dcc:set
set must-be-owner 0
unbind dcc n simul *dcc:simul
set max-dcc 50
set dcc-portrange 1024:65535
set enable-simul 1
set allow-dk-cmds 1

#==================== GENERAL BOT MODULE SETTINGS ==================#
set mod-path “modules/”

#==================== GENERAL BOT CHANNEL MODULES ==================#
loadmodule channels

set chanfile “scripts/log/BOTismi.chan”
set ban-time 0
set exempt-time 60
set invite-time 60
# set force-expire 0
set share-greet 0
set use-info 1
set global-flood-chan 5:3
set global-flood-deop 5:10
set global-flood-kick 0:0
set global-flood-join 8:30
set global-flood-ctcp 8:30

set global-chanset {
+clearbans +enforcebans
+dynamicbans +userbans
+autoop -bitch
+greet +nodesynch
+statusl -stopnethack
-revenge -secret
-autovoice +cycle
+dontkickops -wasoptest
-inactive +protectfriends
+shared -seen
+userexempts +dynamicexempts
+userinvites +dynamicinvites
}

channel add #KANAL {
need-op { putserv “MODE #KANAL +o $botnick ” }
chanmode “+nt-m”
idle-kick 0
}
set global-chanmode “”

#==================== GENERAL BOT SERVER MODULES ===================#

loadmodule server
set net-type 0
set nick “BOTismi”
set realname “Eggdrop Bot”
set init-server { putserv “PRIVMSG nickserv :identify sifre”
}

set servers {
SERVERIP:6667
}

set keep-nick 1
set use-ison 1

set strict-host 0

set quiet-reject 1
set lowercase-ctcp 0
set answer-ctcp 3
set flood-msg 0:0
# how many CTCPs in how many seconds?
set flood-ctcp 0:0

set never-give-up 1
set strict-servernames 0

set default-port 6667

set server-cycle-wait 30

set server-timeout 15

set servlimit 0
set check-stoned 1
set use-console-r 0
set debug-output 0
set serverror-quit 1
set max-queue-msg 300
set trigger-on-ignore 0
set double-mode 0
set double-server 0
set double-help 0

#set use-silence 1
#set check-mode-r 1
loadmodule ctcp
set ctcp-mode 0
loadmodule irc
set bounce-bans 1
set bounce-modes 0
set kick-bus-bans 1
set bounce-bus-bans 1
set max-bans 20
set max-modes 30
set allow-desync 0
set kick-bus 0
set ban-bus 0
set kick-fun 0
set ban-fun 0
set learn-users 0
set wait-split 600
set wait-info 180
set mode-buf-length 200
#unbind msg – hello *msg:hello
#bind msg – myword *msg:hello
unbind msg – ident *msg:ident
unbind msg – addhost *msg:addhost
#bind msg – myidentword *msg:ident
set no-chanrec-info 0

set revenge-mode 1

set bounce-exempts 0
set bounce-invites 0
set max-exempts 20
set max-invites 20
set bounce-bus-exempts 0
set kick-bus-exempts 0
set bounce-bus-invites 0
set kick-bus-invites 0
# set use-exempts 0
# set use-invites 0
set prevent-mixing 1
#set kick-method 1
#set modes-per-line 3
#set use-354 0
#set rfc-compliant 1
#loadmodule transfer
set max-dloads 3
set dcc-block 1024
set copy-to-tmp 1
set xfer-timeout 30

#==================== GENERAL BOT SHARE MODULES ====================#
#loadmodule share
#set allow-resync 0
#set resync-time 900
#set private-owner 0
#set private-global 0
#set private-globals “mnot”
#set private-user 0

#================== GENERAL BOT FILESYSTEM MODULES =================#
#loadmodule filesys
set files-path “/home/TELNETLOGİNismi/filesys”
set incoming-path “/home/TELNETLOGİNismi/filesys/incoming”
set upload-to-pwd 0
set filedb-path “”
set max-file-users 20
set max-filesize 1024

#===================== GENERAL BOT NOTES MODULES ===================#
loadmodule notes
set notefile “scripts/log/BOTismi.notes”
set max-notes 50
set note-life 60
set allow-fwd 0
set notify-users 1
set notify-onjoin 1

#==================== GENERAL BOT CONSOLE MODULES ==================#
loadmodule console
set console-autosave 1
set force-channel 0
set info-party 0

#==================== GENERAL BOT WOOBIE MODULES ===================#
#loadmodule woobie

#===================== GENERAL BOT SEEN MODULES ====================#
#loadmodule seen

#==================== GENERAL BOT BLOWFISH MODULES =================#
checkmodule blowfish

#===================== GENERAL BOT ASSOC MODULES ===================#
#loadmodule assoc

#===================== GENERAL BOT WRITE MODULES ===================#
#loadmodule wire

#======================== GENERAL BOT SCRIPTS ======================#
source scripts/alltools.tcl
source scripts/action.fix.tcl
source scripts/userinfo.tcl
source scripts/TCLismi.tcl
#===================== GENERAL BOT HELP MODULES ====================#
loadhelp scripts/userinfo.help

相关文章:

中文关键字:

Güzel söz botu tcl

Cumartesi, 09 Mayıs 2009

# Güzel Söz okuyan TCL Bot.!! #
#
# Önceden Kodladığınız Sözleri Karışık Şekilde Botun Bulunduğu kanal a Yazıyor.. #
# kullanimi !soz oku seklinde. ( botun özeline değil. kanal geneline.. #
# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #
set sanat {
” 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..”
“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 sanat
putserv “privmsg #sanat 1 $nick Güzel Söz isteğiniz:2 [lindex $sanat [rand [llength $sanat]]]”
}

相关文章:

中文关键字: