Description: gets information from myspace...

;;I'm like 100% positive this doesn't work anymore because myspace is retarded



alias myspace {
  sockclose myspace- $+ $replace($1-,$chr(32),_)
  sockopen myspace- $+ $replace($1-,$chr(32),_) www.myspace.com 80
}
on *:SOCKOPEN:myspace*:{
  sockwrite -n $sockname GET / $+ $gettok($sockname,2-,45) HTTP/1.1
  sockwrite -n $sockname Host: www.myspace.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
  sockwrite -n $sockname Authorization: Basic
  sockwrite -n $sockname $crlf
}
on *:sockread:myspace*:{
  sockread %my.space
  if (<meta name="description" isin %my.space ) {
    set %my.proname $gettok($mid(%my.space,$pos(%my.space,myspace profile,1)),1,44)
    set %my.age $gettok($mid(%my.space,$pos(%my.space,myspace profile,1)),2,44)
    set %my.head $gettok($gettok($mid(%my.space,$pos(%my.space,myspace profile,1)),7,44),1,34)
    set %my.sex $gettok($mid(%my.space,$pos(%my.space,myspace profile,1)),3,44)
  }
  if (has isin %my.space) && (friends isin %my.space) {
    set %my.friends $remove($gettok($nohtml(%my.space),3-4,32),.)
  }
  if (Last Login isin %my.space) {
    echo -s %my.space
    set %my.lalog $nohtml(%my.space) | haltdef
  }
  if (This profile is set to private isin %my.space) {
    set %my.priv Users Profile is set to [^B]PRIVATE[^B] because $iif(male isin %my.sex,he,she) is %my.age $+ . | haltdef
  }
}

on *:SOCKCLOSE:myspace*:{
  if (%my.priv) {
    msg %my.chan [^B] $+ $gettok(%my.proname,1-2,32) $+ [^B] $gettok(%my.proname,3- $+ $numtok(%my.proname,32),32) [^B]Headline[^B]: %my.head [^B]Age[^B]: %my.age [^B]Sex[^B]: %my.sex
    msg %my.chan %my.priv | unset %my.*
  }
  else {
    msg %my.chan [^B] $+ $gettok(%my.proname,1-2,32) $+ [^B] $gettok(%my.proname,3- $+ $numtok(%my.proname,32),32) [^B]Headline[^B]: %my.head [^B]Age[^B]: %my.age [^B]Sex[^B]: %my.sex [^B]Friends[^B]: %my.friends [^B] $+ $remove($gettok(%my.lalog,2-3,32),$chr(9)) $+ [^B] $gettok(%my.lalog,4,32) | unset %my.*
  }
}

alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}

on *:TEXT:.myspace *:#:{
  /myspace $2 | set %my.chan $chan
}

ty puma!! i was tryin to search for this script for like  days!!!!!!!!

Oops! You need to login or register before you can post a comment!