ok this is what i found it was in History.mrc
#history on
alias -l hfont { return S Tahoma;0 }
alias -l h2font { return S eTahoma;0 }
on *:JOIN:*:{
if ($nick == $me) || (*! $+ $$ial($nick $+ *,1).addr == $ulist(*! $+ $$ial($nick $+ *,1).addr,shitlist,1)) halt
if (> isin $nick) goto guest
if ($$ial($nick $+ *,1).addr == $gettok($read(history.txt, w,* $+ $$ial($nick $+ *,1).addr $+ *),1,32)) { var %line $readn | goto old }
else { goto new }
:new {
msg # $hfont Welcome $nick this is the first time you've visited $replace($right(#,-2),\b,$chr(32)) Room please enjoy your stay.
write history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
:old {
if ($nick == $gettok($read(history.txt,%line),2,32)) {
msg # $hfont Welcome back $nick glad you have returned to $replace($right(#,-2),\b,$chr(32)) Room. You were last here on the $gettok($read(history.txt,%line),4,32) at $gettok($read(history.txt,%line),3,32) $+ .
write -l %line history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
else {
msg # $hfont Welcome $nick glad you have returned to $replace($right(#,-2),\b,$chr(32)) Room.
msg # $h2font You were last here on the $gettok($read(history.txt,%line),4,32) at $gettok($read(history.txt,%line),3,32) and were known as $gettok($read(history.txt,%line),2,32)) $+ .
write -l %line history.txt $$ial($nick $+ *,1).addr $nick $time $date $chan
return
}
}
:guest {
msg # $hfont Welcome $replace($nick,>,Guest_) hope you enjoy your stay at $replace($right(#,-2),\b,$chr(32)) Room, hope you get a Passport soon.
return
}
}
#history end
Edited Dec 16, 2004 4:02 AM by K0rupt