alias nbdll { var %check = $dll($qt($+($scriptdir,db.dll)),Open,nblist $shortfn($+($scriptdir,nblist.db))))
  if !$regex(%check,(S_OK|E_LABEL_IN_USE)) { echo $color(info text) *** nblist error: %check | halt } | %check = $dll($qt($+($scriptdir,db.dll)),Query,nblist $1-) | if $isid { return %check } | elseif $show && !$isid { echo $color(info text) *** nblist: %check }
}
alias nbsave { .nbdll DELETE FROM list WHERE (strftime('%J','now') - strftime('%J',ctime) > 100)
  if $regex($nbdll(select * FROM list WHERE nick = $+(',$1,') and network = $+(',$2,') and ip LIKE $+(',$regsubex($3,^.*@,$+($chr(37),@)),')),S_OK [^0]) { .nbdll UPDATE list SET ctime = julianday('now') where nick = $+(',$1,') and network = $+(',$2,') and ip = $+(',$3,') } | else { .nbdll insert into list values( $+(',$1,') , $+(',$2,') , $+(',$3,') ,julianday('now')) }
}
alias nbsrc { return $gettok($nbdll(SELECT * FROM list WHERE network = $+(',$1,') AND ip LIKE $+(',$replace($2,*,%),') AND $+(nick!=,',$3,')),2,32) }
alias nbget { var %x = $remove($dll($qt($+($scriptdir,db.dll)),fetchrow,nblist $1),S_OK) | return $gettok(%x,$2,9) }
on *:connect: { if !$ial { .ial on } }
on *:quit: { if $nick != $me { nbsave $nick $iif($network,$network,$server) $fulladdress } }
alias query { if $nick != $me { .timeruserip 1 1 userip $1 | .enable #adres } | set %menbseen $me | set %nbchn $1 | set %ntwk $network | set %servr $server | set %nıcbnseen $1 | query $$1 }
on *:open:?:*: { if $nick != $me { .timeruserip 1 1 userip $nick | .enable #adres } | set %menbseen $me | set %nbchn $nick | set %ntwk $network | set %servr $server | set %nıcbnseen $nick }
on *:join:#: { if $nick != $me { .timeruserip 1 1 userip $nick | .enable #adres } | set %menbseen $me | set %nbchn $chan | set %ntwk $network | set %servr $server | set %nıcbnseen $nick }
#adres on
raw 340:*: { haltdef | set -e %adresfull $+($token($2,1,61),!,$right($token($2,2,61),-1)) | set -e %adres2 $+(*!*@,$token($2,2,64)) | .timerbnsnn 1 1  nbseenaz |.disable #adres }
#adres end
alias nbseenaz { if $nick != %menbseen { var %outstr = $null | if $nbsrc($iif(%ntwk,%ntwk,%servr),%adres2,%nıcbnseen) { var %i = $v1 | echo -t %nbchn $+($str($chr(160),3), ->3 %nıcbnseen)  1,7Nickinin Daha önceki nickleri $+($chr(40),%i,$chr(41)) | while %i > 0 { if $len(%outstr $nbget(%i,1)) <= 750 { %outstr = $+(%outstr,$iif(%outstr,$+($chr(44),$chr(32)),$null),$nbget(%i,1))  } | else { echo -t %nbchn $+($str($chr(160),3),4) %outstr | %outstr = $null } | dec %i 1 }
  if %outstr { echo -t %nbchn $+($str($chr(160),3),4) %outstr } | echo %nbchn $chr(160) | unset %menbseen | unset %nbchn | unset %ntwk | unset %servr | unset %nıcbnseen } | nbsave %nıcbnseen $iif(%ntwk,%ntwk,%servr) %adresfull }
}