Take A Look At This

I was looking through some old codes I found on an old pen drive and I found this code ... it said it was a "Script Kicker" so I put it into my script which I use in SPCN which has a vincula connection. To my amazement it didnt work as a script kicker but it made a fantastic "Profile Reader" .... I tried it with a few other connection that are out there but it will only work with vincula

My Question has anyone seen this code before and do they know who scripted it ? The only clue in this code was this .... ($9-,irc.soulscreen.net,id 4.0 by Rylan)

on *:JOIN:*: {
  if ($nick == $me) halt
  if (>* iswm $nick) halt
  set -u6 %inpuid $+ [ $nick ] $true
  prop $nick PUID
  who $nick
}

raw 352:*: { 
  if ($9- != $null) {
    echo -at 4 $6 ist ein Script: $replace($9-,irc.soulscreen.net,id 4.0 by Rylan)
  }
  halt
}

raw 315:*: { 
  halt
}

raw 818:*:{ 
  if (%inpuid $+ $2) { 
    unset %inpuid $+ $2
    if ($4- == $null) {
      echo -at 4 Stufe 1 für $2 nicht möglich!
      ctcp $2 version
      ctcp $2 finger
      ctcp $2 isitvincula
      ctcpreply $2 ”DTäE
      ctcpreply $2 ID
      halt
    }
    writeini PUID.ini PUID $2 $4
    profile $2
    halt
  }
}

raw 819:*:{ 
  halt
}

alias profile { 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.ini,PUID,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: de-de $+ $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.ini,UserGet,$gettok($sockname,2,46)) HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Accept-Language: de-de $+ $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.ini Redirect $gettok($sockname,2,46) $1- 
      writeini PUID.ini UserGet $gettok($sockname,2,46) $profileinfo($readini(PUID.ini,Redirect,$gettok($sockname,2,46))).userget
      remini PUID.ini Redirect $gettok($sockname,2,46) 
      sockopen profile2. $+ $gettok($sockname,2,46) members.msn.com 80
      return
    }
    sockread %t
  }
}
on *:SOCKREAD:profile2.*:{
  if ($sockerr > 0) return
  var %x | sockread %x
  while ($sockbr > 0) {
    if (*class=viewName>* iswm %x) {
      %pro = $replace(%x,                <font class=viewName>,, </font>,)
      %nick = $gettok($sockname,2,46)
      if (%nick !isin %pro) echo -at 4 %nick ist ein Script (Nickname laut Profil: %pro )
      if (%nick isin %pro) {
        echo -at 3 Stufe 1 für %nick erfolgreich!
        ctcp %nick version
        ctcp %nick finger
        ctcp %nick isitvincula
        ctcpreply %nick ”DTäE
        ctcpreply %nick ID
      }
      return
    }
    if (*unknownmember.msnw* iswm %x) {
      echo -at 4 %nick ist ein Script
      return
    }
    .sockread %x
  }
  write -c PUID.ini
  return
}

on *:CTCPREPLY:*: {
  if ($1 == TIME) || ($1 == PING) { halt }
  echo -at 4 $nick ist ein Script
}

menu nicklist {
  Script Check:{
    set -u6 %inpuid $+ [ $1 ] $true
    prop $1 PUID
    who $1
  }
}

Yeah, it's an old MSN profile reader that Rylan made for ID4.0. It works on Sparkpea because they still have their profile systems set up the way MSN had theirs set up.

Yeah, it's an old MSN profile reader that Rylan made for ID4.0. It works on Sparkpea because they still have their profile systems set up the way MSN had theirs set up.

Cheers X mate thanks for the information and the quick reply ... was wondering if that code could be made for any connection as like I said it only works with a vincula connect ?

I don't see anything tha is Vincula specific. It look's as if it could be used with any connection that connected to a msn style chat server and handled all events correctly.

Edit: Well the connection only needs to be able to handle THOSE events correctly.

I don't see anything tha is Vincula specific. It look's as if it could be used with any connection that connected to a msn style chat server and handled all events correctly.

Iv got you now ... I understand what you and X-Fusion are saying now thanks to both of you.

It's not connection specific, however, it wasn't made for Vincula. ID was a connection that Rylan made to connect to MSN chat. Again, not connection specific, just more information.

Wow, Rylan thats a name i havent heard of in a few years...

The socket conn probably doesn't handle the events correctly.

The socket conn probably doesn't handle the events correctly.

cheers Travis as always

What's it actually do?

It reads profiles on the networks that still use the old msn chat style.

Far, that brings back memories, Rylans connections were some of the fastest i ever used

yea i used alot of the rylan connections, alot of good work

That's because Rylan didnt add alot of the excess bullcrap noone needed.

Wow haven't seen the name Rylan in ages.

How sad is this I still have id4, id4_fixed and id33 - I've become my Mom, I hoard shit