dialog Hata {
  title "Hata"
  size -1 -1 105 44
  option dbu
  icon bump\abc.ico, 0
  icon 1, 3 3 15 15, bump\No.ico, 0
  text "", 2, 25 4 73 28, center
  button "Tamam", 3, 36 32 37 10, ok cancel
}
alias hata { if !$dialog(hata) { .dialog -m hata hata } }
on *:dialog:submenu:init:0:{
  dll RebaR.dll Dock $dialog(submenu).HWND > top
}
on *:active:?:did -o submenu 1 0 $active
on *:dialog:submenu:sclick:*:{
  if ($did == 16) { .subyardim | halt }
  if ($server == $null) { .hata | .did -a hata 2 Hiçbir Servere Bağlı Değilsiniz!! | halt }
  if ($did == 2) { if ($did(1) != $null) { .mykline | halt } | goto son }
  if ($did == 3) { if ($did(1) != $null) { .myshun | halt } | goto son }
  if ($did == 6) { .mykanal | halt }
  if ($did == 7) { .dialog -m kanalkoruma kanalkoruma }
  if ($did == 5) { if ($did(1) != $null) { .mywis | halt } | goto son }
  if ($did == 8) { /dialog -m swear swear | halt }
  if ($did == 10) { did -o submenu 1 0 $cb | halt }
  if ($did == 9) { did -o submenu 1 0 $snick($active,1) | halt }
  if ($did == 11) { if ($server != $null) { .dialog -m memom memom } | else { .hata | .did -a hata 2 Servere Bağlı Değilsiniz! } }
  if ($did == 4) { if ($active ischan) && ($me isop $active) && ($snick($active) != $null) { .myban | halt }
  else { .hata | .did -a hata 2 Kanalda Op Değilsiniz veya Kanaldan Nick Belirtmediniz! } }
  halt
  :son
  .hata | .did -a hata 2 Menuye Nick Belirtmeniz Gerekiyor
}
;==============================ÇİFT TIKLAYINCA MENU
alias mpdll { 
  if ($isid) { return $dll(sub.dll,$1,$2-) }
  else { dll mpopup.dll $1 $2- }
}
alias mpu { dll -u sub.dll }

alias mkline {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mkline)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Reklam !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Kanal Reklam !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Script !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Bad Nick !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Küfür !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Oto Mesaj !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 Clone !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 Dostluk Ortamını Bozmak !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 9 0 0 Kurallara Uymamak !)
}
alias mykline {
  echo 10 -s $mpdll(MPopup,mkline > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mkline: {
  if ($1 == 1) { .kline $did(submenu,1) reklam | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 2) { .kline $did(submenu,1) kreklam | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 3) { .kline $did(submenu,1) script | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 4) { .kline $did(submenu,1) nick | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 5) { .kline $did(submenu,1) kufur | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 6) { .kline $did(submenu,1) otomsg | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 7) { .kline $did(submenu,1) clone | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 8) { .kline $did(submenu,1) dost | did -i submenu 1 1 $did(submenu,1) | halt }
  if ($1 == 9) { .kline $did(submenu,1) kural | did -i submenu 1 1 $did(submenu,1) | halt }
}
;=========================SHUN MENU
alias mshun {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mshun)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Rahatsızlık !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Oto Msg)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Susunuz!)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Offff !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Küfür !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Sakin !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 -)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 Sebep Belirtin !)
}
alias myshun {
  echo 10 -s $mpdll(MPopup,mshun > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mshun: { 
  if ($1 == 1) { .shun $did(submenu,1) Rahatsızlık! | halt }
  if ($1 == 2) { .shun $did(submenu,1) Oto Msg! | halt }
  if ($1 == 3) { .shun $did(submenu,1) Susunuz! | halt }
  if ($1 == 4) { .shun $did(submenu,1) Offff! | halt }
  if ($1 == 5) { .shun $did(submenu,1) Küfür! | halt }
  if ($1 == 6) { .shun $did(submenu,1) Sakin Ol! | halt }
  if ($1 == 8) { .shun $did(submenu,1) $$?="Sebep Girin" | halt }
}
;======================whoiswhoas
alias mwis {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mwis)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Whois)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 WhoWas)
}
alias mywis {
  echo 10 -s $mpdll(MPopup,mwis > $mouse.dx $mouse.dy left right)
}
ON *:signal:MPOPUP.mwis: { 
  if ($1 == 1) { .w $did(submenu,1) | .timer 1 1 dialog -m sohbetkline sohbetkline | halt }
  if ($1 == 2) { .whowas $did(submenu,1) | .timer 1 1 dialog -m sohbetkline sohbetkline | halt }
}
;====================Kanal[Chanserv] Menu
alias mkanal {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mkanal)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Kanal Kapat)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Ban Temizle)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Özelleri Kapat)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 13 0 0 Unkline)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Log)
  var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 6 0 0 Op/Deop)
  %hsmenu = $gettok(%hsmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 5 0 0 Op All)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 6 0 0 Deop All)
  var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 7 0 0 Ekran Temizle)
  %hsmenu = $gettok(%hsmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 8 0 0 Aktif Pencere)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 9 0 0 Tüm Pencereler)
  var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 12 0 0 İgnore)
  %hsmenu = $gettok(%hsmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 10 0 0 İgnore Et)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 11 0 0 İgnore Kaldır)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 12 0 0 İgnore List)
}
alias mykanal {
  echo 10 -s $mpdll(MPopup,mkanal > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mkanal: { 
  if ($1 == 1) { .dialog -m kapama kapama }
  if ($1 == 2) { .temizban }
  if ($1 == 3) { .closemsg }
  if ($1 == 4) { .logs $active }
  if ($1 == 5) { .merlynop }
  if ($1 == 6) { .merlyndeop }
  if ($1 == 8) { .clear $active }
  if ($1 == 9) { .clearall }
  if ($1 == 10) { if ($window($active).type == channel) { if ($snick($active,1) == $null) { echo 4 -a %sa 4Kanaldan İgnore Edilecek Nicki Belirtin! | halt } | .ignore -pu300 $snick($active,1) | echo -a %sa 4 $snick($active,1) 2Nicki 5dk İgnore Edildi! }
    if ($window($active).type == query) { .ignore -pu300 $active | echo -a %sa 4 $active 2Nicki 5dk İgnore Edildi! }
  }
  if ($1 == 11) { if ($window($active).type == channel) { if ($snick($active,1) == $null) { echo 4 -a %sa 4Kanaldan İgnore Edilecek Nicki Belirtin! | halt } | .ignore -r $snick($active,1) | echo -a %sa 4 $snick($active,1) 2İgnore Kaldırıldı! }
    if ($window($active).type == query) { .ignore -r $active | echo -a %sa 4 $active 2İgnore Kaldırıldı! }
  }
  if ($1 == 12) { .ignore -l }
  if ($1 == 13) { .unkline *@ $+ $$?"Açılacak İp Girin 123.123.123." $+ * }
}
;=================Ban =======
alias mban {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mban)
  %hmenu = $gettok(%hmenu,2,32)
  var %hsmenu = $mpdll(MPAddSubMenu,%hmenu > 10 0 0 All Ban)
  %hsmenu = $gettok(%hsmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 11 0 0 Kural!)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 12 0 0 Bad Nick!)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 13 0 0 -)
  echo 10 -s $mpdll(MPAddItem,%hsmenu > 14 0 0 Sebep Gir!)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Küfür !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Kanal Seviyesine Aykırı)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Bad Nick!)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Tartışma Yaratmak!)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 5 0 0 Reklam !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 6 0 0 Tekrar !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 7 0 0 Büyük Harf !)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 8 0 0 -)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 9 0 0 Sebep Gir!)
}
alias myban {
  echo 10 -s $mpdll(MPopup,mban > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mban: { 
  if ($1 == 11) { aban $snick($active,1) 2Lütfen Kurallara Uyunuz.Daha Fazla Bilgi almak için 4/motd 2yazınız. }
  if ($1 == 12) { aban $snick($active,1) 4Uygunsuz Nick 2Kullanmak 2/4Küfürlü 2Konusmak Sebeplerinden Uzaklaştırıldınız..! }
  if ($1 == 1) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Küfürlü Konusmak  2 Sebebinden 4 15 Dakika 2 uzaklaştırıldınız.! }
  if ($1 == 2) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanal 4Seviyesine 2Uymadığınızdan Dolayı 4 15 Dakika 2 Uzaklaştırıldınız..! }
  if ($1 == 3) { mode $active +b $snick($active,1) | /kick $active $snick($active,1) 4 $active 2Kanalından 4Nickiniz 2Uygun Olmadığından Dolayı Uzaklaştırıldınız..! }
  if ($1 == 4) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Tartisma 2Yaratmak 2/4Rahatsizlik 2Vermek 2/ 4 Kanal Seviyesine Uygun Hareket Etmemek 2 Sebeplerinden 4 15 Dakika 2 Uzaklaştırıldınız.. }
  if ($1 == 6) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Flood 2/ 4Aynı Yazıyı Tekrarlamak2 Sebeplerinden 4 15 Dakika 2 Uzaklaştırıldınız..! }
  if ($1 == 7) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) 4 $active 2Kanalından 4Büyük Harf 2Sebebinden 4 15 Dakika 2 Uzaklaştırıldınız..! }
  if ($1 == 9) { ban -u $+ 900 $active $snick($active,1) 2 | /kick $active $snick($active,1) $$?="Sebep Girin" }
}

dialog submenu {
  title "New Project"
  size -1 -1 402 10
  option dbu
  combo 1, 13 0 74 50, sort size edit drop
  button "K-Line", 2, 103 1 24 8
  button "Shun", 3, 129 1 24 8
  button "Ban", 4, 185 1 24 8
  button "Ws/Was", 5, 155 1 28 8
  button "Acil İşlemler", 6, 211 1 40 8
  button "Koruma Menu", 7, 253 1 40 8
  button "K-Line/KiLL", 8, 295 1 40 8
  button "MemoServ", 11, 337 1 40 8
  box "", 12, 101 -3 83 13
  box "", 13, 184 -3 26 13
  box "", 14, 210 -3 42 13
  box "", 15, 252 -3 126 13
  icon 10, 87 -1 12 12, bump\cc.ico, 0, top
  icon 9, -2 -1 13 12,  bump\ss.ico, 0, top
  icon 16, 381 0 16 9, bump\help.ico, 0
}
;====================özel menu
alias mqozel {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mqozel)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Whois)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 3 0 0 Ortak Kanallar)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Temizle)
}
alias myqozel {
  echo 10 -s $mpdll(MPopup,mqozel > $mouse.dx $mouse.dy left bottom right)
}
ON *:signal:MPOPUP.mqozel: { 
  if ($1 == 1) { .w $active | halt }
  if ($1 == 2) { .did -o submenu 1 0 $active | halt }
  if ($1 == 3) { .echo -a 4 Bilgi: $+ Nick: $+ 2 $active 4 Adres: 2( $+ $iif($address($active,1),$address($active,1),4Belirlenemedi) $+ )4 Ortak Kanallar:2 $c2 $+ $combchans($active) $+ $c1 | halt }
  if ($1 == 4) { .clear $active | halt }
}
;====================özel menu
alias mnick {
  linesep -s
  var %hmenu = $mpdll(MPCreateMenu,mnick)
  %hmenu = $gettok(%hmenu,2,32)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 1 0 0 Özel)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 2 0 0 Whois)
  echo 10 -s $mpdll(MPAddItem,%hmenu > 4 0 0 Ortak Kanallar)
}
alias mynick {
  echo 10 -s $mpdll(MPopup,mnick > $mouse.dx $mouse.dy left right)
}
ON *:signal:MPOPUP.mnick: { 
  if ($1 == 2) { .w $snick($active,1) | halt }
  if ($1 == 3) { .did -o submenu 1 0 $snick($active,1) | halt }
  if ($1 == 4) { .echo -a 4 Bilgi: $+ Nick: $+ 2 $snick($active,1) 4 Adres: 2( $+ $iif($address($snick($active,1),1),$address($snick($active,1),1),4Belirlenemedi) $+ )4 Ortak Kanallar:2 $c2 $+ $combchans($snick($active,1)) $+ $c1 | halt }
  if ($1 == 1) { .query $snick($active,1) | halt }
}