on *:disconnect:{ unset %appia } }
on *:disconnect:{ .timers off }
alias TRmirc2 {  
  if !$dialog(TRmirc2) { .dialog -m  TRmirc_baglanti TRmirc_baglanti }
  else { return }
}
dialog TRmirc_baglanti {
  title "AnlaSevgimi ScripT .-. Sunucu Baglantı  "
  size 250 120 335 480
  icon $mircdirTRmirc\iconlar\butterfly.ico
  icon  101, -129 -250 600 600 , $mircdirTRmirc\resimler\baglanti.jpg
  tab "Baglan", 81, -1 90 340 340 
  tab "Hakkımızda (?)", 82  
  text "AnlaSevgimi.Com Tüm Hakları Saklıdır..." 51, 60 455 300 20 , disable
  text AnlaSevgimi ScripT %TRmircsayac Defa Açıldı. , 52, 90 435 160 20
  text &Sirinlerim Scriptin İLK ve TEK Download adresi, 53, 35 130 115 80, tab 82
  text ''dir. , 54, 258 143 120 15, tab 82
  text "iRCd/Web/BNC/EGGDROP » ", 55, 35 190 140 90, tab 82
  text "info@AnlaSevgimi.Com adına mail adresinizi ", 56, 20 216 200 110, tab 82
  text "Web Sitemiz:", 57, 35 260 100 30, tab 82
  text "adresinden alabilirsiniz.", 58, 112 230 120 20, tab 82
  text ":" 59, 144 131 88 20, tab 81 enable
  link "wWw.AnlaSevgimi.Com", 91, 156 142 100 100, tab 82
  link "wWw.AnlaSevgimi.Com", 92, 175 189 140 100, tab 82
  link "wWw.AnlaSevgimi.Com", 93, 220 215 100 20, tab 82
  edit "Nickinizi Giriniz" 62, 60 130 82 20,  read tab 81
  edit "" 61, 150 130 120 20,autohs tab 81
  check "Farklı Bağlantıda Aç (-m)" 99, 100 158 150 15,flat tab 81 flat
  edit "http://wWw.AnlaSevgimi.Com", 63, 100 256 142 20, disable tab 82 multi return
  button "AnlaSevgimi ScripT Tıklayın sizde ögrenin...", 10, 50 310 220 25, tab 82
  box "" 41, 5 169 325 115
  box "" 42, 5 274 325 145 
  combo 71, 65 287 208 100,vsbar,sort tab 81
  button "- S O H B E T E    B A G L A N -" 1, 69 185 200 30, flat default tab 81
  button "AnlaSevgimi" 2, 20 220 70 25, flat tab 81
  button "Sectigim Sunucuya Baglan" 9, 55 384 230 30, flat tab 81
}
on *:DIALOG:TRmirc_baglanti:init:0:{
  did -a $dname 61 $readini mirc.ini mirc nick
  did -a TRmirc_baglanti 71 irc.AnlaSevgimi.Com
  if (%appia) { .did -c $dname 99 }  
}

on *:DIALOG:TRmirc_baglanti:dclick:71: { 
  var %serv = $did(71).text
  /server %serv
}
on *:DIALOG:TRmirc_baglanti:sclick:9: {
  var %serv = $did(71).text
  if ($did(99).state == 1) { appi. }
  if ( %serv == $null ) { /server irc.AnlaSevgimi.Com | /dialog -x TRmirc_baglanti TRmirc_baglanti }
  else { /dialog -x TRmirc_baglanti TRmirc_baglanti | /.server %serv | halt }
}
alias appi. {
  var %serv = $did(71).text
  if ( %serv == $null ) { /server -m irc.trmirc.com | /dialog -x TRmirc_baglanti TRmirc_baglanti }
  else { /dialog -x TRmirc_baglanti TRmirc_baglanti | .server -m %serv | halt }
}

button "AnlaSevgimi" 2, 20 220 70 25, flat tab 81
button "ULuchat" 3, 95 220 70 25, flat tab 81
button "SanalAsklar" 4, 170 220 70 25, flat tab 81
button "Daynet" 5, 245 220 70 25, flat tab 81
button "NetteSevgili" 6, 20 250 70 25, flat tab 81
button "HobiSohbet" 7, 95 250 70 25, flat tab 81
button "WebSohbeti" 333, 170 250 70 25, flat tab 81
button "inceden" 334, 245 250 70 25, flat tab 81
button "Sectigim Sunucuya Baglan" 9, 55 384 230 30, flat tab 81



On *:DIALOG:TRmIRC_baglanti:sclick:*:{
  if ($did == 99) { if ($did(99).state == 1) { .set %appia on } | else { .unset %appia } }
  if ($did(99).state == 1) { appi }
  else {
    if ($did == 1 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 2 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6668 }
    if ($did == 3 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 4 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 5 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 6 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 7 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 333 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 334 ) { .nick $did(61) | .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server irc.AnlaSevgimi.Com 6667 }
    if ($did == 10 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .run http://wWw.AnlaSevgimi.Com }
    if ($did == 91 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .run http://wWw.AnlaSevgimi.Com }
    if ($did == 92 ) {  .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .run http://wWw.AnlaSevgimi.Com }
    if ($did == 93 ) {  .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .run http://wWw.AnlaSevgimi.Com }
  }
}
alias appi {
  if ($did == 1 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 2 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6668 }
  if ($did == 3 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667  }
  if ($did == 4 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 5 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 6 ) {  .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 7 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 333 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
  if ($did == 334 ) { .dialog -x TRmIRC_baglanti TRmIRC_baglanti | .server -m irc.AnlaSevgimi.Com 6667 }
}
