#log on
menu nicklist {
  UserLog
  .Nicklog For Selected Name: set %laddr $addy | nkb
  .Nicklog Help: nlhelp
  -
}
menu channel {
  Nickname Log
  .View Nickname Log: showlog
  .NickLog Help: nlhelp
}
on *:JOIN:*: { 
  if (!%pa) {
    if ($read(nicklog.txt, s, $gaddy($nick)) == $null) { /write nicklog.txt $gaddy($nick) $nick $+ , | msg $chan %kfont $nick Logged | halt
    }
    if ($read(nicklog.txt, s, $gaddy($nick)) !== $null) { 
      set %na $replace($read(nicklog.txt, s, $gaddy($nick)),$chr(44),$chr(32)) | tokenize 32 %na
      if ($nick isin $1-) { 
        halt
      }
      if ($nick !isin $1-) { 
        set %na $replace($read(nicklog.txt, s, $gaddy($nick)),$chr(44),$chr(32)) | tokenize 32 %na
        /write -as $+ $gaddy($nick) nicklog.txt $nick $+ ,
        msg $chan %kfont $nick Previous Nicknames $1-
      }
    }
    else { halt
    }
  }
  unset %na
}
on *:PART:*: { set -u5 %pa 1 }
alias showlog { if (@nicknamelog) { clear @nicknamelog
  }
  if (!@nicknamelog) { window -ae0 @nicknamelog
  } 
  var %n 1 | var %nl $lines(nicklog.txt) 
  while %n <= %nl { echo @nicknamelog 11 $+ %n  $read(nicklog.txt, %n) | inc %n
  }
  if (%n > %nl) { echo @nicknamelog 11Please type /dlog linenumber eg.(/dlog 22) to clear the line from the log once complete the window will refresh confirming the line and info that was deleted.
    echo @nicknamelog 11You can open the file and edit it manually by typing /editlog
  }
} 
alias dlog { if ($active == @nicknamelog) && ($1 == $null) { echo $active 4You must enter a line number to delete the line from the log 11eg.(/dlog 22) /showlog to refresh 
  }
  if ($active == @nicknamelog) && ($1 !== $null) { set %d $1 | set %dl $read(nicklog.txt, $1) | echo $active 11Type /yes to delete: %d  9 %dl
    echo $active 11Type /dlog linenumber eg.(/dlog 22) to select a different line
  } 
}
alias yes { if ($active == @nicknamelog) && (%dl !== $null) { 
    set %yn1 yes
    /write -dl $+ %d nicklog.txt | echo @nicknamelog 4 %dl HAS BEEN DELETED FROM THE LOG!! refreshing in 10sec...
    echo $active 8You can undo the action by typing /undo before trying to make another change!
    .timerrefresh 1 10 showlog

  }
}
alias undo { if ($active == @nicknamelog) && (%yn1 == yes) { /write -il $+ %d nicklog.txt %dl | echo $active 9Your changes have been undone, %dl has been readded to the log. Refreshing in 10sec...
    /unset %yn1 | unset %d*
    .timerrefresh1 1 10 showlog
  }
}
alias nkb { echo $chan 7This user is known by the following names in this room:  
  echo $chan 9 $read(nicklog.txt, s, %laddr)  Line number " $+ $readn $+ " should you wish to make changes.
}
alias editlog { run nicklog.txt }
alias nlhelp { echo $active 7~~~~----~~~~----"NICKNAME LOG HELP"----~~~~----~~~~
  echo $active 8About: The nickname log keeps track of all of the user nicknames associated with a user's Passport ID. You can make changes to the log remotely. Here are a list of commands you can perform to make changes to the log:
  echo $active 9/showlog: This will open a new window and show you the entire nickname log. The View Nickname Log menu option explained below does the same thing. 
  echo $active 9/dlog +linenumber: This command with 4the line number shown in the list will que the ability to remove the selected line number from the log, reasons you would want to do this are if the line is excessively long due to ghosting (numbers being added to the end of a nickname) or just to clear up names in the log
  echo $active 9/yes: confirms you want to delete the line from the log that you entered, the log will automatically refresh to show the new change
  echo $active 9/undo: allows you to RE-ADD the LAST deleted entry from the log. 4WARNING if you attempt to delete another line before /undo your deletion will be permanent, log will automatically refresh
  echo $active 8Menu Commands: You can view the individual previous nicknames of a user by right clicking a user's name in the list, UserLog, "Nicklog For Selected Name"
  echo $active You can access the Nickname Log by right clicking the channel, Nickname Log, "View Nickname Log"
  echo $active 8/editlog: Last but not least, you can edit the log file itself by typing in /editlog at any time to open the log text file 
  echo $active You can view this Log Help at any time either the Nicklist Menu or Channel Menu "NickLog Help"
  echo $active 13If you need help or have suggestions on making this simpler please email Winz - Michael at [email protected]!
}
#log end