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,34,36)
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
list 100, 0 33 180 19, size
combo 101, 170 33 148 70, size edit drop
text “Adres:”, 102, 145 35 18 11
list 103, 323 33 45 11
}
on *:dialog:toolbar:init:0: {
mdx MarkDialog $dname
mdx SetDialog $dname style
mdx SetFont $dname 1,102,103 Turkish 14 800 Cyrillic
mdx SetFont $dname 100 Turkish 14 600 Cyrillic
mdx SetFont $dname 3 +a 20 600 arial
.timersaat 0 1 saat 3
mdx SetColor $dname 102 text $rgb(0,0,0)
did -a $dname 101
did -c $dname 101 1
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 100,103 ToolBar list flat wrap arrows nodivider > $bars
mdx SetBorderStyle 1,100,103
*
did -i $dname 103 1 bmpsize 16 16
did -i $dname 103 1 setimage +nh icon small icongit.ico
did -a $dname 103 +b 1 Adrese Git!
did -i $dname 100 1 bmpsize 16 16
did -i $dname 100 1 setimage icon large icongeri.ico
did -i $dname 100 1 setimage icon large iconileri.ico
did -i $dname 100 1 setimage icon large icondur.ico
did -i $dname 100 1 setimage icon large iconyenile2.ico
did -a $dname 100 +a –
did -a $dname 100 +a 1 $chr(32) Geri $chr(9) $+ Bir önceki sayfaya gelinir…
did -a $dname 100 +a –
did -a $dname 100 +a 2 $chr(32) İleri $chr(9) $+ Bir sonraki sayfaya gidilir…
did -a $dname 100 +a –
did -a $dname 100 +a 3 $chr(32) Dur $chr(9) $+ Sayfa görüntülenmesi durdurulur…
did -a $dname 100 +a –
did -a $dname 100 +a 4 $chr(32) Yenile $chr(9) $+ Sayfa görüntülenmesini yeniler…
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 –
if ($window($active) != @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) && (!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
window -peng1k0 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
var %hwnd = $dll(dllnhtml.dll,attach,$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd)
dll dllnhtml.dll attach %hwnd
dll dllnhtml.dll navigate
}
}
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
}
}
if $did == 100 {
if $did(100).sel == 3 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nhtml.dll back 0
/echo -a 0,1 Bir önceki sayfaya geliniyor…
}
}
if $did == 100 {
if $did(100).sel == 5 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nHTML.dll forward 0
/echo -a 0,1 Bir sonraki sayfaya gidiliyor…
}
}
if $did == 100 {
if $did(100).sel == 7 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nHTML.dll stop 0
/echo -a 0,1 Sayfa görüntülenmesi durduruluyor…
}
}
if $did == 100 {
if $did(100).sel == 9 {
var %hwnd = $dll(dll/nhtml.dll,find,findme)
dll dll/nHTML.dll attach %hwnd
dll dll/nhtml.dll refresh 0
/echo -a 0,1 Sayfa görüntülenmesi yenileniyor…
}
}
if $did == 103 {
var %z = $did(103).sel
if (%z == 2) { git $did(101) }
}
}
}
Alias -l html { dll $+(“,$mircdirdll/nhtml.dll,”) $1- }
Alias -l nhtml { return $+(“,$mircdirdll/nhtml.dll,”) }
Alias -l
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.attach $window($1).hwnd
html navigate $2-
}
Alias git {
if (!$1) {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.did -a toolbar 101 $1- }
}
Alias yenipencere {
var %w = 1,%wins = 1
while ($window(%w)) {
if (Web isin $ifmatch) { inc %wins }
inc %w
}
:winname
var %window = $+(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}