Rashed Posted December 22, 2015 Report Share Posted December 22, 2015 Is their detailed profile reader for new buzzen network Link to comment Share on other sites More sharing options...
err0r Posted December 22, 2015 Report Share Posted December 22, 2015 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 More sharing options...
Rashed Posted December 23, 2015 Author Report Share Posted December 23, 2015 not working Link to comment Share on other sites More sharing options...
err0r Posted December 23, 2015 Report Share Posted December 23, 2015 I've tested in a brand new instance of mIRC with nothing else added. It works fine as you will see below. Link to comment Share on other sites More sharing options...
Rashed Posted December 23, 2015 Author Report Share Posted December 23, 2015 still not working even its activated Link to comment Share on other sites More sharing options...
err0r Posted December 23, 2015 Report Share Posted December 23, 2015 then there is something in your script preventing it from working. Depending on your script you may have to change the pid to sockwrite. Link to comment Share on other sites More sharing options...
Rashed Posted December 23, 2015 Author Report Share Posted December 23, 2015 in what position Link to comment Share on other sites More sharing options...
err0r Posted December 23, 2015 Report Share Posted December 23, 2015 i would have to know more about your script.. What connection it uses. Link to comment Share on other sites More sharing options...
Rashed Posted December 23, 2015 Author Report Share Posted December 23, 2015 Moschino flash buzz 2.37 Link to comment Share on other sites More sharing options...
err0r Posted December 23, 2015 Report Share Posted December 23, 2015 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now