; 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Yazmak Zordur.. Çalmaksa bi kaç dakika alır..

alias rebar { dll rebar.dll $$1- }
alias bars { return bars.mdx }
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias Temabul { .comreg Tema.dll | .comopen toolbar Tema.buL | var %komut = $com(toolbar,TemaBul,1) | var %komut = $com(toolbar).result | .comclose toolbar | .comreg -u Tema.dll | return %komut }
alias msnsong.dll return $shortfn($Scriptdirmsnsong.dll)
alias msnsong {
  if (%sarki) {
    var %dll MsnSong.dll
    .comreg %dll
    .comopen msn Msn.Write
    var %i $com(msn,WriteToMsn,1,bstr,$1-,bstr,$null,bstr,$null)
    .comreg -u %dll
    .comclose msn
  }
}
alias splay {
  splay $1-
  msnsong Sohbetche Script - $remove($nopath($1-),.mp3,.wav,.wmv,mp4,avi)
}
alias saat { if ($dialog(tb)) { did -a tb $1 $time } }

alias kontrol.tb {
  if (!$dialog(tb)) { halt }
  else {
    scid $activecid
    if ( $scid($activecid).status = connecting || $scid($activecid).status = connected ) { 
      did -o tb 1 2 +a 2 Kopart
    }
    else {
      did -o tb 1 2 +a 1 Bağlan
    }
  }
}

alias ttb dialog -m tb tb
dialog tb {
  title "Che-v5"
  size 0 0 1500 8
  option dbu
  list 1, 2 2 2978 25, size
  text "", 3, 464 2 45 16, center
  text "", 4, 467 7  39 12, center
}

on *:dialog:tb:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname
    mdx SetColor $dname 1  background $rgb(16,78,139)
    mdx SetColor $dname 1 textbg $rgb(255,255,255)
    mdx SetFont   1 -12 700  Arial 
    mdx SetDialog $dname style 
    mdx SetBorderStyle $dname 2 staticedge
    mdx SetBorderStyle 1
    mdx SetControlMDX $dname 1,3,6 Progressbar smooth > dll\ctl_gen.mdx
    mdx SetControlMDX $dname 1 ToolBar list flat wrap arrows nodivider > dll\bars.mdx
    mdx SetColor $dname 3,4 background $rgb(16,78,139)
    mdx SetColor $dname 3,4 textbg $rgb(16,78,139)
    mdx SetColor $dname 4  text $rgb(176,226,255)   
    mdx SetFont $dname 4 24  700 Arial
    .timersaat 0 1 saat 4

    dll dll\rebar.dll HideToolbar . 
    dll dll\rebar.dll Dock $dialog(tb).hwnd > top

    did -i $dname 1 1 setbkg stretch icon\ust.bmp
    did -i $dname 1 1 bmpsize 32 32
    did -i $dname 1 1 setimage icon large icon\baglan.ico
    did -i $dname 1 1 setimage icon large icon\kop.ico
    did -i $dname 1 1 setimage icon large icon\ayars.ico
    did -i $dname 1 1 setimage icon large icon\kapat.ico
    did -i $dname 1 1 setimage icon large icon\ayarlar.ico
    did -i $dname 1 1 setimage icon large icon\radyos.ico
    did -i $dname 1 1 setimage icon large icon\away.ico
    did -i $dname 1 1 setimage icon large icon\ınteraktif.ico
    did -i $dname 1 1 setimage icon large icon\oyun.ico
    did -i $dname 1 1 setimage icon large icon\hakkinda.ico

    did -a $dname 1 +a -
    did -a $dname 1 +a -
    did -a $dname 1 +a 3 Ayarlar 
    did -a $dname 1 +a -
    did -a $dname 1 +a 4 Panel Menü
    did -a $dname 1 +a -
    did -a $dname 1 +a 5 Korumalar
    did -a $dname 1 +a -
    did -a $dname 1 +a 6 Radyo Dinle
    did -a $dname 1 +a -
    did -a $dname 1 +a 7 Mesgul
    did -a $dname 1 +a -
    did -a $dname 1 +a 8 Oper Menü
    did -a $dname 1 +a -
    did -a $dname 1 +a 9 Oyunlar
    did -a $dname 1 +a -
    did -a $dname 1 +a 10 Bilgi
    kontrol.tb
  }
  if ($devent == sclick) {
    if $did == 1 {
      var %secenekler $did(1).sel
      if ($did($dname,1).sel = 2) {
        if ($scid($activecid).status = connecting || $scid($activecid).status = connected ) { scid $activecid disconnect }
        else {
          scid $activecid server
        }
        kontrol.tb
        did -f $dname 1
        scid $activecid window -a "status window"
      }
      if (%secenekler == 4) { dialog -m absolut53 absolut53 }
      if (%secenekler == 6) { panelpop }
      if (%secenekler == 8) { korumapop }
      if (%secenekler == 10) {  radyopop }
      if (%secenekler == 12) { dialog -m AwaySysDialog AwaySysDialog }
      if (%secenekler == 14) { klaspop }
      if (%secenekler == 16) { oyunlarpopp }
      if (%secenekler == 18) { Bilgi }
    }
  }
}
on *:connect: { kontrol.tb }

;

on *:start: {
  dll dll\BASLIK.DLL SetMircTitle [> SBCHE <]- « Sohbetche Script v5 Live » By BeSiKTaS ©® 2012 »
  ttb

}

alias mdx_fullpath { return $+(",dll\mdx.dll,") }
alias mdx { dll $mdx_fullpath $1- }

alias alayinaisyanolumunegfb { return $1- }
alias hata { $input($1-,ohud,Hata!) }
alias $true { .halt }
alias serferkontrol { 
  if $server == $null { 
    hata Herhangi Bi Sunucuya Bağlı Değilsiniz 
  }
}