Jump to content

Warrior124

Members
  • Posts

    993
  • Joined

  • Last visited

Posts posted by Warrior124

  1. Okay, I have an edit box, and I want to click a button and retrieve the 2nd word, along with the rest of the stuff in the edit box.. Basically just like "$2-" you just don't want the first word, just everything after it.

     

    So would I use something like "$did(ID,$2-).text" or something?

     

    Help would be apreciated! biggrin.gif

     

    Thanks in advance,

    ~Josh

    Try something like this.

    $replace($did(ID).text,$1,$chr(32))

     

    I haven't tried this, yet. So, I don't know if it will work, but give it a try, and let me know. smile.gif

  2. 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

  3. Is there anyway of saving a webpages source to text using mirc commands? Like when you go to view-source:http://chat.msn.com/renderchat.msnw?&t=passporttickethere&p=passportprofilehere it will open up a notepad showing your subscription information. Without manually having to save the info yourself is there a way to save it automatically to something say "renderchat.txt", or something like that? sad.gif

  4. Well..again everthing went ok thru step no 3. I loaded new vincula, new passport, it did update itself...but no notepad came on, no subscriber menu...etc.?????? Again, bot got into room but with glasses!

    Try typing in /msn.getpp. This should bring up the notepad, then. It does for me.

  5. Marm, download the updated vincula from the link I am going to give you.

     

    http://www.techgear007.net/downloadsmsn/pa...ion=file&id=735

     

    Steps To Take:

    1.:When you first load it a dialog will open.

    2.:Just goto "Passports", click on "Add", and then fill in your "Entry Name" "E-mail", and "Password".

    3.:Then, click "OK", then "OK" again to save your information.

    4.:It will automatically update itself, and a box will come up asking if you want to save your subscription information.

    5.:A notepad will also open.

    6.:Copy your sub info from the notepad, click "Yes" on the box, and paste your sub info into the other box that comes up, and click "OK".

    7.:It will then inform you that your subscription info has been saved.

    8.:Now, just type in /msn yourroomnamehere, and it will connect you to your room. smile.gif

     

  6. I was just wondering if anyone knows how to fix this problem the sockmare connection joins rooms fine until you try to join a room that begins with -

    such as if i tried /join %#-blah- it just freezes thank you in advance..

    Try this.

     

    /join 25232D626C61682D

  7. For those who are still on msnchat, and want to use something to keep non-subscribers out of your room here is a code to use.

     

    raw 906:*:{ access $comchan($2,1) add deny $address($2,1) 0 | access $comchan($2,1) add deny $2 0 | kick $comchan($2,1) $2 [Non-Subscribers Aren't Allowed. Please Get a Paid Account To Join. Thanks. :)] }
    on *:JOIN:#:{ if ($nick != $me) { mode # -o $nick }
    

     

    When a chatter enters your room your script will try to deop anyone entering the room. Since you cannot op, or deop a non-subscriber it will show as a raw 906 meaning that you don't have access to commands for non-subs. If a raw 906 shows up then your script will add an access deny to the nicks address and nickname, and kick the person out of the room.

×
×
  • Create New...