IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Dijital saat addonu (https://www.ircforumlari.net/mirc-scripting-sorunlari/267992-dijital-saat-addonu.html)

neobre 03 Ekim 2009 18:52

Dijital saat addonu
 
Kod:

alias digi {
window -poCzdk0 +tnbL @digitalsaat -1 -1 200 100
drawtext @digitalsaat 4 Impact 20 40 10 => ßy CooL <=
drawtext @digitalsaat 1 Impact 20 30 30
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0 1 saatcek
}
alias -l saatcek {
clear @digitalsaat
drawfill @digitalsaat 0 0 1 1
yaz
}
on *:close:@digitalsaat: {
unset %say
.timertime off
window -c @digitalsaat
}
menu @digitalsaat {
Hakkında:.return $input(Digital Saat // CooL Coding //
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias yaz {
var %i 1,%x = 0
while %i <= $numtok($time,58) {
inc %say
var %x $calc(%x + 30)
drawpic -fr @digitalsaat %x 0 $+(digi/,$left($gettok($time,%i,58),1),.,gif)
var %x $calc(%x + 20)
drawpic -fr @digitalsaat %x 0 $+(digi/,$right($gettok($time,%i,58),1),.,gif)
drawtext @digitalsaat 1 Impact 20 32 40 $replace($day,Monday,Pzt.,Tuesday,Sal.,Wednesday,Çrş.,Thursday,Per.,Friday,Cum.,Saturday,Cmt.,Sunday,Pzr.) $gettok($date,3,47) ~ $replace($gettok($date,1-2,47),/,-)
if %say == 1 || %say == 2 {
drawtext @digitalsaat 4 Impact 40 $calc(%x + 26) 0 .
}
else {
unset %say
}
inc %i
}
}
on *:load:{
if $finddir($mircdir,digi,0) == 0 {
echo -a HATA! mIRC Ana dizininde digi adlı bir klasör malesef bulunamadı
echo -a Bu Sorunu Gidermek İçin:
echo -a - digi.rar Dosyasını tekrar çıkartıp digitalsaat klasörünün içindeki bütün dosyaları $+(,$mircdir,) Bu uzantıya atınız..
echo -a -
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden online destek alınız
.unload -rs digi.mrc
}

arkadaslar elımde boyle bır kod var mı menu seklınde yada windows penceresinde cıkabılecek sekılde ayarlabılır mısınız yalnız
/digi yazınca cıkmıcak onceden solıyım tesekkurler menu seklınde olması ve windows penceresinde cıkması ıyı olur.

serci 03 Ekim 2009 21:27

Cevap: Dijital saat addonu
 
alias Saat2 { echo -a 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
için Teşekkür :) )
window -paozCdk0 +ndL @Saat -1 -1 150 150 | window -paohCzdk0 +ndL @Saat.buf -1 -1 800 800 | unset %Saat2.c | Saat2.frame
}
menu channel,status {
Saat Kaç?: Saat2
}
alias Saat2.frame {
if (%Saat2.c != y) {
clear @Saat.buf | drawfill -r @Saat.buf $rgb(1,1,1) $rgb(1,1,1) 1 1 | drawdot @Saat.buf 1 300 400 450
drawdot -r @Saat.buf $rgb(150,100,0) 290 400 450 | drawline @Saat.buf 1 7 0 100 1000 100
drawfill -r @Saat.buf $rgb(120,70,0) $rgb(0,0,0) 1 1 | drawline -r @Saat.buf 1 7 670 100 670 -100
drawrect -rf @Saat.buf $rgb(130,80,10) 1 670 0 300 100 | drawtext @Saat.buf 1 Tahoma 100 697 -18 ×
%Saat2.xy = 12
while (%Saat2.xy) {
if (. isin $calc(%Saat2.xy /3)) {
drawdot -r @Saat.buf $rgb(100,50,0) 8 $calc(400 + (270 * $cos($calc(30 * %Saat2.xy)).deg)) $calc(450 + (270 * $sin($calc(30 * %Saat2.xy)).deg))
}
else {
drawtext -r @Saat.buf $rgb(100,50,0) Tahoma 80 $calc((400 + (240 * $cos($calc((%Saat2.xy * 30) -90)).deg)) - ($width(%Saat2.xy ,Tahoma,80) /2)) $calc((450 + (240 * $sin($calc((30* %Saat2.xy)-90)).deg)) - ($height(%Saat2.xy ,Arial,80) /2)) %Saat2.xy
}
dec %Saat2.xy
}
drawline -r @Saat.buf $rgb(100,50,0) 8 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(s)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(s)) - 90)).deg))
drawline -r @Saat.buf $rgb(100,50,0) 12 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(n)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(n)) - 90)).deg))
drawline -r @Saat.buf $rgb(100,50,0) 16 400 450 $calc(400 +(150 * $cos($calc((30 * $asctime(h)) - 90)).deg)) $calc(450 +(150 * $sin($calc((30 * $asctime(h)) - 90)).deg))
drawtext -r @Saat.buf $rgb(80,30,0) Arial 80 30 0 $asctime(h:nn:ss TT)
drawcopy -m @Saat.buf 0 0 800 800 @Saat 0 0 150 150 | .timer 1 1 Saat2.frame
}
else unset %Saat2.c
}
on *:close:@Saat: Saat2.close
menu @Saat {
sclick: {
if ($calc($mouse.y * 5.3333) < 100) {
if ($calc($mouse.x * 5.3333) > 670) Saat2.close
else {
set %Saat2.dx $calc($window(@Saat).dx - $mouse.dx)
set %Saat2.dy $calc($window(@Saat).dy - $mouse.dy) | .timermove -h 0 0 Saat2.move
}
}
}
uclick: { .timermove off }
leave: { .timermove off }
}
alias -l Saat2.move window @Saat $calc($mouse.dx + %Saat2.dx) $calc($mouse.dy + %Saat2.dy)
alias -l Saat2.close unset %Saat2.* | set %Saat2.c y | if ($window(@Saat)) window -c @Saat | window -c @Saat.buf


Bunu Kullanabilirsin Remotene Attıktan Sonra Menu,Channel Ve Statuste Sağ Tıklı***** Görebilirsin

RebeLLious 04 Ekim 2009 00:33

Cevap: Dijital saat addonu
 
yapmışsın saat çok büyük olmadı . yinede tşkler.

serci 04 Ekim 2009 00:55

Cevap: Dijital saat addonu
 
Kod:


alias Saat2 { echo -a 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
için Teşekkür  )
  window -paozCdk0 +ndL @Saat -1 -1 350 350 | window -paohCzdk0 +ndL @Saat.buf -1 -1 800 800 | unset %Saat2.c | Saat2.frame
}
menu channel,status {
  Saat Kaç?: Saat2
}
alias Saat2.frame {
  if (%Saat2.c != y) {
    clear @Saat.buf | drawfill -r @Saat.buf $rgb(1,1,1) $rgb(1,1,1) 1 1 | drawdot @Saat.buf 1 300 400 450
    drawdot -r @Saat.buf $rgb(150,100,0) 290 400 450 | drawline @Saat.buf 1 7 0 100 1000 100
    drawfill -r @Saat.buf $rgb(120,70,0) $rgb(0,0,0) 1 1 | drawline -r @Saat.buf 1 7 670 100 670 -100
    drawrect -rf @Saat.buf $rgb(130,80,10) 1 670 0 300 100 | drawtext @Saat.buf 1 Tahoma 100 697 -18 ×
    %Saat2.xy = 12
    while (%Saat2.xy) {
      if (. isin $calc(%Saat2.xy /3)) {
        drawdot -r @Saat.buf $rgb(100,50,0) 8 $calc(400 + (270 * $cos($calc(30 * %Saat2.xy)).deg)) $calc(450 + (270 * $sin($calc(30 * %Saat2.xy)).deg))
      }
      else {
        drawtext -r @Saat.buf $rgb(100,50,0) Tahoma 80 $calc((400 + (240 * $cos($calc((%Saat2.xy * 30) -90)).deg)) - ($width(%Saat2.xy ,Tahoma,80) /2)) $calc((450 + (240 * $sin($calc((30* %Saat2.xy)-90)).deg)) - ($height(%Saat2.xy ,Arial,80) /2)) %Saat2.xy
      }
      dec %Saat2.xy
    }
    drawline -r @Saat.buf $rgb(100,50,0) 8 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(s)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(s)) - 90)).deg))
    drawline -r @Saat.buf $rgb(100,50,0) 12 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(n)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(n)) - 90)).deg))
    drawline -r @Saat.buf $rgb(100,50,0) 16 400 450 $calc(400 +(150 * $cos($calc((30 * $asctime(h)) - 90)).deg)) $calc(450 +(150 * $sin($calc((30 * $asctime(h)) - 90)).deg))
    drawtext -r @Saat.buf $rgb(80,30,0) Arial 80 30 0 $asctime(h:nn:ss TT)
    drawcopy -m @Saat.buf 0 0 800 800 @Saat 0 0 350 350 | .timer 1 1 Saat2.frame
  }
  else unset %Saat2.c
}
on *:close:@Saat: Saat2.close
menu @Saat {
  sclick: {
    if ($calc($mouse.y * 5.3333) < 100) {
      if ($calc($mouse.x * 5.3333) > 670) Saat2.close
      else {
        set %Saat2.dx $calc($window(@Saat).dx - $mouse.dx)
        set %Saat2.dy $calc($window(@Saat).dy - $mouse.dy) | .timermove -h 0 0 Saat2.move
      }
    }
  }
  uclick: { .timermove off }
  leave: { .timermove off }
}
alias -l Saat2.move window @Saat $calc($mouse.dx + %Saat2.dx) $calc($mouse.dy + %Saat2.dy)
alias -l Saat2.close unset %Saat2.* | set %Saat2.c y | if ($window(@Saat)) window -c @Saat | window -c @Saat.buf

Sen İste Büyitim EmportaL :D

neobre 04 Ekim 2009 12:43

Cevap: Dijital saat addonu
 
Serci Peki Bunu Status Penceresınde cıkartabılır Mıyız her girdigimizde status pencersinde aktıf olsun bu saat yapabılır mıyız?

serci 04 Ekim 2009 15:47

Cevap: Dijital saat addonu
 
Denedim Ama Yapamadım

neobre 04 Ekim 2009 19:24

Cevap: Dijital saat addonu
 
Alıntı:

serci_77 Nickli Üyeden Alıntı (Mesaj 822238)
Denedim Ama Yapamadım

Saol Kardes Ama senın SAAT Cok buyuk benım ıstedıgım oyle degıl benım ıstedıgım ıse sadece benım kodda status'de cıkacak hıc bır ayarı olmucak sadece status'de kendı cıkacak mırca gırınce Cesuryurek yada dıger modereatorlar bakarsanız sevınırım tesekkurler.

neobre 05 Ekim 2009 20:40

Cevap: Dijital saat addonu
 
Bunu Yapcak Yok Sanırım Mırca Gırer Gırmez Status'de Calısacak Hep Yapabılen varmı ?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:43.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net