Profile Reader For Buzzen

Is their detailed profile reader for new buzzen network

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
  }
}

not working

I've tested in a brand new instance of mIRC with nothing else added. It works fine as you will see below.

still not working even its activated

then there is something in your script preventing it from working.

Depending on your script you may have to change the pid to sockwrite.

in what position

i would have to know more about your script.. What connection it uses.

Moschino flash buzz 2.37

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) ] ]  
}

I make some edits and it is working now