on *:disconnect:{ .timers off }
alias helps { .dialog -m help help }

dialog help {
  size -1 -1 223 128
  option dbu
  title "..: SohbetSen Cafe - Bağlantı Ayarları :.."
  icon 100, 2 2 200 20, " $+ $mircdirSohbetSen\ico\grafik\SohbetSen2.jpg $+ "
  tab "Baglantı Yoneticisi" 101, 3 23 216 100 , center
  ;tab "Kullanıcı Işlemleri" 102, 3 23 216 100 , center
  box "" 90, 8  39 59 50 , tab 101
  box "" 91, 8  85 59 32 , tab 101
  box "" 92, 67 72 90 45, tab 101
  box "" 93, 157 77 58 40, tab 101
  box "" 94, 157 39 58 41, tab 101 
  edit "Nick * Rumuz" 60, 10 45 54 9, center read tab 101
  edit "" 61, 10 54 54 9, center autohs tab 101
  edit "Ident" 62, 10 67 54 9, center read tab 101
  edit "" 63, 10 76 54 9, center autohs tab 101
  edit "Giriş Kanalı" 64, 161 82 50 9, center read tab 101
  combo 65, 161 91 50 30,vsbar,sort tab 101
  button "SohbetSen.org 'a Bağlan" 1, 69 44 86 15, flat ok tab 101
  button "SohbetSen" 3, 10 91 55 12, flat tab 101
  combo 30, 70 78 84 30,vsbar,sort tab 101
  button "Sectiğim Sunucuya Bağlan" 31, 70 104 84 10, flat tab 101
  ;text "Otomatik Kullanıcı Işlemleri menusunde bulunmaktasınız," 230, 12 44 200 13 , tab 102
  ;text "Aşadaki Soruya dogru cevap vermeniz nick güvenliği açısından oldukça önemlidir." 231, 12 52 200 13 , tab 102
  ;radio "Evet, Internet Cafe Kullanıcısıyım.", 131, 12 65 90 13 , tab 102
  ;radio "Hayır, Internet Cafe Kullanıcısı Değilim.", 132, 106 65 100 13 , tab 102
  ;edit "Nick Belirtiniz" 141,17 80 46 10, center read tab 102
  ;edit "Şifre Belirtiniz" 142, 17 91 46 10 , center read tab 102
  ;edit "" 145, 64 80 46 10, center autohs limit 30 tab 102
  ;edit "" 146, 64 91 46 10, center autohs limit 30 tab 102
}

on *:dialog:help:*:*:{
  if ($devent == init) { 
    mdx.
    mdx SetFont $dname 1,2 text 200
    mdx SetFont $dname 1,2 12 650 verdana
    mdx SetFont $dname 3,4,30,31,60,61,62,63,64,65,131,132,141,142,145,146,230,231 text 200
    mdx SetFont $dname 3,4,30,31,60,61,62,63,64,65,131,132,141,142,145,146,230,231 12 500 verdana
    did -a $dname 61 $readini mirc.ini mirc nick
    did -a $dname 63 $readini mirc.ini ident userid
    did -ca help 30 irc.sohbetsen.org
    did -ca help 65 #sohbetsen
    ;did -c help 131 | did -b help 145,146
  }
  if ($devent == sclick) { 
    if ($did = 31) {
      set %gchn $did(65).text
      var %serv = $did(30).text
      if ( %serv == $null ) { .server irc.sohbetsen.org | .dialog -x help help }
      else { .dialog -x help help | /.server %serv | halt }
    }
    if ($did = 1 ) { .nick $did(61) | .emailaddr $did(63)  $+ @sohbetsen.org | .set %gchn $did(65).text | .server irc.sohbetsen.org |  .dialog -x help help }
    ; if ($did = 2 ) { .nick $did(61) | .emailaddr $did(63)  $+ @sohbetsen.org | .set %gchn $did(65).text | .server irc.sohbetsen.org |  .dialog -x help help }
    ; if ($did = 3 ) { .nick $did(61) | .emailaddr $did(63)  $+ @sohbetsen.org | .set %gchn $did(65).text | .server irc.sohbetsen.org |  .dialog -x help help }
    ; if ($did = 4 ) { .nick $did(61) | .emailaddr $did(63)  $+ @sohbetsen.org | .set %gchn $did(65).text | .server irc.sohbetsen.org |  .dialog -x help help  }
    ; if ($did = 5 ) { .dialog -x help help | SohbetSenweb www.sohbetsen.org }
    ; if ($did = 6 ) { .dialog -x help help | SohbetSenweb www.sohbetsen.org }
    ; if ($did = 7 ) { .dialog -x help help | SohbetSenweb www.sohbetsen.org }
    ;if ($did = 131) { did -e help 132 | did -b help 145,146  } 
    ;if ($did = 132) { did -e help 131 | did -e help 145,146  }
  }
  if ($devent == dclick) { 
  }
}
