Jump to content

Terminal-access

Members
  • Posts

    28
  • Joined

  • Last visited

Posts posted by Terminal-access

  1.  

     

    firstly i need to state that i use to be a member of staff and helped create sparkpea chat just so you guys know where im comming from on this reply

     

    so here is a little General info about sparkpea

     

    the sparkpea chat server is not any thing like paperirc, wavserver the old ignition server or any thing else remotly like that

     

    the server has been coded 100% from scratch internally so its all there own work (coded in what i can't say ), just a few of us that knew about each type of chat protocall put out heads together and continuly work update adding new featurs

     

    and also were not an msn emulation site either (although the msn chat controll is supported on the site its not out only chat interface !)

     

    at first it started off just as your basic irc server as any would then from there we added in support for ircx, ircxpro, ircd (not to shure will have to chek on that), and then finally we had a few users come over from msn and we though well seeing as they alredy have the msn chat controll installed on there system why not meerly code the server to permit usage doing it that way dosent break any copywright laws or any thing like that as long as they have the ocx installed from the msn site (that means where the cab files are hosted just incase ne one was wondering every thing to do with the ocx being installed is left down to microsoft ) then we said hey we got the irc7 version working y not implamnet the irc8 protocalls also so we coded them in too then though to our selvs hmm now about microsoft comic chat so we coded in irc5 protocalls then when we had a few users that where having problems with the ocx and the irc side fo the site we though it would be a good idea to have a java chat controll (this was implamented at the time i was a staff memeber how ever i dont know if this is still avalible)on the site too to allow users to freely choose what chat controll they can use on the site,

     

     

    and with thanx to webby i over the past year or so have solowly in my spare time been coding a vb chat controll that will once finished replace msn's chat controll entierly.

     

    reguards

     

    Terminal-Access

    aka

    Lee

  2. Your way off on the date .. they went to subscription in September of 2004.

     

    when subscription in 2004, yea thats correct ha thanx i got the date mixed up with when they closed their doors to the uk market thanx

  3. Is there a way i can suscribe so i can use chatrooms again. like i go to www.ca.msn.com i go into a room but get kicked, i sont mind paying but how can i register

     

    the reason your getting kicked form most rooms is like the others in this thred have alredy mentioned that your passport account is what is deems a non-subscriber user passport (when msn updater there servers back in 2000 (i think it was) and chat became subscription they alred a few paprmiters on there servers to allow there staff to determin which users entering various rooms e.g the help desk are subscribed users and which where not.

     

    the only way that i am currely aware of chatting there leagally is

     

    1. Subscribing to Msn hotmail extra storage

     

    To Subscribe to Msn hotmail extra storage go to

    http://getchat.msn.com/?RU=http://chat.msn.com/default.msnw?pgmarket=en-us

     

     

    also this may come in handy to byepass that horrid msn groups page informing you that chat is closed in your area altogeter and be able to use the msn chat site as normal use the url pasted below

     

    To get on to the msn chat website use the following after the usual url

    ?pgmarket=en-us

    this simple pice of code at the end of the url tells the website you are situated in the United States and thus allows you to use the msn website with out hitting that groups page

     

    the full url should look like this

    http://chat.msn.com/default.msnw?pgmarket=en-us

     

     

    reguards

     

    Lee aka TA

  4. Pariah

     

    i dont know if this will help at all , but here's how the vincula finds socket is written for a non ocxless dependent connection

     

     

    on *:SOCKOPEN:msn.look.*: {
     if ($sockerr > 0) { msn.sockerr $sockname open | return }
     sockwrite -tn $sockname IRCVERS IRC8 MSN-OCX!9.02.0310.2401 
     sockwrite -tn $sockname AUTH GateKeeperPassport I $+(:GKSSP\0\0\0,$chr(3),\0\0\0,$chr(1),\0\0\0)
    }
    

     

    on *:SOCKCLOSE:msn.look.*: {
     var %x = $sockname
     if ($sockerr > 0) { msn.sockerr $sockname close }
     else { .timer $+ %x off }
    }
    

     

    on *:SOCKREAD:msn.look.*: {
     if ($sockerr > 0) { msn.sockerr $sockname read | return }
     var %read
     sockread %read
     while ($sockbr > 0) {
       tokenize 32 %read
       if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
       if ($1 = AUTH) {
         if (:GKSSP* iswm $4) sockwrite -n $sockname $1-3 $mh.calc($4 $+ $sock($sockname).ip)
         elseif ($4 = :OK) sockwrite -n $sockname $1-3 $+(:,$msn.authkey,$crlf) $+ $iif((*main iswm $sockname) && (%msnpp.subscriberinfo),PROP $ SUBSCRIBERINFO : $+ %msnpp.subscriberinfo)
         elseif ($3 = *) {
           sockwrite -n $sockname NICK $me
           if ($sockname == msn.look.main) {
             .timermsn.look.main 0 20 sockwrite -tn msn.look.main VERSION
             .timer.get.ud 1 4 return $noaccount
             if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * Main MSN Server Connection Established
             if (!$sock(msn.look.comm)) msn.lookcon -x
           }
           else {
             .timermsn.look.comm 0 20 sockwrite -tn msn.look.comm VERSION
             if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * MSN Groups Server Connection Established
             if (!$sock(msn.look.main)) msn.lookcon -x
           }
         }
       }
    
    e.t.c
    rest of finds socket coding  goes here
    e.t.c
    

  5. have changed both the dialog close and the jsalias ,

     

     

    and have just noticed that with the new codign for the jsalias , i dont gat the rightclick mirc menu being displayed any more

     

    but it fixed the error floods lol with the whisper dialog

     

    saying all that iv just notived the folloowing code in the new version of smileview

     

    alias JSalias {
     if ($window($1).hwnd != $NULL) {
       var %cmd $replace($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,alias,),-target,$1)
       $iif(%cmd != $1,%cmd)
     }
     else .timer $+ $2 off
    }
    

     

    ok lol that code sovles the problem i now have all the default mirc windows back working biggrin.gif

     

    and also no errors being returned when ya close the whisper window

     

    thanx for the help guy's

     

    if ya wanna see the codign i used fomr the new version of the smileview.bub , to allow the mirc popup menus to work rather than having to prgram your own let me know n ill post the here

  6. ahh fomr what you said i gather your using the new version 2 of the script , now in the coding for that ull need to remove the following line/s

     

    ok look in the smileview.* file for any lines thate like thw follwoing

     

     

     

           writeln $1 <body ondragstart="return false" onMouseUp="execCommand('Copy');execCommand('Unselect');document.title='dll smilesviewADD.dll SelectEdit $window($1).hwnd ';" bottommargin="0" oncontextmenu="alias('dll DllTmp/Dll $+ $window($1).hwnd $+ .dll menu $window($1).hwnd '); return false;" topmargin=" $+ $window(-1).dw $+ " style="overflow-x:hidden" onDblClick="document.title='channel';" background=" $imgChan "> 
    

     

    all you need to do is remove the following form that line

     

    background=" $imgChan
    

     

    thats show then allow the script to work weith out using the background image

     

    hope this helps

     

    need any more help with the script just pm me as im currently working on a whoel range of scripts that sue the smileview code

     

    regds

     

    TA aka Lee

  7. hya all , got a problem with a whisper dialog iv been using , its the one from the guarddog script , iv recoded it slightely to work with the scritp i have , how ever most of the coding is 100% origional ,

     

    im also using the smileview script iv taken coding form versions 1.3 and 2.0 , to get the script to work correctly , but the majority of the coding is form version 1.3

     

    the problem im haivn is this

     

    i have got the dialog wortking with the smileview coding and with out ,

    how ever when i close the whisper dialog window when its using the coding fomr the smileview script , it will send the error E_INVALID_WINDOW, to the server and dissconnect me

     

    ne ideas ?

     

    heres the slightelly recoded versio fo the guard dog whisper dialog with the smileview coding .

     

    alias ndlln { return $shortfn($mircdir) $+ dlls\nHTMLn_2.95.dll }
    alias mdx { return $shortfn($mircdir) $+ dlls\mdx.dll }
    alias views { return $shortfn($mircdir) $+ dlls\views.mdx }
    alias bars { return $shortfn($mircdir) $+ dlls\bars.mdx }
    alias dialogmdx { return $shortfn($mircdir) $+ dlls\dialog.mdx }
    alias whiser.jpeg { return $shortfn($mircdir $+ smilesys\icons\ $+ $1 $+ .jpg) }
    alias whiser.ico { return $shortfn($mircdir $+ smilesys\icons\ $+ $1 $+ .ico) }
    
    
    alias whisper {
     set %whispernick $1-
     if (!$dialog(whisperw. [ $+ [ %whispernick ] ])) {
       dialog -mvd whisperw. [ $+ [ %whispernick ] ] whisperw. [ $+ [ %whispernick ] ] 
       dialog -t whisperw. [ $+ [ %whispernick ] ] $msn.decode(%whispernick) : 1 to 1 whisper
     }
     else { .query $1- }
    }
    
    dialog whisperw.* {
     title "1 on 1 Whisper"
     size -1 -1 432 228
     option pixels
     icon smilesys\icons\whisper.ico, 0
     text "To:", 1, 8 9 18 16
     text "", 2, 30 5 226 20
     icon 3, 263 3 26 24, smilesys\icons\whisperignore.jpg, 0
     icon 4, 300 3 123 24, smilesys\icons\viewprofile.jpg, 0
     button "", 5, 8 32 418 164
     edit "", 6, 8 202 340 20, autohs limit 255
     button "Whisper", 7, 352 200 74 24
    }
    on *:dialog:whisperw.*:init:*: {
     dll $mdx SetMircVersion $version
     dll $mdx MarkDialog $dname
     dll $mdx SetDialog $dname bgcolor $rgb(239,239,247)
     dll $mdx SetColor $dname 1,2 background $rgb(239,239,247)
     dll $mdx SetColor $dname 1,2 textbg $rgb(239,239,247)
     dll $mdx SetFont $dname 2 18 700 Arial
     dll $mdx SetControlMDX $dname 5 Window > $dialogmdx
     window -h @ $+ %whispernick -1 -1 700 300
     if (!$exists(DllTmp/Dll $+ $window(@ $+ %whispernick $+ ).hwnd $+ .dll)) {
       .copy -o SmilesView.dll DllTmp/Dll $+ $window(@ $+ %whispernick $+ ).hwnd $+ .dll
       dll DllTmp/Dll $+ $window(@ $+ %whispernick $+ ).hwnd $+ .dll attach $window(@ $+ %whispernick $+ ).hwnd 
       dll DllTmp/Dll $+ $window(@ $+ %whispernick $+ ).hwnd $+ .dll navigate about:blank
       .timer $+$window(@ $+ %whispernick $+ ).hwnd -m 0 1 HTMLLoad @ $+ %whispernick
     }
     did -a $dname 5 grab $window(@ $+ %whispernick $+ ).hwnd @ $+ %whispernick
     did -ra $dname 2 $replace($msn.decode(%whispernick),>,Guest_)
     did -t $dname 7
     if (>* iswm %whispernick) { did -g $dname 4 smilesys\icons\viewprofiledis.jpg }
     did -f $dname 6
    }
    on *:dialog:whisperw.*:close:*: {  
     .timer $+$window(@ $+ %chan $+ ).hwnd off
     if ($var(%chan [ $+ [ $window(@ $+ %whispernick $+ ).hwnd ] ]) != $null) { 
       if (%chan [ $+ [ $window(@ $+ %whispernick $+ ).hwnd ] ]) unset %chan [ $+ [ $window(@ $+ %whispernick $+ ).hwnd ] ] 
       else %chan [ $+ [ $window(@ $+ %whispernick $+ ).hwnd ] ] = $true 
     } 
    }
    on *:dialog:whisperw.*:sclick:3: {
     if ($level($address($right($dname,-9),1)) != ignore) {
       auser ignore $address($right($dname,-9),1)
       /ignore $right($dname,-9) 1
       echo $comchan($right($dname,-9),1) 14 $chr(155) $msn.decode(You are now ignoring $replace($right($dname,-9),>,Guest_) $+ .)
     }
     if ($level($address($right($dname,-9),1)) == ignore) {
       .ruser ignore $address($right($dname,-9),1)
       /ignore -r $right($dname,-9) 1
       echo @ $+ $right($dname,-9) 10 $+ $msn.decode(You are no longer ignoring $replace($right($dname,-9),>,Guest_) $+ .)
       did -g $dname 3 smilesys\icons\whisperignore.jpg
       did -f $dname 2
     }
    }
    
    on *:dialog:whisperw.*:sclick:4: { if ($left($did(2),6) != Guest_) { PROP $right($dname,-9) PUID } }
    
    on *:dialog:whisperw.*:sclick:7: {
     set %whispernick $right($dname,-9)
     if ($did(6).text == $null) { $input(You need to have text entered in before you can whisper the user.) }
     elseif ($left($1,1) == /) { / $+ $1- }
     else {  echo @ $+ %whispernick  $+ $msn.decode($me) $+ : $did(6).text | .privmsg %whispernick $did(6).text | did -f $dname 6 }
     did -r $dname 6
     halt
    }
    
    on ^*:OPEN:?:*: {
     set %whispernick $nick
     if (%whispernick == $me) { closemsg $nick | unset %whispernick | haltdef | return }
     splay ChatroomWhsp
     if (!$dialog(whisperw. [ $+ [ %whispernick ] ])) {
       dialog -mvd whisperw. [ $+ [ %whispernick ] ] whisperw. [ $+ [ %whispernick ] ] 
       dialog -t whisperw. [ $+ [ %whispernick ] ] $msn.decode(%whispernick) : 1 to 1 whisper
     }
     closemsg %whispernick
    }
    
    on *:TEXT:*:?: {
     echo @ $+ $nick 2 $+ $msn.decode($nick) : $1-
     closemsg $nick
     haltdef
    }
    ctcp *:ERR*:*: {
     if ($2 == NOUSERWHISPER) {
       echo @ $+ %whispernick 4 $+ Your previous message could not be sent because that user does not allow Whispers.
       haltdef
     }
    }
    on *:JOIN:#: { if ($window(@ $+ $nick)) { echo @ $+ $nick 3 $+ $msn.decode($nick has joined the conversation.) } }
    on *:PART:#: { if ($window(@ $+ $nick)) { echo @ $+ $nick 4 $+ $msn.decode($nick has left the conversation.) } }
    

     

     

    agane the only problem im having with this , is when the dialog window is closed

     

    i been up all nigth working on this n its buggin the hell outta me lol

     

    and sugestions on what it might be woudl be gratlyu apreciated

     

    Additional

     

    just been looking though the codign for version 2.0 for the smileview script and found the follosing coding

     

     
    
    alias query {
     if (($IriXChan($active)) || ($1 == IriX)) %IriXActuChan [ $+ [ $window(Status Window).hwnd ] ] = $active
     query $1
     if (!$exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
       .copy -o SmilesView.dll DllTmp/Dll $+ $window($1).hwnd $+ .dll
       if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT) || ($os == 2K)) { timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
       else { dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
       .timer $+ $window($1).hwnd -m 0 1 HTMLLoad $1
     }
    }
    
    on *:open:?: { 
     if (!$exists(DllTmp/Dll $+ $window($nick).hwnd $+ .dll)) {
       .copy -o SmilesView.dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll
       if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT) || ($os == 2K)) { timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
       else { dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
       set %PV [ $+ [ $window($nick).hwnd ] ] $1-
       .timer $+ $window($nick).hwnd -m 0 1 HTMLLoad $nick
     }
    }
    
    
    

     

    how ever the coding gives the same error as the one im using with the whisper dialog , agane i got no idea why :S

     

    thanx

     

    TA aka lee

  8. yea theres a version of vincula 4.9 that was edited by kozical to be able to create rooms

     

    u can downlaod it form

     

    http://hiz.vze.com

     

    under the vincula section

  9. well recently iv been working on trying to modify the automatic subscriber grabber that im using with my version of vincula to get regcookies , but im getting stuck

     

    be for ya start havin a go at me because there are other updaters out there that can alredy obtain this , its just some thing for me to learn how to do.

    and yea hopefully once iv learnt enough about all this i will wright my own version insted of recoding other peapples but i aint got that far yet tongue.gif

     

    NOTE : The coding shown below is fomr the Subscriber info updater made by zBrute, Tyrant,Chris and Modifed greatly by The Gate Keeper to work with Vincula

     

    any differences fomr there orgional coding i probabilly added myself or some one elsedid

     

     

    i know form obtainning the cookie info manually that in the sorce ur looking for

     

    <script language="javascript">RenderChat('F58E1CEF-A068-4c15-BA5E-587CAF3EE8C6', 'CODEBASE="/bin/msnchat45.cab#Version=9,02,0310,2401"','25236869705C62686F70','',nMode,0,'',sPrFilter,
    
    ;- your cookie info
    
    tBdwspLpi7Q8S6wZ^tanWYy27gYKEbwBmcYrP2UPdyXJlkRYrx0ttHkf0^qIib1tJEfE*qMNSzvcmYQZyKzD9MfF7ARwVJA8A3lApzlPfJW7Orh5UFhSPp2nbQbTrYXPUW
    MT^2Qn1oD7wtof09bD7TucagyhfFxjHodqMqTbdqAa7^iTowIaMVDvQUPl2tTlLcPJ99Kl7E8FnhIH4RT1O*ZFkClGkCW8gdysITVvOUnf*^p6O8bMlQ@@
    
    
    
    ','149164813','','','http://chat.msn.com/bin/MsnChat40en-us.cab#Version=9,02,0405,1901');</script>
    

     

    and its a simmaler thing for the subscriber info so i figured that if the updater can obtain the subinfo form the renderchat sorce , then it should beable to obtain the cookie info from ne chatroom sorce code.

     

     

     

    The recoding so far

     

     

    
    alias update.cookie {
     sockclose cookie.*
     sockclose update.*
     unset %update.*
     var %e, %p, %host,
     set %update.passport $msn.ini(selpp)
     set %update.time $ticks
     set %update.num 0
     set %update.att 0
     %e = %msnpp.email
     %p = %msnpp.passwd
     if (msn.com isin %e) { %host = msnialogin.passport.com }
     elseif (hotmail.com isin %e) { %host = loginnet.passport.com }
     else { %host = login.passport.com }
     sockopen update. $+ %e %host 80
     sockmark update. $+ %e %p %host
     set %update.emails %e %p
     echo $color(info2) -atq * Updating the " $+ %update.passport $+ " passport, please wait...
    
    }
    
    on 1:sockopen:update.*:{
     var %email, %host, %password, %string
     %email = %msnpp.email
     %password = %msnpp.passwd
     %host = $gettok($sock($sockname).mark,2,32)
     %string = Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fchat%2Emsn%2Ecom,sign-in=
     %string = %string $+ %email $+ ,pwd= $+ %password $+ ,id=2260
     sockwrite -n $sockname GET http:// $+ %host $+ /login2.srf HTTP/1.1 
     sockwrite -n $sockname Authorization: %string
     sockwrite -n $sockname Host: %host
     sockwrite -n $sockname $crlf
    }
    
    on 1:sockread:update.*:{
     sockread -n &var
     var %email = %msnpp.email
     if ($bfind(&var,1-,Authentication-Info:)) {
       sockopen $replace($sockname,update,cookie) chat.msn.com 80
       tokenize 32 $wildtok($bvar(&var,1-).text,*t=*,1,39)
       set %msnpp.ticket $remove($gettok($1-,2,61),&p)
       tokenize 32 $wildtok($bvar(&var,1-).text,*p=*,2,39)
       set %msnpp.profile $gettok($1-,3,61)
       writeini $+(",$scriptdirvpassport.dat") %update.passport profile $gettok($1-,3,61)
       writeini $+(",$scriptdirvpassport.dat") %update.passport ticket $remove($gettok($1-,2,61),&p)
     }
     elseif ($bfind(&var,1-,Unauthorized)) { echo -s * [[ $+ %update.passport $+ ]] Email and/or password is wrong. | inc %update.num }
    
    }
    on 1:sockopen:cookie.*:{
     var %passport = %msnpp.email
     sockwrite -n $sockname GET /chatroom.msnw?rm=helpdesk HTTP/1.1 
     sockwrite -n $sockname User-Agent: Cookie Updater (compatible; MSIE 6.0; Windows NT 5.1)
     sockwrite -n $sockname Accept: */* 
     sockwrite -n $sockname Accept-Language: EN-US
     sockwrite -n $sockname Host: chat.msn.com
     sockwrite -n $sockname Connection: Keep-Alive
     sockwrite -n $sockname Cookie: AdultWarn=1;path=/;chocx=9,02,0310,2401; MSPProf= $+ %msnpp.profile $+; MSPAuth= $+ %msnpp.ticket $+; 
     sockwrite -n $sockname Connection: Close  
     sockwrite -n $sockname $crlf
    }
    
    on 1:sockread:cookie.*:{
     sockread -n &var
    if ($bfind(&var,1-,>renderchat)) {
       tokenize 32 $wildtok($bvar(&var,1-).text,*sPrFilter*,1,60)
    
    
    ;- halted the 3 lines below incase some thing goes wrong dont want it entering any info in to the vpassports.dat file unless the code is correct.
    
    ;set %msnpp.cookie $gettok($1-,4,34)
    ;writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate cookie $left($gettok($1-,2,61),-5)
    ;writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate updated $ctime
    
    ;- the echo is just in here so that i can see if the coding is working or not
    
     echo cookie $left($gettok($1-,2,61),-5)
    
    echo $color(info2) -at * Passport info for " $+ %msnpp.loupdate $+ " is now updated ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds $+ $iif(%losubfail, $chr(32) $+ No SubcriberInfo was found!) $+ )
     sockclose $sockname
    }
     }
    
    

     

     

    now obiously i know the code like that dosent work thats y im here and you guy's come in

     

    any help in any way possible would be appreciated even if its just hint's to where im going wrong or if im missing some thing

     

    reguds

    lee

  10. my vinc is working also , was getting sockwrite problem's on look up servers but they seemd to correct them selves withing a coupple of mins , had to reset the script a coupple of times but there working now , might have been msn altering parts of there server's maby

  11. whoa nice ozzy

    verry nice indeed

    biggrin.gif

     

    Glitch when i can find it ill upload a ss of one of my old script i use to use for another chat network that used the smilysys theam , did a load of work with it practically spent 2 nights straight configing the thing even made use of the popups.dll to add some form of menu system to it i even managed to get animated gif's in also tongue.gif so yea once i found it agane ill upp a ss of it might even submit a version when i get round to re-coding that for msn lol

  12. yea gwen that coding was totally wrong well most of it what i posted ^^ is the correct way but the drawback is if you dont set the passport updater to update automatically when the script starts then it error's out with those error messages i inclded ^^ there , dont know why though

     

    Gwen ur a life saver biggrin.gif thanx for that just updated my vinc withthe recoding from koz's vinc and tis all working yay lol

     

    and koz verry big pro's to you man nice one biggrin.gif

     

    ohh and koz if you look at this post i dunno if you will lol , noticed some thing with the coding u wrote for authering on look upserver's

     

    the msn.look.main is ok that works fine

     

    the man.look.comm ( community server) dosent send the user role so if u go to create a groups room u wont be able to , though i might let ya know about that since im using ur coding in my ver of vinc now lol dont worry iv included credits for you also tongue.gif

     

    ok iv submited the version of vincula that iv been working on , if they upload it and ne of you donwload it , let me knoww hat ya think n what i could improuve on

  13. ok guys be for ya start to flame me for doubble posting

     

    yes i know ihave posted about this in my IRC8 vers post in the clearmsn section but i though id start a whole new post unser the msn section for this seeing as its a new topic form my origional post..

     

    heres the chalenge Im faced with...

     

    im atempting to modify vincula's coding to make it auther as a subscriber ( prop the user role and subscriber info e.t.c) when the main and group look up servers are established , to allow me to sue the origional create room code insted of the mini browser one thats being used at the moment

     

    dont get me wrong the min browser one is nicelly done and really apreciated you guy's releacing it , but id really like to get vincula back to the way it was when it was initially releaced be for it was abandond after msn changed to subscriber mode lol

     

     

    ne way i think iv found the part of the coding ( 3 parts in all ) that need to be changed , added to / re done compleetly ill post them be low

     

    as you may notice iv modified vincula to use IRC8 vers insted of IRC7 Vers

     

     

    Section 1

     

    on *:SOCKREAD:msn.look.*: {
     if ($sockerr > 0) { msn.sockerr $sockname read | return }
     var %read
     sockread %read
     while ($sockbr > 0) {
       tokenize 32 %read
       if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
    if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
      if (AUTH GateKeeper* iswm $1-) {
         if ($sock(msn.client.lm $+ $right($sockname,4)).status == active) sockwrite -tn msn.client.lm $+ $right($sockname,4) %read
         if (AUTH GateKeeper *@GateKeeper* iswm $1-) {
           sockwrite -tn $sockname NICK $rand(111,999)
           if ($sockname == msn.look.main) {
             .timermsn.look.main 0 20 sockwrite -tn msn.look.main VERSION
             if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * Main Lookup server connection established
             if (!$sock(msn.look.comm)) msn.lookcon -x
           }
           else {
             .timermsn.look.comm 0 20 sockwrite -tn msn.look.comm VERSION
             if ($sock(msn.server.*,0) == 0) scid $activecid echo $color(info2) -at * Groups Lookup server connection established
             if (!$sock(msn.look.main)) msn.lookcon -x
           }
         }
    }
    

     

    Section 2 - First Part Of The IRC8 Coding

    on *:SOCKREAD:msn.client.lm*: {
    if ($sockerr > 0) { msn.sockerr $sockname read | return }
    
    var %read, %x $right($sockname,4)
    sockread %read
    while ($sockbr > 0) {
    tokenize 32 %read
    
    if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
    if (AUTH == $1) {
     sockwrite -tn msn.look. $+ %x %read
     if (AUTH GateKeeper S :GKSSP* iswm $1-) {
       sockclose msn.client.* $+ %x
       window -c @Vincula $+ %x
       .remove $+(",$scriptdir,vincula,$left(%x,1),.html")
       return
     }
    }
    elseif (IRCVERS == $1) sockwrite -n msn.look. $+ %x IRCVERS IRC8 MSN-OCX!9.02.0402.1601
    sockread %read
    }
    }
    

     

    Section 3 - sencond part of the IRC8 Ver coding

     

    on *:SOCKREAD:msn.client.rm: {
    var %nick = $gettok($gettok($1,1,33),1,58)
    if ($sockerr > 0) { msn.sockerr $sockname read | return }
    var %nick = $gettok($gettok($1,1,33),1,58)
    var %read
    sockread %read
    while ($sockbr > 0) {
    tokenize 32 %read
    
    if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
       if (AUTH == $1) {
         if (AUTH GateKeeper* S :GKSSP* iswm $1-) {
           if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
           else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
           sockclose $sockname
           var %s $msn.ndll(select,$window(@VinculaHTML).hwnd)
           %s = $msn.ndll(navigate,about:blank)
           return
         }
         else {
           if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
           else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
         }
       }
    elseif (IRCVERS == $1) { 
     if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick)
     sockwrite -tn msn.server.999 IRCVERS IRC8 MSN-OCX!9.02.0402.1601
    }
    sockread %read
    }
    }
    

     

     

    the authering code used by vincula when a room connection is established (sepporate from that of lookup server's)

     

    elseif (AUTH == $1) {
     if (AUTH GateKeeper*S :OK iswm $1-) {
       if ($msn.ini(usepass)) var %pass $msn.roompass($msn.get($sockname,room))
       if ((%msnpp.cookie) && (!$msn.get($sockname,nick))) sockwrite -tn $sockname AUTH GateKeeperPassport S : $+ $msn.authkey $lf PROP $ MSNREGCOOKIE : $+ %msnpp.cookie $lf PROP $ MSNPROFILE : $+ %msnpp.showprof $+ PROP $ ROLE %msnpp.UserRole $lf PROP $ SUBSCRIBERINFO %msnpp.SubscriberInfo $lf JOIN $msn.get($sockname,fullroom) %pass
       else sockwrite -tn $sockname AUTH GateKeeperPassport S : $+ $msn.authkey $lf USER * * " $+ $ip $+ " : $lf PROP $ ROLE %msnpp.UserRole $lf PROP $ SUBSCRIBERINFO %msnpp.SubscriberInfo $lf PROP $ MSNPROFILE : $+ %msnpp.showprof $lf JOIN $msn.get($sockname,fullroom) %pass
     }
     elseif (AUTH GateKeeper*@GateKeeper* 0 iswm $1-) {
       if (AUTH GateKeeper*@GateKeeper 0 iswm $1-) {
         if ($msn.ini(usepass)) var %pass $msn.roompass($msn.get($sockname,room))
         if (($msn.get($sockname,nick)) && (!$msn.get($sockname,guest)) && (%msnpp.cookie)) sockwrite -tn $sockname NICK $msn.get($sockname,nick) $lf JOIN $msn.get($sockname,fullroom) %pass
         elseif ($msn.get($sockname,guest)) sockwrite -tn $sockname NICK > $+ $msn.get($sockname,nick) $lf JOIN $msn.get($sockname,fullroom) %pass
       }
       %msnt.gate = $4
     }
     else sockwrite -tn msn.client.rm $1-
    }
    

    The alias for $msn.authkey is
    
    alias msn.authkey return $base($len(%msnpp.ticket),10,16,8) $+ %msnpp.ticket $+ $base($len(%msnpp.profile),10,16,8) $+ %msnpp.profile
    

     

     

    now iv been at this most of the day been close a few times acctually had it try and auth but kept on returning that the auth faild lol

     

    so any help by you guy's would be really apreciated..

     

     

    regds

     

    lee

  14. basically you just put the roo name e.g

    TheLobby

    if the room name has a sapce in use \b insted of the space )

    e.g for the room Hip Hop

    you would type Hip\bHop

    also if you see other users thalking about a room name , and the romo name has %# at the beginning

    all that means is there using the mirc version of the room name

    if for instance a user posted " hey al join %#myroom

    and you wanted to join that room you can still type in /join myroom , and it will connect ,its just another way mirc defines that what you rinputing is a room name rather than a message

     

     

    The enorrenous nickname error message your scritp is returning means that msn chat dosent recognise the some of the char's you have used in you rnick , just try a nre simple plain text username first of all

     

    hope this helps

     

    regds

    lee

  15. assuming ur using VinculaERZ downloaded from techgear007

     

    Find echo code's from the subscriber update ( the same can be done with the user role updater )

     

    echo $color(info) -at 8• Updating the " $+ $msn.ini(selpp) $+ " Passport 
    

     

    add after the echo cmd

     

    amsg  Updating the " $+ $msn.ini(selpp) $+ " Passport 
    

     

    also find

     

    echo $color(info2) -at 9• Passport and SubscriberInfo for " $+ $msn.ini(selpp) $+ " is now updated ( $+ $calc(($ticks - %update.time) / 1000) seconds)
    

     

    add after the echo command

     

    amsg Passport and SubscriberInfo for " $+ $msn.ini(selpp) $+ " is now updated ( $+ $calc(($ticks - %update.time) / 1000) seconds)
    

     

    then add to remots

     

     on *:text:*'update*:#: { msn.dogetsub }
    

     

    that should work

  16. it should be one of thease

     

    /kick $chan $nick reason

    /kick $active $nick reason

    /kick # $nick reason

    or if its supported

     

    /raw kick $chan $nick reason

    /raw kick $active $nick reason

    /raw kick # $nick reason

  17. hey fender i just submited a modified version of the msnnicklist , that iv been workign on for a long time , so hopefulyl it shoudl be up on the site soon smile.gif

     

    if nott hen just drop me a im n ill send ya the url for it

     

    heres a pic

     

    Msn-Nicklist 2.0

  18. some times mirc with theams can affect the way that the custom buttons.bmp e.t.c is hown on the mirc tool bar

     

    i found that outt he hard way for a year i couldent figure out why one of ym script had the custom scripteditor button image displaying but the other hadent , found out in the end it was asetting in the mirc.ini , dont knoww hat though as i mreged the two scripts in to one and use the mirc.ini form the script that was showing al the corrrect buttons

  19. a while a go i wore a little scritp to detect fake webtv account form real ones n remove them heres the coding

     

    on ^*:join:#: {
    if ($nick != $me) && (> isin $nick) { halt }
    if (> isin $nick) && (D21DB211 !isin $address) { raw access $chan add deny $nick $+ *! $+ $$ial($nick $+ *,1).addr 0 :Fake WebTV Account | raw kick $chan $nick :Fake WebTV Account Detected | halt }
    
    elseif (> isin $nick) && (00 isin $address) && (80 isin $address) && (D21DB211 !isin $address) { raw access $chan add deny $nick $+ *! $+ $$ial($nick $+ *,1).addr 0 :Fake WebTV Account | raw kick $chan $nick :Fake WebTV Account Detected | Halt }
    elseif (> isin $nick) && (D21DB211 isin $address) { .ctcp $nick version }
    else { halt }
     }
    
    #fakeguestkick on
    on *:CTCPREPLY:*: {
     if (> !isin $nick) { Halt }
     elseif ($1 == Version) {
       if (WebTV isin $2 )  { halt }
       elseif (WebTV !isin $2 ) { raw access $chan add deny $nick $+ *! $+ $$ial($nick $+ *,1).addr 0 :Fake WebTV Account | raw kick $chan $nick :Fake WebTV Account Detected | halt }
       elseif ($2 == $null) { raw access $chan add deny $nick $+ *! $+ $$ial($nick $+ *,1).addr 0 :Fake WebTV Account | raw kick $chan $nick :Fake WebTV Account Detected | halt }
     }
    }
    #fakeguestkick end
    

     

    hope this helps

    and let me knoww hat u think guy's lol

  20. ok managed to get the IRC8 Vers in to vincula at last

     

    it turnd out to be one little thing i was missing lol

     

    Origional Coding

     

      elseif (IRCVERS == $1) { 
        if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick) 
        sockwrite -tn msn.server.999 $1-  
      }
    

     

    Coding Modified to Send IRC8 Vers

     

      elseif (IRCVERS == $1) { 
        if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick) 
        sockwrite -tn msn.server.999 IRCVERS IRC8 MSN-OCX!9.02.0402.1601  
      }
    
    

     

    Origional Coding

     

    elseif (IRCVERS == $1) sockwrite -tn msn.look. $+ %x %read
    

     

    Coding Modified to Send IRC8 Vers

     

    elseif (IRCVERS == $1)  sockwrite -n msn.look. $+ %x IRCVERS IRC8 MSN-OCX!9.02.0402.1601 
    

     

     

    to get the script to acxcept this 100% i also had to add a lin in tot he on start part of the script to update the passport , otherwize it would return

     

    /sockrename: 'msn.server.999' socket unavailable (line 435, Vincula4.9s2.mrc)
    

     

    and also a software cause conneciton abot error message

     

  21. that what i posted erlier dont work at all it acctually crashez vincula and then returns all sorts of errors and sokunavalivle commands :|

     

    just a though has any cone coded an oxc that send irc8 rather than irc 7 ??

     

    because it looks like the way vincula was coded it connto withstand sending irc8 vers for some reaosn :S

     

    after iv added the necesayy link to the script al i get it

     

    either

     

    /sockrename: 'msn.server.999' socket unavailable (line 435, Vincula4.9s2.mrc)

     

    or at the worst the script hangs n crashez

     

  22. ahh yea i was thinking along those lines myself in reguards to the Room creation

     

    i had acctually gatherd what they ment just by looking over the coding in your connection and that of the id4 connection and i knew it was some thing to do with ircvars but just not exactelly what lol

     

    one last q on this subject

     

    to add the irc8 vars in i know i need to chage the if ($1 = ircvars)

     

    but ihave 2 of them not shure what one to change or if i should be changing both

     

     

    on *:SOCKREAD:msn.client.lm*: {
     if ($sockerr > 0) { msn.sockerr $sockname read | return }
    
     var %read, %x $right($sockname,4)
     sockread %read
     while ($sockbr > 0) {
       tokenize 32 %read
    
       if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
    
       if (AUTH == $1) {
         sockwrite -tn msn.look. $+ %x %read
         if (AUTH GateKeeper S :GKSSP* iswm $1-) {
           sockclose msn.client.* $+ %x
           window -c @Vincula $+ %x
           .remove $+(",$scriptdir,vincula,$left(%x,1),.html")
           return
         }
       }
       elseif (IRCVERS == $1) { sockwrite -tn msn.look. $+ %x %read }
       sockread %read
     }
    }
    

     

     

     

    and the other is

     

    on *:SOCKREAD:msn.client.rm: {
     if ($sockerr > 0) { msn.sockerr $sockname read | return }
    
     var %read
     sockread %read
     while ($sockbr > 0) {
       tokenize 32 %read
    
       if ($msn.ini(debug)) echo @debug $sockname $+ : $1-
    
       if (AUTH == $1) {
         if (AUTH GateKeeper* S :GKSSP* iswm $1-) {
           if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
           else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
           sockclose $sockname
           var %s $msn.ndll(select,$window(@VinculaHTML).hwnd)
           %s = $msn.ndll(navigate,about:blank)
           return
         }
         else {
           if ($msn.get(999,guest)) sockwrite -tn msn.server.999 $1-
           else sockwrite -tn msn.server.999 $1 GateKeeperPassport $3-
         }
       }
       elseif (IRCVERS == $1) { 
         if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick) 
         sockwrite -tn msn.server.999 $1-
       }
       sockread %read
     }
    }
    

     

     

    do i need ot change just one of them , both , or is there more to it than that ? ill have a go at playing around with the coding in the mean time though see what i can coem up with

     

    and thanx for the help really apreciated biggrin.gif

     

    regd

    lee

     

    Additional :

    ok so iv been playing around with the coding still no luck yet sad.gif

     

    iv changed

    elseif (IRCVERS == $1) { sockwrite -tn msn.look. $+ %x %read }
    

     

    to

     

       elseif (IRCVERS == $1) { sockwrite -tn msn.look. $+ %x IRCVERS IRC8 MSN-OCX!9.02.0309.2602 } 
    
    ( %x determins weather or not its  look.ccom or look.main )
    

     

    changed

     

       elseif (IRCVERS == $1) { 
         if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick) 
         sockwrite -tn msn.server.999 $1-
       }
    

     

    to

     

       elseif (IRCVERS == $1) { 
       if ($msn.get(999,nick)) sockwrite -tn msn.server.999 NICK $msn.get(999,nick) $lf $1 IRC8 $3- }
    }
    
    ( the sockwrite and the if $1 IRC8 $3- apper to do the same thing )
    

  23. Got What Ur Looking For Right Here ,

     

    Note : you will have to create an account to down load theasr file from Elite-Scriptaz !

     

     

    Seen Script

    You and other people can type !seen , to see what the user was last seen doing in

     

    Donwload From - Elite-Scriptaz

     

    http://www.elite-scriptaz.net/index.php?module=download&i=1082960739&s=snippets

     

    You Might also wanna take a look at this addion also

     

    Peak Script

     

    When u type !peak in any channels, it will show you the highest ammount of user seen on that channel displays date and time.

     

    Download From - Elite-Scriptaz

     

    http://www.elite-scriptaz.net/index.php?module=download&i=1083485366&s=addons

     

    regds

    Lee

×
×
  • Create New...