Pretty self explanitory, !aka $nick for all previous nicks, !prev5nicks $nick for last five and so forth. It is pretty dodgy scripting but I've only been doing this 3 weeks, well thats my excuse and im sticking to it. Any suggestions would be appreciated and taken kindly with only a little bit of abuse.
Oh and please rate kindly or something like that
;## NICKLOGGERCODE
on *:JOIN:#:{
if ($readini(NickLoggerAddressess.ini,Address,$address($nick,2)) == $null) {
.writeini NickLoggerAddressess.ini Address $address($nick,2) $nick $+ $chr(35)
}
elseif ($readini(NickLoggerAddressess.ini,Address,$address($nick,2)) != $null) {
if (!$istok($readini(NickLoggerAddressess.ini,Address,$address($nick,2)),$nick $+ +,32)) && (!$istok($readini(NickLoggerAddressess.ini,Address,$address($nick,2)),$nick $+ $chr(35),32)) {
.writeini NickLoggerAddressess.ini Address $address($nick,2) $replace($readini(NickLoggerAddressess.ini,Address,$address($nick,2)),$chr(35),+) $nick $+ $chr(35)
if ($group(#notifier) == on) { .msg $chan • Joined - $nick - Previous nicknames: $replace($replace($readini(NickLoggerAddressess.ini,Address,$address($nick,2)),+,$chr(44)),$chr(35),$chr(46)) $chr(124) Total: $numtok($readini(NickLoggerAddressess.ini,Address,$address($nick,2)),32) }
}
}
}
on *:NICK:{
if ($me !ison $chan) { .halt }
elseif ($me ison $chan) {
if (!$istok($readini(NickLoggerAddressess.ini,Address,$address($newnick,2)),$newnick $+ +,32)) && (!$istok($readini(NickLoggerAddressess.ini,Address,$address($newnick,2)),$newnick $+ $chr(35),32)) {
.writeini NickLoggerAddressess.ini Address $address($newnick,2) $replace($readini(NickLoggerAddressess.ini,Address,$address($newnick,2)),$chr(35),+) $newnick $+ $chr(35)
}
else { halt }
}
}
on *:TEXT:!aka*:#:{
if ($2 ison $chan) {
if ($readini(NickLoggerAddressess.ini,Address,$address($2,2)) != $null) {
.msg $chan • $2 has used the following nicknames: $replace($replace($readini(NickLoggerAddressess.ini,Address,$address($2,2)),+,$chr(44)),$chr(35),$chr(46)) $chr(124) Total: $numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32)
}
else { .msg $chan • $2 has used only that nickname, to my knowledge. }
}
else { .msg $chan • $2 is not currently on $chan $+ . Please try at another time. }
}
on *:TEXT:!prev5nicks*:#:{
if ($2 ison $chan) {
if ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) >= 5) {
.var %Nickname.1 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-1),32)
.var %Nickname.2 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-2),32)
.var %Nickname.3 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-3),32)
.var %Nickname.4 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-4),32)
.var %Nickname.5 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-5),32)
.msg $chan • $2 $+ 's previous 5 nicknames are: $replace($replace(%Nickname.5 %Nickname.4 %Nickname.3 %Nickname.2 %Nickname.1,+,$chr(44)),$chr(35),.)
}
elseif ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) < 5) { .msg $chan • $2 has not used five previous nicknames. He/she has only used $numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) different nicknames. }
}
else { .msg $chan • $2 is not currently on $chan $+ . Please try at another time. }
}
on *:TEXT:!prev4nicks*:#:{
if ($2 ison $chan) {
if ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) >= 4) {
.var %Nickname.1 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-1),32)
.var %Nickname.2 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-2),32)
.var %Nickname.3 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-3),32)
.var %Nickname.4 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-4),32)
.msg $chan • $2 $+ 's previous 4 nicknames are: $replace($replace(%Nickname.4 %Nickname.3 %Nickname.2 %Nickname.1,+,$chr(44)),$chr(35),.)
}
elseif ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) < 4) { .msg $chan • $2 has not used four previous nicknames. He/she has only used $numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) different nicknames. }
}
else { .msg $chan • $2 is not currently on $chan $+ . Please try at another time. }
}
on *:TEXT:!prev3nicks*:#:{
if ($2 ison $chan) {
if ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) >= 3) {
.var %Nickname.1 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-1),32)
.var %Nickname.2 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-2),32)
.var %Nickname.3 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($2,2)),32)-3),32)
.msg $chan • $2 $+ 's previous 3 nicknames are: $replace($replace(%Nickname.3 %Nickname.2 %Nickname.1,+,$chr(44)),$chr(35),.)
}
elseif ($numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) < 3) { .msg $chan • $2 has not used three previous nicknames. He/she has only used $numtok($readini(NickLoggerAddressess.ini,Address,$address($2,2)),32) different nicknames. }
}
else { .msg $chan • $2 is not currently on $chan $+ . Please try at another time. }
}
;## MENUSCODE
menu nicklist {
Nick Logger
.$$1
..View Used Nicknames:{
if ($readini(NickLoggerAddressess.ini,Address,$address($$1,2)) != $null) {
if ($numtok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),32) > 1) {
.echo -a • $$1 has used the following nicknames: $replace($replace($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),+,$chr(44)),$chr(35),$chr(46)) $chr(124) Total: $numtok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),32)
}
else { .echo -a • $$1 has used only that nickname. }
}
else { .echo -a • $$1 has no other nickname data. }
}
..View Last 5 Nicknames:{
if ($numtok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),32) >= 5) {
.var %Nickname.1 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($$1,2)),32)-1),32)
.var %Nickname.2 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($$1,2)),32)-2),32)
.var %Nickname.3 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($$1,2)),32)-3),32)
.var %Nickname.4 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($$1,2)),32)-4),32)
.var %Nickname.5 = $gettok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),$calc($numtok($readini(NickLoggerAddress.ini,Address,$address($$1,2)),32)-5),32)
.echo -a • $$1 $+ 's previous 5 nicknames are: $replace($replace(%Nickname.5 %Nickname.4 %Nickname.3 %Nickname.2 %Nickname.1,+,$chr(44)),$chr(35),.)
}
elseif ($numtok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),32) < 5) { .echo -a • $$1 has not used five previous nicknames. He/she has only used $numtok($readini(NickLoggerAddressess.ini,Address,$address($$1,2)),32) different nicknames. }
}
..-
..Clear Nickname Data:{
if ($readini(NickLoggerAddressess.ini,Address,$address($$1,2)) != $null) {
.remini NickLoggerAddressess.ini Address $address($$1,2)
.echo -a • $$1's previous nickname data has been erased.
}
else { .echo • $$1 has no previous nickname data. }
}
.-
.On Join Notifier
..$iif($group(#notifier) == on,Disable,Enable):{ $iif($group(#notifier) == on,.disable #notifier,.enable #notifier) }
.Clear All Nickname Data:{ .remini NickLoggerAddressess.ini Address | .echo -a • All nickname data has been erased. }
}
;## DO NOT DELETE THIS GROUP!
#notifier on
#notifier end