@ delarray(hitlist)
@ delarray(penalty)


on ^servermsg "*has requested your info*" {

assign USER_NAME $0
showinfo

}

alias showinfo {

whois $USER_NAME

eval on ^who "$USER_NAME" {

	if (finditem(hitlist $0) < [0])
		{
			@ setitem(hitlist $numitems(hitlist) $0)
			@ setitem(penalty $numitems(penalty) 0)
		}
			@ hitlistplace = finditem(hitlist $0)
			@ penal = getitem(penalty $hitlistplace) + 1
			@ setitem(penalty $hitlistplace $penal)
			switch ($penal)
		{
(1) {
msg $0 Hey $0 u have requested my details, u need help?
}
(2) {
msg $0 What are u doing $0?
}
(3) {
msg $0 This is the last time 4 u! $0
}
(4) { 
msg $0 Ok now I'm kill u $0  :)
raw 610 $0 whois_flood
}
(5) {
msg $0 Fuck u leech...
setuserlevel $0 leech
}
(6) {
msg $0 bye bye!!!!!
raw 610 $0 Get it now????
}
}
}
}

echo whois.rc on
echo edit by [c1p8]