Profile check

Recently, I was in here asking for help and I got it.

The code I requested was this.

on *:JOIN:#:{
 if ($readini(userpics.ini,Users,$nick)) {
   msg $chan $nick 's PICTURE Click below 
(p): $readini(userpics.ini,Users,$nick)
 }
}
menu nicklist {
 ADD PICTURE
 .Add picture :/writeini -n userpics.ini users $1 http://home.cogeco.ca/~theplaypen/userpics/ $+ $msn.tohex($1) $+ .jpg
 .Delete Picture :/remini userpics.ini users $1
 -
}

alias msn.tohex {
 var %l 1, %r
 while (%l <= $len($1-)) {
   %r = %r $+ $base($asc($mid($1-,%l,1)),10,16,2)
   inc %l
 }
 return %r
}

I wonder (by the way, you think I can recall the member that was nice enuff to do this for me?..nooooo cus I am stupid that's why) if someone can code this to read the profile link when someone types this in the main room?

!pic <Members name>

Forgive me for being so lax as to not recall the helpful member.

Something like this?

on *:TEXT:!pic*:#:{ if ($readini(userpics.ini,Users,$2-) { msg # $2- $+ 's pic is located here: $readini(userpics.ini,Users,$2-) | else halt } 

Something like that should work...just something quick I whipped up. If it doesnt work, post it here.

Thanks for the response X.

No it didn't seem to work but maybe this information will help.

This is what I currently use for a profile check so maybe it can be altered for the pic link.

menu menubar {
 .!PROFILES ( $+ $group(#profiles) $+ ) 
 ..$iif($group(#profiles) == on,$style(2),$style(0)) On: .enable #profiles | echo -a 0,12PROFILE CHECK $+ 0,94 On 
 ..$iif($group(#profiles) == off,$style(2),$style(0)) Off: .disable #profiles | echo -a 0,12PROFILE CHECK $+ 0,4 Off
}
#profiles on
on *:TEXT:!Profile *:*: { 
 set %pflshw $true 
 set %pronick $nick 
 var %i 1 
 while (%i <= $nick($comchan($nick,1),0)) { 
   if ($2 isin $nick($comchan($nick,1),%i)) { prop $nick($comchan($nick,1),%i) PUID | return } 
   inc %i 
 } 
 else { .notice $nick Cannot find " $+ $2 $+ " in the room, please make sure you have the nickname exactly how it appears in the room. } 
}
raw 818:*:{ 
 if ($3 == PUID) && (%pflshw) { 
   .notice %pronick $2 $+ 's (M) Profile  
http://chat.msn.com/profile.msnw?epuid= $+ $4- 
   %msnc.stoppropend = $true 
   unset %pflshw
   haltdef 
 } 
}
#profiles end
ctcp *:ERR*:*: {
 if ($2 == NOUSERWHISPER) {
   msg $comchan($nick,1) $nick $+ , please enable your whispers to view profiles by clicking this link  http://groups.msn.com/-ThePlayPen-/_chatroom_options.msnw or at left in the member's list, double left click on anyone's name and click yes to the prompt.  :P
   haltdef
 }
}

And you have the other up top of..

on *:JOIN:#:{
 if ($readini(userpics.ini,Users,$nick)) {
   msg $chan $nick 's PICTURE Click below 
(p): $readini(userpics.ini,Users,$nick)
 }
}

Hope this helps

X-Fusion code should work for the picture link.

on *:TEXT:!pic*:#:{
 if ($readini(userpics.ini,Users,$2-) {
   msg # $2- $+ 's pic is located here: $readini(userpics.ini,Users,$2-) 
 }
 else halt
}

Because the Value of the nickname on the ini file is the URL to his/her picture.

There we go.

0bscuridad is the one that helped me the last time with this code. I just wanted to thank where thanks are due..lol

Now then, below is how the name and link accumulates the ini file after right clicking on the member name and adding them to the picture onjoin.

If I use the code located here.

on *:TEXT:!pic*:#:{
if ($readini(userpics.ini,Users,$2-) {
msg # $2- $+ 's pic is located here: $readini(userpics.ini,Users,$2-) 
}
else halt
}

It will not place the link to that picture in the room.

I wonder if 2 things. 1) if this can be sorted, can I have it set up using the command that lets you type just a few letters as in my profile check listed above in the previous post and 2), you think it may have anything to do with encoded names?

So far I am able to add the names..and they show the link as they join but no link shown when using this code so far..

Thank you all for input and hope this can be solved.

Bad

[users]
Sþânky®=http://home.cogeco.ca/~theplaypen/userpics/53C3BEC3A26E6B79C2AE.jpg

Those are wild cards..something like this

on *:text:!picwk*:#: { if $read(userspics.ini, w, * $+ $2 $+ *) {
   set %picwk $readn
   msg $chan Searching files for user.........
   msg $chan Found  $gettok($read(userspics.ini, %picwk),2,32) 
 }
 else { privmsg $chan Searching files for user........
 privmsg $chan Sorry $nick no users can be found with that information ending... search ....... }
}

You can try something like that.

This is what I get so far with that code.

BâdBôý™ : !picwk Sþânky®

Prôfi£er® : Searching files for user........

Prôfi£er® : Sorry BâdBôý™ no users can be found with that information ending... search .......

[users]
Sþânky®=http://home.cogeco.ca/~theplaypen/userpics/53C3BEC3A26E6B79C2AE.jpg

I noticed the nickname is decoded, so u r using mIRC 6.17, on the on join command when u look for the link i think u r gonna have to use the $utfdecode to decode that nickname and look for it on the users ini, so try this

on *:TEXT:!pic*:#:{
if ($readini(userpics.ini,Users,$utfdecode($2)) {
msg # $2 $+ 's pic is located here: $readini(userpics.ini,Users,$utfdecode($2))
}
else halt
}

if doesnt work, i'll have to use mIRC 6.17 to find a way to do it. Easy stuff, i just havnt tryed mIRC 6.17.

mIRC 6.16 is the best one. the only thing that amazed me on 6.17 was the utf-8 decode feature.

Tested and fully functional for Vincula. Using 6.16, but should work for previous versions as well.

on ^*:JOIN:#: {  
 if ($nick !isin $hget(userpics,$nick)) halt
 msg $chan $hget(userpics,$nick)
}
menu nicklist {
 Add Nick:hadd -m userpics $msn.ifdecode($$1) $2 $$?="Add Site Address Here" | hsave userpics userpics.txt
 Delete Nick:hdel userpics $msn.ifdecode($$1) | hsave userpics userpics.txt
}
on ^*:TEXT:*:*: { 
 if (!write == $1) {
   hadd -m userpics $2 $3 | hsave userpics userpics.txt
 }
 if (!picwk isin $1) {  
   msg $chan $hget(userpics,[ $2 ])
 }
}
on *:start: {
 hmake userpics 100
 if ($exists(userpics.txt)) 
 hload userpics userpics.txt
}

Hello all,

I just wanted to update you on this picture onjoin thing.

I managed to get this working on my own based on the help I had in here.

This is the working code.

on *:TEXT:!Pic *:*: { 
 if ($readini(userpics.ini,Users,$2-)) {
   .notice $nick $2- 's PICTURE Click below 
(p): $readini(userpics.ini,Users,$2-)
 }
}

Seems the problem was a little error located here below. The code I was using from X-Fusion read userspics as opposed to userpics. { if $read(userspics.ini, w, * $+ $2 $+ *) {

on *:text:!picwk*:#: { if $read(userspics.ini, w, * $+ $2 $+ *) {

I will have to pay a bit more attention to what I am doing next time.

Thank you to both of you for your help again.

So now I can add the members via your code Abscuridad and as well, hex the pic name and it posts onjoin in the room and I can now check the picture by typing !pic and pasting the name and shazam! it brings up the link.

May I ask (Here we go)..lol

Is there a way to add some code to the one I have up top, the very first code, that will allow me or anyone to just type !pic B or Ba or Bad to get my name to come up with my info, even if it is in special characters?

For profile check in my last post I just have to type !profile B to get mine or anyone with B as the first name. If someone does, I would have to type !profile Ba and so on till I hit my name if many others were called badboy.

Variables I surmize would be helpful.

Thank you for any help and again Thanks X-Fusion as well.

Thank you also to Mail for the work on this as I know it must have been very frustrating cus I was about to blow my computer up. I don't know how you guys have the time or NRG for this.

Bad

PS I am not using 6.17 I use 6.03 for mIRC

The completed code start to finish.

This code was offered by the GateKeeper.

I would like to thank all those that offered their expertize in this matter and they are:

(In no particular order of importance)

Obscuridad

X-Fusion

Mail

GateKeeper

My wife (Sorry about the keyboard hun)

And all of you for putting up with my stupid requests.

Thanks again everyone!

on *:JOIN:#: { 
 var %r = $readini(userpics.ini,Users,$gettok($address,1,64)) 
 if (%r) { 
   msg $chan $nick 's PICTURE Click below 
(p): $gettok(%r,2-,32) 
   if ($gettok(%r,1,32) != $nick) writeini userpics.ini users $gettok($address,1,64) $nick $gettok(%r,2-,32) 
 } 
} 
menu nicklist { 
 CUSTOM PICTURE 
 .Add picture : writeini -n userpics.ini users $gettok($ial($$1).addr,1,64) $1 http://home.cogeco.ca/~theplaypen/userpics/ $+ $msn.tohex($1) $+ .jpg 
 .Delete Picture :/remini userpics.ini users $gettok($ial($$1).addr,1,64) 
 - 
} 
on *:TEXT:!pic *:*: { 
 var %l = 1 , %r 
 while ($read(userpics.ini, nw, * $+ $replace($2,$chr(32),*) $+ *,%l)) { 
   var %r = $addtok(%r,$gettok($ifmatch,1,61),32) 
   %l = $calc($readn + 1) 
 } 
 if ($numtok(%r,32) == 1) { 
   var %x = $readini(userpics.ini, users, %r) 
   .notice $nick $gettok(%x,1,32) $+ 's PICTURE, Click below 
(p): $gettok(%x,2-,32) 
 } 
 else { 
   var %l = 1 , %n | while ($gettok(%r,%l,32)) { 
     var %x = $ifmatch , %n = $addtok(%n,$gettok($readini(userpics.ini, users, %x),1,32),44) 
     inc %l 
   } 
   notice $nick Possible nicknames found are: %n $+ . Please specify one of the nicknames from the list. 
 } 
}

PS ^^ that's an awsome code

lol glade i could help

Help me you did!

Now as I am sitting here all teary eyed..I got to wonderin..wishin I mean.

Boy I am getting very greedy now and I am sorry for such a nasty habit..it's kinda like sex ya know?..the more ya get the more ya want?..ahahah

Is it possible to have an onjoin that will add the all members who enter the room to the ini file and the correct information as well?

I am hoping that I can get away from having to manually add them to the ini.

I wish that all who come in the room will automatically be added to the ini file, exactly as you have set it to add manually.

This way, if they enter the room, all I have to do whether or not they are in the room is click the profile link that displays when someone enters my room, copy their picture and rename it using the hex info from the ini file and then load up to the server.

As it is now, I have to see them in the room to add them.

huh huh?..is it possible huh?..cuddit be huh?..lol

Reply: Dear Bad, you have asked for too much in this forum. We are puttin yer ass on the back burner till you cool down..ahahah

Thank you