on *:start:{  
  .dialog -ma tb tb
  .dialog -ma tyr tyr
  .dialog -ma tyl tyl  
  .timerram 0 10 .did -ra tb 77,179 $round($remove($gettok($dll($shortfn(dll\moo.dll),meminfo,_),3,32),$chr(40),$chr(41),$chr(37)),0))
}
on *:Server: {
  update.tb
  title
  .timerlags 0 10 baglantine
}
on *:disServer: {
  update.tb
  title
  .timerlags off 
}
on *:close:*: {
  update.tb
}
on ^*:PONG:{ 
  set %lag $calc(($ticks - %ticks) / 1000) 
  did -ra tb 73 $round(%lag,0) 0 20
  did -ra tb 177 $round(%lag,2) 0 20
  unset %ticks 
  haltdef 
}
alias baglantine { 
  if ($server) {
    set %ticks $ticks
    .raw ping $scid($activecid).server
  }
}
alias update.tb {
  if (!$dialog(tb)) { halt }
  else {
    ;scid $activecid 
    if ($scid($activecid).status = Servering || $scid($activecid).status = Servered ) { 
      did -o tb 1 3 +a 1 Kopar $chr(9) Bir Sunuya Bağlı / Bağlantıya Geçilmiş | halt 
    } 
    if ($scid($activecid).status = disServering || $scid($activecid).status = disServered ) { 
      did -o tb 1 3 +a 2 KLBK $chr(9) Bir Sunuya Bağlı Değil / Bağlantıya Geçilmemiş | halt
    }
  }
}

dialog tb {
  size 0 0 $window(-1).x 30
  list 1,3 5 530 10,size
  icon ico\icon.ico
  icon 2, 6 62 98 19, resim\bar.jpg
  option dbu,pixels
  ;box "" 12, 3 53 105 31
  ;box "" 13, 3 -3 531 63
  box "" 13, 2 -3 532 87
  ;box "" 23, 108 53 213 31
  ;box "" 33, 320 53 213 31
  box "" 43, 533 -3 258 42
  box "" 53, 790 -3 229 87
  text "", 5, 590 6 55 16
  text "Saat:", 15, 550 7 32 16
  text "", 6, 690 6 80 16
  text "Tarih:", 16, 650 7 32 16
  text "", 7, 610 22 155 16
  text "Aktif Süre:", 17, 550 23 58 14
  text "Lag", 75, 330 65 25 16
  text "", 73, 412 63 115 16
  text "", 177, 384 65 27 17
  text "(sn)", 178, 355 65 23 16
  text "Ram", 74, 114 65 25 16
  text "", 77, 200 63 115 16
  text "", 179, 176 65 24 17
  text "(%)", 180, 148 65 23 16
  text "", 181,  805 10 210 16
  text "", 182,  805 28 210 16
  text "", 183,  805 46 210 16
  text "", 184,  805 64 210 16
  combo 40, 580 41 180 25, nodrop nosize edit
  text "Google", 41, 540 44 40 16
  button "Ara", 45, 760 41 27 22, default
  combo 60, 580 62 180 102, vsbar size edit drop
  text "http://", 61, 540 65 40 16
  button "Git", 65, 760 62 27 22, default
}
alias times { if ($dialog(tb)) { did -a tb $1 $time } }
alias dates { if ($dialog(tb)) { did -a tb $1 $date } }
alias onlines { if ($dialog(tb)) {  did -a tb $1 $replace($uptime(mirc ,1),secs,saniye,sec,saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,days,gün,day,gün,wks,hafta,wk,hafta) }  }
on *:dialog:tb:*:*: {
  if $devent == sclick {
    if $did == 65 {
      var %site = $did(60).text 
      if ( %site == $null ) { kweb [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
      else { kweb %site  }
    }
    if $did == 45 {
      var %google = $did(40)
      if ( %google == $null ) { halt }
      else { gogle [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]= $+ %google } 
    }
    if $did == 2 { /oner | .echo -a ¿j¿1,15 Kullanmış oldugunuz script İCSC üretimi olup TPE 2006-17589 nolu Marka Tescil Numarası ile tescillidir.  }
    if $did == 1 {
      if ($did($dname,1).sel = 3) {
        if ($scid($activecid).status = Servering || $scid($activecid).status = Servered ) { scid $activecid disServer }
        else {
          scid $activecid server
        }
        update.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if ($did($dname,1).sel = 5) {
        gdg
      }
      if ($did($dname,1).sel = 7) {
        gsgsd
      }
      if ($did($dname,1).sel = 9) {
        sggsg
      }
      if ($did($dname,1).sel = 11) {
        sdgsdg
      }
      if ($did($dname,1).sel = 13) {
        sgsdg
      }
      if ($did($dname,1).sel = 15) {
        gsdg
      }
    }
  }
  .timertime 0 1 times 5
  .timerdate 0 1 dates 6
  .timeronline 0 1 onlines 7
  if ($devent == dclick) { 
  }
  if ($devent == init) {
    mdx SetMircVersion $version 
    mdx MarkDialog $dname 
    mdx SetBorderStyle 1
    rebar HideToolbar .
    rebar Dock $dialog(tb).hwnd > top
    mdx SetControlMDX $dname 1 toolbar wrap arrows nodivider > $bars  
    mdx SetControlMDX $dname 73,77 Progressbar smooth > $ctl
    mdx SetControlMDX $dname 1 list flat wrap arrows autoarrange nosortheader icon extsel labeltip hottrack flatsb nodivider >  $wdx
    mdx SetColor 1,74,75,177,178,179,180,60,61,65 text [ $rgb(0,0,0) ] 
    mdx SetFont $dname 1,74,75,177,178,179,180,40,41,45,60,61,65 13 700 Fixedsys
    mdx SetFont $dname 1,74,75,177,178,179,180,40,41,45,60,61,65 13 1200 Tahoma
    mdx SetFont $dname 5,6,7 13 1200 Tahoma
    mdx SetFont $dname 15,16,17 12 1200 Tahoma
    did -i $dname 1 1 setscheme $rgb(224,226,235) $rgb(224,226,235)
    did -i $dname 1 1 bmpsize  32 32
    did -i $dname 1 1 setimage icon large icon\faf.ico
    did -i $dname 1 1 setimage icon large icon\ffad.ico
    did -i $dname 1 1 setimage icon large icon\faf.ico
    did -a $dname 1 +a -
    did -a $dname 1 +a 11 $chr(32) Kopar $chr(9) Marka Tescilli ve Lisanslı Ürün
    did -a $dname 1 +a - 
    did -a $dname 1 +a 6  $chr(32)  Bağlan $chr(9) $+ Dialog Bağlantı Paneli
    did -a $dname 1 +a -
    did -a $dname 1 +a 4  $chr(32) Yetkili PaneLi $chr(9) $+ Kanallar ve Favoriler
    did -a $dname 1 +a -
    did -a $dname 1 +a 7  $chr(32) KontroL PaneLi $chr(9) $+ Kolay Ulaşım Menusu
    did -a $dname 1 +a -
    did -a $dname 1 +a 8  $chr(32) Korumalar $chr(9) $+ Korumalar ( Kişisel & Kanal )
    did -a $dname 1 +a -
    did -a $dname 1 +a 9  $chr(32) Mp3 Çalar $chr(9) $+ Müzik Çalıcısı
    did -a $dname 1 +a -
    did -a $dname 1 +a 10  $chr(32) Windows $chr(9) $+ Ses Ve Görünüm Ayaları
    did -a $dname 1 +a -
    did -ca tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    did -a tb 60 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    if ($appactive) { showmirc -s }
  }
}
alias kweb {
  if !$window($+(@,$gettok($1,2,46))) {
    window -ez $+(@,$gettok($1,2,46))
    $dll($shortfn(dll\toolbar.dll)toolbar.dll,attach,$window($+(@,$gettok($1,2,46))).hwnd)
    $dll($shortfn(dll\toolbar.dll),navigate,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]))
  }
}
alias gogle {
  if !$window($+(@,$gettok($1,2,46))) {
    window -ez $+(@,$gettok($1,2,46))
    $dll($shortfn(dll\toolbar.dll)toolbar.dll,attach,$window($+(@,$gettok($1,2,46))).hwnd)
    $dll($shortfn(dll\toolbar.dll),navigate,$+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-))
  }
}