alias ExtraPop {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 1 Sözlük $cr /run http://www.sozluk.net
  %qp + 
  %qp +> 3 Günlük Fal  $cr k3
  %qp + 
  %qp + 3 İsimler  SözLüğü $cr  /run http://www.isimbulamadim.com
  %qp + 
  %qp + 3 Hava Durumu $cr /run http://www.dmi.gov.tr/index.aspx
  %qp + 
  %qp + 3 TV Yayın Akışı $cr /run http://www.tvyayinakisi.com/
  %qp + 
  %qp + 3 Sayısal Loto Sonuçları $cr /run http://www.millipiyango.gov.tr/sayisallotosonuc.html
  %qp + 
  %qp + 3 Şans Topu  Sonuçları $cr /run http://www.millipiyango.gov.tr/sanstopusonuc.html
  %qp + 
  %qp + 3 İDDAA Sonuçları $cr /run http://www.iddaa.com.tr/BITENMACLAR/index.htm?navc=3
  var %B popups LoadImg k1 icon
  var %N popups AddItem k1 end
  popups New k1 13 13
  %B small SohbetSen\ico\2.ico
  var %B popups LoadImg k3 icon
  var %N popups AddItem k3 end
  popups New k3 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Günlük Falına Bak $cr /run http://www.burclar.gen.tr/
  %N + 1 Elementler $cr /run http://www.burclar.gen.tr/burclar/content/elementler
  %N + 1 Yıldızlar $cr /run http://www.burclar.gen.tr/burclar/content/yildizlar
  %N + 1 Aşk Uyumu $cr /run http://www.burclar.gen.tr/burclar-arasi-ask-uyumu.html
  %N + 1 Yükselen Burç $cr /run http://www.burclar.gen.tr/burclar/content/yukselen-burc-hesabi
  %N + 1 Rüya Tabirleri Ve Yorumları $cr /run http://www.ruyatabirleri.gen.tr/
  pop bir %t
}

alias HayalTeam {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 1 SohbetSen $cr /run http://www.sohbetsen.org
  var %B popups LoadImg k1 icon
  var %N popups AddItem k1 end
  popups New k1 13 13
  %B small SohbetSen\ico\2.ico
  var %B popups LoadImg k3 icon
  var %N popups AddItem k3 end
  popups New k3 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Günlük Falına Bak $cr /run http://www.burclar.gen.tr/
  %N + 1 Elementler $cr /run http://www.burclar.gen.tr/burclar/content/elementler
  %N + 1 Yıldızlar $cr /run http://www.burclar.gen.tr/burclar/content/yildizlar
  %N + 1 Aşk Uyumu $cr /run http://www.burclar.gen.tr/burclar-arasi-ask-uyumu.html
  %N + 1 Yükselen Burç $cr /run http://www.burclar.gen.tr/burclar/content/yukselen-burc-hesabi
  %N + 1 Rüya Tabirleri Ve Yorumları $cr /run http://www.ruyatabirleri.gen.tr/
  pop bir %t
}

alias oyunpop {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 1 Color Linez $cr /run SohbetSen\oyun\Color Linez\Color Linez.exe
  %qp +
  %qp + 2 Tetris $cr /run SohbetSen\oyun\Tetris\TETRIS.EXE
  %qp +
  %qp + 2 Abcd $cr  /run SohbetSen\oyun\abcd.exe
  %qp +
  %qp + 2 Bilardo $cr /run SohbetSen\oyun\bilardo.exe
  %qp +
  %qp + 2 Block $cr /run SohbetSen\oyun\block.exe
  %qp +
  %qp + 2 Dots $cr  /run SohbetSen\oyun\dots.exe
  %qp +
  %qp + 2 Eggs $cr  /run SohbetSen\oyun\eggs.exe
  %qp +
  %qp + 2 Jezzball $cr /run SohbetSen\oyun\jezzball.exe
  %qp +
  %qp + 2 Satranç $cr /run SohbetSen\oyun\satranc.exe
  %qp +
  %qp + 2 Kayak $cr /run SohbetSen\oyun\SKI.EXE
  %qp +
  %qp + 2 A-Force $cr  /run SohbetSen\oyun\aforce.exe
  %qp +
  %qp + 2 Tavla $cr /run SohbetSen\oyun\tavla.exe
  pop bir %t
}

alias kanalPop {
  $iif($status == connected,$null,halps)
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 2 Tüm Özelleri Kapat $cr /close -m
  %qp +
  %qp + 3 Nick / Kanal Kayıt Et  $cr /nkreg
  pop bir %t
}
alias halps { echo -a 3***2 $+ $me  Bir Sunucuya Bağlı Degilsiniz..! | helps | halt }

dialog nkreg {
  title "..::SohbetSen Script® | Nick Kayıt Sistemi::.."
  size -1 -1 150 81
  option dbu
  tab "Nick Kayıt", 17, 0 -2 147 80
  text "Lütfen Hiçbir Alanı ßoş ßırakmadan Doldurun.", 111, 5 21 110 8, tab 17
  text "Nick", 112, 5 31 20 8, tab 17
  edit "", 1, 25 31 90 10, tab 17 autohs
  edit "", 2, 25 41 90 10, tab 17 autohs
  edit "", 3, 25 51 90 10, tab 17 autohs
  button "Kaydet", 10, 5 62 110 12, tab 17
  text "Şifre", 7, 5 41 20 8, tab 17
  text "Mail", 8, 5 51 20 8, tab 17
  box "", 9, 2 14 118 63, tab 17
  box "", 12, 119 14 26 63, tab 17
  button "Kapat", 13, 122 19 20 56, tab 17 cancel
  tab "Kanal kayıt", 18
  edit "", 4, 25 31 90 10, tab 18 autohs
  edit "", 5, 25 41 90 10, tab 18 autohs
  edit "", 6, 25 51 90 10, tab 18 autohs
  button "Kaydet", 11, 5 62 110 12, tab 18
  text "Lütfen Hiçbir Alanı ßoş ßırakmadan Doldurun.", 14, 5 21 110 8, tab 18
  text "Kanal", 15, 5 31 20 8, tab 18
  text "Şifre", 16, 5 41 20 8, tab 18
  text "Tanıtım", 19, 5 51 20 8, tab 18
  box "", 20, 2 14 118 63, tab 18
  box "", 21, 119 14 26 63, tab 18
  button "Kapat", 22, 122 19 20 56, tab 18 ok
}
on 1:dialog:nkreg:sclick:11:{ cs register $did(4) $did(5) $did(6) }
on 1:dialog:nkreg:sclick:10:{ nick $did(1) | ns register $did(2) $did(3) }
alias nkreg { dialog -m nkreg nkreg 
}

alias MakeColorIcons {
  var %c 0
  if (!$isdir($+($mircdir,ColorIcon))) { mkdir ColorIcon }
  while (%c <= 15) {
    if (!$window(@MakeColorIcons)) { window  -hBpf +d @MakeColorIcons -1 -1 68 68 }
    drawfill @MakeColorIcons %c %c 0 0 68 68
    if (!$isfile($+(ColorIcon\,ColorIcon,%c,.bmp))) { drawsave @MakeColorIcons $qt($+($mircdir,ColorIcon\,ColorIcon,%c,.bmp)) }
    inc %c
  }
  window -c @MakeColorIcons
}
alias ColorPicker {
  if (!$dialog(ColorPicker)) { dialog -m ColorPicker ColorPicker }
  else { dialog -v ColorPicker ColorPicker }
}
dialog ColorPicker {
  title "Rengini Seç"
  size 790 516 90 77
  option dbu
  icon 1, 2 2 8 8
  icon 2, 13 2 8 8
  icon 3, 24 2 8 8
  icon 4, 35 2 8 8
  icon 5, 46 2 8 8
  icon 6, 57 2 8 8
  icon 7, 68 2 8 8
  icon 8, 79 2 8 8
  icon 9, 2 15 8 8
  icon 10, 13 15 8 8
  icon 11, 24 15 8 8
  icon 12, 35 15 8 8
  icon 13, 46 15 8 8
  icon 14, 57 15 8 8
  icon 15, 68 15 8 8
  icon 16, 79 15 8 8
  button "", 17, 4 4 4 4
  button "", 18, 15 4 4 4
  button "", 19, 26 4 4 4
  button "", 20, 37 4 4 4
  button "", 21, 48 4 4 4
  button "", 22, 59 4 4 4
  button "", 23, 70 4 4 4
  button "", 24, 81 4 4 4
  button "", 25, 4 17 4 4
  button "", 26, 15 17 4 4
  button "", 27, 26 17 4 4
  button "", 28, 37 17 4 4
  button "", 29, 48 17 4 4
  button "", 30, 59 17 4 4
  button "", 31, 70 17 4 4
  button "", 32, 81 17 4 4
  icon 33, 6 36 34 34
  icon 34, 50 36 34 34
  radio "Normal Metin", 35, 4 26 42 8
  radio "Arka Plan", 36, 51 26 34 7
  button "Kapat", 37, 56 74 29 12, flat cancel
  button "Uygula", 38, 5 74 29 12, flat
  text "Cafe", 40, 38 76 15 8
}
On *:Dialog:ColorPicker:Close:*: {
  unset %ColorPicker*
}
On *:Dialog:ColorPicker:Sclick:*: {
  if ($did >= 17) && ($did <= 32) {
    if ($did(ColorPicker,35).state == 1) { 
      did -g ColorPicker 33 $+(ColorIcon\,ColorIcon,$calc($did - 17),.bmp)
      set %ColorPickerFG $calc($did - 17)
    }
    if ($did(ColorPicker,36).state == 1) { 
      did -g ColorPicker 34 $+(ColorIcon\,ColorIcon,$calc($did - 17),.bmp)
      set %ColorPickerBG $calc($did - 17)
    }
  }
  if ($did == 38) {
    color normal text %ColorPickerFG
    color background %ColorPickerBG
  }
}
On *:Dialog:ColorPicker:init:*: {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style dlgmodal
  MakeColorIcons
  var %c = 0
  while %c <= 15 {
    did -g ColorPicker $calc(%c + 1) $+(ColorIcon\,ColorIcon,%c,.bmp)
    inc %c
  }
  did -c ColorPicker 35
  set %ColorPickerFG $color(normal text)
  set %ColorPickerBG $color(background)
  did -g ColorPicker 33 $+(ColorIcon\ColorIcon,$color(normal text),.bmp)
  did -g ColorPicker 34 $+(ColorIcon\ColorIcon,$color(background),.bmp)
}

alias baslapop {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 1 Hakkında $cr /CafebiLgi
  %qp +
  %qp + 2 Web Sitesi $cr /run http://www.sohbetsen.org/
  %qp + 
  %qp +> 3 Denetim Masası $cr k2
  %qp + 
  %qp +> 3 Programlar $cr k3
  %qp + 
  %qp +> 3 Linkler $cr k4
  %qp +  
  %qp + 3 Yeniden Başlat $cr /vATAncikisi
  %qp +  
  %qp + 3 Script`i Kapat $cr /exit
  var %B popups LoadImg k3 icon
  var %N popups AddItem k3 end
  popups New k3 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Not Defteri $cr /run notepad.exe
  %N + 1 WordPad $cr /run wordpad.exe
  %N + 1 Windows Kayıt Düzenleyici $cr /run regedit.exe
  %N + 1 Paylaşılan Klasörler Menüsü $cr /run fsmgmt.msc
  %N + 1 İnternet Özellikleri $cr /run inetcpl.cpl
  %N + 1 Bölge Ve Dil Ayarları $cr /run intl.cpl
  %N + 1 Tarih Ve Saat Ayarları $cr /run timedate.cpl
  %N + 1 DirectX Tanı Aracı $cr /run dxdiag.exe
  %N + 1 Senkronizasyon $cr /run mobsync.exe
  %N + 1 Paylaşılan Klasör Sihirbazı $cr /run shrpubw.exe
  %N + 1 Şifre Bankası $cr /run syskey.exe
  var %B popups LoadImg k2 icon
  var %N popups AddItem k2 end
  popups New k2 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Disc Temizleyici $cr /run cleanmgr.exe
  %N + 1 Karakter Ayarlama $cr /run charmap.exe
  %N + 1 Hesap Makinesi $cr /run calc.exe
  %N + 1 Disc Yönetimi $cr /run diskmgmt.msc
  %N + 1 Aygıt Yöneticisi $cr /run devmgmt.msc
  %N + 1 Program Ekle/Kaldır $cr /run appwiz.cpl
  %N + 1 Görüntü Özellikleri $cr /run desk.cpl
  %N + 1 Ses/Efect Aygıtları $cr /run mmsys.cpl
  %N + 1 Görev Yöneticisi $cr /run taskmgr.exe
  %N + 1 Windows Gezgini $cr /run explorer.exe
  %N + 1 Sistem Düzenleme $cr /run sysedit.exe
  %N + 1 Güç Seçenekleri $cr /run powercfg.cpl
  %N + 1 Ağ Bağlantıları $cr /run rasphone.exe
  var %B popups LoadImg k4 icon
  var %N popups AddItem k4 end
  popups New k4 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 SohbetSen.Org Ana Sayfa $cr /run http://www.sohbetsen.org/
  %N + 1 mIRcevi.com Ana Sayfa $cr /run http://www.mircevi.com/
  %N + 1 HayaLetSohbet.Net Ana Sayfa $cr /run http://www.hayaletsohbet.net/
  %N + 1 IRCRehber.Org Ana Sayfa $cr /run http://www.ircrehber.org/
  %N + 1 TatLıYer.Net Ana Sayfa $cr /run http://www.tatliyer.net/
  %N + 1 KaliteSohbet.Net Ana Sayfa $cr /run http://www.kalitesohbet.net/
  %N + 1 HayaLupLoad Ana Sayfa $cr /run http://www.hayalupload.tk/
  %N +
  %N +> 1 Atatürk`ün Hayatı $cr k5
  %N +> 1 Fotoğrafları $cr k6
  %N + 1 Anıları $cr /run http://www.ataturkiye.com/anilari.html
  %N +> 1 Nutuk Ve Demeçleri $cr k7
  %N +> 1 Ardından Söylenenler/Yazılanlar $cr k8
  %N + 1 Mektupları $cr /run http://www.ataturkiye.com/mektuplari.html
  %N + 1 Devrimleri $cr /run http://www.ataturkiye.com/devrimler.html
  %N +> 1 İlkeleri  $cr /run http://www.ataturkiye.com/ilkeleri.html
  var %B popups LoadImg k5 icon
  var %N popups AddItem k5 end
  popups New k5 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Kronolojik Sırayla Hayatı $cr /run http://www.ataturkiye.com/hayati/kronoloji.html
  %N + 1 Kaynakçalı Atatürk Günlüğü $cr /run http://www.atam.gov.tr/index.php?Page=KaynakcaliGunluk
  var %B popups LoadImg k6 icon
  var %N popups AddItem k6 end
  popups New k6 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Gençlik Yılları $cr /run http://www.ataturkiye.com/fotograflari/genc001.html
  %N + 1 Savaş Yılları $cr /run http://www.ataturkiye.com/fotograflari/savas001.html
  %N + 1 Cumhuriyet Dönemi $cr /run http://www.ataturkiye.com/fotograflari/cum001.html
  var %B popups LoadImg k7 icon
  var %N popups AddItem k7 end
  popups New k7 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Meclis Açış Konuşmaları $cr /run http://www.ataturkiye.com/icindekiler.html
  %N + 1 10. Yıl Nutku $cr /run http://www.ataturkiye.com/nutuklari/onuncuyil.html
  %N + 1 Gençliğe Hitabe $cr /run http://www.ataturkiye.com/nutuklari/hitabe.html
  %N + 1 İstanbul Nutku $cr /run http://www.ataturkiye.com/nutuklari/istanbul.html
  %N + 1 Nutuk (Tam Metin) $cr /run http://www.atam.gov.tr/index.php?Page=Nutuk
  %N + 1 Söylev ve Demeçleri I-II-III  $cr /run http://www.atam.gov.tr/index.php?Page=SoylevDemecler
  var %B popups LoadImg k8 icon
  var %N popups AddItem k8 end
  popups New k8 13 13
  %B small SohbetSen\ico\2.ico
  %N + 1 Dünya Liderlerinin Söyledikleri $cr /run http://www.ataturkiye.com/dunyalider.html
  %N + 1 Dünya Basınının Yazdıkları $cr /run http://www.ataturkiye.com/dunyabasin.html
  pop bir %t
}

alias sespop {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 13 13
  %q normal SohbetSen\ico\38.ico
  %q normal SohbetSen\ico\39.ico
  %q normal SohbetSen\ico\38.ico
  %q normal SohbetSen\ico\39.ico
  %q normal SohbetSen\ico\39.ico
  %qp + 1 > Aç $cr /ebeeps on
  %qp + 
  %qp + 2 > Kapat $cr /ebeeps off
  pop bir %t
}


dialog site {
  title "..:SohbetSen Script® v.Cafe | Web Adresleri:.."
  size -1 -1 570 210
  icon SohbetSen\ico\36.ico
  option pixels
  icon 27, 10 5 550 50, SohbetSen\ico\grafik\SohbetSen8.png, 0
  button "idealclup.com", 1, 15 60 100 20, flat ok
  button "ircsohbet.org", 2, 15 85 100 20, flat ok
  button "İdeaLFM.OrG", 3, 15 110 100 20, flat ok
  button "Hürriyet.com.tr", 4, 15 135 100 20, flat ok
  button "Milliyet.com.tr", 5, 15 160 100 20, flat ok
  button "Kanalturk.com.tr", 6, 125 60 100 20, flat ok
  button "Canlitv.com", 7, 125 85 100 20, flat ok
  button "Flashtv.com.tr", 8, 125 110 100 20, flat ok
  button "Cine5.com.tr", 9, 125 135 100 20, flat
  button "Atv.com.tr", 10, 125 160 100 20, flat ok
  button "Showtvnet.com", 11, 234 60 100 20, flat ok
  button "Startv.com.tr", 12, 235 85 100 20, flat ok
  button "Tnttv.com.tr", 13, 235 110 100 20, flat ok
  button "Kanald.com.tr", 14, 235 135 100 20, flat ok
  button "Cemtv.com.tr", 15, 235 160 100 20, flat ok
  button "Kurtlarvadisi.com", 16, 345 60 100 20, flat ok
  button "Muhtesemyuzyil.tv", 17, 345 85 100 20, flat ok
  button "Dizi-izle.com", 18, 345 110 100 20, flat ok
  button "Sinema.com", 19, 345 135 100 20, flat ok
  button "Film.com.tr", 20, 345 160 100 20, flat ok
  button "Pencereyi Kapat", 21, 210 190 150 20, cancel
  button "Süperfm.com.tr", 22, 455 60 100 20, flat ok
  button "Alemfm.com", 23, 455 85 100 20, flat ok
  button "Kralfm.com.tr", 24, 455 110 100 20, flat ok
  button "Damarfm.com", 25, 455 135 100 20, flat ok
  button "Bestfm.com.tr", 26, 455 160 100 20, flat ok
}

on 1:dialog:site:sclick:1:/run www.idealclup.com
on 1:dialog:site:sclick:2:/run www.ircsohbet.org
on 1:dialog:site:sclick:3:/run www.idealfm.org
on 1:dialog:site:sclick:4:/run www.hürriyet.com.tr
on 1:dialog:site:sclick:5:/run www.milliyet.com.tr
on 1:dialog:site:sclick:6:/run www.kanalturk.com.tr
on 1:dialog:site:sclick:7:/run www.canlitv.com
on 1:dialog:site:sclick:8:/run www.flashtv.com.tr
on 1:dialog:site:sclick:9:/run www.cine5.com.tr
on 1:dialog:site:sclick:10:/run www.atv.com.tr
on 1:dialog:site:sclick:11:/run www.showtvnet.com
on 1:dialog:site:sclick:12:/run www.startv.com.tr
on 1:dialog:site:sclick:13:/run www.Tnttv.com.tr
on 1:dialog:site:sclick:14:/run www.kanald.com.tr
on 1:dialog:site:sclick:15:/run www.Cemtv.com.tr
on 1:dialog:site:sclick:16:/run www.Kurtlarvadisi.com
on 1:dialog:site:sclick:17:/run www.Muhtesemyuzyil.tv
on 1:dialog:site:sclick:18:/run www.dizi-izle.com
on 1:dialog:site:sclick:19:/run www.Sinema.com
on 1:dialog:site:sclick:20:/run www.Film.com.tr
on 1:dialog:site:sclick:22:/run www.Superfm.com.tr
on 1:dialog:site:sclick:23:/run www.Alemfm.com
on 1:dialog:site:sclick:24:/run www.Kralfm.com.tr
on 1:dialog:site:sclick:25:/run www.Damarfm.com
on 1:dialog:site:sclick:26:/run www.Bestfm.com.tr

alias site { dialog -m site site }

on *:dialog:site:*:*: {
  if $devent == init {
    { Splay $mircdirSohbetSen\sounds\Menu.wav }
    mdx SetMircVersion $version 
    mdx MarkDialog $dname
    mdx MarkDialog $dname $dialog($dname).hwnd
    mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 14 400 arial
  }
}

alias MuzikPop {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  var %t $mouse.dx $mouse.dy
  var %q popups LoadImg bir icon
  var %qp popups AddItem bir end
  popups New bir 15 15
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %q normal SohbetSen\ico\2.ico
  %qp + 1 Mp3 Player $cr /mp3c
  %qp + 
  %qp + 2 Radyo Player $cr /radyox
  pop bir %t
}

dialog CafebiLgi {
  title "SohbetSen Script v.Cafe"
  size 67 99 217 128
  option dbu
  icon SohbetSen\ico\36.ico
  text "", 1, 2 2  212 120
  button " Pencereyi Kapat ", 2, 75 125 54 12, ok
}
alias CafebiLgi {
  if (!$dialog(CafebiLgi)) dialog -m CafebiLgi CafebiLgi
}
alias -l writetext {
  if ($isfile(SohbetSen/ini/info.txt) == $false) write SohbetSen/ini/info.txt $+(SohbetSen Script v.Cafe ™,$crlf,By OzeL,$crlf,v.Cafe ™,$crlf,OzeL,$crlf,Sürüm : v.Cafe ™,$crlf,İyi Sohbetler)
}
on *:dialog:CafebiLgi:init:*: {
  { Splay $mircdirSohbetSen\sounds\Menu.wav }
  mdx SetMircVersion $version 
  mdx MarkDialog $dname
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style dlgmodal
  mdx MarkDialog $dname
  mdx SetFont 2 14 700 arial
  mdx SetDialog [ $dname ] bgcolor $rgb(250,250,250)
  mdx SetColor $dname 2 background $rgb(010,180,255)
  writetext
  dll SohbetSen/dll/titler.dll TitlerBox $dialog($dname).hwnd 1 $rgb(151,13,20) Arial 14 $rgb(255,255,255) 20 SohbetSen/ini/info.txt

}

on *:dialog:TR-balon:sclick:*: {
  if ($did == 2) { 
    if ($did(2).state == 1) { set %baglanuyarisi ON | echo -a 15,6Bağlantı Uyarı Balonu Açık | .enable #baglanuyarisi } 
    else { set %baglanuyarisi OFF | echo -a 6,15Bağlantı Uyarı Balonu Kapalı | .disable #baglanuyarisi }
  }
  if ($did == 3) {
    if ($did(3).state == 1) { set %kopuyarisi ON | echo -a 15,6Kopma Uyarı Balonu Açık | .enable #kopuyarisi }
    else { set %kopuyarisi OFF | echo -a 6,15Kopma Uyarı Balonu Kapalı | .disable #kopuyarisi }
  }
  if ($did == 4) {
    if ($did(4).state == 1) { set %kanaluyarıcı ON | echo -a 15,6Kanal Uyarı Balonu Açık | .enable #kanaluyarıcı  }
    else { set %kanaluyarıcı OFF | echo -a 6,15Kanal Uyarı Balonu Kapalı | .disable #kanaluyarıcı  }
  }
  if ($did == 5) {
    if ($did(5).state == 1) { set %kicklendim ON | echo -a 15,6Kicklenme Uyarı Balonu Açık | .enable #kicklendim  }
    else { set %kicklendim OFF | echo -a 6,15Kicklenme Uyarı Balonu Kapalı | .disable #kicklendim  }
  }
  if ($did == 7) {
    if ($did(7).state == 1) { set %notifybalon ON | echo -a 15,6Notify Uyarı Balonu Açık | .enable #notifybalon }
    else { set %notifybalon OFF | echo -a 6,15Notify Uyarı Balonu Kapalı | .disable #notifybalon }
  }
  if ($did == 6) {
    if ($did(6).state == 1) { set %ozeluyarıcı ON | echo -a 15,6Özel Uyarı Balonu Açık | .enable #ozeluyarıcı }
    else { set %ozeluyarıcı OFF | echo -a 6,15Özel Uyarı Balonu Kapalı | .disable #ozeluyarıcı }
  }
  if ($did == 9) {
    if ($did(9).state == 1) { set %opoldum ON | echo -a 15,6Op Uyarı Balonu Açık | .enable #opoldum }
    else { set %opoldum OFF | echo -a 6,15Op Uyarı Balonu Kapalı | .disable #opoldum }
  }
  if ($did == 8) {
    if ($did(8).state == 1) { set %deopoldum ON | echo -a 15,6DeOp Uyarı Balonu Açık | .enable #deopoldum }
    else { set %deopoldum OFF | echo -a 6,15DeOp Uyarı Balonu Kapalı | .disable #deopoldum }
  }
  if ($did == 11) {
    if ($did(11).state == 1) { set %voiceoldum ON | echo -a 15,6Voice Uyarı Balonu Açık | .enable #voiceoldum }
    else { set %voiceoldum OFF | echo -a 6,15Voice Uyarı Balonu Kapalı | .disable #voiceoldum }
  }            
  if ($did == 10) {
    if ($did(10).state == 1) { set %devoiceoldum ON | echo -a 15,6DeVoice Uyarı Balonu Açık | .enable #devoiceoldum }
    else { set %devoiceoldum OFF | echo -a 6,15DeVoice Uyarı Balonu Kapalı | .disable #devoiceoldum }
  }
  if ($did == 16) {
    if ($did(16).state == 1) { set %banlandim ON | echo -a 15,6Ban Uyarı Balonu Açık | .enable #banlandim }
    else { set %banlandim OFF | echo -a 6,15Ban Uyarı Balonu Kapalı | .disable #banlandim }
  }
  if ($did == 17) {
    if ($did(17).state == 1) { set %noticeuyari ON | echo -a 15,6Notice Uyarı Balonu Açık | .enable #noticeuyari }
    else { set %noticeuyari OFF | echo -a 6,15Notice Uyarı Balonu Kapalı | .disable #noticeuyari }
  }           
}

on *:dialog:TR-balon:init:*: {
  %.anim._i = 0 | .timer_anim -m 0 1 TR-baLon.anim
  mdxinit
  mdx SetFont 14 25 100 Sylfaen
  mdx SetColor 14 text [  $rgb(179,0,0) ]
  mdx SetColor 1,2,3,4,5,6,7,8,9,10,11,12,14,16,17 textbg %scriptlogo
  mdx SetColor 1,2,3,4,5,6,7,8,9,10,11,14,12,16,17 background %scriptlogo
  mdx SetDialog [ $dname ] bgcolor %scriptlogo
  if (%baglanuyarisi == ON) { did -c $dname 2 }
  if (%kopuyarisi == ON) { did -c $dname 3 }
  if (%kanaluyarıcı == ON) { did -c $dname 4 }
  if (%kicklendim == ON) { did -c $dname 5 }
  if (%notifybalon == ON) { did -c $dname 7 }
  if (%ozeluyarıcı == ON) { did -c $dname 6 }
  if (%opoldum == ON) { did -c $dname 9 }
  if (%deopoldum == ON) { did -c $dname 8 }
  if (%voiceoldum == ON) { did -c $dname 11 }
  if (%devoiceoldum == ON) { did -c $dname 10 }
  if (%banlandim == ON) { did -c $dname 16 }
  if (%noticeuyari == ON) { did -c $dname 17 }
}
alias -l TR-balon.anim {
  if (($dialog(TR-balon) == $null) || (%.anim._i > 160)) { 
    .timer_anim off
    unset %.anim.tmp* %.anim._i | return 
  }
  :1
  %.anim.tmpx = $calc(($window(-1).w / 2) - %.anim._i)
  %.anim.tmpy = $calc(($window(-1).h / 2) - %.anim._i)
  %.anim.tmpw = $calc(%.anim._i * 2)
  %.anim.tmph = $calc(%.anim._i * 2)
  dialog -s TR-balon %.anim.tmpx %.anim.tmpy %.anim.tmpw %.anim.tmph
  inc %.anim._i 1
}
alias mtt_dll { return $dll(SohbetSen\DLL\mtt_dll,$1,$2-) }
alias mtooltips { return $dll(SohbetSen\DLL\mTooltips.dll,$1,$2-) }
alias balon {
  mtooltips TrayInit 0 $mircdirSohbetSen\ico\ $+ 37.ico > > ...:::ı|[ ~ SohbetSen Script® v.Cafe ~ ]|ı:::...
  var %mtt1 = $gettok($1-,1,221)
  var %mtt2 = $gettok($1-,2,221)
  mtooltips Balloon +1 %mtt1 $chr(4) %mtt2
}
alias mIRcbaLon {
  mtooltips TrayInit 0 $mircdirSohbetSen\ico\ $+ 37.ico > > ...:::ı|[ ~ SohbetSen Script® v.Cafe ~ ]|ı:::...
  mtooltips Balloon +1 ...:::ı|[ SohbetSen v.Cafe ]|ı:::... $chr(4) $1-
}
;; 2 ;; 
#baglanuyarisi on
on *:connect:{ balon SohbetSen Script® v.Cafe İ  IRC Bağlantıdı Kuruldu. }
#baglanuyarisi end

;; 3 ;;
#kopuyarisi on
on *:disconnect:{ balon SohbetSen Script® v.Cafe İ  IRC Bağlantısı KesiLdi. }
#kopuyarisi end


alias yükle { dialog -m yükle yükle }
dialog yükle {
  title "Yükleniyor..."
  size -1 -1 156 40
  option dbu
  icon 3, 2 4 150 30, SohbetSen\ico\grafik\SohbetSen9.jpg, 0
  text "0", 4, 2 40 151 8
}
	
alias mdx { return $dll(SohbetSen\dll\mdx.dll,$1,$2-) }

on *:dialog:yükle:*:*:{
  if $devent == init {
    mdx SetMircVersion $version 
    mdx MarkDialog $dname
    mdx SetDialog $dname style dlgmodal
    mdx SetControlMDX $dname 4 ProgressBar smooth > SohbetSen\dll\ctl_gen.mdx
    .timeryükle -m 0 10 _mirc.yükle
  }
}

alias _mirc.yükle {
  did -a yükle 4 $calc($gettok($did(yükle,4),1,32) + 1)
  if !$dialog(yükle) || $gettok($did(yükle,4),1,32) == 100 {
    .timeryükle off
    if $dialog(yükle) {
      dialog -x yükle
    }
  }
}

on *:START:{ yükle }
