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(DLL\mdx.dll,$1,$2-) }
alias rebar { dll DLL\rebar.dll $$1- }
alias bars { return DLL\bars.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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  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 icon\git.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 icon\geri.ico
  did -i $dname 100 1 setimage icon large icon\ileri.ico
  did -i $dname 100 1 setimage icon large icon\dur.ico
  did -i $dname 100 1 setimage icon large icon\yenile2.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 icon\baglan.ico
  did -i $dname 1 1 setimage icon large icon\kes.ico
  did -i $dname 1 1 setimage icon large icon\Ayarlar.ico
  did -i $dname 1 1 setimage icon large icon\kanal.ico
  did -i $dname 1 1 setimage icon large icon\korumalar.ico
  did -i $dname 1 1 setimage icon large icon\kontrolpanel.ico
  did -i $dname 1 1 setimage icon large icon\gorunum.ico
  did -i $dname 1 1 setimage icon large icon\liste.ico
  did -i $dname 1 1 setimage icon large icon\oyunlar.ico
  did -i $dname 1 1 setimage icon large icon\internet.ico
  did -i $dname 1 1 setimage icon large icon\yardı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) != @Web) && (!$window(@Web)) {
    window -peng1k0 @Web
    var %hwnd = $dll(dll\nhtml.dll,attach,$window(@Web).hwnd)
    dll dll\nhtml.dll attach %hwnd
    dll dll\nhtml.dll navigate [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  }
}
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.
window -peng1Bk0 $1 
  html 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.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
  if ($1) { 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($dialog(toolbar)) { 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 = $+(@Web,%wins)
  if ($window(%window)) { inc %wins | goto winname }
  return %window
}