Forums Scripts & Popups edit nickname script

; ––––––––––––––––––––––––––––––––––––––––
; Put your own scripts in here.
; ––––––––––––––––––––––––––––––––––––––––

alias tracker.txt {
  return tracker.txt
}

on !1:JOIN:#online-wedden: { 
  var %mask = $mask($fulladdress,2)
  var %nfname = $mask($fulladdress,0)

  ; get the previous nicks
  var %nicks = $readini(tracker.txt, %mask, nicks)

  ; get the pervious full names
  var %fname = $readini(tracker.txt, %mask, fullname)

  ; add the new nick ($addtok will take care of duplicates)
  var %nicks = $addtok(%nicks,$nick,32)

  ; add the new fname ($addtok will take care of duplicates)
  var %fname = $addtok(%fname,$ial(%mask).user,32)


  ; update the nicks
  writeini -n tracker.txt %mask nicks %nicks

  ; update the seen time
  writeini -n tracker.txt %mask seentime $date

  ; update the fullname
  writeini -n tracker.txt %mask fullname %fname

  ; echo -t @joins Begin $nick ------------------------------------------
  ; echo -t @joins ip %mask
  echo -t #online-wedden 4 $nick --->  $readini(tracker.txt, %mask, nicks)
  ; echo -t @joins full names:  $readini(tracker.txt, %mask, fullname) 
  ; echo -t @joins last seen on  $readini(tracker.txt, %mask, seentime) 
  ; echo -t @joins Spotted In: $chan	
  ; echo -t @joins End $nick ------------------------------------------
}

alias ntrack {
  var %mask = $address($1,2)
  var %nfname = $address($1,0)
  ; get the previous nicks
  var %nicks = $readini(tracker.txt, %mask, nicks)
  ; get the pervious full names
  var %fname = $readini(tracker.txt, %mask, fullname)
  ; add the new nick ($addtok will take care of duplicates)
  var %nicks = $addtok(%nicks,$nick,32)
  ; add the new fname ($addtok will take care of duplicates)
  var %fname = $addtok(%fname,$ial(%mask).user,32)
  echo -a 12 $1 on the ip %mask has used the nicks:  $readini(tracker.txt, %mask, nicks) and the full names:  $readini(tracker.txt, %mask, fullname)  and was last seen on  $readini(tracker.txt, %mask, seentime) 
}
menu nicklist {
  NickTrack:ntrack $$1
}


alias tracker.txt {
  return tracker.txt
}

on !1:nick: { 
  var %mask = $mask($fulladdress,2)
  var %nfname = $mask($fulladdress,0)

  ; get the previous nicks
  var %nicks = $readini(tracker.txt, %mask, nicks)

  ; get the pervious full names
  var %fname = $readini(tracker.txt, %mask, fullname)

  ; add the new nick ($addtok will take care of duplicates)
  var %nicks = $addtok(%nicks,$newnick,32)

  ; add the new fname ($addtok will take care of duplicates)
  var %fname = $addtok(%fname,$ial(%mask).user,32)


  ; update the nicks
  writeini -n tracker.txt %mask nicks %nicks

  ; update the seen time
  writeini -n tracker.txt %mask seentime $date

  ; update the fullname
  writeini -n tracker.txt %mask fullname %fname

  ; echo -t @joins Begin $nick ------------------------------------------
  ; echo -t @joins ip %mask
  echo # @joins altnicks:  $readini(tracker.txt, %mask, nicks)
  ; echo -t @joins full names:  $readini(tracker.txt, %mask, fullname) 
  ; echo -t @joins last seen on  $readini(tracker.txt, %mask, seentime) 
  ; echo -t @joins End $nick ------------------------------------------
}


; ––––––––––––––––––––––––––––––––––––––––
; End of file
; ––––––––––––––––––––––––––––––––––––––––
 

  ; update the nicks
  writeini -n tracker.txt %mask nicks %nicks 

  ; update the nicks if the nick doesn't match Chatter*
  if (Chatter?* !iswmcs $nick) { writeini -n tracker.txt %mask nicks %nicks }

on !1:nick: { 
  if (Chatter?* !iswmcs $newnick) {
    ... rest of your code for "on nick"
  }
}

alias cleannicks {
  var %file = tracker.txt
  var %n = 1
  while ($ini(%file,%n)) {
    var %mask = $v1, %nicks
    if ($readini(%file,n,%mask,nicks)) {
      var %nicks = $v1
      while ($wildtokcs(%nicks,Chatter?*,1,32)) { var %nicks = $remtok(%nicks,$v1,32) }
      $iif(%nicks,writeini,remini) -n %file %mask nicks %nicks
    }
    inc %n
  }
}