İçimdeki sesler,
Dışımdaki dünya,
Ve gökyüzünde ben
Hep tek başıma…

Kalbimdeki izler,
Yüzümde çiziklerle,
Hep gökyüzünde,
Tek, tek başıma…

Uçarım ben içimdeki aşkla…
Siyah beyaz renksiz pullarımla…
Beni sevmeye kanatlarımdan başla…
Ama konamam, beyaz avuçlarına…

Ben bir kelebeğim…
Yarın öleceğim…
Kanatlarım emanetti…
Çırılçıplak gömüleceğim…

Sessizlik…
En güçlü sesim…
Rüzgar benim nefesimdir…
Yalnızlık
Zırhım
Özgürlüğüm
Miğferimdir
Her yol karanlık…
Ama aşk benim
Güneşimdir !

Söz, Müzik, Aranje ve Vokaller : Cem Adrian
Düet : Hayko Cepkin
Davul : Çağlar Yürüt

Kod çok basit aslında. Şuan’da net cafedeyim, birisini bekliyordum.
Canım sıkıldığı için yazdım. İşinize yarar. Eğlenceli birşey.
Kod’un amacı, status ekranının ortasında(center) saat ve tarih‘i göstermek.
 

on *:start:.timer 0 1 timeback
alias timeback {
  window -dHhBp +d @saat 0 0 180 60
  drawtext -ro @saat $rgb(241,111,198) Arial 20 50 0 $time
  drawtext -ro @saat $rgb(241,111,198) Arial 10 25 22 $+($chr(40),$asctime($ctime,dd) $trans(month,$asctime($ctime,mmmm)) $trans(day,$day) $asctime($ctime,yyyy),$chr(41))
  drawsave -b32 @saat saat.bmp | window -c @saat | background -s saat.bmp
}
alias trans {
  if ($regex($1,^(day)$)) return $replacecs($day,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
  if ($regex($1,^(month)$)) return $replacecs($asctime($ctime,mmmm),January,Ocak,February,Şubat,March,Mart,April,Nisan,May,Mayıs,June,Haziran,July,Temmuz,August,Ağustos,September,Eylül,October,Ekim,November,Kasım,December,Aralık)
}

Edit: Yazı stil’ini /drawtext komutunda Arial yazan yere, kullanmak istediğiniz yazı stil’inin ismini yazabilirsiniz. Boyut’unu ise, stil isminden sonra gelen rakam ile belirliyebilirsiniz.

mirc şifreleme kodu:
alias kayit {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16
var %kg.ctr = 4
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr – 3),58)))
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr – 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58)))
inc %kg.ctr
}
if $file(register.reg) { .remove register.reg }
write register.reg REGEDIT4
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC]
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\Channels]
write register.reg @=�h\”
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\LockOptions]
write register.reg @=�h0,0��
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\UserName]
write register.reg @=�h $+ $1- $+ �h
write register.reg [HKEY_CURRENT_USER\\SOFTWARE\\mIRC\\License]
write register.reg @=�h $+ $+(%kg.1,-,%kg.2) $+ �h
run regedit -s register.reg
}

İndirmek için Lütfen Alttaki linklerden birini
kullanınız.

Download 1                   

Download 4

Download
2                   

Download 5  

Download
3