alias ipadd {
%ipadd.nick = $1
%ipadd.inicalc = $ini(test.ini,%ipadd.nick,0)
%ipadd.ip = $2
if (%ipadd.ip isin $read(test.ini,w, * $+ %ipadd.ip $+ *)) { echo -a --**IP is already found in list**-- | halt }
if (%ipadd.inicalc = 0) { writeini test.ini %ipadd.nick 1 $2- }
elseif (%ipadd.inicalc > 0) { %ipadd.inicalc = $calc( 1 + $ini(test.ini,%ipadd.nick,0))
writeini test.ini %ipadd.nick %ipadd.inicalc $2-
}
unset %ipadd*
}