Jump to content

Profile Reader For Buzzen


Rashed

Recommended Posts

Try this

menu channel {
  $iif($istok(%profreadrooms,#,44),$style(1)) Profile Reader #: { 
    $iif($istok(%profreadrooms,#,44),set %profreadrooms $remtok(%profreadrooms,#,44),set %profreadrooms $addtok(%profreadrooms,#,44)) 
  }
}
on !*:JOIN:#:{ 
  if ((!$istok(%profreadrooms,#,44)) || (%Profileflood > 2) || ($left($nick,1) == ^) || ($left($nick,1) == >)) { halt }
  inc -u2 %Profileflood
  hadd -m mc_temp prof.ck. [ $+ [ $nick ] ] $chan
  .raw PID $nick
}
raw data:*: { 
  if ($2 == PID) { 
    if ($hget(mc_temp,prof.ck. [ $+ [ $3 ] ])) { 
      getbuzzenprofile $3 $4 $hget(mc_temp,prof.ck. [ $+ [ $3 ] ])
      hdel mc_temp prof.ck. [ $+ [ $3 ] ]  
    }
  } 
  halt
}

alias getbuzzenprofile {
  var %ps $rand(1,9999999999999) 
  sockopen ckbprof. $+ %ps www.buzzen.com 80 
  sockmark ckbprof. $+ %ps $1 $2 $3
}
on *:sockopen:ckbprof.*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /mircinfo/profileinfo.php?pid= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Accept-Encoding: text/html
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:ckbprof.*: {
  if ($sockerr > 0) return
  var %bp
  sockread %bp
  if ($regex(%bp,/Picture: (.*?)<br \/>/)) { set -e %prof_pic $striphtml($regml(1)) }
  if ($regex(%bp,/Nickname: (.*?)<br \/>/)) { set -e %prof_nick $striphtml($regml(1)) }
  if ($regex(%bp,/Firstname: (.*?)<br \/>/)) { set -e %prof_first $striphtml($regml(1)) }
  if ($regex(%bp,/Lastname: (.*?)<br \/>/)) { set -e %prof_last $striphtml($regml(1)) }
  if ($regex(%bp,/City: (.*?)<br \/>/)) { set -e %prof_city $striphtml($regml(1)) }
  if ($regex(%bp,/Country: (.*?)<br \/>/)) { set -e %prof_country $regml(1) }
  if ($regex(%bp,/Age: (.*?)<br \/>/)) { set -e %prof_age $regml(1) }
  if ($regex(%bp,/Gender: (.*?)<br \/>/)) { set -e %prof_gender $regml(1) }
  if ($regex(%bp,/Orientation: (.*?)<br \/>/)) { set -e %prof_sexort $regml(1) }
  if ($regex(%bp,/Marital: (.*?)<br \/>/)) { set -e %prof_marital $regml(1) }
  if ($regex(%bp,/Homepage: (.*?)<br \/>/)) { set -e %prof_homepage $regml(1) }
  if ($regex(%bp,/LastUpdate: (.*?)<br \/>/)) { set -e %prof_update $regml(1) }
  if ($regex(%bp,/Mood: (.*?)<br \/>/)) { set -e %prof_mood $regml(1) }
  if ($regex(%bp,/Views: (.*?)<br \/>/)) { set -e %prof_views $regml(1) }
  if ($regex(%bp,/ENDPROF/)) { 
    tokenize 32 $sock($sockname).mark
    echo $3 [Profile] -------------------------------------------------------------------------------------------
    echo $3  $+ $1 [Name: %prof_first %prof_last $+ ] [Gender: %prof_gender $+ ] [Age: %prof_age $+ ] [From: %prof_city %prof_country $+ ] [Sexual Orientation: %prof_sexort $+ ] [Status: %prof_marital $+ ] [Mood: %prof_mood $+ ] [Views: %prof_views $+ ] [Updated: %prof_update $+ ] 
    echo $3 -----------------------------------------------------------------------------------------------------
    unset %prof_*
    $sockclose $sockname
  }
}
Link to comment
Share on other sites

For moschino you will have to make an edit to the code.

 

First here is the main script for the profile echo

menu channel {
  $iif($istok(%profreadrooms,#,44),$style(1)) Profile Reader #: { 
    $iif($istok(%profreadrooms,#,44),set %profreadrooms $remtok(%profreadrooms,#,44),set %profreadrooms $addtok(%profreadrooms,#,44)) 
  }
}
on !*:JOIN:#:{ 
  if ((!$istok(%profreadrooms,#,44)) || (%Profileflood > 2) || ($left($nick,1) == ^) || ($left($nick,1) == >)) { halt }
  inc -u2 %Profileflood
  hadd -m mc_temp prof.ck. [ $+ [ $nick ] ] $chan
  sockwrite -n $C_Sock(#) PID $nick
}

alias getbuzzenprofile {
  var %ps $rand(1,9999999999999) 
  sockopen ckbprof. $+ %ps www.buzzen.com 80 
  sockmark ckbprof. $+ %ps $1 $2 $3
}
on *:sockopen:ckbprof.*: { 
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /mircinfo/profileinfo.php?pid= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Accept-Encoding: text/html
  sockwrite -n $sockname Host: www.buzzen.com
  sockwrite -n $sockname $crlf
}
on *:sockread:ckbprof.*: {
  if ($sockerr > 0) return
  var %bp
  sockread %bp
  if ($regex(%bp,/Picture: (.*?)<br \/>/)) { set -e %prof_pic $striphtml($regml(1)) }
  if ($regex(%bp,/Nickname: (.*?)<br \/>/)) { set -e %prof_nick $striphtml($regml(1)) }
  if ($regex(%bp,/Firstname: (.*?)<br \/>/)) { set -e %prof_first $striphtml($regml(1)) }
  if ($regex(%bp,/Lastname: (.*?)<br \/>/)) { set -e %prof_last $striphtml($regml(1)) }
  if ($regex(%bp,/City: (.*?)<br \/>/)) { set -e %prof_city $striphtml($regml(1)) }
  if ($regex(%bp,/Country: (.*?)<br \/>/)) { set -e %prof_country $regml(1) }
  if ($regex(%bp,/Age: (.*?)<br \/>/)) { set -e %prof_age $regml(1) }
  if ($regex(%bp,/Gender: (.*?)<br \/>/)) { set -e %prof_gender $regml(1) }
  if ($regex(%bp,/Orientation: (.*?)<br \/>/)) { set -e %prof_sexort $regml(1) }
  if ($regex(%bp,/Marital: (.*?)<br \/>/)) { set -e %prof_marital $regml(1) }
  if ($regex(%bp,/Homepage: (.*?)<br \/>/)) { set -e %prof_homepage $regml(1) }
  if ($regex(%bp,/LastUpdate: (.*?)<br \/>/)) { set -e %prof_update $regml(1) }
  if ($regex(%bp,/Mood: (.*?)<br \/>/)) { set -e %prof_mood $regml(1) }
  if ($regex(%bp,/Views: (.*?)<br \/>/)) { set -e %prof_views $regml(1) }
  if ($regex(%bp,/ENDPROF/)) { 
    tokenize 32 $sock($sockname).mark
    echo $3 [Profile] -------------------------------------------------------------------------------------------
    echo $3  $+ $1 [Name: %prof_first %prof_last $+ ] [Gender: %prof_gender $+ ] [Age: %prof_age $+ ] [From: %prof_city %prof_country $+ ] [Sexual Orientation: %prof_sexort $+ ] [Status: %prof_marital $+ ] [Mood: %prof_mood $+ ] [Views: %prof_views $+ ] [Updated: %prof_update $+ ] 
    echo $3 -----------------------------------------------------------------------------------------------------
    unset %prof_*
    $sockclose $sockname
  }
}

Add that. Next you will have to add a few lines to moschino connection itself.

 

Open Remotes and go to Moschino[FlashBuzzen].mrc

 

do a search for $4 == PID

 

(it's around line 1024)

 

under the if ($4 == PID) {

 

add these lines

if ($hget(mc_temp,prof.ck. [ $+ [ $right($5,-1) ] ])) { 
    getbuzzenprofile $right($5,-1) $6 $hget(mc_temp,prof.ck. [ $+ [ $right($5,-1) ] ])
    hdel mc_temp prof.ck. [ $+ [ $right($5,-1) ] ]  
}

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...