-------------------------- Tarih: 25 Kasım 2010 Yazar: CesuryureK Bilgi: Emeğe Saygı --------------------------- Merhaba, herkese iyi forumlar.. Alanım gereği olsa gerek "Tarihte Bugün" adı altında bir çalışma yaptım. Bu çalışma sayesinde tarihte o günde neler olmuşsa haberdar olmamızı sağlar. Aynı zamanda bilgilerimize bilgi katmış olacağız. Kod ALT+R yapılıp Remote kısmına eklenecektir. Kod remote kısmına eklendikten sonra herhangi bir kanalda !tarih veya .tarih denilmesi taktirde Tarihte bugün manşetleri aynı zamanda o gün doğan ve Ölen ünlü kişilerin bilgilerini de kanala yansıtılacaktır. Kod bir bota entegre edilip, #Tarih kanalı daha aktif bir kullanıma sahip olabilir. Kod:
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,HTTP/1.1 200 OK,Server: Microsoft-IIS/6.0)
return %x
}
alias history { sockopen Tarih www.yehhu.com 80 }
on *:SockOpen:Tarih:{
sockwrite -n $sockname GET /tarihte_bugun/ HTTP/1.1
sockwrite -n $sockname host: yehhu.com
sockwrite -n $sockname $crlf
}
on *:SockRead:Tarih:{
var %bilgi
sockread %bilgi
if $regex($htmlfree(%bilgi),\d\.) || $regex($htmlfree(%bilgi),/(Ölen|doğan)/i) { msg %tarihchan $+($gettok($date,1-2,47),/) $+ $replace($htmlfree(%bilgi),Ölen,$+($chr(3),4Ölen),Doğan,$+($chr(3),4Doğan))) | .timer 1 4 sockclose tarih }
}
on *:Text:*:#: {
if ($regex($1,/(!Tarih|.Tarih)/i)) {
set %tarihchan $chan
.history
}
} Screen:
Umarım tarihe bir katkımız olur. Saygı ve sevgilerimle..