alias sezline { dialog -m szline szline }
dialog szline {
  title " Szline Listesi "
  size -1 -1 483 454
  option pixels
  list 1, 4 27 122 315, size
  edit "", 2, 115 346 176 21, multi autohs
  text " ip ekle :", 3, 7 348 70 16
  button "Ekle", 4, 297 345 183 50, flat
  button "« « KAPAT » »", 5, 2 423 479 29, flat ok
  box "", 6, 2 339 109 28
  box "", 7, 2 392 288 30
  text " İp silerken üstünü çitf tıklayınız. ", 8, 5 402 269 16
  list 9, 127 27 111 315, size
  list 10, 239 27 120 315, size
  text " İp", 11, 7 7 82 16
  text " Ekleyen", 12, 138 7 79 16
  text " Tarih", 13, 249 7 91 16
  list 14, 360 27 120 315, size
  text " Sebeb", 15, 370 7 80 16
  box "", 17, 2 366 109 28
  text " Sebeb :", 18, 5 375 95 16
  edit "", 16, 115 373 176 21, multi autohs
  box "", 19, 128 0 109 26
  box "", 20, 4 0 120 26
  box "", 21, 241 0 118 26
  box "", 22, 361 0 119 26
  box "", 23, 298 392 182 30
  text " ", 24, 303 402 162 16
}
alias isaretle {
  did -c szline 1 $did(szline,1).lines
  did -c szline 9 $did(szline,9).lines
  did -c szline 10 $did(szline,10).lines
}
on *:dialog:szline:sclick:4:{ if $regex($did(2).text,/^[[:digit:]]/S) { os szline add $did(2) $+ * $did(16).text | did -a szline 1 $did(2) | dialog -x szline | dialog -m szline szline } 
  else { noop $input(IP Adresi Rakamla Baslamalıdır!,o,IP Uyarı) }
}
on *:dialog:szline:sclick:1:/did -c $dname 1 $did(1).sel | did -c $dname 9 $did(1).sel | did -c $dname 10 $did(1).sel | did -c $dname 14 $did(1).sel
on *:dialog:szline:sclick:9: { did -c $dname 9 $did(9).sel | did -c $dname 1 $did(9).sel | did -c $dname 10 $did(9).sel | did -c $dname 14 $did(9).sel }
on *:dialog:szline:sclick:10: { did -c $dname 10 $did(10).sel | did -c $dname 1 $did(10).sel | did -c $dname 9 $did(10).sel | did -c $dname 14 $did(9).sel }
on *:dialog:szline:sclick:14: { did -c $dname 14 $did(14).sel | did -c $dname 1 $did(14).sel | did -c $dname 9 $did(14).sel | did -c $dname 10 $did(9).sel }
on *:dialog:szline:dclick:1:os szline del $did(1).seltext $+ * | did -d szline 1 $did(1).sel | dialog -x szline | dialog -m szline szline
on *:notice:*:*: { 
  if ($nick == operserv) && ($dialog(szline)) && $regex($1-,/\x28|\x29/) && !$regex($1-,/(Aktüel\sliste[:]|SZLINE\slistesine\seklendi|SZLINE\slistesinde\sbulunamadi|SZLINE\slistesinden\ssilindi)/iS) { 
  did -a szline 1 $replace($1,*,) | did -a szline 9 $remove($2,$chr(40)) | did -a szline 10 $regsubex(tr,$4-6,/([a-z]{2,5})\s(\d{2})\s(\d{4})/iS,\2 \1 \3) | did -ra szline 24 Toplam = $did(szline,1).lines } 
  if ($nick == operserv) && ($dialog(szline)) && !$regex($1-,/(Aktüel\sliste[:]|SZLINE\slistesine\seklendi|SZLINE\slistesinde\sbulunamadi|SZLINE\slistesinden\ssilindi)/iS) && !$regex($1-,/(\x28.+\x29)/US) { did -a szline 14 $1- }
}
on *:dialog:szline:init:*: {
  /os szline view
  mdx MarkDialog $dname
  mdx SetDialog $dname bgcolor $rgb(237,241,219)
  mdx SetColor $dname 1 textbg $rgb(237,241,219)
  mdx SetColor $dname 1 background $rgb(237,241,219)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24 15 950 Tahoma
  mdx SetColor $dname 3,4,6,8,9,11,13,10,12,14,15,17,18,19,20,21,22,23,24 background $rgb(237,241,219)
  mdx SetColor $dname 3,4,6,8,9,11,13,12,10,14,15,17,18,19,20,21,22,23,24 textbg $rgb(237,241,219)
  mdx SetFont $dname 2,3,4,6,8,9,11,13,12,10,14,15,16,17,18,19,20,21,22,23,24 15 950 Tahoma
  mdx SetColor $dname 8,11,12,13,15,24l text $rgb(199,92,2)
}