raw 311:*:{
window -1 @info 620 0 400 500
clear @info
echo @info Nick: $2
echo @info IP: $4
echo @info IP was used by:
;looks in info.txt to see if the IP exists
//filter -ffc info.txt out.txt $4*
;looks in out.txt to see if the nick with same IP exists
//filter -ffc out.txt same.txt $2*
;if the ip does not exist, it writes it to info.txt
if ( $file(out.txt).size == 0 ) { write info.txt $4 - $2 :: ( $date - $time ) }
;if the ip exists checks the nick, and if the same IP has a different nick, it writes it to info.txt
elseif ( $file(same.txt).size == 0 ) { write info.txt $4 - $2 :: ( $date - $time ) }
;if the nick and IP exist, it doesnt write.
else { echo @info nick cu ip exista }
;it reads all the nicks that used this IP
//filter -ffc info.txt out.txt $4*
var %t = $lines(out.txt), %ti = 1 | while (%ti <= %t) {
echo @info $gettok($read(out.txt,%ti),2-,32)
inc %ti
}
echo @info 14 ---
}