Help needed ASAP

Ok..i need help with two things..both include having to work with vincula connection...not sure if they've been mentioned in TG before but i searched half the forum and couldn't find them

*First one:

I need a command to scan the profile ages of all the users in the room and kicks users under the age of "18"

E.x:

---------------------------------------------------

Me : >ScanProfiles

Script : Scanning Profiles.

Script : Nick1 [Age : 18]

Script : Nick2 [Age : 21]

Script : Nick3 [Age : 16]

Script kicked Nick3 : Underage User [Age : 16]

Script : Nick4 [Age : 32]

----------------------------------------------------

Note : The messages would be -echo instead of posted into the actuall channel to prevent flooding the room with the profile ages

*Second one:

This is even more important...when ever i get flooded with a long nick flood..my script bans them but gets an error saying the nick could not be found or $string is too long...

Is there a way to edit the ($2 == join) in vincula to get it to read long nicks so i could ban them...

The ($2 == Join) code for vincula is

elseif ($2 == JOIN) {
     if ($scid($gettok($sockname,3,46)).me !ison $chr(37) $+ $chr(35) $+ $right($right($gettok(%read,4,32),-3),88)) {
       msn.set $sockname fullroom $right($gettok(%read,4,32),-1)
       msn.set $sockname room $chr(37) $+ $chr(35) $+ $right($right($gettok(%read,4,32),-3),88)
       msn.set $sockname shortroom $left($chr(37) $+ $chr(35) $+ $right($right($gettok(%read,4,32),-3),88),60)
       tokenize 32 $reptok(%read,$gettok(%read,4,32),: $+ $chr(37) $+ $chr(35) $+ $right($right($gettok(%read,4,32),-3),88),1,32)
     }
     sockwrite -tn msn.mirc. $+ $gettok($sockname,3,46) $1 $2 $4- 

and the flood protection i use is

on !@*:JOIN:*: {
 if (admin isin $level($address($nick,6))) halt
 if (owner isin $level($address($nick,6))) halt
 if (host isin $level($address($nick,6))) halt
 if (%ozkk == on ) {
   access $msn.get($cid,fullroom) add deny $address 1 :passport flood
   .sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick : Flood $nick($chan,0)
 }
 if (!%pFl) {
   set -u1 %pFl 1
   set -u2 %ppoz. [ $+ [ # ] ] $nick
 }
 else {
   inc %pFl 
   set -u2 %ppoz. [ $+ [ # ] ] %ppoz. [ $+ [ # ] ] $+ $chr(44) $+ $nick
   if (%pFl == 3) {
     set -u120 %pozpo $calc(%pozpo +1)
     .sockwrite -tn msn.server. $+ $cid mode $msn.get($cid,fullroom) +i
     set -u20 %ozkk on
     kick $msn.get($cid,fullroom) %ppoz. [ $+ [ # ] ] Passport flood,[1 min ban]
     if (> !isin %ppoz. [ $+ [ # ] ]) {
       var %i = 1
       while (%i <= $numtok(%ppoz. [ $+ [ # ] ],32)) {
         access $msn.get($cid,fullroom) add deny $gettok(%ppoz. [ $+ [ # ] ],%i,32) 1 : Passport flood
         inc %i
       }
       if (!%pozpo) {
         set -u180 %pozpo 0
       }
     }
   }
 }
}

I would really like help A.S.A.P...

Hitman

for the profile scanner, use stealth's profile scanner located at rumbaar's forum. Also to ban long nicks, just put this into your remotes

menu channel {
 Ban Long Nicks
 .Add : access $chan add deny $str(?,50) $+ *!*@*$* 0 :Long nick ban
 .Remove access $chan delete deny $str(?,50) $+ *!*@*$*
}

It isn't recommended that you edit the connection unless you know what your doing.

thnx for the fast reply...but that's the problem i'm facing ... i add a long nick ban but within hours its removed by some owner clearing the deny list coz they aren't bothered looking for the person they want to unban...

I've seen a few scripts being able to detect + kick long nicks but i'm really hopeing there's a fix for vincula (vincula fan)

in that case, under the sockwrite line of what you posted above, put this in

 if ($len($1) >= 87) sockwrite -n $sockname access $right($4,-1) add deny $str(?,50) $+ *!*@*$* 0 :Long Nick Ban $crlf kick $right($4,-1) $right($gettok($1,1,33),-1) :Long Nick Kick 

So just put it under the sockwrite line and it should do the job.

thnx...i'll try it out soon as i can connect to msn...

and another thing...the stealth scan...does it scan for users on :JOIN: or does it do both on :Join: and on :TEXT:

becouse i have a profile scanner for users that join the room..but i want a command to read the profiles by a command....

e.x

on Admin:TEXT:%scanprofiles:#: "the code"

if its any help..this is the profile scan i use for :JOIN:

*Its a bit long i know *-)..but it works fine*

#procheck on
on *:JOIN:*: { 
 if ($nick != $me) && (!%joinflood1) && ($me isop #) { 
   PROP $nick MSNPROFILE
   set %chan $chan
   set %name $nick
   set -u6 %joinflood1 $true 
   set -u6 %inpuid $+ [ $nick ] $true 
   prop $nick PUID 
   window -h @hiddenwindow 
 } 
} 
raw 818:*:{ 
 if ($3 != MSNPROFILE) && (%inpuid $+ $2) && ($chr(35) !isin $2) { 
   unset %inpuid $+ $2 
   writeini PUID.txt PUID $2 $4 
   sprofile $2 
 } 
 elseif ($3 == MSNPROFILE) && ($me != $2) { 
   echo %chan 7[5 %name $+ 's profiles is 12 $+ $replace($4,0,empty,13,female with pic,11,male with pic,9,picture no gender,3,male no pic,5,female no pic,1,regular profile) 7]
 } 
}
alias delpuid {
 write -c PUID.txt | echo -a 11C1leared PUID.txt ...
}
alias sprofile { sockopen $+(profile.,$1) chat.msn.com 80 } 
alias profileinfo { 
 if ($prop == puid) { return $gettok($right($gettok($1,3,47),-10),1,38) } 
 if ($prop == userget) { return $gettok($1,3,47) } 
} 

on *:SOCKOPEN:profile.*:{ sockwrite $sockname GET /profile.msnw?epuid= $+ $readini(PUID.txt,PUID,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: en-us $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) $+ $crlf $+ Host: chat.msn.com $+ $crlf $+ Connection: close $+ $crlf $+ $crlf } 
on *:SOCKOPEN:profile2.*:{ sockwrite $sockname GET / $+ $readini(PUID.txt,UserGet,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: en-us $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) $+ $crlf $+ Host: members.msn.com $+ $crlf $+ Connection: close $+ $crlf $+ $crlf } 
on *:SOCKREAD:profile.*:{ 
 if ($sockerr > 0) return 
 var %t | sockread %t 
 while ($sockbr > 0) { 
   tokenize 32 %t 
   if ($1 == LOCATION:) { 
     writeini PUID.txt Redirect $gettok($sockname,2,46) $1- 
     writeini PUID.txt UserGet $gettok($sockname,2,46) $profileinfo($readini(PUID.txt,Redirect,$gettok($sockname,2,46))).userget 
     remini PUID.txt Redirect $gettok($sockname,2,46) 
     sockopen profile2. $+ $gettok($sockname,2,46) members.msn.com 80 
     return 
   } 
   sockread %t 
 } 
} 

on *:SOCKREAD:profile2.*: {
 if ($sockerr > 0) { echo -a SOCKERR: $sock($sockname).wsmsg | return }
 var %x
 sockread %x
 if (*A class=viewDesc title* iswm %x) { 
   var %pro = $right(%x,$calc(1 - $poscs(%x,title=",1) - $len(title="))) 
   %pro = $left(%pro,$calc($pos(%pro,",1)-1))
   echo %chan 7[12Homepage7]  7[ %pro 7]
   if (*outwar* iswm %pro) { 
     linkkill
   } 
   elseif (*porn* iswm %pro) || (*sex* iswm %pro) || (*teen* iswm %pro) { 
     linkkill
   } 
   elseif (*dialer* iswm %pro) || (*cam* iswm %pro)  || (*HOT* iswm %pro) { 
     linkkill
   } 
   elseif (*naughty* iswm %pro) || (*homo* iswm %pro) { 
     linkkill
   } 
   elseif (*cyber* iswm %pro) || (*nasty* iswm %pro) { 
     linkkill
   } 
   elseif (*porno* iswm %pro) || (*babe* iswm %pro) { 
     linkkill
   } 
   elseif (*adult* iswm %pro) || (*erotiek* iswm %pro) { 
     linkkill
   } 
 } 
 if (*<B>Age</B>* iswm %x) {
   tokenize 32 %x
   if ($11 == class=viewStats) && ($13 == class=viewStats) {
     set %Age $remove($12,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.12
     Procheck
   }
   elseif ($12 == class=viewStats) && ($14 == class=viewStats) {
     set %Age $remove($13,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.13
     Procheck
   }
   elseif ($13 == class=viewStats) && ($15 == class=viewStats) {
     set %Age $remove($14,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.14
     Procheck
   }
   elseif ($14 == class=viewStats) && ($16 == class=viewStats) {
     set %Age $remove($15,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.15
     Procheck
   }
   elseif ($15 == class=viewStats) && ($17 == class=viewStats) {
     set %Age $remove($16,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.16
     Procheck
   }
   elseif ($16 == class=viewStats) && ($18 == class=viewStats) {
     set %Age $remove($17,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.17
     Procheck
   }
   elseif ($17 == class=viewStats) && ($19 == class=viewStats) {
     set %Age $remove($18,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.18
     Procheck
   }
   elseif ($18 == class=viewStats) && ($20 == class=viewStats) {
     set %Age $remove($19,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.19
     Procheck
   }
   elseif ($19 == class=viewStats) && ($21 == class=viewStats) {
     set %Age $remove($20,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.20
     Procheck
   }
   elseif ($20 == class=viewStats) && ($22 == class=viewStats) {
     set %Age $remove($21,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.21
     Procheck
   }
   elseif ($21 == class=viewStats) && ($23 == class=viewStats) {
     set %Age $remove($22,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.22
     Procheck
   }
   elseif ($22 == class=viewStats) && ($24 == class=viewStats) {
     set %Age $remove($23,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.23
     Procheck
   }
   elseif ($23 == class=viewStats) && ($25 == class=viewStats) {
     set %Age $remove($24,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.24
     Procheck
   }
   elseif ($24 == class=viewStats) && ($26 == class=viewStats) {
     set %Age $remove($25,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.25
     Procheck
   }
   elseif ($25 == class=viewStats) && ($27 == class=viewStats) {
     set %Age $remove($26,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.26
     Procheck
   }
   elseif ($26 == class=viewStats) && ($28 == class=viewStats) {
     set %Age $remove($27,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.27
     Procheck
   }

   elseif ($27 == class=viewStats) && ($29 == class=viewStats) {
     set %Age $remove($28,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.28
     Procheck
   }
   elseif ($28 == class=viewStats) && ($30 == class=viewStats) {
     set %Age $remove($29,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.29
     Procheck
   }
   elseif ($29 == class=viewStats) && ($31 == class=viewStats) {
     set %Age $remove($30,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.20
     Procheck
   }
   elseif ($30 == class=viewStats) && ($32 == class=viewStats) {
     set %Age $remove($31,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.31
     Procheck
   }
   elseif ($31 == class=viewStats) && ($33 == class=viewStats) {
     set %Age $remove($32,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.32
     Procheck
   }
   elseif ($32 == class=viewStats) && ($34 == class=viewStats) {
     set %Age $remove($33,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.33
     Procheck
   }
   elseif ($33 == class=viewStats) && ($35 == class=viewStats) {
     set %Age $remove($34,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.34
     Procheck
   }
   elseif ($34 == class=viewStats) && ($36 == class=viewStats) {
     set %Age $remove($35,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.35
     Procheck
   }
   elseif ($35 == class=viewStats) && ($37 == class=viewStats) {
     set %Age $remove($36,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.36
     Procheck
   }
   elseif ($36 == class=viewStats) && ($38 == class=viewStats) {
     set %Age $remove($37,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.37
     Procheck
   }
   elseif ($37 == class=viewStats) && ($39 == class=viewStats) {
     set %Age $remove($38,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.38
     Procheck
   }
   elseif ($38 == class=viewStats) && ($40 == class=viewStats) {
     set %Age $remove($39,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.39
     Procheck
   }
   elseif ($39 == class=viewStats) && ($41 == class=viewStats) {
     set %Age $remove($40,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.40
     Procheck
   }
   elseif ($40 == class=viewStats) && ($42 == class=viewStats) {
     set %Age $remove($41,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.41
     Procheck
   }
   elseif ($41 == class=viewStats) && ($43 == class=viewStats) {
     set %Age $remove($42,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.42
     Procheck
   }
   elseif ($42 == class=viewStats) && ($44 == class=viewStats) {
     set %Age $remove($43,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.33
     Procheck
   }
   elseif ($43 == class=viewStats) && ($45 == class=viewStats) {
     set %Age $remove($44,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.44
     Procheck
   }
   elseif ($44 == class=viewStats) && ($46 == class=viewStats) {
     set %Age $remove($45,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.45
     Procheck
   }
   elseif ($45 == class=viewStats) && ($47 == class=viewStats) {
     set %Age $remove($46,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.46
     Procheck
   }
   elseif ($46 == class=viewStats) && ($48 == class=viewStats) {
     set %Age $remove($47,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.47
     Procheck
   }
   elseif ($47 == class=viewStats) && ($49 == class=viewStats) {
     set %Age $remove($48,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.48
     Procheck
   }
   elseif ($48 == class=viewStats) && ($50 == class=viewStats) {
     set %Age $remove($49,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.49
     Procheck
   }
   elseif ($49 == class=viewStats) && ($51 == class=viewStats) {
     set %Age $remove($50,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.50
     Procheck
   }
   elseif ($50 == class=viewStats) && ($52 == class=viewStats) {
     set %Age $remove($51,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.51
     Procheck
   }
   elseif ($51 == class=viewStats) && ($53 == class=viewStats) {
     set %Age $remove($52,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.52
     Procheck
   }
   elseif ($52 == class=viewStats) && ($54 == class=viewStats) {
     set %Age $remove($53,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.53
     Procheck
   }
   elseif ($53 == class=viewStats) && ($55 == class=viewStats) {
     set %Age $remove($54,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.54
     Procheck
   }
   elseif ($54 == class=viewStats) && ($56 == class=viewStats) {
     set %Age $remove($55,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.55
     Procheck
   }
   elseif ($55 == class=viewStats) && ($57 == class=viewStats) {
     set %Age $remove($56,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.56
     Procheck
   }
   elseif ($56 == class=viewStats) && ($58 == class=viewStats) {
     set %Age $remove($57,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.57
     Procheck
   }
   elseif ($57 == class=viewStats) && ($59 == class=viewStats) {
     set %Age $remove($58,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.58
     Procheck
   }
   elseif ($58 == class=viewStats) && ($60 == class=viewStats) {
     set %Age $remove($59,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.59
     Procheck
   }
   elseif ($69 == class=viewStats) && ($61 == class=viewStats) {
     set %Age $remove($60,valign=top><nobr><B>Age</B></nobr><br>,    </td></tr><tr><td)
     inc %ProfileChecker.60
     Procheck
   }
   else {
     echo -a $50-
   }
 }
 if (*viewName>* iswm %x) {
   tokenize 32 %x
   if (class=viewName> isin $2) {
     set %profilename $remove($2,class=viewName>)
     inc %NameChecker.2
     namecheck
   }
   if (class=viewName> isin $13) {
     set %profilename $remove($13,class=viewName>)
     inc %NameChecker.13
     namecheck
   }
   if (class=viewName> isin $24) {
     set %profilename $remove($24,class=viewName>)
     inc %NameChecker.24
     namecheck
   }
   else {
     echo -a $1
     echo -a $2
     echo -a $3
     echo -a $4
     echo -a $5
     echo -a $6
     echo -a $7
     echo -a $8
     echo -a $9
     echo -a $10
     echo -a $11
     echo -a $12
     echo -a $13
     echo -a $14
     echo -a $15
     echo -a $16
     echo -a $17
     echo -a $18
     echo -a $19
     echo -a $20
     echo -a $21
     echo -a $22
     echo -a $23
     echo -a $24
     echo -a $25
     echo -a $26
     echo -a $27
     echo -a $28
     echo -a $29
   }
 }
}

on *:sockclose:profile*: {
 set %rec $sock(profile*).rcvd
 if (%rec < 1500) {
 ;echo %Chan 7[02Profile type not allowed07] [02'Adult Only'07]02 %name %rec
 ;access %Chan add deny $address(%name,1) 15
 ;access %Chan add deny %name 15
 ;kick %chan %name 7[02Profile type not allowed07] [02'Adult Only'07]
 }
 unset %rec
}

alias Procheck {
 if (%age == Undisclosed) {
   echo %Chan 07[11 %Name $+ 07] [11Age %Age $+ 07]
   timer 1 2 unset %Name
   timer 1 2 unset %chan 
   timer 1 2 unset %age
 }
 elseif (%age > 17) && ($chr(33) !isin %age) {
   echo %Chan 07[11 %Name $+ 07] [02Age %Age $+ 07]
   timer 1 2 unset %Name
   timer 1 2 unset %chan 
   timer 1 2 unset %age
 }
 elseif (%age < 18) {
   echo %Chan 07[11 %Name $+ 07] [04Age %Age $+ 0707]
   if (%name !isowner %chan) {
     access %Chan add deny $ial(%name).addr 0 : $+ %name $+ 's age is %age
     .sockwrite -tn msn.server. $+ $cid kick %chan %name : \\UnderAge.User//\\Age. $+ %Age $+ //
   }
   timer 1 2 unset %Name
   timer 1 2 unset %chan 
   timer 1 2 unset %age
 }
 else {
   echo %Chan 07[11 $+ %name $+ 07] [14Age Unavailable07]11 %Name %Age
   timer 1 2 unset %Name
   timer 1 2 unset %chan 
   timer 1 2 unset %age
 }
}

alias namecheck {
 if (%profilename != %name) {
   echo %Chan 07[11Profile Name07] [04No Match07]14 $m.convert($heh(%profilename)) %name
   halt
 }
 elseif (%profilename == %name) {
   echo %Chan 07[14Profile Name07] [14Matches07]
   halt
 }
}

alias pornkill {
 echo %Chan 07[14 $+ %Name $+ 07] [04Porn Kill0707]
;  if (%name !isowner %chan) {
;    access %Chan add deny $address(%name,1) 15
;    access %Chan add deny %name 15
;    kick %chan %name \\UnderAge.User//
;  }
 timer 1 2 unset %Name
 timer 1 2 unset %chan 
 timer 1 2 unset %age
}

alias linkkill {
 echo %Chan 07[14 $+ %Name $+ 07] [04Link Kill0707]
 if (%name !isowner %chan) {
   access %Chan add deny $ial(%name).addr 15 : $+ %name got a violating homepage address
   kick %chan %name : $+ inappropriate link in profile 
 }
 timer 1 2 unset %Name
 timer 1 2 unset %chan 
 timer 1 2 unset %age
}

alias agekill {
 echo %Chan 07[14 $+ %Name $+ 07] [04Age Kill0707]
;  if (%name !isowner %chan) {
;    access %Chan add deny $address(%name,1) 15
;    access %Chan add deny %name 15
;    kick %chan %name \\UnderAge.User//
;  }
 timer 1 2 unset %Name
 timer 1 2 unset %chan 
 timer 1 2 unset %age
}

#procheck end

menu menubar {
 -
 UnderAge ‹ $+ $group(#procheck) $+ ›
 .On:.enable #procheck | .set %pscan on
 .Off:.disable #procheck | .set %pscan off
}

well for remote command is

on Admin:TEXT:!scan*:#: {
  PROP $$2 MSNPROFILE
  set %chan $chan
  set %name $nick
  set -u6 %joinflood1 $true 
  set -u6 %inpuid $+ [ $$2 ] $true 
  prop $$2 PUID 
  window -h @hiddenwindow
} 

then you just use

!scan <nickname>

This is for your code posted above.

thanks alot "The Gate Keeper"...

a quick question and sorry for the bother :$..is there a way i can get to scan all the nicks ? or just one nick at a time ?

well not really based on the code, cause you are using %chan and %nick, so it wont really work out.

ah well..we can't always have what we want ....

but thanks a million for the other codes...i'll try them all out once i can get back into the chat

the idea ur seeking can't be logical, cos u have to code a loop scanner to scan the nicknames on the channel wich will flood u out, coz the PROP is slower than KICK or MODE, specialy when it comes to a nickname not a channel property.

Also u'll have to set an independent set of variables for each nick, wuch wud lag like crazy.