Bilgi Dağıtmak İçin El Ele
on *:start: { dialog -m toolbar toolbar } alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) } alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut } alias mdx { return $dll(DLLmdx.dll,$1,$2-) } alias rebar { dll DLLrebar.dll $$1- } alias bars { return DLLbars.mdx } on *:connect: { update.toolbar } on *:disconnect: { update.toolbar } on *:close:*: { update.toolbar } alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } } alias update.toolbar { if (!$dialog(toolbar)) { halt } else { scid $activecid if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır. } else { did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. } } } dialog toolbar { title "x" size 0 0 550 $iif($temabul,14,17) option dbu list 4, 0 -2 550 17, size list 1, 0 4 550 17, size text "", 2, 464 6 45 16, center text "", 3, 467 10 39 11, center } on *:dialog:toolbar:init:0: { mdx MarkDialog $dname mdx SetDialog $dname style mdx SetFont $dname 1 Turkish 14 800 Cyrillic mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255) mdx SetColor $dname 3 text $rgb(0,0,0) mdx SetFont $dname 3 +a 20 600 arial mdx SetColor $dname 2,3 textbg $rgb(113,188,255) .timersaat 0 1 saat 3 rebar HideToolbar . rebar Dock $dialog(toolbar).hwnd > top mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars ; mdx SetControlMDX $dname 1,4 ToolBar flat arrows nodivider wrap > $aux.mdx(bars) mdx SetBorderStyle 1 did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163) did -i $dname 1 1 bmpsize 27 27 did -i $dname 1 1 setimage icon large iconbaglan.ico did -i $dname 1 1 setimage icon large iconkes.ico did -i $dname 1 1 setimage icon large iconAyarlar.ico did -i $dname 1 1 setimage icon large iconkanal.ico did -i $dname 1 1 setimage icon large iconkorumalar.ico did -i $dname 1 1 setimage icon large iconkontrolpanel.ico did -i $dname 1 1 setimage icon large icongorunum.ico did -i $dname 1 1 setimage icon large iconliste.ico did -i $dname 1 1 setimage icon large iconoyunlar.ico did -i $dname 1 1 setimage icon large iconinternet.ico did -i $dname 1 1 setimage icon large iconyardım.ico did -a $dname 1 +a - did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. did -a $dname 1 +a - did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar. did -a $dname 1 +a - did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar. did -a $dname 1 +a - did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar. did -a $dname 1 +a - did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 7 $chr(32) Görünümler $chr(9) $+ Scriptinizin Görünümüyle İlgili Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 8 $chr(32) Listeler $chr(9) $+ Scriptinizdeki Notify, Düşman Listesi Gibi Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 9 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 10 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 11 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar. did -a $dname 1 +a - } on *:dialog:toolbar:*:*: { if $devent == sclick { if $did == 1 { if ($did($dname,1).sel = 3) { if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect } else { scid $activecid server } update.toolbar did -f $dname 1 scid $activecid window -a "status window" } if ($did($dname,1).sel = 5) { Ayarlar } if ($did($dname,1).sel = 7) { Kanallar } if ($did($dname,1).sel = 9) { Korumalar } if ($did($dname,1).sel = 11) { kontrolpanel } if ($did($dname,1).sel = 13) { gorunumler } if ($did($dname,1).sel = 15) { listeler } if ($did($dname,1).sel = 17) { oyunlar } if ($did($dname,1).sel = 19) { internet } if ($did($dname,1).sel = 21) { yardim } } } }
on *:start: { dialog -m toolbar toolbar } alias Temadene { echo -a Temam: $iif($temabul,XP Teması,Klasik Windows Teması) } alias Temabul { .comreg dll/Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u dll/Tema.dll | return %komut } alias mdx { return $dll(DLLmdx.dll,$1,$2-) } alias rebar { dll DLLrebar.dll $$1- } alias bars { return DLLbars.mdx } on *:connect: { update.toolbar } on *:disconnect: { update.toolbar } on *:close:*: { update.toolbar } alias saat { if ($dialog(toolbar)) { did -a toolbar $1 $time } } alias update.toolbar { if (!$dialog(toolbar)) { halt } else { scid $activecid if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { did -o toolbar 1 3 +a 2 $chr(32) Bağlantıyı Kes $chr(9) $+ IRC Serverle Bağlantınızı Koparır. } else { did -o toolbar 1 3 +a 1 $chr(32) Servere Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. } } } dialog toolbar { title "x" size 0 0 550 $iif($temabul,14,17) option dbu list 4, 0 -2 550 17, size list 1, 0 4 550 17, size text "", 2, 464 6 45 16, center text "", 3, 467 10 39 11, center } on *:dialog:toolbar:init:0: { mdx MarkDialog $dname mdx SetDialog $dname style mdx SetFont $dname 1 Turkish 17 800 Cyrillic mdx SetColor $dname 1,2,3,4 background $rgb(113,188,255) mdx SetColor $dname 3 text $rgb(0,0,0) mdx SetFont $dname 3 +a 20 600 arial mdx SetColor $dname 2,3 textbg $rgb(113,188,255) .timersaat 0 1 saat 3 rebar HideToolbar . rebar Dock $dialog(toolbar).hwnd > top mdx SetControlMDX $dname 1,3,4 Progressbar smooth > $ctl mdx SetControlMDX $dname 1,4 ToolBar flat wrap arrows nodivider > $bars ; mdx SetControlMDX $dname 1,4 ToolBar flat arrows nodivider wrap > $aux.mdx(bars) mdx SetBorderStyle 1 did -i $dname 1 1 setscheme $rgb(163,163,163) $rgb(163,163,163) did -i $dname 1 1 bmpsize 27 27 did -i $dname 1 1 setimage icon large iconbaglan.ico did -i $dname 1 1 setimage icon large iconkes.ico did -i $dname 1 1 setimage icon large iconAyarlar.ico did -i $dname 1 1 setimage icon large iconkanal.ico did -i $dname 1 1 setimage icon large iconkorumalar.ico did -i $dname 1 1 setimage icon large iconkontrolpanel.ico did -i $dname 1 1 setimage icon large icongorunum.ico did -i $dname 1 1 setimage icon large iconinternet.ico did -i $dname 1 1 setimage icon large iconyardım.ico did -a $dname 1 +a - did -a $dname 1 +a 1 $chr(32) Server Bağlan $chr(9) $+ IRC Servere Bağlantı Kurar. did -a $dname 1 +a - did -a $dname 1 +a 3 $chr(32) Bağlantı $chr(9) $+ Bağlantı Ayarlarını Yapar. did -a $dname 1 +a - did -a $dname 1 +a 4 $chr(32) Kanallar $chr(9) $+ Kanallara Giriş Penceresini Açar. did -a $dname 1 +a - did -a $dname 1 +a 5 $chr(32) Korumalar $chr(9) $+ Kanal ve Kişisel Korumaları Açar. did -a $dname 1 +a - did -a $dname 1 +a 6 $chr(32) Kontrol Panel $chr(9) $+ Scriptinizle İlgili Tüm Ayarları Açar. did -a $dname 1 +a - did -a $dname 1 +a 7 $chr(32) Oyunlar $chr(9) $+ Scriptinizin Oyunlarıyla İlgili Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 8 $chr(32) Internet $chr(9) $+ Internet Adreslerinin Olduğu Diyalogu Açar. did -a $dname 1 +a - did -a $dname 1 +a 9 $chr(32) Yardım $chr(9) $+ Scriptinizin Yardım Dosyasını Açar. did -a $dname 1 +a - } on *:dialog:toolbar:*:*: { if $devent == sclick { if $did == 1 { if ($did($dname,1).sel = 3) { if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect } else { scid $activecid server } update.toolbar did -f $dname 1 scid $activecid window -a "status window" } if ($did($dname,1).sel = 5) { Ayarlar } if ($did($dname,1).sel = 7) { Kanallar } if ($did($dname,1).sel = 9) { Korumalar } if ($did($dname,1).sel = 11) { kontrolpanel } if ($did($dname,1).sel = 13) { gorunumler } if ($did($dname,1).sel = 15) { linternet } if ($did($dname,1).sel = 17) { yardim } } }