Skip to content
MSN

Searching group servers for a nick

A TG007 community discussion started by MythX.

Discussion 11 posts
Page 1 of 1
Open
Topic #112 · 11 published posts · 1,373 views

Hey!

 

I wanted to know if anyone knew of the command that when u type it it searchs all the msn groups for the nick u type and also which group rooms they are currently in. I know it exists but i cant seem to get it from anywhere. i tried the findu commands it did not work

 

L8erz

 

---

If i turn my back im defenseless, but to go blindly seems senseless

Hi try ColdStalker in the download section

 

Regards

 

Newt.

Cold Stalker no longer works for searching the group servers. MSN has changed the names of the servers the groups now reside on. For example, instead of

 

Your host is tk2chatchata06...

 

it is now...

 

Your host is tk2chatwbc03...

 

I've looked through the cold stalker code, and I don't know how to go about changing it, but the latter server name is not listed in the code, nor are any like it.

Any idea what the new servers are for group chats?

 

---

If i turn my back im defenseless, but to go blindly seems senseless

Unfortunately I don't. You can use cOld stalk3r v.2 found here, it use to be able to search both the subscription chat servers and the group chat servers, but now it no longer searches the group chat servers. I have no idea about going about changing it so it does: I'm just a script user, not a script writer. I know that I use it a lot, not only for myself, but for other people that ask me so they can keep track of their online romantic partners...an online PI if you will, lol. Anyway, if you can somehow get a hold of cOld fusiOn, maybe he would take a look at it and come out with a new version, or an updated one anyway.

Found one of the group servers i think tk2chatchata07 dont know how to go about finding the others? any1 know? i

know vincula connects to the group servers and i tried to understand the coding but i gave up after awhile blink.gif

Comon all u genuises im sure one of u knows all the servers names ph34r.gif

 

---

If i turn my back im defenseless, but to go blindly seems senseless

Open up the cOldstalk3r v.2.mrc, and replace the entire code with this code.

 

;- cOld stalk3r Version 2 by cOld fusiOn -; 

;- MENUS

menu channel,status,menubar {
 cOld stalk3r v.2
 .Open:csu
 .Uninstall:/unload -rs coldstalker.mrc
}

;- ON LOAD EVENTS

on *:load: {
 if ($version < 6.1) { echo -s Detected mIRC 6.1 or higher | echo -s Welcome to cOld stalk3r v.2, to begin type /csu }
 elseif ($version !< 6.0) { echo -s Detected mIRC 6.0 or lower | echo -s You need mIRC 6.1 or higher, unloading now | unload -rs cOldstalk3r.mrc }
}

;- CSU DIALOG

dialog csu {
 title "cOld Stalk3r v.2 ( /csu )"
 size -1 -1 661 240
 option pixels
 icon $mircdir $+ pics\user.ico, 0
 list 1, 2 4 659 156, size extsel
 edit "", 2, 9 175 270 21, autohs
 button "Stalk Now", 4, 283 176 65 19, flat
 button "'Sysops", 5, 471 176 50 19, flat
 button "'Admins", 6, 363 176 50 19, flat
 button "'Guides", 7, 417 176 50 19, flat
 box "Can Use Partial Nick, Gatekeeper, Or Room Name", 8, 2 160 352 42
 box "MSN Officials", 9, 356 160 208 42
 button "Exit", 10, 619 177 34 19, ok flat
 button "Reset", 11, 573 177 42 19, flat
 box "CSU Controls", 12, 566 160 93 42
 box "", 3, 2 198 472 41
 text "0 0 10", 14, 483 213 167 18
 text "0 0 5000", 16, 484 213 167 18, hide
 button "All", 15, 525 176 32 19, flat
 box "", 21, 476 198 183 41
 list 13, 9 211 459 21, size
 menu "stalk3r Options", 17
 item "Save Results", 18, 17
 item "Open Logs", 19, 17
 item break, 200, 17
 item "CSU Help", 20, 17
}

;- CSU INIT AND CLOSE EVENTS

on *:dialog:csu:close:*: { sockclose csu.* }
on *:dialog:csu:init:*:{
 csumx.init
 csumx SetControlMDX $dname 1 ListView nosortheader report single > $scriptdir $+ cs.dlls\CSUVS.CSU
 csumx SetControlMDX $dname 14 ProgressBar smooth > $scriptdir $+ cs.dlls\CSUCTL.CSU
 csumx SetControlMDX $dname 16 ProgressBar smooth > $scriptdir $+ cs.dlls\CSUCTL.CSU
 csumx SetControlMDX $dname 13 StatusBar sizeGrip > $scriptdir $+ cs.dlls\CSUBS.CSU
 csumx SetFont csu 1,2,4,5,6,7,10,11,8,9,12,13,3,15,21 12 500 Verdana
 csumx SetBorderStyle csu 4,5,6,7,10,11,15 windowedge
 csumx SetBorderStyle $dname 13 windowedge
 did -i $dname 1 1 headerdims 135 160 100 120 120
 did -i $dname 1 1 headertext User Found $chr(9) In Channel $chr(9) Using $chr(9) Status In Chan $chr(9) On Server
 did -b csu 2,4,5,6,7,11,15
 stalker
}

;- CSU ON MENU EVENTS

on *:dialog:csu:menu:18: {
 if ($calc($did(csu,1).lines -1) == 0) { echo -s Sorry Nothing To Save }
 elseif ($calc($did(csu,1).lines -1) != 0) {
   .remove " $+ $scriptdir $+ cs.dlls\CSU Logs\CSU Log For $did(csu,2).text $+ .txt $+ "
   write " $+ $scriptdir $+ cs.dlls\CSU Logs\CSU Log For $did(csu,2).text $+ .txt $+ " Log Recorded On : $csu.days $csu.month $date(dd) $date(yyyy)
   write " $+ $scriptdir $+ cs.dlls\CSU Logs\CSU Log For $did(csu,2).text $+ .txt $+ " Results for Search on " $+ $did(csu,2).text $+ " : $calc($did(csu,1).lines -1) Results
   var %x = 2
   while (%x <= $did(csu,1).lines) {
     write " $+ $scriptdir $+ cs.dlls\CSU Logs\CSU Log For $did(csu,2).text $+ .txt $+ " User $calc(%x -1) : $remove($gettok($did($dname,1,%x),6,32),	+) - In Room : $remove($gettok($did($dname,1,%x),11,32),	+) - Using : $remove($gettok($did($dname,1,%x),16,32),	+) - Status : $remove($gettok($did($dname,1,%x),21,32),	+)
     inc %x
   }
 }
}
on *:dialog:csu:menu:19: { .run " $+ $scriptdir $+ cs.dlls\CSU Logs $+ " }
on *:dialog:csu:menu:20: { csu.help }

;- CSU SCLICK EVENTS

on *:dialog:csu:dclick:1: { csu.menu }
on *:dialog:csu:sclick:4: {
 if ($left($did(csu,2).text,2) == $chr(37) $+ $chr(35)) {
   hdel cstalker done | hadd cstalker done | did -r csu 1 
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   .sockwrite -tn csu.s.* WHO $did(csu,2).text
   did -i csu 13 2 Initializing Search For " $+ $remove($replace($did(csu,2).text,\b,$chr(32)),$chr(37),$chr(35))  $+ "....
 }
 else {
   hdel cstalker done | hadd cstalker done | did -r csu 1 
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   .sockwrite -tn csu.s.* WHO $+(*,$did(csu,2).text,*) 
   did -i csu 13 2 Initializing Search For " $+ $did(csu,2).text $+ "....
 }
}
on *:dialog:csu:sclick:5,6,7,15: { 
 if ($did == 5) {
   did -r csu 1 | hdel cstalker done | hadd cstalker done
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   sockwrite -tn csu.s.* WHO Sysop*@snd | did -i csu 13 2 Initializing Search For " $+ MSN Sysops $+ "....
 }
 if ($did == 6) { 
   did -r csu 1 | hdel cstalker done | hadd cstalker done
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   sockwrite -tn csu.s.* WHO Admin*@snd | did -i csu 13 2 Initializing Search For " $+ MSN Admins $+ "....
 } 
 if ($did == 7) { 
   did -r csu 1 | hdel cstalker done | hadd cstalker done
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   sockwrite -tn csu.s.* WHO Guide*@snd | did -i csu 13 2 Initializing Search For " $+ MSN Guides $+ "....
 }
 if ($did == 15) { 
   did -r csu 1 | hdel cstalker done | hadd cstalker done
   .dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
   sockwrite -tn csu.s.* WHO *@snd | did -i csu 13 2 Initializing Search For " $+ All MSN Officials $+ "....
 }
}
on *:dialog:csu:sclick:11: { did -r csu 1,16,2 | .dialog -t csu $right(:[,-1) 0 Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) | did -i csu 13 2 cOld stalk3r Reset and Waiting For New Search }

;- CSU SIGNAL EVENTS 

on *:signal:init.stat: {
 if ($1 == initializing) { .timer.active 1 1 dialog -v csu | did -i csu 13 2 Initializing Main Server Lookups For cOld stalk3r.... }
 elseif ($1 == init.final) {
   if ($2) { did -i csu 13 2 Initialization Complete 10 Servers Secured, cOld stalk3r Is Ready | did -e csu 2,4,5,6,7,11,15 | did -h csu 14 | did -v csu 16 }
   else { did -i csu 13 2 Initialization Complete 10 Servers Secured, cOld stalk3r Is Ready | did -e csu 2,4,5,6,7,11,15 | did -h csu 14 | did -v csu 16 } 
 }
}

;- CSU HEAD ALIASES

alias csu { if ($dialog(csu) == $null) { dialog -md csu csu } | elseif ($dialog(csu) != $null) { echo -s Error : cOld stalk3r is already open | .halt } }
alias -l info { if ($dialog(info) == $null) { dialog -md info info } | elseif ($dialog(info) != $null) { echo -s Error : Info Dialog is already open | .halt } }
alias -l csu.help { if ($dialog(csu.help) == $null) { dialog -md csu.help csu.help } | elseif ($dialog(csu.help) != $null) { echo -s Error : cOld stalk3r Help is already open | .halt } }
alias -l csu.days { if ($day == Monday) { return Mon. } | if ($day == Tuesday) { return Tues. } | if ($day == Wednesday) { return Wed. } | if ($day == Thursday) { return Thurs. } | if ($day == Friday) { return Fri. } | if ($day == Saturday) { return Sat. } | if ($day == Sunday) { return Sun. } }
alias -l csu.init { .signal -n init.stat initializing fast 0 | var %l 0 | while (%l <= 9) { sockopen csu.s. $+ %l $csuip(%l) 6667 | inc %l } }
alias -l csu.ml { return $dll($scriptdir $+ cs.dlls/CSUML.dll,$$1,$$2-) }
alias -l csuip { return $gettok(207.68.167.157 207.68.167.158 207.68.167.159 207.68.167.160 207.68.167.161 207.68.167.162 207.68.167.163 207.68.167.164 207.68.167.165 207.68.167.166,$calc($$1 + 1),32) }
alias -l csu.pop { return $+(",$scriptdir $+ cs.dlls/CSUPOP.dll") }
alias -l csu.join { join $remove($gettok($did($dname,1).seltext,11,32),	+) }
alias -l csu.full { return $+(",$scriptdir $+ cs.dlls/csumx.dll,") }
alias -l csumx { dll $csu.full  $1- }
alias -l csumx.init {
 dll $csu.full SetMircVersion $version
 dll $csu.full MarkDialog $dname
}
alias -l csu.month {
 if ($date(mm) == 01) { return Jan. } | if ($date(mm) == 02) { return Feb. } | if ($date(mm) == 03) { return Mar. }
 if ($date(mm) == 04) { return Apr. } | if ($date(mm) == 05) { return May } | if ($date(mm) == 06) { return June }
 if ($date(mm) == 07) { return July } | if ($date(mm) == 08) { return Aug. } | if ($date(mm) == 09) { return Sept. }
 if ($date(mm) == 10) { return Oct. } | if ($date(mm) == 11) { return Nov. } | if ($date(mm) == 12) { return Dec. }
}
alias -l csu.menu {
 dll $csu.pop New controlp 16 16
 dll $csu.pop AddItem controlp 0 0 Join User
 dll $csu.pop AddItem controlp 0 0 Detailed Info
 var %do = $dll($csu.pop,Popup,controlp $mouse.dx $mouse.dy)
 if ($gettok(%do,1,32) == ok) {
   var %item = $gettok(%do,3,32)
   if (%item == 1) { csu.join }
   if (%item == 2) {
     info
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.166) { sockwrite -tn csu.s.9 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.165) { //sockwrite -tn csu.s.8 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.164) { //sockwrite -tn csu.s.7 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.163) { //sockwrite -tn csu.s.6 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.162) { //sockwrite -tn csu.s.5 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.161) { //sockwrite -tn csu.s.4 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.160) { //sockwrite -tn csu.s.3 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.159) { //sockwrite -tn csu.s.2 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) }
     if ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.158) { //sockwrite -tn csu.s.1 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) } 
     elseif ($remove($gettok($did($dname,1).seltext,26,32),	+) === 207.68.167.157) { //sockwrite -tn csu.s.0 WHO $remove($gettok($did($dname,1).seltext,6,32),	+) } 
   }
 }
}
alias -l csu.dec {
 var %r, %l 1
 %r = $replace($1-,ï?‚,B,ï‚ ,-,ï€>,-,,-,ï€?,-,ï?…,E,ï?Æ’,C,ï??,A,ï?’,R,ï?‹,K,ï?¹,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,ï?«,k,ï?†,F,ï?µ,u,ï?§,g,Χ,X,,>,,$chr(37),,8,ï?¤,d,ï?­,m,ï?¨,h,ï»›,s,ï?‡,G,ï??,M,ï?¬,l,ï?³,s,ï?Ÿ,_,ï?â€,T,ï?²,r,ï?¡,a,ï?®,n,ï?£,c,ï?Â¥,e,ï?Ž,N,ï?¡,a,ï?´,t,ï?©,i,ï?¯,o,ï?®,n,ï?¦,f,ï?·,w,ï?Å“,\,ï?¼,|,ï?€,@,ï??,P,ï?„,D,,',ï€ , ,,$chr(40),,$chr(41),,*,,:,ï?›,[,ï??,],ï?°,p,,.)
 %r = $replace(%r,Ç,X,ņ,n,Ω,n,»·,y,Ñ€,p,à ,P,Ã…â„¢,r,Ñ…,x,Ä®,I,Ä»,L,ä,o,Ĉ,C,Ã…?,o,Å©,u,Å„,n,Ä¢,G,Å•,r,Å›,s,Ä·,k,Å–,R,×–,i,ε,e,×§,r,Ñ›,h,ü,m,ØŒ,·,Ä«,i,‘,‘,’,’,Û±,',Ä“,e,¢,¢,ï?“,S,•,•,ï??,O,ï?‰,I,Ά,A,ÑŠ,b,Å Ã,T,Φ,o,Â,b,Ñ?,r,Ã?,E,ô,A,ÃÅ¡,K,ÄŽ,D,ø,n,θ,o,ÃÅ“,M,Ç,I,â,T,Ä,e,Ǻ,A,ö,ö,ä,ä,–,–,·,·,Ö,Ö,Ü,Ü,Ë,Ë,Ñ•,s,Ä…,a,Ä­,i,ù,n,ò,b,þ,o,ш,w,Äž,G,Ä‘,d,÷,e)
 %r = $replace(%r,Ŧ,T,α,a,ÄŸ,g,ú,ú,Ã…â€,R,Ä„,A,ć,c,Ä?,Ã,ÃŽÅ¡,K,Ñž,y,µ,µ,Ã?,Ã,‹,‹,¦,¦,Õ,Õ,Ù,Ù,À,À,ÃŽ ,N,Ò“,f,ΰ,u,Ä¿,L,Ã…?,o,Â,c,Ä‹,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,ž,Ç,Ç, $+ $chr(173),-,Ã?,Ã,…,…,¨,¨,ý,ý,ˉ,¯,â€?,â€,Û,Û,ì,ì,Ã?,p,έ,e,ó,r,à ,à,È,È,¼,¼,ĵ,j,ã,ã,Ä™,e,ÅŸ,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,Ëš,°,ï,R,Ëœ,Ëœ,ÃŽ,ÃŽ,Ê,Ê,Ã?,Ã,Ã?,Ã,É,É,‡,‡)
 %r = $replace(%r,ÃŒ,ÃŒ,ª,ª,ó,ó,â„¢,â„¢,Ã’,Ã’,í,í,¿,¿,Ä,Ä,¶,¶,ü,ü,Æ’,Æ’,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Ã… ,Å ,ø,ø,›,›,â,â,î,î,€,€,Å¡,Å¡,ï,ï,ÿ,ÿ,Ã…Æ’,N,©,©,®,®,û,û,†,†,°,°,§,§,±,±,²,²,è,è,â€,•,•,•)
 %r = $replace(%r,Ň,N,Û°,·,Ä´,J,Æ,I,Σ,E,ι,i,Ã…?,O,δ,o,×¥,y,ν,v,×¢,y,מ,n,Ž,Ž,Å‘,o,ÄŒ,C,Ä—,e,₤,L,Ã…Å’,O,ά,a,Ä ,G,Ω,O,Ã?,H,ể,e,ẵ,a,Ö,K,á»?,e,ế,e,á»—,o,Å«,u,â‚£,F,∆,a,Ắ,A,á»§,u,Ķ,K,Ť,T,Åž,S,ÃŽËœ,O,è,W,Î’,B,ß,N,ẅ,w,ﻨ,i,ﯼ,s,ÑŸ,u,Ñ’,h,¹,¹,Ỳ,Y,λ,a,á,C,à $+ $chr(173),E,Ű,U,Ī,I,Ä?,c,Äâ€,E,Ã…Å“,S,Ị,I,Ä?,g,Å€,l,Ñ—,i,Ù­,*,ʼn,n,Ħ,H,Ãâ€,A,ÃŽÅ“,M,Ñ‘,e)
 %r = $replace(%r,æ,U,Ñ?,e,“,“,Ñ„,o,у,y,Ñ?,c,ú,k,Ã…,Ã…,Ƥ,P,℞,R,ï “,I,ɳ,n,Ê—,c,â–«,·,Ñ“,r,ệ,e,ắ,a,ẳ,a,ů,u,Ľ,L,ư,u,·,·,Ë™,',η,n,â„“,l,Â?,?,Â?,?,Â?,?,×€,i,Ä¡,g,Å´,W,ÃŽâ€,A,ﮊ,J,μ,µ,Ÿ,Ÿ,Ä¥,h,β,ß,ì,b,ų,u,Ñâ€,e,É,w,ÄŠ,C,Ñ–,i,Å‚,l,Ç¿,o,∫,s,ż,z,Å£,t,æ,æ,≈,=,Ã…?,L,Å‹,n,Ú¯,S,Ä?,d,È,w,ÃÆ’,o,Ä£,g,Ή,H,ÃŽ?,i,Ò‘,r,κ,k,Ã…Å ,N,Å“,\,,/,¬,¬,щ,w,Û•,o)
 %r = $replace(%r,×?,o,³,³,½,½,İ,I,ľ,l,Ä•,e,Å¢,T,Ã…?,s,Å·,y,ľ,l,Ä©,i,Ãâ€,Ô,Ã…Å¡,S,Ĺ,L,ð,a,õ,e,Ρ,P,È,J,ÃŽ?,N,Ç»,a,Ñ’,h,ή,n,ί,l,Å’,Å’,¯,¯,Ä?,a,ŵ,w,Â,Â,Ã,Ã,ý,H,ˇ,',¸,¸,Ì£,$chr(44),Ø·,b,Ó,Ó,Ãâ„¢,N,«,«,ù,ù,Ø,Ø,ê,ê)
 %r = $replace(%r,ا,I,û,n,Ñ‹,bl,ñ,6,ש,w,―,-,Ϊ,I,ï? ,`,Å­,u,ổ,o,Ǿ,Ø,ẫ,a,ầ,a,ï?±,q,Ẃ,W,Ĥ,H,á»?,o,−,-,ï?ž,^,ล,a,Äœ,G,ﺯ,j,Ù‰,s,ÃÆ’,r,ứ,u,â—?,·,Ã?,u,,0,,7,,",Ó©,O,Ç?,i,Ç‘,O,Æ ,O,,2,Ò¯,y,ï?¶,v,Ã?,A,≤,<,≥,>,ẩ,a,ï?ˆ,H,Ù¤,e,ﺂ,i,ÃÅ’,K,Ū,U,,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,ÃŽâ„¢,I,Ϋ,Y,ï?Å ,J,ï?Ëœ,X,ï?½,$chr(125),ï?»,$chr(123),Ξ,E)
 %r = $replace(%r,ˆ,^,ï?–,V,ï?Å’,L,γ,y,ﺎ,i,ÃŽ?,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,๛,c,ỡ,o,๓,m,ﺄ,i,ï­Ž,G,Ŭ,U,Ä’,E,Ä‚,A,÷,÷, , ,‚,‚,„,„,ˆ,ˆ,‰,‰,ă,a,ï?¸,x,,=,Ù‚,J,,?,,-,â—Š,o,Ñ‚,T,Ä€,A,ï­‡,P,Ä–,E,Ę,E,ο,o,Ë,u,‼,!!,ט,u,ï®’,S,ç,y,Ã’?,r,Ä›,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ã…Ëœ,R,Ư,U,Å“,Å“,,-,â€â€,—,ห,n,ส,a,à¸?,s,Ψ,Y,Ẫ,A,À,n,Å…,N,Ø!,o)
 %r = $replace(%r,Ë,h,ợ,o,ĉ,c,â—¦,·,ﮎ,S,Ų,U,Õ,E,Ã…,S,Ûµ,o,ÙŠ,S,ب,u,Ø©,o,ئ,s,ļ,l,ı,i,Å—,r,ö,x,Î…,",ÃŽ,w,â–ª,·,ζ,l,é,W,฿,B,ỹ,y,ÃÅ ,i,Ã…Â¥,t,ÿ,n,´,´,Ú©,s,ï±¢,*,ξ,E,Ñœ,k,√,v,Ä,t,Ã?,Ã,£,£,ñ,ñ,Â¥,Â¥,ë,ë,Ã¥,Ã¥,ï?â„¢,Y,ÇŽ,a,×,e,À`, )
 %r = $replace(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,ï‚£,£,ïƒ ,à,ï‚®,®,,á,ï‚©,©,,õ,á»?,o,â€?, ,Ö±,¸,Ö¾,-,הּ,n,ź,z,‌, ,Ù?,',๘,c,ฅ,m,Â?,?,,<,â–¼,v,ﻜ,S,â„®,e,ź,z,ậ,a,๑,a,ï¬?,fi,ÑŒ,b,ﺒ,.,ﺜ,:,ศ,a,ภ,n,à¹?,o,ะ,=,ï­†,y,ซ,i,‾,¯,∂,a,:,:,≠,=,,+,Ù…,r,ồ,o,Ử,U,Û,N,Ó’,A,Ọ,O,Ẅ,W,á»´,Y,ﺚ,u,ﺬ,i,ïº?,u,Å»,Z,ﮕ,S)
 %r = $replace(%r,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ïºâ€,a,,!,á»…,e,Ù„,J,ر,j,Ù€,_,ÃÅ’,o,â‚«,d,â„–,no,ữ,u,Äš,E,Æ,o,ï» ,I,ц,u,,A,,N,ÃÅ ,H,Έ,E,ï?¾,~,ï?•,U,ạ,a,,1,,4,,3,ỉ,i,Ε,E,Ã?,U,Ùƒ,J,★,*,ï?¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10,ỵ,y,áº?,w,Ò›,k,Ù¿,u,♂,o,ï­Š,n,Ù¥,o,ï®?,S,â?¿,n,ï»—,9,ï?¢,b,,$chr(35),,$,â—‹,o,ÑŽ,10)
 %r = $replace(%r,ị,i,Α,A, , ,ﻩ,o,ï»?,E,Ù†,u,ẽ,e,Ø«,u,ã…“,t,Ó›,e,Ó˜,E,ﻘ,o,Û·,v,שׁ,w,ụ,u,ÅŽ,O,Â?,?,á»±,u,J,J,ï½…,e,ï½?,a,ï¼®,N,(,$chr(40),ï¼ ,@,ï½€,`,.,.,′,',),$chr(41),â–¬,-,â—„,<,â–º,>,∑,E,Ö»,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,ÃËœ,N,ï?—,W,ï?º,z,Àj,*,ج,c)
 %r = $replace(%r,ס,o,╳,X,Ù ,·,Ò’,F,Ã…,u,â€?,?,Ö¼,·,Çâ€,u,ผ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,ï®â€,S, Ã’Å“,K,♦,·,‗,_,ﻈ,b,ฬ,w,אּ,x,ï‚­,-,ข,u,ท,n,Ờ,O,Ặ,A,á»­,u,Ễ,E,ਹ,J, Ù‡,o,â– ,·,Æ¡,o,ï?¿,,Ò£,h,Ã’Å¡,K,Ò²,X,Ò³,x,Ã’Å“,K,ع,E,Ú†,c,ч,y,ÃÂ¥,X,Ù¦,7,Ö½,.,ÙŽ,',Ö¿,',׃,:,á»?,o,Ò–,X,ÛŒ,s,ฬ,w,∙,·)
 %r = $replace(%r,Τ,T,â“’,c,â“?,a,ⓟ,p,â“â€,e,â“£,t,Ç?,A,ÃÂ¥,X,Ö³,.,ÛŒ,s,Ỉ,I,̉,',ï?Å¡,Z,á»?,o,ẹ,e,Ã’?,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,Ã’Å¡,K,ï?Å¡,Z,Ì•,',ââ€Å“,|,ââ€Â¤,|,Ø£,I,‹,,×?,x,ặ,a,Ç’,o,Ờ,O,☼,¤,×?,.,ï?Å¡,Z,ฤ,n,â‘·,4,⑵,2,â’ª,0,เ,i,ﺇ,i,Ã’,B,ừ,u,Ò°,Y,Ở,O,á»â€,O,ž,z,ÃŒ?ÃŒ?ÃŒ?ÃŒ?,`,΄,',♀,O,â•¢,||,Ó™,e,ï®?,S,Ø¢,i,¸â€l,l,¸â€m,m)
 %r = $replace(%r,ﺙ,u,ÃÃ,D,לּ,h, ÎŽ,Y,Ẳ,A,×›,c,ﺸ,_,ﺷ,_,â–²,•,Ẵ,a,†¨,i,ј,J,ǽ,e,º¢,y,Ö¸,_,á»™,o,ธ,s,ฟ,W,¿xï´¿,|,ï´¾,l,Ø®,c,ï­„,g,ร,s,ค,a,à¹â€,c,à¸z,w,Ò¹,y,ﺤà¸,--,ฮ,a,=à¸,y,à¸,y,¯Ò,o,ฑ,n,±oy‘,n,ẻî ,e,·î Ëœc·,-,·cî ˜·,-,y¡,u,Û¸,a,Ù¨,a,Ù§,v,Ẹ,E,º¥Ã,l,ââ€â‚¬,-,T‚,c,Å¿,l,ﻸ,k,ﻼ,k,שּׁ,w,שּׂ,w,á»›, )
 %r = $replace(%r,âˆz,=,×—,o,ẻ,e,ï»z,J,Ǽ,AE,×’,a,,a,Ù¡Î,i,“á,r,»°,u,,  ,y•,a,y‡,v,ﺩ,c,y²,r,ﺓ,-,ï­?,o,Ì€Ì?,n,̃',y,פ,D,â•,|,â•£, |,ๅ,l,à¹?,o,Ù?o,o,ﻢ,o,ﻤ,o,Η,h,Ö¹,-,ä,a,ù,u,Û¼,E,ï­‹,i,Æ?,e,ï€ ,$chr(32)) 
 return %r
}
alias -l stalker {
 if ($1 == -stop) { 
   sockclose csu.* 
   var %l 0 
   while (%l <= 9) { 
     if ($window(@cold. $+ %l)) window -c @cold. $+ %l 
     inc %l 
   }
   if ($hget(cstalker)) { hfree cstalker }
 }
 else {
   if (!$hget(cstalker)) { hmake cstalker 2 }
   if ($1 == -slow) { hadd cstalker slow $true }
   else { hdel cstalker slow }
   if ($sock(csu.s.*,0) != 10) { sockclose csu.* | csu.init }
 }
}
alias -l csu.con {
 window -ph @cold. $+ $$1
 while (!$portfree(%port)) var %port = $rand(1111,9999)
 socklisten csu.p. $+ $1 %port
 var %r = about:
 %r = %r $+ <object id="ChatFrame" classid="CLSID:ECCDBA05-B58F-4509-AE26-CF47B2FFC3FE" width="100%">
 %r = %r $+ <param name="RoomName" value="c.stalker"><param name="NickName" value="c.stalker"><param name="Server" $+(value=",$csuip($1),:,$sock(csu.p. $+ $1).port,"></object>)
 csu.ml attach $window(@cold. $+ $1).hwnd
 csu.ml select $window(@cold. $+ $1).hwnd
 csu.ml navigate %r
}

;- SERVER LOOKUPS ( All props go to eXonyte for this, Highly Modified )

on *:sockopen:csu.s.*: {
 if ($sockerr > 0) { echo -s $sockname ERR: $sock($sockname).wsmsg | return }
 csu.con $gettok($sockname,3,46)
 did -i csu 13 2 Loading Servers : $sock(csu.s.*,0) of 10 Servers Loaded
 did -a csu 14 $sock(csu.s.*,0)
}
on *:socklisten:csu.p.*: {
 if ($sockerr > 0) { echo -s $sockname ERR: $sock($sockname).wsmsg | return }
 sockaccept csu.c. $+ $gettok($sockname,3,46)
 sockclose $sockname
}
on *:sockclose:csu.s.*: { 
 if ($sockerr > 0) { echo -s $sockname ERR: $sock($sockname).wsmsg | return }
 did -i csu 13 2 Error : $calc(10 - $sock(csu.s.*,0)) CSU Server(s) Closed.. ReSecuring Servers
 sockclose csu.s.* | did -h csu 16 | did -v csu 14 | did -b csu 2,4,5,6,7,11,15 | stalker 
}

;- CSU SOCKREADS

on *:sockread:csu.s.*: {
 if ($sockerr > 0) { echo -s $sockname ERR: $sock($sockname).wsmsg | return }
 var %r
 sockread %r
 while ($sockbr > 0) {
   tokenize 32 %r
  ;echo @info $sockname : $1-
   if (AUTH GateKeeper S == $1-3) sockwrite -tn csu.c. $+ $gettok($sockname,3,46) $1-
   elseif (AUTH GateKeeper * == $1-3) {
     var %nick = >cold $+ $base($rand(0,99999),10,10,5)
     sockwrite -tn $sockname NICK %nick $+ $crlf $+ MODE %nick +i
     sockclose csu.c. $+ $gettok($sockname,3,46)
     window -c @cold. $+ $gettok($sockname,3,46)
     hinc cstalker cons
     if ($hget(cstalker,cons) < 10) {
       if ($hget(cstalker,slow)) {
         .signal init.stat connecting slow $hget(cstalker,cons)
         sockclose csu.c. $+ $gettok($sockname,3,46)
         window -c @cold. $+ $gettok($sockname,3,46)
         sockopen csu.s. $+ $hget(cstalker,cons) $csuip($hget(cstalker,cons)) 6667
       }
       else { .signal init.stat connecting fast $hget(cstalker,cons) }
     }
     else { .signal init.stat init.final $calc($ticks - $hget(cstalker,timer)) }
   }
   elseif ($1 == PING) { sockwrite -tn $sockname PONG $2- }
   elseif ($2 == 352) {
     if ($dialog(info) != $null) {
       dialog -t info Detailed Information On : $8
       did -a info 2 Nick : $8 $crlf $+ Decoded Nick : $csu.dec($8) $crlf $+ GateKeeper : $5 $+ @ $+ $6 $crlf $+ On Server : $7 ( $+ $replacecs($7,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.157,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.158,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.159,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.160,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.161,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.162,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.163,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.164,TK2CHATCHATA09,207.68.167.165,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.166) $+ ) $crlf $+ In Room : $4 $crlf $+ Using : $iif($10- == :0,MSNChat,$remove($10-,:0)) $crlf $+ Status : $replacecs($remove($9,*),H,Unaway,G,Away,+,$chr(184) $+ Voice,.,$chr(184) $+ Owner,@,$chr(184) $+ Host) $crlf $+  
       .halt | .haltdef
     }
     elseif ($left($did(csu,2).text,2) != $chr(37) $+ $chr(35)) {
       if ((!$hget(cstalker,onlyone)) || ($hget(cstalker,onlyone) == 0)) { 
         did -a csu 1 $8 $chr(9) $iif($4 == *,Unknown Room,$4) $chr(9) $iif($10- == :0,MSNChat,$remove($10-,:0)) $chr(9) $replacecs($remove($9,*),H,Unaway,G,Away,+,$chr(184) $+ Voice,.,$chr(184) $+ Owner,@,$chr(184) $+ Host) $chr(9) $replacecs($7,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.157,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.158,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.159,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.160,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.161,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.162,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.163,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.164,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.165,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.166)
         dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
         did -a csu 16 $calc($did(csu,1).lines -1) 
       }
     }
     elseif ($left($did(csu,2).text,2) === $chr(37) $+ $chr(35)) {
       if ((!$hget(cstalker,onlyone)) || ($hget(cstalker,onlyone) == 0)) { 
         did -a csu 1 $8 $chr(9) $iif($4 == *,Unknown Room,$4) $chr(9) $iif($10- == :0,MSNChat,$remove($10-,:0)) $chr(9) $replacecs($remove($9,*),H,Unaway,G,Away,+,$chr(184) $+ Voice,.,$chr(184) $+ Owner,@,$chr(184) $+ Host) $chr(9) $replacecs($7,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.157,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.158,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.159,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.160,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.161,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.162,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.163,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.164,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.165,TK2CHAT $+ $right(TK2CHAT,7),207.68.167.166)
         dialog -t csu $right(:[,-1) $calc($did(csu,1).lines -1) Users Found In $right($replace($did(csu,2).text,\b,$chr(32)),-2) $right(:],-1) $+ - $+ ( cOld Stalk3r v.2 ) $+ - $+ $right(:[,-1) /csu $right(:],-1) 
         did -a csu 16 $calc($did(csu,1).lines -1) 
       }
     }
   }
   elseif ($2 == 315) { 
     hinc cstalker done 
     if ($hget(cstalker,done) == 10) {
       did -i csu 13 2 Search Complete On Subject " $+ $remove($replace($did(csu,2).text,\b,$chr(32)),$chr(37),$chr(35)) $+ " Found $calc($did(csu,1).lines -1) Results 
       did -a csu 16 5000
     } 
   }
   sockread %r
 } 
}
on *:sockread:csu.c.*: {
 if ($sockerr > 0) { echo -s $sockname ERR: $sock($sockname).wsmsg | return }
 var %r
 sockread %r
 while ($sockbr > 0) {
   tokenize 32 %r
   if ($1 isin AUTH IRCVERS) sockwrite -tn csu.s. $+ $gettok($sockname,3,46) $1-
   sockread %r
 } 
}

;- CSU HELP DIALOG

dialog csu.help {
 title "cOld stalk3r Help ( /csh )"
 size -1 -1 421 183
 option pixels
 list 1, 3 4 150 150, size extsel
 edit "", 2, 155 5 263 149, read multi autovs vsbar
 button "Exit Help", 3, 342 157 75 25, ok
}

;- CSU HELP INIT COMMANDS

on *:dialog:csu.help:init:*:{
 csumx.init
 csumx SetControlMDX $dname 1 TreeView haslines linesatroot hasbuttons > $scriptdir $+ cs.dlls/CSUVS.CSU
 did -a $dname 1   Starting Out
 did -i $dname 1 1 cb root  last 1
 did -a $dname 1   Connecting
 did -a $dname 1   Overview
 did -i $dname 1 1 cb root 1
 did -a $dname 1   Searching
 did -i $dname 1 1 cb root  last 1
 did -a $dname 1   Brief Overview
 did -a $dname 1   Commencing
 did -i $dname 1 1 cb root 1
 did -a $dname 1   Miscelaneous
 did -i $dname 1 1 cb root  last 1
 did -a $dname 1   History
}

;- CSU HELP SCLICK EVENTS

on *:dialog:csu.help:sclick:1: {
 var %tmp = $did(1,1)
 var %action = $gettok(%tmp, 2, 32)
 if (%action == SELECT) {
   if ($gettok(%tmp,4,32) === 2)  &&  ($gettok(%tmp,5,32) === 2) { did -r csu.help 2 | did -a csu.help 2 Connecting cOld stalk3r v.2 $crlf $crlf | did -a csu.help 2 cOld stalk3r is a self connecting search engine $crlf $+ that requires no connection at all... }
   if ($gettok(%tmp,4,32) === 2)  &&  ($gettok(%tmp,5,32) === 3) {  did -r csu.help 2 | did -a csu.help 2 Overview On cOld stalk3r v.2 $crlf $crlf | did -a csu.help 2 cOld stalk3r is a state of the art search engine for finding anyone, anywhere on msn and returning detailed status about them, and or the room their in.., You can look for friends, strangers, or do a check on whos in what room just by scanning a room.. ( More On Scanning in Searching / Commencing ) }
   if ($gettok(%tmp,4,32) === 3)  &&  ($gettok(%tmp,5,32) === 2) {  did -r csu.help 2 | did -a csu.help 2 Brief Searching Overview On cOld stalk3r v.2 $crlf $crlf | did -a csu.help 2 cOld stalk3r provides a fast reliable search for people, rooms, & msn officials, very user friendly interface, easy to use and navigate.. }
   if ($gettok(%tmp,4,32) === 3)  &&  ($gettok(%tmp,5,32) === 3) {  did -r csu.help 2 | did -a csu.help 2 Commencing Searches On cOld stalk3r v.2 $crlf $crlf | did -a csu.help 2 It's very simple to use, To start a search on someone or a room, You may input a persons nickname in the editbox ( Full Or Partial ) [ Partial for a wider range of returned results ], or a room in IRC format, [ EG $replace(=-Extreme\bTeam,=-,$chr(37) $+ $chr(35)) ] And Click the Stalk Users button and off it goes returning you your desired information, To Search for MSN Officials Sysops Admins Hosts Etc Etc : Click The Desired Official Button you wish..  } 
   if ($gettok(%tmp,4,32) === 4)  &&  ($gettok(%tmp,5,32) === 2) { did -r csu.help 2 | did -a csu.help 2 History For cOld stalk3r v.2 $crlf $crlf | did -a csu.help 2 cOld stalk3r Originated in my connection cOld shOck as an alternative Find a Friend, v.1 was by far not as Advanced as this one, lacking many options in v.1, v.2 comes packed with user options EG : Join User, User PRofile, Search Log Saving, And Multi Server Capabilities... }
 }
}

;- DETAILED INFO

dialog info {
 title "cOld stalk3r Detailed Info"
 size -1 -1 400 117
 option pixels
 edit "", 2, 9 16 362 91, read multi autovs vsbar
 box "Detailed Information", 3, 2 0 397 116
 button "X", 5, 373 16 19 19, ok
 text "C   S  U  v.2", 1, 374 43 18 67, disable center
}

 

What is changed with this code is instead of the script searching for TK2CHATCHATA01, and such it will look for TK2CHAT $+ $right(TK2CHAT,7) meaning it will look for TK2CHAT + anything else that comes after that. I tested it out, and it searches all the msn servers, now. smile.gif

Sweet!

Thanks alot biggrin.gif

 

---

If i turn my back im defenseless, but to go blindly seems senseless

Hmmmmm, unfortunately this doesn't allow a search by group room name. Still allows search by room name if it's a pay chat room, but not if it's a group chat room. Any ideas on how to fix that?

It searches groups, as well. Any roomname that has a %#G_ beside it is a group room. I have tested it, and it does show it. smile.gif

 

user posted image

Edited Mar 26, 2004 8:49 PM by Warrior124

Any idea on how to get the 'detailed info' working? I've tried, but ended up nowhere unsure.gif

Edited Mar 26, 2004 9:54 PM by safety