[rootturkhacks.com~]
duyuru LiNK KISALTMAK / TEMA VEYA SCRiPT iSTEĞiNDE BULUNMAK YASAKTIR!
duyuru GiZLi iÇERiKLERE RANDOM / SAÇMA YORUM YAPMAK BAN SEBEBIDIR !
hack forum

AnaLog Saat Renkli MIRC

#1
Güzel bir analog saat. Saat ekranda ayri bir pencerede açılmaktadir. Her saniye başı köşe renkler değişmektedir. Çok güzel bir görüntüsü var. Güzel bir analog saat. Kodu açmak için /clock yaziniz.


Kod:
;Fiend's Rainbow Clock
;Made by CAsercan3 on February 13, 2009.
;To install, paste this snippet into your remotes (alt + R).
;Then type /clock or right click the channel and click "Fiend's Rainbow Clock"
alias drawaline drawline $1 $2 $3 $4 $5 $calc($4 + $sin($6).deg * $7) $calc($5 - $cos($6).deg * $7)
alias -l getpoint return $calc($1 + $sin($3).deg * $4) $calc($2 - $cos($3).deg * $4)
menu channel {
 Fiend's Rainbow Clock: /clock
}
alias clock {
 window -pk0a @RainbowClock
 window -xphw0 @clock
 set %r 255
 set %g 15
 set %b 15
 .timerclock -m 0 50 clockman
}
alias -l clockman {
 clear @clock
 if ( %r == 255 ) set %rfull 1
 if ( %g == 255 ) set %gfull 1
 if ( %b == 255 ) set %bfull 1
 if ( %r == 15 ) set %rfull 0
 if ( %g == 15 ) set %gfull 0
 if ( %b == 15 ) set %bfull 0
 if ( %rfull == 1 ) && (%gfull == 0 ) && (%bfull == 0) inc %g 4
 if ( %rfull == 1 ) && (%gfull == 1 ) && ( %bfull == 0) dec %r 4
 if ( %gfull == 1 ) && (%bfull == 0 ) && (%rfull == 0) inc %b 4
 if ( %gfull == 1 ) && (%bfull == 1) && ( %rfull == 0) dec %g 4
 if ( %bfull == 1 ) && (%rfull == 0 ) && (%gfull == 0) inc %r 4
 if ( %bfull == 1 ) && (%rfull == 1 ) && ( %gfull == 0) dec %b 4
 drawdot -r @clock $rgb( %r , %g , %b ) 190 $calc($window(@clock).w /2) $calc($window(@clock).h /2)
 drawdot @clock 0 170 $calc($window(@clock).w /2) $calc($window(@clock).h /2)
 while %clock != 12 {
   inc %clock
   drawtext @clock 1 Tahoma 18 $getpoint($calc($window(@clock).w /2 -5) , $calc($window(@clock).h /2 -5) , $calc(%clock *30) ,140) %clock
 }
 unset %clock
 drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(ss) *6) 120
 drawdot @clock 1 10 $getpoint($calc($window(@clock).w /2 +5) , $calc($window(@clock).h /2 +5) , $calc($asctime(ss) *6) , 120)
 drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(nn) *6) 100
 drawrect @clock 1 10 $getpoint($calc($window(@clock).w /2 -4 +5) , $calc($window(@clock).h /2 -4 +5) , $calc($asctime(nn) *6) , 100) 10 10
 drawaline @clock 5 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(hh) *30) 60
 drawtext @clock 1 Tahoma 14 $calc($window(@clock).w /2 -25) $calc($window(@clock).h /2 - 90) $time
 drawtext @clock 1 Tahoma 14 $calc($window(@clock).w /2 -50) $calc($window(@clock).h /2 + 100) $asctime(dd ddd mmm yyyy)
 drawcopy @clock 0 0 $window(@clock).w $window(@clock).h @RainbowClock 0 0
}
on *:close:@rainbowclock: {
 .timerclock off
 window -c @clock
 unset %r %g %b %rfull %gfull %bfull
}
on *:close:@Saat: {
 .timerclock off
 window -c @clock
 unset %r %g %b %rfull %gfull %bfull
}
imza
[Resim: Z93lN0.gif]

Biz cahil dediğimiz zaman, mektepte okumamış olanları kastetmiyoruz. Kastettiğimiz ilim, hakikati bilmektir. Yoksa okumuş olanlardan en büyük cahiller çıktığı gibi, hiç okumak bilmeyenlerden de hakikati gören gerçek alimler çıkabilir.


Mustafa Kemal ATATÜRK
Alıntı


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Kanal MLock Korumasi MIRC Kodu Enyalios 0 189 11-23-2020, 01:06 PM
Son Mesaj: Enyalios
  Kanal Nick Mode Korumasi +-E MIRC Kod Enyalios 0 147 11-23-2020, 01:05 PM
Son Mesaj: Enyalios
  !Degis Nick MIRC Hazir Kodu Enyalios 0 138 11-23-2020, 01:04 PM
Son Mesaj: Enyalios
  Bilgisayar Açılınca MIRC Açılsın Kodu Enyalios 0 104 11-23-2020, 12:58 PM
Son Mesaj: Enyalios
  !Google Çevir MIRC Kodu Enyalios 0 77 11-23-2020, 12:52 PM
Son Mesaj: Enyalios



Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi
brazzers premium accounts izmit escort porno beylikdüzü escort avcılar escort porno Cami Halısı cami halısı cami halısı cami halısı vdcasino vdcasino giriş ilbet ilbet güvenilir casino siteleri vdcasino vdcasino betexper vdcasino vdcasino betexper casino siteleri izmir escort izmir escort gaziantep escort gaziantep escort