[Looking for !profile]

Try This, It's A Little More Advaced Then The Others. Use Partial Names And Emails

If It Finds More Then One Nick That Could Be What You Are Looking For It Will List And Let The Person Pick From That.

Usage " !pro nick " To Whisper " !spro Nick " To Say In Room

 

on *:TEXT:!*Pro*:*:{ 
 set %whocheckpro $iif(spro isin $1,msg $comchan($nick,1),notice $nick)
 if (@ isin $2) {
if ($right($2,8) != @msn.com) || ($right($2,12) != @hotmail.com) { halt }
   if (@hotmail.com isin $2) {
     %whocheckpro Check out $remove($2,@hotmail.com) @ http://members.msn.com/ $+ $2 | halt
   }
   else if (@msn.com isin $2) {
     %whocheckpro Check out $remove($2,@msn.com) @ http://members.msn.com/ $+ $2 | halt
   }
 }
 if ($2 == me) { set %pronick $nick | set %whocheckpro msg $comchan($nick,1) S eCourier\bNew;0 | PROP $nick PUID | halt }
 if ($ialchan($+(*,$2,*),$chan,0) == 0) { msg $comchan($nick,1) Sorry $nick But There Where No Matches Found | halt }
 if ($ialchan($+(*,$2,*),$chan,0) == 1) { set -u3 %othercheckpro $true | set %pronick $2 | PROP $2 PUID | halt }
 if ($ialchan($+(*,$2,*),$chan,0) > 1) {
   set %a 1
   set %prosnick $getdecodenick($2)
   set %prosnicknum $ial($+(*,$getdecodenick($2),*),0)
   notice $nick Who Are You Looking For [-Say ~show (number)-]
   while (%a <= %prosnicknum) {
     set %prosnicklist $+ %a $ial($+(*,$2,*),%a).nick
     notice $nick %a ~*~ $ial($+(*,$2,*),%a).nick
     inc %a
   }
   enable #shownumpro
   halt
 }
}

#shownumpro off
on *:TEXT:~show *:#: {
 if ($nick !isin %whocheckpro) { notice $nick Wait Your Turn :| | halt } 
 if ($2 !isnum) || (($2 == 0) || ($2 > %prosnicknum)) { notice $nick $iif($2 !isnum,Dude I Said Number Not Letter :|,That Number Was Not Posted | halt }
 else { set -u3 %othercheckpro $true | set %pronick $var($+($chr(37),prosnicklist,$2),1).value | PROP $var($+($chr(37),prosnicklist,$2),1).value PUID | /disable #shownumpro | halt }
}
#shownumpro end

;;In Vincula Look For " raw 818 " And Replace It With This 
raw 818:*: {
 if ($3 == PUID) {
   if (%othercheckpro != $null) {
     %whocheckpro %pronick $+ 's Profile link = http://members.msn.com/default.msnw?mpp= $+ $4- 
     halt
   }
   else {
     echo $color(info2) -at * Opening $msn.ifdecode($2) $+ 's profile...
     var %m, %c, %x, %p http://chat.msn.com/profile.msnw?epuid= $+ $4- , %w @Vincula -  $+ $msn.ifdecode($2) $+ 's Profile
     window -pk0 %w
     %m = $msn.ndll(attach,$window(%w).hwnd)
     %m = $msn.ndll(select,$window(%w).hwnd)
     %m = $msn.ndll(handler,msn.hnd.prof)
     %m = $msn.ndll(navigate,%p)
     %msnc.stoppropend = $true
     haltdef
   }
 }
 elseif (($3 == MSNPROFILE) && ($window($msn.get($cid,room)))) {
   if ($4 == 1) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) has a regular profile
   elseif ($4 == 3) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) $+ 's profile says he is male
   elseif ($4 == 5) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) $+ 's profile says she is female
   elseif ($4 == 9) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) has a picture in his or her profile
   elseif ($4 == 11) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) $+ 's profile has a picture, and says he is male
   elseif ($4 == 13) echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) $+ 's profile has a picture, and says she is female
   else echo $color(info2) -t $msn.get($cid,room) * $msn.ifdecode($2) does not have a profile
   %msnc.stoppropend = $true
   haltdef
 }
}