;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;-----
;;;;Motd PaneL Diyalog Sistemi v1
;;;;-----
;;;;m12IRC1Scripting - 5IRC 4CR 10C2o12d1eman 7==> 1By 10Goemon
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu channel,query,status { 
  iDent,Motd/Ekle/Sil Diyalogu:/motdpanelaç
}
alias mdx { return $dll(goe\mdx.dll,$1,$2-) }
alias mdcx { return $dll(goe\mdc.dll,$1,$2-) }
alias motdpanelaç { if $dialog(motdgoe) { !echo -a 2Motd PaneL Dialog'u Zaten 4AÇIK! } | else { !dialog -m motdgoe motdgoe } }
dialog motdgoe {
  title "Motd Ekleme // ident Ekleme/Silme/Listeleme // Web ident Ekleme/Silme // By Goemon"
  size -1 -1 468 186
  option dbu
  box "iDent EkLe", 1, 3 4 63 147
  edit "", 2, 6 14 58 13
  list 4, 5 44 58 81, size vsbar
  text "Not: ident Listesi Silmek   İçin İdentin Üstüne İki     Defa Tıklayın By Goemon", 5, 5 128 60 19
  box "Motd PaneL Statüs Listesi", 7, 70 4 288 147
  list 8, 73 14 281 111, size vsbar
  text "Motd PaneL Statüs Listesi By Goemon", 30, 75 158 277 18
  box "Bilgiler", 13, 360 4 105 147
}

on *:dialog:motdgoe:init:*: {
  dialog -s $dname -1 -1 137 371
  if $isfile(ident.txt) { loadbuf -o $dname 4 ident.txt }
  if $isfile(motd.txt) { loadbuf -o $dname 8 motd.txt }
  mdcx BitBtn Create $dname 3 11 57 116 27 > ident Ekle
  mdcx BitBtn Icon 3 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 3 left
  mdcx BitBtn Color 3 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 3 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 3 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 6 5 305 126 30 > ident.txt Aç
  mdcx BitBtn Icon 6 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 6 left
  mdcx BitBtn Color 6 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 6 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 6 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 9 156 260 126 30 > Motd Ekle.
  mdcx BitBtn Icon 9 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 9 left
  mdcx BitBtn Color 9 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 9 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 9 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 10 293 260 126 30 > Motd YeniLe
  mdcx BitBtn Icon 10 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 10 left
  mdcx BitBtn Color 10 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 10 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 10 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 11 427 260 126 30 > Motd List
  mdcx BitBtn Icon 11 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 11 left
  mdcx BitBtn Color 11 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 11 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 11 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 12 562 260 126 30 > Motd.txt Aç
  mdcx BitBtn Icon 12 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 12 left
  mdcx BitBtn Color 12 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 12 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 12 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 14 725 28 200 30 > Z-Default Panel AUTO ON/OF
  mdcx BitBtn Icon 14 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 14 left
  mdcx BitBtn Color 14 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 14 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 14 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 15 725 60 200 30 > Z-Default Panel Bilgilendirme
  mdcx BitBtn Icon 15 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 15 left
  mdcx BitBtn Color 15 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 15 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 15 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 16 725 92 200 30 > Z-Default mIRC ident Ekleyin
  mdcx BitBtn Icon 16 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 16 left
  mdcx BitBtn Color 16 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 16 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 16 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 17 725 124 200 30 > Z-Default mIRC ident Siliniz..
  mdcx BitBtn Icon 17 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 17 left
  mdcx BitBtn Color 17 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 17 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 17 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 18 725 156 200 30 > Z-Default mIRC ident Bilgisi..
  mdcx BitBtn Icon 18 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 18 left
  mdcx BitBtn Color 18 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 18 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 18 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 19 725 188 200 30 > Z-Default Web ident Ekleyin
  mdcx BitBtn Icon 19 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 19 left
  mdcx BitBtn Color 19 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 19 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 19 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 20 725 220 200 30 > Z-Default Web ident Siliniz.
  mdcx BitBtn Icon 20 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 20 left
  mdcx BitBtn Color 20 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 20 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 20 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 21 6 338 126 30 > Motd PaneL
  mdcx BitBtn Icon 21 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 21 left
  mdcx BitBtn Color 21 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(0,234,234) $rgb(122,233,20) 
  mdcx BitBtn downcolor 21 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(25,25,25) $rgb(2,0,0)
  mdcx BitBtn Font 21 $rgb(255,252,252) 8  +b > Tahoma
  mdcx BitBtn Create $dname 22 725 253 200 45 > Ana Sayfa Geri Dön 
  mdcx BitBtn Icon 22 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 22 top
  mdcx BitBtn Color 22 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(19,232,55) $rgb(122,233,20) 
  mdcx BitBtn downcolor 22 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(19,232,55) $rgb(2,0,0)
  mdcx BitBtn Font 22 $rgb(0,0,0) 8  +b > Tahoma
  mdcx BitBtn Create $dname 23 725 307 200 60 > Tamam/KapaT
  mdcx BitBtn Icon 23 $shortfn(goe/e3.ico)
  mdcx BitBtn Iconpos 23 top
  mdcx BitBtn Color 23 $rgb(25,2,244) $rgb(20,180,255) $rgb(10,251,255) $rgb(0,0,0) $rgb(255,0,0) $rgb(122,233,20) 
  mdcx BitBtn downcolor 23 $rgb(25,2,2) $rgb(64,5,5) $rgb(0,25,255) $rgb(255,0,0) $rgb(2,0,0)
  mdcx BitBtn Font 23 $rgb(0,0,0) 8  +b > Tahoma
  mdx MarkDialog $dname
  mdx SetDialog [ $dname ] bgcolor $rgb(48,213,255) 
  mdx SetColor $dname 5,30 textbg $rgb(48,213,255)
  mdx SetColor $dname 1,7,13 background $rgb(48,213,255)
  mdx SetColor $dname 30 text $rgb(255,255,0)
  mdx SetFont $dname 30 35 700 Tahoma
}

on *:signal:mdc: {
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 3) { ident1ekle }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 6) { run $mircdirident.txt }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 9) { motdekle }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 10) { yen1l3motd }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 11) { enable #motdlist | .motd | echo -a 2Motd Listesi Başarıyla 3Tamamlandı... | .timer 1 1 /disable #motdlist }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 12) { run $mircdirmotd.txt }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 14) { zdefa }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 15) { zbilgi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 16) { set %mIRCident $$?="mIRC iRC Girişi İdent Adını Yazınız.Örn: mIRC Gibi" | set %mIRCpassword $$?="mIRC iRC Girişinin Şifreni Belirleyin.Örn: 123654 Gibi" | set %mIRCemail $$?="mIRC Email Adını Yazınız.Örn: mIRC@* Gibi" | enable #identeklendi | .as client %mIRCident add | .as client %mIRCident set password %mIRCpassword | .as client %mIRCident mask add %mIRCemail | .as client %mIRCident mask add %mIRCemail | .as client %mIRCident enable | .timer 1 1 /disable #identeklendi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 17) { set %mIRCidentsil $$?="mIRC Email iDent Adını Yazarak Silebilirsiniz.Örn: mIRC Gibi" | enable #identsilindi | .as client %mIRCidentsil del | .timer 1 1 /disable #identsilindi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 18) { set %mIRClist $$?="mIRC Email iDent Adını Yazarak Bilgi Alabilirsiniz.Örn: mIRC Gibi" | enable #identbilgi | .as client %mIRClist list | .timer 1 1 /disable #identbilgi }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 19) { enable #webident | set %mIRCwebident $$?="mIRC Web iRC Girişi Eklemek için İdent Adını Yazınız.Örn: mircscripting@* Gibi" | .as client z-default mask add %mIRCwebident | .timer 1 1 /disable #webident }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 20) { enable #webident | set %mIRCwebidentsil $$?="mIRC Web iRC Girişi İdent Adını Yazarak Silebilirsiniz.Örn: mircscripting@* Gibi" | .as client z-default mask del %mIRCwebidentsil | .timer 1 1 /disable #webident }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 21) { ilerigit }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 22) { gerigel }
  if ($2 == motdgoe) && ($3 == sclick) && ($4 == 23) { .timer 1 0 dialog -x motdgoe motdgoe }
}

alias motdekle {
  bread motd.txt 0 $file(motd.txt) &s
  var %p = 1 , %ident
  while %p <= $lines(ident.txt) {
    %ident = $read(ident.txt,%p)
    as client %ident motd erase
    var %i = 0 , %c = 1 , %t
    while $bfind(&s,%i,$crlf).text {
      %i = $ifmatch
      bcopy &b 1 &s %c $calc(%i - %c )
      %i = %i + 1
      breplace &b 32 160
      ;echo -s $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
      as client %ident motd append $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
      bunset &b
      %c = %i
    }
    inc %p
  }
  identler 
}

alias identler {
  var %id_ 1, %idt_ $did(motdgoe,4).lines
  while %id_ <= %idt_ { 
    echo -a 4 $did(motdgoe,4,%id_).text 12Identine Motd Eklendi..
    inc %id_
  }
}

alias ident1ekle {
  var %d1 $did(motdgoe,2).text | $iif(!$read(ident.txt,w,%d1), write ident.txt %d1, halt) | did -a motdgoe 4 $$did(motdgoe,2).text | did -r motdgoe 2
}

on *:dialog:motdgoe:dclick:4: { var %d4 $did(motdgoe,4).seltext | did -d motdgoe 4 $did(motdgoe,4).sel | write -ds $+ %d4 ident.txt | yenile_ }
alias yenile_ { did -r motdgoe 4 | loadbuf -o motdgoe 4 ident.txt }

alias yen1l3motd {
  if $isfile(motd.txt) { did -r motdgoe 8 | loadbuf -o motdgoe 8 motd.txt 
  } 
}

alias -l ilerigit { dialog -s motdgoe -1 -1 936 370 }
alias -l gerigel { dialog -s motdgoe -1 -1 138 370 }

alias zbilgi { 
  if (2 // %trm) { noop $input(En Son Z-Default Şifresi Kaldırıldı.,o,Z-Default Bilgi) }
  else { noop $input(En Son Z-Default Şifresi Değiştirildi Şifre: %randompass,o,Z-Default Bilgi) }
}

alias zdefa { inc %trm
  if 2 // %trm { as client z-default set password | echo -a 10z-default 2Şifresi Kaldırıldı.. }
  else { set %randompass $+($r(1,9), $r(a,z), $r(0,9), $r(A,Z), $r(0,9), $r(a,z), $r(A,Z), $r(0,9), $r(a,z)) | As client z-default set password %randompass | echo -a 10z-default 2Şifresi 4AUTO 2degişdirildi 4Şifre;5[12 %randompass 5] }
}

#identeklendi off
on *:snotice:*: {
  if (*Success -- Client class * enabled* iswm $1-) { 
    /echo -a 7----------------------------------------
    echo -a 4 $5 2identi BaşarıyLa Eklendi.
    echo -a 4 $5 2identi Şuan Kullanıma 3AKTİF! 
    /echo -a 7----------------------------------------
  }
}
#identeklendi end

#identsilindi off
on *:snotice:*: {
  if (*Success -- Client * deleted.* iswm $1-) { 
    /echo -a 7----------------------------------------
    echo -a 4 $4 2identi BaşarıyLa Silindi.Kullanıma Kapatıldı.
    /echo -a 7----------------------------------------
  }
}
#identsilindi end

#identbilgi off
on *:snotice:*: {
  if (*Success -- Client class* iswm $1-) { 
    echo -a 7----------------------------------------
    echo -a 4 $5 2identinin Bilgileri GösteriLdi. 
  }
  elseif (*Client * set password* iswm $1-) { 
    echo -a 4 $3 2identinin Şifresi :10 $6 
  }
  elseif (*Client * mask add* iswm $1-) { 
    echo -a 4 $3 2identinin Maskı :10 $6 
    echo -a 7---------------------------------------- 
  }
  elseif (*Failure -- That client class doesn't exist* iswm $1-) { 
  echo -a 4HATA 1 %mIRClist $+ @  7Adında 10Sunucuda Açılmış 2Böle Bir ident yok! }
}
#identbilgi end

#webident off
on *:snotice:*: {
  if (*Success -- Mask added* iswm $1-) { 
    echo -a 7----------------------------------------
    echo -a 4 %mIRCwebident 2identi 1Z-Default 2PaneL identine Başarıyla 3Eklenmiştir.
  }
  if (*Success -- Mask deleted* iswm $1-) { 
    echo -a 7----------------------------------------
    echo -a 4 %mIRCwebidentsil 2identi 1Z-Default 2PaneL identinden Başarıyla 4Silinmiştir.
  }
}
#webident end

#motdlist off
raw 372:*:{ if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)) { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List }
  echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 4 $date 10 $1 2 $2-
  halt 
} 
#motdlist end
;;;;;;;;;;;;;;;;;;Motd PaneL Listesi Son;;;;;;;;;;;;;;;;;