alias nickservx { 
  if !$dialog(nickservx) { /dialog -m nickservx nickservx }
  else { return }
}
dialog nickservx {
  title "AnlaSevgimi ScripT .-. NickServ Paneli"
  size -1 -1 300 381
  icon $mircdirTRmirc\iconlar\butterfly.ico
  box "Basit Komutlar", 1, 7 5 284 46
  button "Sendpass", 2, 200 167 85 21,flat
  button "Identify", 3, 106 22 85 21,flat
  button "Drop", 4, 196 22 85 21,flat
  box "Recover nick", 5, 7 54 285 46
  button "Kill ghost", 6, 16 72 85 21,flat
  button "Kill nick", 7, 108 71 85 21,flat
  button "Recover", 8, 198 71 85 21,flat
  box "Ayarlar", 9, 7 103 287 46
  button "Email Degistir", 10, 16 120 85 21,flat
  button "URL Degistir", 11, 105 120 91 21,flat
  button "Sifreyi Degistir", 12, 201 120 85 21,flat
  box "Bilgileri", 13, 7 152 285 46
  button "Nick Info", 14, 16 168 85 21,flat
  button "List Nick", 15, 106 167 85 21,flat
  button "Ekle", 16, 108 322 85 21,flat
  box "Korumalar", 17, 7 197 286 107
  box "Kill", 18, 15 210 131 43
  button "Kapa", 21, 83 226 56 21,flat
  button "Aç", 19, 21 226 56 21,flat
  box "Secure", 20, 154 210 131 43
  button "Kapa", 22, 226 226 50 21,flat
  button "Aç", 23, 161 226 56 21,flat
  box "Private", 24, 16 255 131 43
  button "Aç", 28, 22 271 56 21,flat
  button "Kapa", 26, 85 271 56 21,flat
  box "Hide usermask", 25, 154 256 131 43
  button "Kapa", 27, 221 272 56 21,flat
  button "Aç", 29, 159 272 56 21,flat
  box "Hosts", 30, 7 307 283 41
  button "List hosts", 32, 16 322 85 21,flat
  button "Nick Kaydet", 33, 16 22 85 21,flat
  button "Kaldir", 34, 198 322 85 21,flat
  button "Tamam", 35, 55 354 85 22,ok flat default
  button "iptal", 36, 158 354 86 21,cancel flat
}
on 1:dialog:nickservx:sclick:*:{
  if $did == 36 { halt }
  if $did == 3 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick Tanıtma
      %nick.b = Tanımla
      %nick.c = identify
      %nick.e = Sifre:
      dialog -ma nick1 nick1 
  } }
  if $did == 4 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick Droplama
      %nick.b = Tamam
      %nick.c = drop
      %nick.e = Sifre:
  } }
  if $did == 33 { 
    if $dialog(nick1) == $null {
      %nick.t = Register nick 
      %nick.b = Kaydet
      %nick.e = Sifre:
      %nick.c = register       
      dialog -ma nick4 nick4
  } }
  if $did == 6 { 
    if $dialog(nick1) == $null {
      %nick.t = Asılı Nick 
      %nick.b = Kurtar
      %nick.c = ghost
      dialog -ma nick2 nick2
  } }
  if $did == 7 { 
    if $dialog(nick1) == $null {
      %nick.t = Kill nick 
      %nick.b = KiLL
      %nick.c = recover
      dialog -ma nick2 nick2
  } }
  if $did == 8 { 
    if $dialog(nick1) == $null {
      %nick.t = Recover nick 
      %nick.b = Recover
      %nick.c = release
      dialog -ma nick2 nick2
  } }
  if $did == 10 { 
    if $dialog(nick1) == $null {
      %nick.t = Email Değiştir
      %nick.b = Tamam
      %nick.c = set email
      %nick.e = Email:
      dialog -ma nick1 nick1
  } }
  if $did == 11 { 
    if $dialog(nick1) == $null {
      %nick.t = URL Değiştir
      %nick.b = Tamam
      %nick.c = set url
      %nick.e = URL:
      dialog -ma nick1 nick1
  } }
  if $did == 12 { 
    if $dialog(nick1) == $null {
      %nick.t = Şifreyi Değiştir...
      %nick.b = Tamam
      %nick.c = set password
      %nick.e = Yeni:
      dialog -ma nick1 nick1
  } }
  if $did == 14 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick info Bilgisi
      %nick.b = Tamam
      %nick.c = info
      %nick.e = Nick:
      dialog -ma nick1 nick1
  } }
  if $did == 15 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick List 
      %nick.b = Tamam
      %nick.c = list
      %nick.e = Nick/Host:
      dialog -ma nick1 nick1
  } }
  if $did == 2 { 
    if $dialog(nick1) == $null {
      %nick.t = Sendpass
      %nick.b = Tamam
      %nick.c = sendpass
      %nick.e = Gönd. Nick
      dialog -ma nick1 nick1
  } }
  if $did == 4 { .dialog -ma nick3 nick3 }
  if $did == 21 { %msg nickserv set kill off  }
  if $did == 19 { %msg nickserv set kill on  }
  if $did == 22 { %msg nickserv set secure off }
  if $did == 23 { %msg nickserv set secure on }
  if $did == 26 { %msg nickserv set private off }
  if $did == 28 { %msg nickserv set private on }
  if $did == 27 { %msg nickserv set hide usermask off }
  if $did == 29 { %msg nickserv set hide usermask on }
  if $did == 16 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick Status 
      %nick.b = Tamam
      %nick.c = access add
      %nick.e = Host/nick:
      dialog -ma nick1 nick1
  } }
  if $did == 32 { %msg nickserv access list }
  if $did == 34 { 
    if $dialog(nick1) == $null {
      %nick.t = Nick Status 
      %nick.b = Tamam
      %nick.c = access del
      %nick.e = Host/Nick:
      dialog -ma nick1 nick1
  } }
}
dialog nick1 {
  title %nick.t
  size 290 181 228 75
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %nick.b, 1, 34 48 75 20,ok flat
  text %nick.e, 2, 2 11 83 13, left
  edit "", 3, 65 7 148 19, autohs
  box "", 8, 5 29 217 11
  button "Vazgeç", 9, 124 48 75 20,cancel flat
}
on 1:dialog:nick1:sclick:1:{
  if $did(3) == $null { %erromsg = %nick.e Yanlış Deneme | dialog -ma erro erro | halt }
  %msg nickserv %nick.c $did(3) 
  unset %nick.*
}
dialog nick2 {
  title %nick.t
  size 290 181 229 101
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %nick.b, 1, 34 73 75 20,ok flat
  text "Nick:", 2, 33 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Şifre:", 4, 28 31 34 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgeç", 9, 123 72 75 20,cancel flat
}
on 1:dialog:nick2:sclick:1:{
  if $did(3) == $null { %erromsg = Nick Yazılmamış | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Şifre Yazılmamış | dialog -ma erro erro | halt }
  %msg nickserv %nick.c $did(3) $did(5)   
  unset %nick.*
}
dialog nick3 {
  title "Nick Drop"
  size 203 232 235 87
  icon $mircdirTRmirc\iconlar\butterfly.ico
  text "Nick Kaydınızı Silmek Üzeresiniz!!", 1, 27 14 180 17
  button "Dewam Et", 2, 29 51 74 22, flat
  button "Vazgeç", 3, 121 51 72 22,cancel flat
}
on 1:dialog:nick3:sclick:*:{
  if ($did == 2 ) { dialog -x nick3 nick3 | dialog -ma nick1 nick1 }
}
on 1:dialog:chan5:init:0:{
  did -a chan5 3 %chana
}
alias chanservx { 
  if !$dialog(chanservx) { /dialog -m chanservx chanservx  }
  else { return }
}
dialog chanservx {
  title "AnlaSevgimi ScripT .-. ChanServ Paneli"
  size 203 59 502 391
  icon $mircdirTRmirc\iconlar\butterfly.ico
  box "Basit İşlemler", 1, 8 6 378 46
  button "Kanalı Kaydet", 2, 14 24 85 21,flat
  button "Drop", 3, 196 24 88 21,flat
  button "Identify Kanal", 4, 106 24 85 21,flat
  button "Kanal info", 5, 289 24 88 20,flat
  box "Kanal Yazınız", 6, 389 7 111 45
  combo 7, 394 22 99 503, autohs, drop, size, edit
  box "Kanal Kontrol", 8, 9 54 190 45
  button "Op/Deop", 9, 14 71 85 21,flat
  button "Deop", 10, 106 71 85 21,flat
  box "Kanal İşlemi", 11, 10 103 488 45
  button "Unban", 12, 14 120 85 21,flat
  button "Unban all", 13, 109 120 85 21,flat
  button "Unlock Kanal", 14, 201 120 85 21,flat
  button "Kick all", 15, 292 120 85 21,flat
  button "Deop all", 16, 383 120 89 21,flat
  box "Access List", 17, 6 153 492 70
  box "", 18, 13 165 382 45
  button "OP", 19, 18 182 85 21,flat
  button "Master", 20, 113 182 85 21,flat
  button "Auto voice", 21, 205 182 85 21,flat
  button "Diğer Level", 22, 297 182 85 21,flat
  button "Access Sil", 23, 398 167 93 22,flat
  button "Access List", 24, 399 194 91 21,flat
  box "Kanal Ayarları", 25, 9 227 214 129
  button "Kanal Modları", 26, 26 246 85 21,flat
  button "Founder Değiştir", 27, 121 246 85 21,flat
  button "Şifre Değiştir", 28, 26 301 85 21,flat
  button "Açıklama", 29, 26 327 86 21,flat
  button "URL Değiştir", 30, 121 327 85 21,flat
  button "Mail Değiştir", 31, 26 274 85 21,flat
  button "Giriş Mesajı", 32, 121 274 85 21,flat
  button "Topic Değiştir", 33, 121 301 85 21,flat
  box "Korumalar", 34, 228 229 269 156
  box "Keep lock", 35, 234 242 122 45
  button "Aç", 36, 239 258 52 22,flat
  button "Kapa", 37, 296 258 52 22,flat
  box "Topic Lock", 38, 361 241 129 45
  button "Kapa", 40, 431 257 52 22,flat
  button "Aç", 39, 369 257 54 22,flat
  box "Özel Kanal", 41, 235 288 122 44
  button "Kapa", 42, 298 303 51 22,flat
  button "Aç", 43, 239 304 54 22,flat
  box "Secure ops", 44, 361 287 130 44
  button "Aç", 45, 369 303 54 22,flat
  button "Kapa", 46, 430 302 53 22,flat
  box "Leave ops", 47, 235 334 122 44
  button "Aç", 48, 239 352 51 22,flat
  button "Kapa", 50, 298 351 54 22,flat
  box "Akick", 51, 208 54 290 46
  button "List", 52, 218 71 85 21,flat
  button "Ekle", 54, 310 71 85 21,flat
  button "Kaldır", 55, 402 71 85 21,flat
  button "Tamam", 49, 24 362 85 21,ok flat default
  button "İptal", 53, 122 363 81 21, cancel flat
}
on 1:dialog:chanservx:init:0:{
  var %tmp = 1
  var %tmp2 = $chan(0)
  while (%tmp <= %tmp2) {
    did -a chanservx 7 $chan(%tmp)
    inc %tmp
  }
  did -a chanservx 7 %chana
  did -c chanservx 7 $calc(%tmp2 + 1) 
}
on 1:dialog:chanservx:edit:7:{
  if $did(7) != $null { %chana = $did(7) }
}
on 1:dialog:chanservx:sclick:*:{
  if $did == 7 { %chana = $did(7) }
  if $did == 2 { if $dialog(chan2) == $null dialog -ma chan $+ $did chan $+ $did  }
  if $did == 4 { if $dialog(chan3) == $null {
      %chan.t = Identify 
      %chan.b = Identify
      dialog -ma chan3 chan3
  }  }
  if $did == 49 { unset %chan* } 
  if $did == 53 { unset %chan* } 
  if $did == 3 { if $dialog(chan4) == $null {
      %chan.t = Kanal Droplama 
      %chan.b = drop
      dialog -ma chan3 chan3
  }  }
  if $did == 5 { if $dialog(chan4) == $null {
      %chan.t = Kanal Bilgisi
      %chan.b = Info
      %chan.c = info
      dialog -ma chan4 chan4
  }  }
  if $did == 9 { if $dialog(chan7) == $null {
      %chan.t = Op/deop
      %chan.b = Op/deop
      %chan.c = op 
      dialog -ma chan7 chan7
  }  }
  if $did == 10 { if $dialog(chan7) == $null {
      %chan.t = Deop
      %chan.b = Deop
      %chan.c = deop 
      dialog -ma chan7 chan7
  }  }
  if $did == 12 { if $dialog(chan4) == $null {
      %chan.t = Unban
      %chan.b = Unban
      %chan.c = unban 
      dialog -ma chan4 chan4
  }  }
  if $did == 13 { if $dialog(chan4) == $null {
      %chan.t = Unban all
      %chan.b = Unban
      %chan.c = clear
      %chan.c2 = bans
      dialog -ma chan4 chan4
  }  }
  if $did == 14 { if $dialog(chan4) == $null {
      %chan.t = Unlock Kanal
      %chan.b = Unlock
      %chan.c = clear 
      %chan.c2 = modes
      dialog -ma chan4 chan4
  }  }
  if $did == 15 { if $dialog(chan4) == $null {
      %chan.t = Kick all
      %chan.b = Kick
      %chan.c = clear 
      %chan.c2 = users
      dialog -ma chan4 chan4
  }  }
  if $did == 16 { if $dialog(chan4) == $null {
      %chan.t = Deop all
      %chan.b = Deop
      %chan.c = clear 
      %chan.c2 = ops
      dialog -ma chan4 chan4
  }  }


  if $did == 19 { if $dialog(chan5) == $null {
      %chan.t = Access Ekle
      %chan.b = Ekle
      %chan.c = add
      %chan.n = 50
      dialog -ma chan5 chan5
  }  }
  if $did == 20 { if $dialog(chan5) == $null {
      %chan.t = Kanal Master
      %chan.c = add
      %chan.b = Ekle
      %chan.n = 999
      dialog -ma chan5 chan5
  }  }
  if $did == 21 { if $dialog(chan5) == $null {
      %chan.t = AutoVoice Ekle
      %chan.c = add
      %chan.b = Ekle
      %chan.n = 30
      dialog -ma chan5 chan5
  }  }
  if $did == 22 { if $dialog(chan5) == $null {
      %chan.t = Register user 
      %chan.c = add
      %chan.b = Register
      dialog -ma chan6 chan6
  }  }
  if $did == 23 { if $dialog(chan5) == $null {
      %chan.t = Access Sil
      %chan.b = Sil
      %chan.c = del
      dialog -ma chan5 chan5
  }  }
  if $did == 24 { if $dialog(chan4) == $null {
      %chan.t = List users
      %chan.b = List
      %chan.c = access
      %chan.c2 = list
      dialog -ma chan4 chan4
  }  }
  if $did == 52 { if $dialog(chan4) == $null {
      %chan.t = Akick Listesi
      %chan.b = Listele
      %chan.c = akick
      %chan.c2 = list
      dialog -ma chan4 chan4
  }  }
  if $did == 54 { if $dialog(chan8) == $null {
      %chan.t = ChanServ Akick Ekle
      %chan.b = Ekle
      %chan.c = add
      dialog -ma chan8 chan8
  }  }
  if $did == 55 { if $dialog(chan8) == $null {
      %chan.t = Akick Kaldır
      %chan.b = Kaldır
      %chan.c = del
      dialog -ma chan8 chan8
  }  }
  if $did == 26 { if $dialog(chan9) == $null {
      %chan.t = Kanal Modları
      %chan.b = Tamam
      %chan.c = mlock
      %chan.e = Modes:
      dialog -ma chan9 chan9
  }  }
  if $did == 27 { if $dialog(chan9) == $null {
      %chan.t = Kanal Sahibi
      %chan.b = Tamam
      %chan.c = founder
      %chan.e = Founder->
      dialog -ma chan9 chan9
  }  }
  if $did == 28 { if $dialog(chan9) == $null {
      %chan.t = Kanal Şifresi 
      %chan.b = Tamam
      %chan.c = password
      %chan.e = Şifre-->
      dialog -ma chan9 chan9
  }  }
  if $did == 29 { if $dialog(chan9) == $null {
      %chan.t = Kanal Açıklaması
      %chan.b = Tamam
      %chan.c = desc
      %chan.e = Açıklama->
      dialog -ma chan9 chan9
  }  }
  if $did == 30 { if $dialog(chan9) == $null {
      %chan.t = Kanal URL
      %chan.b = Tamam
      %chan.c = url
      %chan.e = URL->
      dialog -ma chan9 chan9
  }  }
  if $did == 31 { if $dialog(chan9) == $null {
      %chan.t = Set Email
      %chan.b = OK
      %chan.c = email
      %chan.e = Email:
      dialog -ma chan9 chan9
  }  }
  if $did == 32 { if $dialog(chan9) == $null {
      %chan.t = ChanServ Mesajı
      %chan.b = Tamam
      %chan.c = entrymsg
      %chan.e = Mesajınız->
      dialog -ma chan9 chan9
  }  }
  if $did == 33 { if $dialog(chan31) == $null {
      %chan.t = Topic At
      %chan.b = Tamam
      %chan.c = topic
      %chan.e = Topic:
      dialog -ma chan31 chan31
  }  }
  if $did == 36 { if $dialog(chan4) == $null {
      %chan.t = Topic Hatırlama
      %chan.b = Tamam
      %chan.c = set
      %chan.c2 = keeptopic on
      %chan.e = Topic:
      dialog -ma chan4 chan4
  }  }
  if $did == 37 { if $dialog(chan4) == $null {
      %chan.t = Topic Hatırlama Kapat
      %chan.b = Kapat
      %chan.c = set
      %chan.c2 = keeptopic off
      dialog -ma chan4 chan4
  }  }
  if $did == 39 { if $dialog(chan4) == $null {
      %chan.t = Topic Kilidi
      %chan.b = Tamam
      %chan.c = set
      %chan.c2 = topiclock on
      dialog -ma chan4 chan4
  }  }
  if $did == 40 { if $dialog(chan4) == $null {
      %chan.t = Topic Kilidi Kapat
      %chan.b = Kapat
      %chan.c = set
      %chan.c2 = topiclock off
      dialog -ma chan4 chan4
  }  }
  if $did == 43 { if $dialog(chan4) == $null {
      %chan.t = Özel Kanal 
      %chan.b = Tamam
      %chan.c = set
      %chan.c2 = private on
      dialog -ma chan4 chan4
  }  }
  if $did == 42 { if $dialog(chan4) == $null {
      %chan.t = Özel Kanal Kapat
      %chan.b = Kapat
      %chan.c = set
      %chan.c2 = private off
      dialog -ma chan4 chan4
  }  }
  if $did == 45 { if $dialog(chan4) == $null {
      %chan.t = Op Koruması
      %chan.b = Tamam
      %chan.c = set
      %chan.c2 = secureops on
      dialog -ma chan4 chan4
  }  }
  if $did == 46 { if $dialog(chan4) == $null {
      %chan.t = Op Korumasını Kapat
      %chan.b = Off
      %chan.c = set
      %chan.c2 = secureops off
      dialog -ma chan4 chan4
  }  }
  if $did == 48 { if $dialog(chan4) == $null {
      %chan.t = leave Ops Aç
      %chan.b = Tamam
      %chan.c = set
      %chan.c2 = leaveops on
      dialog -ma chan4 chan4
  }  }
  if $did == 50 { if $dialog(chan4) == $null {
      %chan.t = LeaveOps Kapat
      %chan.b = Kapat
      %chan.c = set
      %chan.c2 = leaveops off
      dialog -ma chan4 chan4
  }  }
}
dialog  chan2 {
  title "Kanal Kaydet"
  size 290 181 232 117
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button "Kaydet", 1, 36 92 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Şifre:", 4, 26 31 35 14
  edit "", 5, 65 29 148 19, autohs
  text "Açıklama:", 6, 10 54 54 13
  edit "", 7, 65 52 147 19, autohs
  box "", 8, 8 75 217 11
  button "Vazgeç", 9, 122 92 75 20,cancel flat
}
on 1:dialog:chan2:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Sifre Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(7) == $null { var %tmp = No }
  else   %tmp = $did(7)
  if $vrf($did(3))  { %msg chanserv register $did(3) $did(5) %tmp %url1 }
  else { %msg chanserv register $chr(35) $+ $did(3) $did(5) %tmp %url1 }
  unset %chan.*
}
on 1:dialog:chan3:init:0:{
  did -a chan3 3 %chana
}
on 1:dialog:chan3:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Sifre Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv identify $did(3) $did(5)  }
  else { %msg chanserv identify $chr(35) $+ $did(3) $did(5)   }
  unset %chan.*
}
on 1:dialog:chan4:init:0:{
  did -a chan4 3 %chana
}
on 1:dialog:chan4:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv %chan.c $did(3) %chan.c2 }
  else { %msg chanserv %chan.c $chr(35) $+ $did(3)  %chan.c2 }
  unset %chan.*
}
on 1:dialog:chan5:init:0:{
  did -a chan5 3 
}
on 1:dialog:chan5:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Nick Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv access $did(3) %chan.c $did(5) %chan.n }
  else { %msg chanserv access $chr(35) $+ $did(3)  %chan.c $did(5) %chan.n }
  unset %chan.*
}
on 1:dialog:chan6:init:0:{
  did -a chan6 3 %chana
}
on 1:dialog:chan6:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Nick Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(7) == $null { %erromsg = Level Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv access $did(3) %chan.c $did(5) $did(7) }
  else { %msg chanserv access $chr(35) $+ $did(3) %chan.c $did(5) $did(7) }
  unset %chan.*
}
on 1:dialog:chan7:init:0:{
  did -a chan7 3 %chana
}
on 1:dialog:chan7:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Nick Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv %chan.c $did(3)  $did(5)   }
  else { %msg chanserv %chan.c $chr(35) $+ $did(3)  $did(5)  }
  unset %chan.*
}
on 1:dialog:chan8:init:0:{
  did -a chan8 3 %chana
}
on 1:dialog:chan8:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Nick Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(7) == $null { var %tmp =  No! }
  else   %tmp = $did(7)
  if $vrf($did(3))  { %msg chanserv akick $did(3) %chan.c $did(5) %tmp %url1 }
  else { %msg chanserv akick $chr(35) $+ $did(3) %chan.c $did(5) %tmp %url1 }
  unset %chan.*
}
on 1:dialog:chan9:init:0:{
  did -a chan9 3 %chana
}
on 1:dialog:chan9:sclick:1:{
  if $did(3) == $null { %erromsg = Kanal ismini Girin | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = %chan.e Bos Birakilmis | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv set $did(3) %chan.c $did(5) }
  else { %msg chanserv set  $chr(35) $+ $did(3) %chan.c $did(5) }
  unset %chan.*
}
on 1:dialog:chan31:sclick:1:{
  if $did(3) == $null { %erromsg = no Kanal İsmini Girin | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = %chan.e Tamamını Doldurun | dialog -ma erro erro | halt }
  if $vrf($did(3))  { %msg chanserv topic $did(3) $did(5)   }
  else { %msg chanserv topic $chr(35) $+ $did(3) $did(5)  }
  unset %chan.*
}
alias vrf {
  if ($left($1,1) == $chr(35)) { return $true }
  else { return $false  }
}
alias memoservx { 
  if !$dialog(memoservx) { /dialog -m memoservx memoservx }
  else { return }
}
dialog memoservx {
  title "AnlaSevgimi ScripT .-. MemoServ Paneli"
  size 240 228 280 142
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button "Memo Gönder", 1, 13 18 105 23,flat
  box "Memo Oku:", 2, 134 3 140 99,flat
  button "Memo 1", 31, 140 21 53 20,flat
  button "Memo 4", 34, 211 21 53 20,flat
  button "Memo 2", 32, 140 46 53 20,flat
  button "Diğer", 6, 211 71 53 20,flat
  button "Memo 3", 33, 140 71 53 20,flat
  button "Son", 8, 211 46 53 20,flat
  button "Memo Sil", 9, 13 46 105 23,flat
  button "Tümünü Sil", 11, 13 75 105 23,flat
  button "Memo List", 12, 12 104 105 23,flat
  box "", 13, 5 2 122 133
  button "Tamam", 14, 137 111 65 22,ok flat default
  button "İptal", 15, 208 111 65 22, cancel flat
}
on 1:dialog:memoservx:sclick:*:{
  if $did == 1 { if $dialog(memo1) == $null { dialog -ma memo1 memo1 } 
  }
  if $did == 8 { %msg memoserv read last }
  if $did isnum 31-34 { %msg memoserv read  $calc($did - 30) }
  if $did == 15 { halt }
  if $did == 12 {
  } 
  if $did == 12 { %msg memoserv list }
  if $did == 11 { %msg memoserv  del all  }
  if $did == 9 { If $dialog(memo2) == $null {
      %memo.t = Memo Sil
      %memo.b = Sil
      %memo.c = del
  dialog -ma memo2 memo2 } }
  if $did == 6 { If $dialog(memo2) == $null {
      %memo.t = Memo Oku
      %memo.b = Oku
      %memo.c = read
  dialog -ma memo2 memo2 } }
}
dialog memo1 {
  title "Memo Gönder"
  size 307 197 233 170
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button "Gönder", 1, 36 146 75 20, ok flat
  text "Nick:", 2, 15 7 26 13
  edit "", 3, 47 5 175 19, autohs
  text "Memo:", 4, 6 31 36 16, right
  edit "", 5, 48 29 174 99,  multi, return, vsbar
  box "", 8, 6 129 221 11
  button "Vazgeç", 9, 119 146 75 20,cancel flat
}
on 1:dialog:memo1:sclick:1:{
  if $did(3) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
  var %tmp = 1
  var %tmp2 = $did(5).lines
  var %memo = ""
  while (%tmp <= %tmp2) {
    %memo = %memo $chr(32) $+ $did(5,%tmp)
    inc %tmp
  }
  %msg memoserv send $did(3) %memo 
  unset %memo.*
}
dialog memo2 {
  title %memo.t
  size 307 197 175 74
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %memo.b, 1, 13 48 68 20,ok flat
  text "Mesaj No:", 2, 22 9 87 13
  edit "", 3, 113 5 35 21, autohs
  box "", 8, 4 29 165 11
  button "Vazgeç", 9, 92 48 67 20,cancel flat
}
on 1:dialog:memo2:sclick:1:{
  if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
  %msg memoserv %memo.c $did(3)
  unset %memo.*
}
dialog erro {
  title "Dikkat! HATA Oluştu"
  size 238 164 220 90
  icon $mircdirTRmirc\iconlar\butterfly.ico
  text %erromsg, 2, 60 19 145 18, center
  box "", 3, 12 46 196 10
  button "Tamam", 4, 72 62 75 22, ok flat
}
dialog chan3 {
  title %chan.t
  size 290 181 229 101
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 34 73 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Sifre:", 4, 26 31 35 14
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgeç", 9, 123 72 75 20,cancel flat
}
dialog chan4 {
  title %chan.t
  size 290 181 228 75
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 34 48 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  box "", 8, 5 29 217 11
  button "Vazgeç", 9, 124 48 75 20,cancel flat
}
dialog chan5 {
  title %chan.t
  size 290 181 229 101
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 34 73 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Nick:", 4, 33 31 26 14
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgeç", 9, 123 72 75 20,cancel flat
}
dialog chan6 {
  title "Access Ekle"
  size 290 181 232 117
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button "Ekle", 1, 36 92 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Nick:", 4, 33 31 26 14
  edit "", 5, 65 29 148 19, autohs
  text "Level:", 6, 30 54 30 14
  edit "", 7, 65 52 32 19
  box "", 8, 8 75 217 11
  button "Vazgeç", 9, 122 92 75 20,cancel flat
}
dialog chan7 {
  title %chan.t
  size 290 181 229 101
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 34 73 75 20,ok flat
  text "Kanal:", 2, 29 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "Nick:", 4, 33 31 26 14
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgeç", 9, 123 72 75 20,cancel flat
}
dialog chan8 {
  title %chan.t
  size 290 181 232 117
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 36 92 75 20,ok flat
  text "Kanal:", 2, 36 11 31 13
  edit "", 3, 72 7 148 19, autohs
  text "Nick/Host->>:", 4, 2 31 67 15
  edit "", 5, 72 29 148 19, autohs
  text "Sebeb:", 6, 32 54 35 14
  edit "", 7, 73 53 145 19, autohs
  box "", 8, 6 75 217 11
  button "Vazgeç", 9, 122 92 75 20,cancel flat
}
dialog chan9 {
  title %chan.t
  size 290 181 243 96
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 41 69 75 20,ok flat
  text "Kanal:", 2, 6 8 77 14,right
  edit "", 3, 87 6 148 19, autohs
  text %chan.e, 4, 6 31 77 16, right
  edit "", 5, 87 29 148 19, autohs
  box "", 8, 5 51 231 11
  button "Vazgeç", 9, 126 68 75 20,cancel flat
}
dialog chan31 {
  title %chan.t
  size 290 181 243 96
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %chan.b, 1, 41 69 75 20,ok flat
  text "Kanal:", 2, 6 8 77 14,right
  edit "", 3, 87 6 148 19, autohs
  text %chan.e, 4, 6 31 77 16, right
  edit "", 5, 87 29 148 19, autohs
  box "", 8, 5 51 231 11
  button "Vazgeç", 9, 126 68 75 20,cancel flat
}
dialog nick4 {
  title %nick.t
  size 290 181 229 101
  icon $mircdirTRmirc\iconlar\butterfly.ico
  button %nick.b, 1, 34 73 75 20,ok flat
  text "Sifre:", 2, 33 11 31 13
  edit "", 3, 65 7 148 19, autohs
  text "e-mail:", 4, 28 31 34 14,left
  edit "", 5, 65 29 148 19, autohs
  box "", 8, 7 55 217 11
  button "Vazgeç", 9, 123 72 75 20,cancel flat
}
on 1:dialog:nick4:sclick:1:{
  if $did(3) == $null { %erromsg = Sifre Bos Birakilmis | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = e-mail Bos Birakilmis | dialog -ma erro erro | halt }
  %msg nickserv %nick.c $did(3) $did(5)   
  unset %nick.*
}
on 1:dialog:chan31:init:0:{
  did -a chan31 3 %chana
}

menu channel,status,menubar,query {
  -
  . +> NickServ Paneli:/nickservx
  . +> ChanServ Paneli:/chanservx
  . +> MemoServ Paneli:/memoservx
}
