alias ipnotadd { 
  hadd -m ipnot $calc($hget(ipnot,0).item + $r(1,9999)) $1-
  hsave ipnot aln\ipnot.aln
  hload ipnot aln\ipnot.aln
}

alias ipnotcuk { dialog -m ipnotip ipnotip }
dialog ipnotip {
  title "IP Notify"
  size -1 -1 292 210
  option pixels
  edit "", 2, 167 21 98 23, multi return
  button "Ekle", 3, 187 57 60 17, flat
  button "Sil", 4, 187 83 60 17, flat
  button "Tamam", 5, 186 112 60 17, flat ok
  list 1, 11 18 150 183, size
  icon 6, 187 140 32 32
  box "", 7, 5 6 274 202
}

on *:dialog:ipnotip:sclick:*: {
  if ($did = 4) {
    .hdel ipnot $hfind(ipnot,$did($dname,1).seltext,1,W).data 
    hsave ipnot aln\ipnot.aln
    hload ipnot aln\ipnot.aln
    ipbdi $dname
  }
  if ($did = 3) { ipnotadd $did($dname,2) | lmbdi $dname  }
}

alias ipbdi dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:ipnotip:init:0: {
  var %x = 1 
  while (%x <= $hget(ipnot,0).item) { 
    did -ac ipnotip 1 $hget(ipnot,%x).data 
    inc %x 
  }
}

alias inot_start {
  hmake $1 $2
  hload $1 $+(aln\,$1,.aln)
}
alias inotstart {
  inot_start ipnot 10000
}

on *:snotice:*connecting on port*: {
  var %:wip $left($gettok($10,2,64),-1)
  if $hfind(mfbmuaf,%:wip,1,W).data { return }
  if $hfind(mfbmuaf,$remove($8,:),1,W).data { return }
  if $hfind(ipnot,%:wip,1,W).data { 
    window @INFO | echo @INFO 7*** 2 $time 3Online: 4 $9 1 $10 12(1 $left($gettok($10,2,64),-1) 12) | echo -a 7*** 2 $time 3Online: 4 $9 1 $10 12(1 $left($gettok($10,2,64),-1) 12) | showmirc -sxo | showmirc -sxp
  }
}