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. 