alias SuperAdmines { dialog -m SuperAdmin  SuperAdmin  }                
dialog SuperAdmin {
  title "OzlemSohbet m Super Admin"
  size -1 -1 140 130
  option dbu
  icon $mircdir\icons\kanal.ico
  button "Admin ON", 1, 10 17 35 12
  button "Chg Ident", 2, 49 17 35 12
  button "Chg Host", 3, 49 32 35 12
  button "Svs Nick", 4, 88 32 35 12
  button "Admin OFF", 5, 10 32 35 12
  button "Chg Name", 6, 88 17 35 12
  box "Super Admin Menu", 7, 6 7 126 46
  button "WallOps", 8, 9 67 35 12
  button "AdChat", 9, 49 67 35 12
  button "GLobal", 10, 89 67 35 12
  button "NeChat", 11, 48 83 35 12
  button "TeChat", 12, 89 83 35 12
  button "Locops", 13, 9 83 35 12
  box "Global Mesaj Menu", 14, 6 57 126 46
  button "Tamam", 15, 34 106 45 16, ok
  button "Iptal", 16, 88 106 45 16, cancel
  box "Super Box", 17, 3 0 134 127
  icon 18, 8 107 24 15, $mircdir\icons\kanal.ico
}
on *:dialog:SuperAdmin:init:*: {
  mdxinit
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 7,14,17 textbg $rgb(210,210,200) 
  mdx SetColor $dname 7,14,17 background $rgb(210,210,200)
  mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 12 700 tahoma
  mdx SetBorderStyle 1,2,3,4,5,6,8,9,10,11,12,13,15,16 staticedge
}
on *:dialog:SuperAdmin:sclick:1:{ os set superadmin on }
on *:dialog:SuperAdmin:sclick:5:{ os set superadmin off }
on *:dialog:SuperAdmin:sclick:*:{
  if $did == 16 { halt }
  if $did == 2 { 
    if $dialog(Ident) == $null {
      %Ident.t = Chg Ident 
      %Ident.b = Tamam
      %Ident.c = chgident
      dialog -ma Ident Ident
  } }
  if $did == 3 { 
    if $dialog(Host) == $null {
      %Host.t = Chg Host 
      %Host.b = Tamam
      %Host.c = chghost
      dialog -ma Host Host
  } }
  if $did == 6 { 
    if $dialog(Name) == $null {
      %Name.t = Chg Name 
      %Name.b = Tamam
      %Name.c = chgname
      dialog -ma Name Name
  } }
  if $did == 4 { 
    if $dialog(SvsNick) == $null {
      %SvsNick.t = Degistirilcek Nick
      %SvsNick.b = Tamam
      %SvsNick.c = SvsNick
      dialog -ma SvsNick SvsNick
  } }
  if $did == 8 { 
    if $dialog(Wallops) == $null {
      %WallOps.t = WallOps Mesaji
      %WallOps.b = Tamam
      %WallOps.c = wallops
      dialog -ma Wallops Wallops
  } }
  if $did == 13 { 
    if $dialog(Locops) == $null {
      %Locops.t = LocOps Mesaji
      %Locops.b = Tamam
      %Locops.c = locops
      dialog -ma Locops Locops
  } }
  if $did == 9 { 
    if $dialog(AdChat) == $null {
      %AdChat.t = AdChat Mesaji
      %AdChat.b = Tamam
      %AdChat.c = AdChat
      dialog -ma AdChat AdChat
  } }
  if $did == 11 { 
    if $dialog(NeChat) == $null {
      %NeChat.t = NeChat Mesaji
      %NeChat.b = Tamam
      %NeChat.c = NeChat
      dialog -ma NeChat NeChat
  } }
  if $did == 12 { 
    if $dialog(TeChat) == $null {
      %TeChat.t = TeChat Mesaji
      %TeChat.b = Tamam
      %TeChat.c = TeChat
      dialog -ma TeChat TeChat
  } }
  if $did == 10 { 
    if $dialog(Global) == $null {
      %Global.t = Global Mesaji
      %Global.b = Tamam
      %Global.c = Global
      dialog -ma Global Global
  } }
}
dialog Ident {
  title %Ident.t
  size 290 181 229 101
  icon $mircdiricons\kanal.ico
  button %Ident.b, 1, 34 73 75 20,ok flat
  text "Nick", 2, 25 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Ident", 4, 23 31 34 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgec", 9, 123 72 75 20,cancel flat
}
on 1:dialog:Ident:sclick:1:{
  if $did(3) == $null { %merromsg = Nick Yazmadiniz.. | dialog -ma Merro Merro | halt }
  if $did(5) == $null { %merromsg = Ident Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %Ident.c $did(3) $did(5)   
  unset %Ident.*
}
on *:dialog:Ident:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2,4 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2,4 background $rgb(210,210,200)
  mdx SetColor 2,4  text $rgb(0,0,255)
  mdx SetFont 1,2,3,4,5,9 13 800 verdana
  mdx SetColor 3,5  text $rgb(199,21,133)
  mdx SetColor $dname 3,5 textbg $rgb(151,205,133)
  mdx SetColor $dname 3,5 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog Host {
  title %Host.t
  size 290 181 229 101
  icon $mircdiricon\super.ico
  button %Host.b, 1, 34 73 75 20,ok flat
  text "Nick", 2, 25 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Host", 4, 23 31 34 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgec", 9, 123 72 75 20,cancel flat
}
on 1:dialog:Host:sclick:1:{
  if $did(3) == $null { %merromsg = Nick Yazmadiniz.. | dialog -ma Merro Merro | halt }
  if $did(5) == $null { %merromsg = Host Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %Host.c $did(3) $did(5)   
  unset %Host.*
}
on *:dialog:Host:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2,4 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2,4 background $rgb(210,210,200)
  mdx SetColor 2,4  text $rgb(0,0,255)
  mdx SetFont 1,2,3,4,5,9 13 800 verdana
  mdx SetColor 3,5  text $rgb(199,21,133)
  mdx SetColor $dname 3,5 textbg $rgb(151,205,133)
  mdx SetColor $dname 3,5 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog Name {
  title %Name.t
  size 290 181 229 101
  icon $mircdiricon\super.ico
  button %Host.b, 1, 34 73 75 20,ok flat
  text "Nick", 2, 25 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Name", 4, 23 31 38 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgec", 9, 123 72 75 20,cancel flat
}
on 1:dialog:Name:sclick:1:{
  if $did(3) == $null { %merromsg = Nick Yazmadiniz.. | dialog -ma Merro Merro | halt }
  if $did(5) == $null { %merromsg = Name Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %Name.c $did(3) $did(5)   
  unset %Name.*
}
on *:dialog:Name:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2,4 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2,4 background $rgb(210,210,200)
  mdx SetColor 2,4  text $rgb(0,0,255)
  mdx SetFont 1,2,3,4,5,9 13 800 verdana
  mdx SetColor 3,5  text $rgb(199,21,133)
  mdx SetColor $dname 3,5 textbg $rgb(151,205,133)
  mdx SetColor $dname 3,5 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog SvsNick {
  title %SvsNick.t
  size 290 181 229 101
  icon $mircdiricon\super.ico
  button %SvsNick.b, 1, 34 73 75 20,ok flat
  text "Nick", 2, 25 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Svs", 4, 25 31 34 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgec", 9, 123 72 75 20,cancel flat
}
on 1:dialog:SvsNick:sclick:1:{
  if $did(3) == $null { %merromsg = Nick Yazmadiniz.. | dialog -ma Merro Merro | halt }
  if $did(5) == $null { %merromsg = SvsNick Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %msg operserv %SvsNick.c $did(3) $did(5)   
  unset %SvsNick.*
}
on *:dialog:SvsNick:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2,4 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2,4 background $rgb(210,210,200)
  mdx SetColor 2,4  text $rgb(0,0,255)
  mdx SetFont 1,2,3,4,5,9 13 800 verdana
  mdx SetColor 3,5  text $rgb(199,21,133)
  mdx SetColor $dname 3,5 textbg $rgb(151,205,133)
  mdx SetColor $dname 3,5 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog Wallops {
  title %Wallops.t
  size 290 181 259 171
  icon $mircdiricons\kanal.ico
  button %Wallops.b, 1, 34 143 75 20,ok flat
  text "WallOps Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:Wallops:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %Wallops.c $did(3)   
  unset %Wallops.*
}
on *:dialog:Wallops:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog Locops {
  title %Locops.t
  size 290 181 259 171
  icon $mircdiricon\super.ico
  button %Locops.b, 1, 34 143 75 20,ok flat
  text "Locops Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:Locops:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %Locops.c $did(3)   
  unset %Locops.*
}
on *:dialog:Locops:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog AdChat {
  title %AdChat.t
  size 290 181 259 171
  icon $mircdiricons\kanal.ico
  button %AdChat.b, 1, 34 143 75 20,ok flat
  text "AdChat Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:AdChat:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %AdChat.c $did(3)   
  unset %AdChat.*
}
on *:dialog:AdChat:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog NeChat {
  title %NeChat.t
  size 290 181 259 171
  icon $mircdiricons\kanal.ico
  button %NeChat.b, 1, 34 143 75 20,ok flat
  text "NeChat Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:NeChat:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %NeChat.c $did(3)   
  unset %NeChat.*
}
on *:dialog:NeChat:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog TeChat {
  title %TeChat.t
  size 290 181 259 171
  icon $mircdiricons\kanal.ico
  button %TeChat.b, 1, 34 143 75 20,ok flat
  text "TeChat Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:TeChat:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %TeChat.c $did(3)   
  unset %TeChat.*
}
on *:dialog:TeChat:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}
dialog Global {
  title %Global.t
  size 290 181 259 171
  icon $mircdiricons\kanal.ico
  button %Global.b, 1, 34 143 75 20,ok flat
  text "Global Mesajinizi Yaziniz", 2, 48 10 175 18
  edit "", 3, 25 40 208 79, multi, return, vsbar
  box "", 8, 11 125 227 11
  button "Vazgec", 9, 133 143 75 20,cancel flat
}
on 1:dialog:Global:sclick:1:{
  if $did(3) == $null { %merromsg = Mesaji Yazmadiniz.. | dialog -ma Merro Merro | halt }
  %msg operserv  %Global.c $did(3)   
  unset %Global.*
}
on *:dialog:Global:init:0:{ 
  mdxinit 
  mdx SetDialog  $dname  bgcolor  $rgb(210,210,200)
  mdx SetColor $dname 1,2 textbg $rgb(210,210,200) 
  mdx SetColor $dname 1,2 background $rgb(210,210,200)
  mdx SetFont 1,2,3,9 13 800 Tahoma
  mdx SetColor 2 text $rgb(0,0,255)
  mdx SetColor $dname 3 textbg $rgb(151,205,133)
  mdx SetColor $dname 3 background $rgb(151,205,133)
  mdx SetBorderStyle 1,9 staticedge 
}

dialog Merro {
  title "Bir Hata oLustu"
  size 238 164 220 90
  icon $mircdiricons\kanal.ico
  text %merromsg, 2, 40 19 145 18, center
  box "", 3, 12 46 196 10
  button "Tamam", 4, 72 62 75 22, ok flat
}
on *:dialog:Merro:init:0:{ 
  mdxinit 
  mdx SetColor 2,4  text $rgb(219,112,147)
  mdx SetFont 2,4 13 800 verdana
  mdx SetBorderStyle 4 staticedge 
}

alias OzlemFm { 
  if ($window($active) != @OzlemFm) &&  (!$window(@OzlemFm)) {
    window -peng1k0 @OzlemFm
    editbox @OzlemFm $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@OzlemFm).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox @OzlemFm OzlemSohbet m  OzlemFm  Sunar  İyi Eglenceler.

  }
  if ($window($active) == @OzlemFm) &&  ($window(@OzlemFm)) {
    editbox @OzlemFm $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@OzlemFm).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox OzlemFm
  }
}
