Friends Database

This snipet will help you to remember your friends’ name from their nick or ip/hostmask

It’s very simple to use, just right click their nick and you’ll see some options: Add their nicks, add their ip/hostmask or check who they’re

This is the code:
; Created by oyr79 © 2007
; http://mirc.oyr79.com

on *:INPUT:*:{
if ($$1 == +nick) { write kenalan.txt $?="Enter Nick:" $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
if ($$1 == +ip) { write kenalan.txt $?="Enter IP/Hostmask:" $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
if ($$1 == +who) {
var %dt = $?="Enter Nick:"
if ($read(kenalan.txt, s, %dt) == $null) {
if (!$comchan(%dt,0)) { echo 4 -a *** Not found... | halt }
elseif ($read(kenalan.txt, s, $remove($address(%dt,2),*!*@)) == $null) { echo 4 -a *** Not found... | halt }
else echo 7 -a *** Found match IP/Hostmask with $remove($address(%dt,2),*!*@) $+ : $read(kenalan.txt, s, $remove($address(%dt,2),*!*@)
}
else { echo 7 -a  %dt is $read(kenalan.txt, s, %dt)  | halt }
}
}
menu nicklist,query {
Friends
.Add Nick { write kenalan.txt $$1 $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
.Add IP { write kenalan.txt $remove($address($$1,2),*!*@) $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
.WhoIs {
if ($read(kenalan.txt, s, $$1) == $null) {
if (!$comchan($$1,0)) { echo 4 -a *** Not found... | halt }
elseif ($read(kenalan.txt, s, $remove($address($$1,2),*!*@)) == $null) { echo 4 -a *** Not found... | halt }
else echo 7 -a *** Found match IP/Hostmask with $remove($address($$1,2),*!*@) $+ : $read(kenalan.txt, s, $remove($address($$1,2),*!*@)
}
else { echo 7 -a  $$1 is $read(kenalan.txt, s, $$1)  | halt }
}
}
alias AddNick { write kenalan.txt $?="Enter Nick:" $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
alias AddIP { write kenalan.txt $?="Enter IP/Hostmask:" $?="Enter his/her real name:" $?="Enter ASL:" Last update: $time(yyyy-mm-dd) | halt }
alias WhoNick {
var %dt = $?="Enter Nick:"
if ($read(kenalan.txt, s, %dt) == $null) {
if (!$comchan(%dt,0)) { echo 4 -a *** Not found... | halt }
elseif ($read(kenalan.txt, s, $remove($address(%dt,2),*!*@)) == $null) { echo 4 -a *** Not found... | halt }
else echo 7 -a *** Found match IP/Hostmask with $remove($address(%dt,2),*!*@) $+ : $read(kenalan.txt, s, $remove($address(%dt,2),*!*@)
}
else { echo 7 -a  %dt is $read(kenalan.txt, s, %dt)  | halt }
}
; EOF

To add friends right click his/her nick and select Friends - Add Nick or just type /AddNick and you’ll be asked about his/her data

Hope you like this snipet