Profiles Onjoin — Forum

XÃ¾loziOn Historical / Guest

Jul 24, 2005 7:25 AM

#23,102

Am getting this everytime someone enters the room. As far as i know i dont have any scripts loaded that would cause that. Any ideas on how to make it stop that would be helpful..I've unchecked everything in the script and it still does that. I have no idea why buts its doing some kinda onjoin when they enter. If anyone have any suggestions it would be great . And am getting this in my MSN window after they enter also -IF($NICK Unknown command.

* flagirl985's profile has a picture, and says she is female

* Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

<BABYGIRL09816> me katica

* Pandaguy2's profile says he is male

* Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

<Katica_the_Kat> yes

* devoted2joy78 does not have a profile

* Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

Ozzy10 Aerial Photographer Member #2

Jul 24, 2005 9:39 AM

#23,105

You have a coding error , do a search for this

IF($NICK

there is no space between the IF and the ($NICK

which is why you are getting an error

just find it and put a space between them

My code does NOT have bugs. It just develops random features.

XÃ¾loziOn Historical / Guest

Jul 24, 2005 12:17 PM

#23,110

Thanks OZZY, What you told me to do got rid of the IF($NICK Unknown command

error in my MSN Window But i still get what is below. And it also is giving this onjoin

[08:38] * Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

********************************************************************

[08:39] * Nas-t-Babe's profile has a picture, and says she is female

[08:39] * Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

Edited Jul 24, 2005 12:40 PM by XÃ¾loziOn

Ozzy10 Aerial Photographer Member #2

Jul 24, 2005 1:43 PM

#23,113

it looks like its trying to kick the person for no profile

or for not enough info on the profile

is your script owner or host?

My code does NOT have bugs. It just develops random features.

XÃ¾loziOn Historical / Guest

Jul 24, 2005 2:45 PM

#23,115

Nope i'm not owner or host. I'm just joining on script and it gives that. It's a new script but i have unticked all protect's and have checked all onjoin files. I have unticked profiles in mirc options and vincula options. But yet it still gives that problem. As far as i know i have all profiles turned off. But yet they still show. And i am using this connection below. Maybe you can see something in the connection that is causing the problem that i cannot see. If you dont mind can you look through this connection and see if you see anything thats out of the ordinary for it to cause that problem. Once againg thank's for helping i see why they call you the Amazing Git now. lol

[10:50] * Joins: SÃ’Â»ads_GreyeyedLiÃŸrÃ¥ (D4ECCAEB4DA9C1A9@GateKeeperPassport): Ã¯Â®Å½Ã’Â»Ã„â€¦Ã„â€˜Ã‘â€¢_Ã„Â¢rÃ‘â€Ã—Â¥Ãâ€žÃ—Â¥Ã‘â€Ã„â€˜Ã„Â»Ã‘â€”ÃƒÅ¸Ã…â€”ÃƒÂ¥

[10:50] * SÃ’Â»ads_GreyeyedLiÃŸrÃ¥'s profile has a picture, and says she is female

[10:50] * Ã‚Â»Ã¢â‚¬Â TÃ‚ÂµÃ‚Â®ÃƒÅ¸oÃ‚Â¢haÃ‚Â®gedÃ¢â‚¬Â Ã‚Â«: you're not channel operator

----------------------------------------------------------------------------------------------

;--- Acid Connection V1.0

;--- http://www.thtom.tk

;--- Edited By Commander_Acid

;

;======================]|Credits|[===========================:

;============================================================:

;--- Modified By Commander_Acid :

;--- ENJOY ! :

;=======================]|Code|[=============================:

;============================================================:

;--- Aliases

alias msn.sockwrite {

sockwrite $1-

if ($msn.ini(debug)) echo @debug sockwrite $1-

}

alias msndebug {

if ($1 == on) { window @debug | msn.ini debug $true }

else msn.ini -r debug

}

alias msn {

if (($sock(msn.look.main) == $null) || ($sock(msn.look.comm) == $null)) {

echo $color(info2) -at * Lookup servers resetting, please wait a moment and try again

msn.lookcon

return

}

if ($msn.ini(selpp) == $null) {

if ($1 == -c) tokenize 32 -cg $2-

elseif ($1 !isin -g -cg -gc) tokenize 32 -g $1-

}

var %x $1, %y $2, %g $false, %c $false, %s, %n

if ($server == $null) %msnc.newcon = $cid

else unset %msnc.newcon

if ($1 == -g) {

if ($len($remove($2,$chr(37) $+ $chr(35))) > 198) { echo $color(info2) -at * Couldn't join the room, the name is too long (must be 200 characters or less) | return }

else {

if ((%msnc.connick) || (%msnc.noask)) %n = %msnc.connick

else %n = $msn.getnick(g)

%x = $$2

%y = $3

%g = $true

}

elseif ($1 == -c) {

if ($len($remove($2,$chr(37) $+ $chr(35))) > 198) { echo $color(info2) -at * Couldn't join the room, the name is too long (must be 200 characters or less) | return }

else {

%n = $msn.getnick(p)

%x = $$2

%y = $3

%c = $true

if (($calc($msn.ppdata($msn.ini(selpp),updated) + ($msn.ini(autouptime) * 3600)) < $ctime) && ($msn.ini(autoup))) {

%msnc.noask = $true

%msnc.connick = %n

%msnc.doconnect = msn -c $1-

msn.getpp

return

}

elseif (($1 == -cg) || ($1 == -gc)) {

if ($len($remove($2,$chr(37) $+ $chr(35))) > 198) { echo $color(info2) -at * Couldn't join the room, the name is too long (must be 200 characters or less) | return }

else {

%n = $msn.getnick(g)

%x = $$2

%y = $3

%g = $true

%c = $true

}

else {

if ($len($remove($1,$chr(37) $+ $chr(35))) > 198) { echo $color(info2) -at * Couldn't join the room, the name is too long (must be 200 characters or less) | return }

else {

if ((%msnc.connick) || (%msnc.noask)) %n = %msnc.connick

else %n = $msn.getnick(p)

if (($calc($msn.ppdata($msn.ini(selpp),updated) + ($msn.ini(autouptime) * 3600)) < $ctime) && ($msn.ini(autoup))) {

%msnc.noask = $true

%msnc.connick = %n

%msnc.doconnect = msn $1-

msn.getpp

return

}

if (?#* !iswm %x) %x = $+($chr(37),$chr(35),%x)

if ($hget(msn.999)) hfree msn.999

unset %msn*.999

unset %msnc.*

%msnc.jointime = $ticks

%msnc.looktime = $ticks

sockclose *.999

if ($server == $null) %msnc.newcon = $cid

else unset %msnc.newcon

hmake msn.999 1

if (%g) msn.set 999 guest %g

if (%n) msn.set 999 nick %n

msn.set 999 room $chr(37) $+ $chr(35) $+ $right($right(%x,-2),88)

msn.set 999 fullroom %x

msn.set 999 shortroom $left($chr(37) $+ $chr(35) $+ $right($right(%x,-2),88),60)

if (%y) msn.set 999 pass %y

msn.set 999 fname $msn.ini(font)

msn.set 999 fcolor $msn.ini(fcolor)

msn.set 999 fstyle $msn.ini(fstyle)

msn.set 999 fscriptf $msn.ini(script)

msn.set 999 fscript $gettok($msn.ini(script),$numtok($msn.ini(script),32),32)

if ($msn.ini(frand)) msn.set 999 frand $msn.ini(frand)

if ($msn.ini(decode)) msn.set 999 decode $msn.ini(decode)

if ($msn.ini(encode)) msn.set 999 encode $msn.ini(encode)

if ($msn.ini(docolor)) msn.set 999 docolor $true

if ($msn.ini(hjoin)) msn.set 999 hjoin $msn.ini(hjoin)

if ($msn.ini(hpart)) msn.set 999 hpart $msn.ini(hpart)

if ($msn.ini(hkick)) msn.set 999 hkick $msn.ini(hkick)

unset %msn*.999

sockclose msn*.999

if (%y) %msnp.qkey. [ $+ [ $right($msn.get(999,room),-2) ] ] = %y

if ((!%g) && (!%c)) msn.recent msn $right(%x,-2)

elseif ((%g) && (!%c)) msn.recent msn -g $right(%x,-2)

elseif ((!%g) && (%c)) msn.recent msn -c $right(%x,-2)

elseif ((%g) && (%c)) msn.recent msn -cg $right(%x,-2)

if (!%c) sockwrite -tn msn.look.main FINDS %x

else sockwrite -tn msn.look.comm FINDS %x

}

alias clone {

if (($sock(msn.look.main) == $null) || ($sock(msn.look.comm) == $null)) {

echo $color(info2) -at * Lookup servers resetting, please wait a moment and try again

msn.lookcon

return

}

var %x $1, %y $2, %g $false, %c $false, %s, %n

%g = $msn.get($cid,guest)

%x = $msn.get($cid,fullroom)

if ($1 == -c) {

%n = $2

%y = $3

%c = $true

if (($calc($msn.ppdata($msn.ini(selpp),updated) + ($msn.ini(autouptime) * 3600)) < $ctime) && ($msn.ini(autoup)) && (!%g)) {

%msnc.doconnect = clone $1-

msn.getpp

return

}

else {

%n = $1

%y = $2

if (($calc($msn.ppdata($msn.ini(selpp),updated) + ($msn.ini(autouptime) * 3600)) < $ctime) && ($msn.ini(autoup)) && (!%g)) {

%msnc.doconnect = clone $1-

msn.getpp

return

}

if ($hget(msn.999)) hfree msn.999

unset %msn*.999

unset %msnc.*

%msnc.jointime = $ticks

%msnc.looktime = $ticks

sockclose *.999

hmake msn.999 1

if (%g) msn.set 999 guest %g

if (%n) msn.set 999 nick %n

msn.set 999 room $chr(37) $+ $chr(35) $+ $right($right(%x,-2),88)

msn.set 999 fullroom %x

msn.set 999 shortroom $left($chr(37) $+ $chr(35) $+ $right($right(%x,-2),88),60)

if (%y) msn.set 999 pass %y

msn.set 999 fname $msn.ini(font)

msn.set 999 fcolor $msn.ini(fcolor)

msn.set 999 fstyle $msn.ini(fstyle)

msn.set 999 fscriptf $msn.ini(script)

msn.set 999 fscript $gettok($msn.ini(script),$numtok($msn.ini(script),32),32)

if ($msn.ini(frand)) msn.set 999 frand $msn.ini(frand)

if ($msn.ini(decode)) msn.set 999 decode $msn.ini(decode)

if ($msn.ini(encode)) msn.set 999 encode $msn.ini(encode)

if ($msn.ini(hjoin)) msn.set 999 hjoin $msn.ini(hjoin)

if ($msn.ini(hpart)) msn.set 999 hpart $msn.ini(hpart)

if ($msn.ini(hkick)) msn.set 999 hkick $msn.ini(hkick)

disconnect

%msnc.newcon = $cid

if (%y) %msnp.qkey. [ $+ [ $right($msn.get(999,room),-2) ] ] = %y

if (!%c) sockwrite -tn msn.look.main FINDS %x

else sockwrite -tn msn.look.comm FINDS %x

}

; msn.ipjoin $cid roomip $me $msn.get(%s,fullroom)

alias msn.ipjoin {

if ($4) var %c = $1, %ip = $2, %n = $3, %g, %x = $$4

else var %ip = $1, %n = $2, %g, %x = $$3

if (>* iswm %n) %g = $true

if ($hget(msn.999)) hfree msn.999

unset %msn*.999

unset %msnc.*

%msnc.jointime = $ticks

sockclose *.999

hmake msn.999 1

if (%g) msn.set 999 guest %g

if (%n) msn.set 999 nick %n

msn.set 999 room $chr(37) $+ $chr(35) $+ $right($right(%x,-2),88)

msn.set 999 fullroom %x

msn.set 999 shortroom $left($chr(37) $+ $chr(35) $+ $right($right(%x,-2),88),60)

if (%y) msn.set 999 pass %y

msn.set 999 fname $msn.ini(font)

msn.set 999 fcolor $msn.ini(fcolor)

msn.set 999 fstyle $msn.ini(fstyle)

msn.set 999 fscriptf $msn.ini(script)

msn.set 999 fscript $gettok($msn.ini(script),$numtok($msn.ini(script),32),32)

if ($msn.ini(frand)) msn.set 999 frand $msn.ini(frand)

if ($msn.ini(decode)) msn.set 999 decode $msn.ini(decode)

if ($msn.ini(encode)) msn.set 999 encode $msn.ini(encode)

if ($msn.ini(docolor)) msn.set 999 docolor $true

if ($msn.ini(hjoin)) msn.set 999 hjoin $msn.ini(hjoin)

if ($msn.ini(hpart)) msn.set 999 hpart $msn.ini(hpart)

if ($msn.ini(hkick)) msn.set 999 hkick $msn.ini(hkick)

unset %msn*.999

sockclose msn*.999

if (%c) %msnc.newcon = %c

else unset %msnc.newcon

socklisten msn.mirc.in $rand(10000,30000)

if (%msnc.newcon) scid %msnc.newcon server 127.0.0.1 $sock(msn.mirc.in).port

else server -m 127.0.0.1 $sock(msn.mirc.in).port

sockopen msn.server.999 %ip 6667

var %port = $rand(2000,9000)

while (!$portfree(%port)) inc %port

socklisten msn.client.rmc %port

}

alias join {

if ((!$server) || (($msn.get($cid,fullroom) != $1) && ($sock(msn.server. $+ $cid)))) msn $1-

else join $1-

}

alias joinhex {

if (($1 == -g) || ($1 == -c) || ($1 == -cg) || ($1 == -gc)) msn $1 $msn.unhex($2) $3

else msn $msn.unhex($1) $2

}

alias joins {

if ($msn.decode($1-) == $1-) tokenize 32 $msn.encode($1-)

if ($1 == -k) msn $replace($3-,$chr(32),\ $2

elseif (($1 == -g) || ($1 == -c) || ($1 == -cg) || ($1 == -gc)) msn $1 $replace($2-,$chr(32),\b,$chr(44),\c)

elseif (($1 == -gk) || ($1 == -kg)) msn -c $replace($3-,$chr(32),\b,$chr(44),\c) $2

elseif (($1 == -ck) || ($1 == -kc)) msn -c $replace($3-,$chr(32),\b,$chr(44),\c) $2

elseif ((-??? iswm $1) && (c isin $1) && (g isin $1) && (k isin $1)) msn -cg $replace($3-,$chr(32),\b,$chr(44),\c) $2

else msn $replace($1-,$chr(32),\b,$chr(44),\c)

}

alias joinurl {

if (($1 == -g) || ($1 == -c) || ($1 == -cg) || ($1 == -gc)) {

var %x = $replace($msn.urldecode($2-),$chr(32),\

if (rhx= isin $gettok(%x,2-,63)) joinhex $1 $remove($wildtok($gettok(%x,2-,63),rhx=*,1,38),rhx=) $3

elseif (rm= isin $gettok(%x,2-,63)) msn $1 $remove($wildtok($gettok(%x,2-,63),rm=*,1,38),rm=) $3

else echo $color(info) -ta * Couldn't find a room name in the URL

}

else {

var %x = $replace($msn.urldecode($1-),$chr(32),\

if ($isid) {

if (rhx= isin $gettok(%x,2-,63)) return $remove($wildtok($gettok(%x,2-,63),rhx=*,1,38),rhx=)

elseif (rm= isin $gettok(%x,2-,63)) return $msn.tohex($remove($wildtok($gettok(%x,2-,63),rm=*,1,38),rm=))

}

else {

if (rhx= isin $gettok(%x,2-,63)) joinhex $remove($wildtok($gettok(%x,2-,63),rhx=*,1,38),rhx=) $2

elseif (rm= isin $gettok(%x,2-,63)) msn $remove($wildtok($gettok(%x,2-,63),rm=*,1,38),rm=) $2

else echo $color(info) -ta * Couldn't find a room name in the URL

}

alias hop {

if ($window($msn.get($cid,room))) sockwrite -tn msn.server. $+ $cid PART $msn.get($cid,fullroom)

if ($msn.ini(usepass)) var %p = $msn.roompass($msn.get($cid,room))

sockwrite -tn msn.server. $+ $cid JOIN $msn.get($cid,fullroom) %p

}

alias find {

if (!$1) dialog -m msn.faf msn.faf

else {

%msnc.findnick = $1-

sockwrite -tn msn.look.main FINDU $1-

}

alias msndecode {

if ($1 == on) msn.set $cid decode $true

else msn.unset $cid decode

echo $color(info2) -ta * MSN Decode is now $iif($msn.get($cid,decode),on,off)

}

alias msnencode {

if ($1 == on) msn.set $cid encode $true

else msn.unset $cid encode

echo $color(info2) -ta * MSN Encode is now $iif($msn.get($cid,encode),on,off)

}

alias msncolor {

if ($1 == on) msn.set $cid docolor $true

else msn.unset $cid docolor

echo $color(info2) -ta * MSN Colorizing is now $iif($msn.get($cid,docolor),on,off)

}

alias msncolour msncolor $1-

alias msn.recent {

if ($isid) {

if ($2 == 1) {

if (-g == $gettok(%msnr. [ $+ [ $1 ] ] ,2,32)) {

if ($len($gettok(%msnr. [ $+ [ $1 ] ] ,3,32)) > 60) return $chr(160) $+ ... $+ $right($gettok(%msnr. [ $+ [ $1 ] ] ,3,32),60) (guest)

else return $$gettok(%msnr. [ $+ [ $1 ] ] ,3,32) (guest)

}

elseif (-c == $gettok(%msnr. [ $+ [ $1 ] ] ,2,32)) {

if ($len($gettok(%msnr. [ $+ [ $1 ] ] ,3,32)) > 60) return $chr(160) $+ ... $+ $right($gettok(%msnr. [ $+ [ $1 ] ] ,3,32),60) (groups)

else return $$gettok(%msnr. [ $+ [ $1 ] ] ,3,32) (groups)

}

elseif ((-cg == $gettok(%msnr. [ $+ [ $1 ] ] ,2,32)) || (-gc == $gettok(%msnr. [ $+ [ $1 ] ] ,2,32))) {

if ($len($gettok(%msnr. [ $+ [ $1 ] ] ,3,32)) > 60) return $chr(160) $+ ... $+ $right($gettok(%msnr. [ $+ [ $1 ] ] ,3,32),60) (groups, guest)

else return $$gettok(%msnr. [ $+ [ $1 ] ] ,3,32) (groups, guest)

}

else {

if ($len($gettok(%msnr. [ $+ [ $1 ] ] ,2,32)) > 60) return $chr(160) $+ ... $+ $right($gettok(%msnr. [ $+ [ $1 ] ] ,2,32),60) (normal)

else return $$gettok(%msnr. [ $+ [ $1 ] ] ,2,32) (normal)

}

else return %msnr. [ $+ [ $1 ] ]

}

else {

var %l 1, %i 9, %o 10

while (%l <= 10) {

if (%msnr. [ $+ [ %l ] ] == $1-) {

%i = $calc(%l - 1)

%o = %l

}

inc %l

}

while (%i >= 1) {

%msnr. [ $+ [ %o ] ] = %msnr. [ $+ [ %i ] ]

dec %i

dec %o

}

%msnr.1 = $1-

}

alias msn.set {

if (msn.*.* iswm $1) hadd msn. $+ $gettok($$1,3,46) $$2-

else hadd msn. $+ $$1 $$2-

}

alias msn.unset {

if (msn.*.* iswm $1) hdel msn. $+ $gettok($$1,3,46) $$2

else hdel msn. $+ $$1 $$2

}

alias msn.clear {

if ((msn.*.* iswm $1) && ($hget(msn. $+ $gettok($1,3,46)))) hfree msn. $+ $gettok($1,3,46)

elseif ($hget(msn. $+ $1)) hfree msn. $+ $$1

}

alias msn.ren {

if ($hget(msn.999) != $null) {

var %old, %new, %l 1

if (msn.*.* iswm $1) %old = $gettok($1,3,46)

else %old = $1

if (msn.*.* iswm $2) %new = $gettok($2,3,46)

else %new = $2

if ($hget(msn. $+ %new)) hfree msn. $+ %new

hsave -o msn. $+ %old temp $+ %old $+ .txt

hmake msn. $+ %new 1

hload msn. $+ %new temp $+ %old $+ .txt

hfree msn. $+ %old

.remove temp $+ %old $+ .txt

sockrename msn.server. $+ %old msn.server. $+ %new

sockrename msn.mirc. $+ %old msn.mirc. $+ %new

scid %new .timer.noop. $+ %new -o 0 100 msn.noop %new

}

alias msn.noop {

if (($scid($1)) && ($sock(msn.server. $+ $1))) sockwrite -tn msn.server. $+ $1 NOOP

else .timer.noop. $+ $1 off

}

alias msn.getrend {

%msnpp.lourl = http://chat.msn.com/renderChat.msnw?did=1&t= $+ %msnpp.ticket $+ &p= $+ %msnpp.profile

if ($window(@VinculaPPU)) window -c @VinculaPPU

window -p @VinculaPPU

var %s = $msn.ndll(attach,$window(@VinculaPPU).hwnd)

%s = $msn.ndll(navigate,%msnpp.lourl)

}

alias msn.getrole {

%test = $$?="Group Name"

%msnpp.lourl = http://groups.msn.com/ $+ %test $+ /Chat.msnw?did=1&t= $+ %msnpp.ticket $+ &p= $+ %msnpp.profile

if ($window(@VinculaPPU)) window -c @VinculaPPU

window -p @VinculaPPU

var %s = $msn.ndll(attach,$window(@VinculaPPU).hwnd)

%s = $msn.ndll(navigate,%msnpp.lourl)

}

alias msn.geturl {

if ($chr(37) $+ $chr(35) $+ * !iswm $1-) {

if ($1 == h) var %x http://chat.msn.com/chatroom.msnw?rhx= $+ $msn.tohex($msn.get($cid,fullroom))

else var %x http://chat.msn.com/chatroom.msnw?rm= $+ $right($msn.get($cid,fullroom),-2)

}

else {

if ($2 == h) var %x http://chat.msn.com/chatroom.msnw?rhx= $+ $msn.tohex($1)

else var %x http://chat.msn.com/chatroom.msnw?rm= $+ $right($1,-2)

}

var %x = $replace(%x,\b,$chr(37) $+ 20)

if ($isid) return %x

echo $color(info2) -t * Room URL: %x

clipboard %x

}

alias msn.getpass {

var %o Owner key is unknown, %h Host key is unknown

if ($msn.ownerkey($1)) %o = Owner: $msn.ownerkey($1)

if ($msn.hostkey($1)) %h = Host: $msn.hostkey($1)

echo $color(info2) -t $1 * Last stored keys: %o / %h

}

alias pass {

if ($1) mode $me +h $1-

else mode $me +h $$input(Enter a password:,130,Password Entry)

}

alias msn.enchash {

var %in â‚¬ â€š Æ’ â€ž â€¦ â€ â€¡ Ë† â€° Å â€¹ Å’ Å½ â€˜ â€™ â€œ â€ â€¢ â€“ â€” Ëœ â„¢ Å¡ â€º Å“ Å¾ Å¸ Â Â¡ Â¢ Â£ Â¤ Â¥ Â¦ Â§ Â¨ Â© Âª Â« Â¬ Â Â® Â¯ Â° Â± Â² Â³ Â´ Âµ Â¶ Â· Â¸ Â¹ Âº Â» Â¼ Â½ Â¾ Â¿ Ã€ Ã Ã‚ Ãƒ Ã„ Ã… Ã† Ã‡ Ãˆ Ã‰ ÃŠ Ã‹ ÃŒ Ã ÃŽ Ã Ã Ã‘ Ã’ Ã“ Ã” Ã• Ã– Ã— Ã˜ Ã™ Ãš Ã› Ãœ Ã Ãž ÃŸ Ã Ã¡ Ã¢ Ã£ Ã¤ Ã¥ Ã¦ Ã§ Ã¨ Ã© Ãª Ã« Ã¬ Ã Ã® Ã¯ Ã° Ã± Ã² Ã³ Ã´ Ãµ Ã¶ Ã· Ã¸ Ã¹ Ãº Ã» Ã¼ Ã½ Ã¾ Ã¿

var %out Ã¢â€šÂ¬ Ã¢â‚¬Å¡ Ã†â€™ Ã¢â‚¬Å¾ Ã¢â‚¬Â¦ Ã¢â‚¬Â Ã¢â‚¬Â¡ Ã‹â€ Ã¢â‚¬Â° Ã…Â Ã¢â‚¬Â¹ Ã…â€™ Ã…Â½ Ã¢â‚¬Ëœ Ã¢â‚¬â„¢ Ã¢â‚¬Å“ Ã¢â‚¬? Ã¢â‚¬Â¢ Ã¢â‚¬â€œ Ã¢â‚¬â€ Ã‹Å“ Ã¢â€žÂ¢ Ã…Â¡ Ã¢â‚¬Âº Ã…â€œ Ã…Â¾ Ã…Â¸ Ã‚Â Ã‚Â¡ Ã‚Â¢ Ã‚Â£ Ã‚Â¤ Ã‚Â¥ Ã‚Â¦ Ã‚Â§ Ã‚Â¨ Ã‚Â© Ã‚Âª Ã‚Â« Ã‚Â¬ Ã‚Â Ã‚Â® Ã‚Â¯ Ã‚Â° Ã‚Â± Ã‚Â² Ã‚Â³ Ã‚Â´ Ã‚Âµ Ã‚Â¶ Ã‚Â· Ã‚Â¸ Ã‚Â¹ Ã‚Âº Ã‚Â» Ã‚Â¼ Ã‚Â½ Ã‚Â¾ Ã‚Â¿ Ãƒâ‚¬ Ãƒ? Ãƒâ€š ÃƒÆ’ Ãƒâ€ž Ãƒâ€¦ Ãƒâ€ Ãƒâ€¡ ÃƒË† Ãƒâ€° ÃƒÅ Ãƒâ€¹ ÃƒÅ’ Ãƒ? ÃƒÅ½ Ãƒ? Ãƒ? Ãƒâ€˜ Ãƒâ€™ Ãƒâ€œ Ãƒâ€ Ãƒâ€¢ Ãƒâ€“ Ãƒâ€” ÃƒËœ Ãƒâ„¢ ÃƒÅ¡ Ãƒâ€º ÃƒÅ“ Ãƒ? ÃƒÅ¾ ÃƒÅ¸ ÃƒÂ ÃƒÂ¡ ÃƒÂ¢ ÃƒÂ£ ÃƒÂ¤ ÃƒÂ¥ ÃƒÂ¦ ÃƒÂ§ ÃƒÂ¨ ÃƒÂ© ÃƒÂª ÃƒÂ« ÃƒÂ¬ ÃƒÂ ÃƒÂ® ÃƒÂ¯ ÃƒÂ° ÃƒÂ± ÃƒÂ² ÃƒÂ³ ÃƒÂ´ ÃƒÂµ ÃƒÂ¶ ÃƒÂ· ÃƒÂ¸ ÃƒÂ¹ ÃƒÂº ÃƒÂ» ÃƒÂ¼ ÃƒÂ½ ÃƒÂ¾ ÃƒÂ¿

var %l 1

if ($hget(msn.enc)) hfree msn.enc

hmake msn.enc 13

while (%l <= 123) {

hadd msn.enc $gettok(%in,%l,32) $gettok(%out,%l,32)

inc %l

}

alias msn.vver return 4.9p Edited.

alias msn.getpp {

if ($timer(.msn.agpp) >= 1) {

echo $color(info2) -atq * Please wait until the Passport Updater is finished before trying to update again

return

}

if ($msn.ini(selpp) == $null) {

echo $color(info2) -atq * You must have a passport selected in order to update it!

return

}

var %p

if (%msnpp.passwd == $null) %p = $$input(Please enter the password for the %msnpp.email passport:,130,Enter Password)

else %p = %msnpp.passwd

if ($show) msn.dogetpp $msn.ini(selpp) %msnpp.email %p

else .msn.dogetpp $msn.ini(selpp) %msnpp.email %p

}

alias msnchat.update msn.getpp

alias msn.update {

if ($1- == $null) msn.getpp

else {

var %n, %e, %p

if ($1 == -p) {

%n = $replace($gettok($2-,1- $+ $calc($numtok($2-,32) - 1),32),$chr(32),$chr(160))

%p = $gettok($2-,$numtok($2-,32),32)

}

else {

%n = $replace($1-,$chr(32),$chr(160))

if ($msn.ppdata(%n,passwd) == $null) %p = $$input(Please enter the password for the %e passport:,130,Enter Password)

else %p = $msn.ppdata(%n,passwd)

}

%e = $msn.ppdata(%n,email)

if (%e == $null) {

echo $color(info2) -at * Can't update because Vincula doesn't know the " $+ %n $+ " passport

return

}

msn.dogetpp %n %e %p

}

;msn.dogetpp passport email password

alias msn.dogetpp {

%msnpp.lotime = $ticks

%msnpp.loupdate = $1

%msnpp.lourl = https://loginnet.passport.com/ppsecure/post...TheLobby&login= $+ $replace($2,@,$chr(37) $+ 40) $+ &passwd= $+ $3

echo $color(info2) -atq * Updating the " $+ %msnpp.loupdate $+ " passport, please wait...

if ($window(@VinculaPPU)) window -c @VinculaPPU

window -ph @VinculaPPU

var %s $msn.ndll(attach,$window(@VinculaPPU).hwnd)

%s = $msn.ndll(handler,msn.hnd.getpp)

;if ($findfile($msn.registry(HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\\Cookies),*passport*.txt,1)) %s = $msn.ndll(navigate,%msnpp.lourl)

;elseif ($findfile($msn.registry(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\\Directory),*passport*.txt,1))

;%s = $msn.ndll(navigate,http://login.passport.com/login.srf)

%s = $msn.ndll(navigate,%msnpp.lourl)

}

alias msn.doconnect %msnc.doconnect

alias msn.hnd.getpp {

var %s

if (($2 == status_change) && (Start*https://*silent.srf* iswm $3-)) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

elseif (navigate_begin == $2) {

if ($msn.ini(ppinfo) iswm $3-) {

var %pt $right($wildtok($3,t=*,1,38),-2), %pp $right($wildtok($3,p=*,1,38),-2), %pus $right($wildtok($3,u=*,1,38),-2)

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate ticket %pt

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate profile %pp

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate updated $ctime

if (%msnpp.loupdate == $msn.ini(selpp)) {

%msnpp.ticket = %pt

%msnpp.profile = %pp

}

echo $color(info2) -at * Passport info for " $+ %msnpp.loupdate $+ " is now updated ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds)

unset %msnpp.loupdate

unset %msnpp.lotime

unset %msnpp.lourl

%s = $msn.ndll(navigate,http://login.passport.com/logout.srf?id=2260)

.timer 1 1 msn.doconnect

return S_CANCEL

}

elseif ($msn.ini(errcod) iswm $3-) {

var %r

.timer 1 0 window -c @VinculaPPU

if (http://*ec=e5a*'>http://*ec=e5a* iswm $3) %r = you gave the wrong password

elseif (http://*ec=e5b*'>http://*ec=e5b* iswm $3) %r = the e-mail address is not registered as a passport

elseif (http://*ec=e5d*'>http://*ec=e5d* iswm $3) %r = the e-mail address is invalid

elseif (http://*ec=e5e*'>http://*ec=e5e* iswm $3) %r = it's missing part of the e-mail

elseif (http://*ec=e1*'>http://*ec=e1* iswm $3) %r = you didn't give the whole e-mail or password

elseif (http://*ec=e2*'>http://*ec=e2* iswm $3) %r = you didn't give the e-mail address for passport

elseif (http://*ec=e3*'>http://*ec=e3* iswm $3) %r = you didn't give the password for the passport

else %r = of a reason unknown to Vincula

echo $color(info2) -at * Passport update for " $+ %msnpp.loupdate $+ " failed because %r ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds)

unset %msnpp.loupdate

unset %msnpp.lotime

unset %msnc.*

return S_CANCEL

}

elseif ($msn.ini(switch) iswm $3-) {

%s = $msn.ndll(navigate,http://login.passport.com/logout.srf?id=486)

return S_CANCEL

}

elseif ($msn.ini(cookie) iswm $3-) {

%s = $msn.ndll(navigate,http://login.passport.com/login.srf)

return S_CANCEL

}

elseif ($msn.ini(login1) iswm $3-) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

elseif ($msn.ini(lgout3) iswm $3-) {

.timer 1 0 window -c @VinculaPPU

return S_CANCEL

}

elseif (navigate_complete == $2) {

if ($msn.ini(lgout1) iswm $3) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

return S_OK

}

alias msn.mgetpp {

if ($timer(.msn.agpp) >= 1) {

echo $color(info2) -at * Please wait until the Passport Updater is finished before trying to update again

return

}

if ($msn.ini(selpp) == $null) {

echo $color(info2) -at * You must have a passport selected in order to update it!

return

}

%msnpp.loupdate = $msn.ini(selpp)

msn.doppupdate " $+ $$sfile($scriptdir $+ *.*,Choose a file that contains your passport information) $+ "

}

alias msn.doppupdate {

var %f = $1-, %sp, %ep, %uc, %ut, %up, %p 1

bread -t %f %p 2000 &r

while ($bfind(&r,1,MSNREGCookie) == 0) {

inc %p $calc($bvar(&r,0) + 2)

bread -t %f %p 2000 &r

if (%p > $file(%f).size) goto notfound

}

%sp = $calc($bfind(&r,1,MSNREGCookie) + 22)

%ep = $calc($bfind(&r,%sp,34) - %sp)

%uc = $bvar(&r,%sp,%ep).text

%sp = $calc($bfind(&r,1,PassportTicket) + 23)

%ep = $calc($bfind(&r,%sp,34) - %sp)

%ut = $bvar(&r,%sp,%ep).text

%sp = $calc($bfind(&r,1,PassportProfile) + 24)

%ep = $calc($bfind(&r,%sp,34) - %sp)

%up = $bvar(&r,%sp,%ep).text

if ((%uc != $null) && (%ut != $null) && (%up != $null)) { goto found }

:notfound

echo $color(info2) -at * Passport information was not found or was incomplete in the file $nopath(%f) $+ !

return

:found

if (%msnpp.loupdate == $msn.ini(selpp)) {

%msnpp.cookie = %uc

%msnpp.ticket = %ut

%msnpp.profile = %up

}

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate cookie %uc

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate ticket %ut

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate profile %up

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate updated $ctime

echo $color(info2) -at * Passport information was found in the file $nopath(%f)

unset %msnpp.lo*

}

alias msn.getcookie {

if ($timer(.msn.agpp) >= 1) {

echo $color(info2) -atq * Please wait until the Passport Updater is finished before trying to update again

return

}

if ($msn.ini(selpp) == $null) {

echo $color(info2) -atq * You must have a passport selected in order to update it!

return

}

var %p

if (%msnpp.passwd == $null) %p = $$input(Please enter the password for the %msnpp.email passport:,130,Enter Password)

else %p = %msnpp.passwd

if ($show) msn.dogetcookie $msn.ini(selpp) %msnpp.email %p

else .msn.dogetcookie $msn.ini(selpp) %msnpp.email %p

}

alias msn.getcookie {

if ($timer(.msn.agpp) >= 1) {

echo $color(info2) -atq * Please wait until the Passport Updater is finished before trying to update again

return

}

if ($msn.ini(selpp) == $null) {

echo $color(info2) -atq * You must have a passport selected in order to update it!

return

}

var %p

if (%msnpp.passwd == $null) %p = $$input(Please enter the password for the %msnpp.email passport:,130,Enter Password)

else %p = %msnpp.passwd

if ($show) msn.dogetcookie $msn.ini(selpp) %msnpp.email %p

else .msn.dogetcookie $msn.ini(selpp) %msnpp.email %p

}

alias msn.dogetcookie {

%msnpp.lotime = $ticks

%msnpp.loupdate = $1

%msnpp.lourl = https://loginnet.passport.com/ppsecure/post...TheLobby&login= $+ $replace($2,@,$chr(37) $+ 40) $+ &passwd= $+ $3

;link format:https://loginnet.passport.com/ppsecure/post.srf?id=2260&ru=http%3A%2F%2Fchat%2Emsn%2Ecom%2Fchatroom%2Emsnw%3Frm%3DTheLobby&login=diamondscripting%40msn.com&passwd=ganjaland

%msnpp.lorend = http://chat.msn.com/RenderChat.msnw?did=1&t= $+ %msnpp.ticket $+ &p= $+ %msnpp.profile

echo $color(info2) -atq * Updating the " $+ %msnpp.loupdate $+ " passport, please wait...

;var %s = $findfile($msn.registry(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\\Directory),*chatroom_ui*.msnw*,0,.remove " $+ $1- $+ ")

%msnpp.lofiletime = $ctime

if ($window(@VinculaPPU)) window -c @VinculaPPU

window -ph @VinculaPPU

var %s = $msn.ndll(attach,$window(@VinculaPPU).hwnd)

%s = $msn.ndll(handler,msn.hnd.cookie)

%s = $msn.ndll(navigate,%msnpp.lourl)

}

alias msn.hnd.cookie {

var %s

if ($2 == status_change) {

if (Start*https://*silent.srf* iswm $3-) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

elseif (navigate_begin == $2) {

if ($msn.ini(errcod) iswm $3-) {

var %r

.timer 1 0 window -c @VinculaPPU

if (http://*ec=e5a* iswm $3) %r = you gave the wrong password

elseif (http://*ec=e5b* iswm $3) %r = the e-mail address is not registered as a passport

elseif (http://*ec=e5d* iswm $3) %r = the e-mail address is invalid

elseif (http://*ec=e5e* iswm $3) %r = it's missing part of the e-mail

elseif (http://*ec=e1* iswm $3) %r = you didn't give the whole e-mail or password

elseif (http://*ec=e2* iswm $3) %r = you didn't give the e-mail address for passport

elseif (http://*ec=e3* iswm $3) %r = you didn't give the password for the passport

else %r = of a reason unknown to Vincula

echo $color(info2) -at * Passport update for " $+ %msnpp.loupdate $+ " failed because %r ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds)

unset %msnpp.loupdate

unset %msnpp.lotime

unset %msnc.*

return S_CANCEL

}

elseif ($msn.ini(switch) iswm $3-) {

%s = $msn.ndll(navigate,http://login.passport.com/logout.srf?id=486)

return S_CANCEL

}

elseif ($msn.ini(cookie) iswm $3-) {

;link format:http://login.passport.net/UICookiesDisabled.srf?id=2260&ru=http://chat.msn.com/RenderChat.msnw

%s = $msn.ndll(navigate,http://login.passport.com/login.srf)

return S_CANCEL

}

elseif ($msn.ini(login1) iswm $3-) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

elseif ($msn.ini(lgout3) iswm $3-) {

.timer 1 0 window -c @VinculaPPU

return S_CANCEL

}

elseif (navigate_complete == $2) {

if ($msn.ini(lgout1) iswm $3) {

%s = $msn.ndll(navigate,%msnpp.lourl)

return S_CANCEL

}

elseif (document_complete == $2) {

if ($msn.ini(chatui) iswm $3-) {

;var %f = $findfile($msn.registry(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\\Directory),*chatroom_ui*.msnw*,1)

var %f = $findfile($msn.registry(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Paths\\Directory),*chatroom_ui*.msnw*,0,.msn.cookie.file " $+ $1- $+ ")

if (%msnpp.locookiefile) {

.copy -o %msnpp.locookiefile $+(",$scriptdir,pptemp.dat")

%s = $msn.ndll(navigate,http://login.passport.com/logout.srf?id=2260)

.timer 1 0 msn.cookieupdate

return S_CANCEL

}

return S_OK

}

alias msn.cookie.file {

if (%msnpp.lofiletime < $file($1-).mtime) {

%msnpp.lofiletime = $file($1-).mtime

%msnpp.locookiefile = $1-

}

alias msn.cookieupdate {

var %f = $+(",$scriptdir,pptemp.dat"), %ep, %sp, %Xml, %us, %p 1, %line 5

%Xml = >RenderChat(

bread -t %f %p 2000 &r

while ($bfind(&r,1, %Xml) == 0) {

inc %line

inc %p $calc($bvar(&r,0) + 2)

bread -t %f %p 2000 &r

if (%p > $file(%f).size) goto notfound

}

%us = $gettok($read(%f,%line),10,39)

if ((%us != $null)) { goto found }

:notfound

echo $color(info2) -at * Passport update failed

return

:found

if (%msnpp.loupdate == $msn.ini(selpp)) {

%msnpp.cookie = %us

}

writeini $+(",$scriptdir,vpassport.dat") %msnpp.loupdate cookie %us

echo $color(info2) -at * Passport info for " $+ %msnpp.loupdate $+ " is now updated ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds)

unset %msnpp.lo*

.remove " $+ $scriptdir $+ pptemp.dat"

}

alias msn.loadpp {

tokenize 32 $replace($1-,$chr(32),$chr(160))

if ($msn.ppdata($$1,showprof) == $null) {

echo $color(info2) -atq * Couldn't load the passport named " $+ $1 $+ "

return

}

msn.ini selpp $1

%msnpp.nick = $msn.ppdata($1,nick)

%msnpp.email = $msn.ppdata($1,email)

%msnpp.passwd = $msn.ppdata($1,passwd)

%msnpp.cookie = $msn.ppdata($1,cookie)

%msnpp.ticket = $msn.ppdata($1,ticket)

%msnpp.profile = $msn.ppdata($1,profile)

%msnpp.showprof = $msn.ppdata($1,showprof)

%msnpp.SubscriberInfo = $msn.ppdata($1,SubscriberInfo)

%msnpp.UserRole = $msn.ppdata($1,UserRole)

echo $color(info2) -atq * Now using the " $+ $1 $+ " passport

}

alias msn.roomexists {

var %x %msnc.making

msn.clear 999

unset %msnc.*

if ($input(The room %x already exists $+ $chr(44) do you want to join the room?,136,Join Existing Room)) msn %x

}

alias msn.msnocx run regsvr32 /s $+(",$msn.registry(HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ActiveX Cache\\0),\MSNChat45.ocx")

alias msn.hackocx run regsvr32 /s $+(",$scriptdir,msnchatx.ocx")

alias msn.resetocx msn.hackocx | .timer 1 5 msn.msnocx

;--- Local Aliases

alias msn.sockerr {

if (msn.look.* iswm $1) {

.timer $+ $1 off

window -c @Vincula $+ $gettok($1,3,46)

.timer 1 1 msn.lookcon

}

else scid $activecid echo $color(kick) -at * Socket $2 error in $1 $+ : $sock($1).wsmsg

}

alias msn.setaways {

scid $1

var %aa 1, %fline

while ($hget(msn.setaways,%aa) != $null) {

if (-r * iswm $hget(msn.setaways,%aa)) {

%fline = $fline($msn.get($1,room),$right($hget(msn.setaways,%aa),-3),1,1)

if (%fline != $null) cline -lr $msn.get($1,room) %fline

}

else {

%fline = $fline($msn.get($1,room),$hget(msn.setaways,%aa),1,1)

if (%fline != $null) cline -l $color(gray) $msn.get($1,room) %fline

}

inc %aa

}

if ($hget(msn.setaways)) hfree msn.setaways

scid -r

}

alias msn.donav {

var %s, %x = $$1, %p = $$2

var %r = about:

%r = %r $+ <object id="ChatFrame" classid="CLSID:ECCDBA05-B58F-4509-AE26-CF47B2FFC3FE" width="100%">

%r = %r $+ <param name="RoomName" value="Vincula"><param name="NickName" value="Vincula"><param name="Server" $+(value=",$$3,:,%p,">) $+ </object>

if (!$window(%x)) {

window -ph %x

%s = $msn.ndll(attach,$window(%x).hwnd)

}

%s = $msn.ndll(select,$window(%x).hwnd)

%s = $msn.ndll(navigate,%r)

}

alias -l msn.chklst.join scid $2 | if ($1 !ison $msn.get($2,room)) names $msn.get($2,room) | scid -r

alias -l msn.chklst.part scid $2 | if ($1 ison $msn.get($2,room)) names $msn.get($2,room) | scid -r

;--- Identifiers

alias msn.ndll return $dll($scriptdir $+ nHTMLn_2.92.dll,$$1,$2)

alias msn.ini {

if ($isid) return $readini($scriptdir $+ vincula.ini,n,main,$$1)

else {

if ($1 == -r) remini " $+ $scriptdir $+ vincula.ini" main $$2

else {

if ($2 == $null) remini " $+ $scriptdir $+ vincula.ini" main $$1

else writeini " $+ $scriptdir $+ vincula.ini" main $$1 $2-

}

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

;This identifier was obtained from the mircscripts.org Snippets section.

;Very big thank you to Techster, who submitted it. Dude, you saved me alot

;of time!

;URL: http://www.mircscripts.org/comments.php?id=1225

alias msn.urldecode {

var %decode = $replace($eval($1-,1), +, $eval(%20,0))

while ($regex($eval(%decode,1), /\%([a-fA-F0-9]{2})/)) var %t = $regsub($eval(%decode,1), /\%([a-fA-F0-9]{2})/, $chr($base($regml(1),16,10)), %decode)

return $replace(%decode, $eval(%20,0), +)

}

; $msn.registry(<Key>\\<Value>)

alias msn.registry return $dll($scriptdir $+ registry.dll,GetKeyValue,$1)

alias msn.ud1 return $msn.registry(HKEY_CURRENT_USER\Software\Microsoft\MSNChat\4.0\\UserData1)

alias msn.decode {

var %r, %l 1

%r = $replacecs($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 = $replacecs(%r,Ã˜Â§,I,ÃŽÂ®,n,Ã…â€ ,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,Ã…Â¦,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,Ã‹Å“,Ëœ,ÃƒÅ½,ÃŽ,ÃƒÅ ,ÃŠ,Ãƒ?,Ã,Ãƒ?,Ã,Ãƒâ€°,Ã‰,Ã¢â‚¬Â¡,â€¡,ÃƒÅ’,ÃŒ,Ã‚Âª,Âª,ÃƒÂ³,Ã³,Ã¢â€žÂ¢,â„¢,Ãƒâ€™,Ã’,ÃƒÂ,Ã,Ã‚Â¿,Â¿,Ãƒâ€ž,Ã„,Ã‚Â¶,Â¶,ÃƒÂ¼,Ã¼,Ã†â€™,Æ’,ÃƒÂ°,Ã°,ÃƒÂ²,Ã²,ÃƒÂµ,Ãµ,Ã‚Â¡,Â¡,ÃƒÂ©,Ã©,ÃƒÅ¸,ÃŸ,Ã‚Â¤,Â¤,Ãƒâ€”,Ã—,ÃƒÂ´,Ã´,Ã…Â ,Å ,ÃƒÂ¸,Ã¸,Ã¢â‚¬Âº,â€º,ÃƒÂ¢,Ã¢,ÃƒÂ®,Ã®,Ã¢â€šÂ¬,â‚¬,Ã…Â¡,Å¡,ÃƒÂ¯,Ã¯,ÃƒÂ¿,Ã¿,Ã…Æ’,N,Ã‚Â©,Â©,Ã‚Â®,Â®,ÃƒÂ»,Ã»,Ã¢â‚¬Â ,â€ ,Ã‚Â°,Â°,Ã‚Â§,Â§,Ã‚Â±,Â±,ÃƒÂ¨,Ã¨)

%r = $replacecs(%r,Ã†Â¤,P,Ãâ€¡,X,Ã…â€¡,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,Ã„Â¦,H,Ãâ€,A,ÃŽÅ“,M,Ã‘â€˜,e,ÃÂ¦,U,Ã‘?,e,Ã¢â‚¬Å“,â€œ,Ã‘â€ž,o,Ã‘Æ’,y,Ã‘?,c,ÃÂº,k,Ãƒâ€¦,Ã…,Ã¢â€žÅ¾,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,Ã¢Ë†Â«,l,Ã…Â¼,z,Ã…Â£,t,ÃƒÂ¦,Ã¦,Ã¢â€°Ë†,=,Ã…?,L,Ã…â€¹,n,ÃšÂ¯,S,Ã„?,d,ÃË†,w,ÃÆ’,o,Ã„Â£,g,ÃŽâ€°,H,ÃŽ?,i,Ã’â€˜,r,ÃŽÂº,k,Ã…Å ,N,Å“,\,Ã¯â‚¬Â¯,/,Ã‚Â¬,Â¬,Ã‘â€°,w,Ã›â€¢,o,Ã—?,o,Ã‚Â³,Â³,Ã‚Â½,Â½,Ã„Â°,I,Ã„Â¾,l,Ã„â€¢,e,Ã…Â¢,T,Ã…?,s,Ã…Â·,y,Ã„Â¾,l,Ã„Â©,i,Ãƒâ€,Ã”,Ã…Å¡,S,Ã„Â¹,L,ÃÂ°,a,ÃÂµ,e,ÃŽÂ¡,P,ÃË†,J,ÃŽ?,N,Ã‡Â»,a,Ã‘â€™,h,ÃŽÂ¯,l,Ã…â€™,Å’,Ã‚Â¯,Â¯,Ã„?,a,Ã…Âµ,w,Ãƒâ€š,Ã‚,ÃƒÆ’,Ãƒ,ÃÂ½,H,Ã‹â€¡,',Ã‚Â¸,Â¸,ÃŒÂ£,$chr(44),Ã˜Â·,b,Ãƒâ€œ,Ã“,Ãâ„¢,N,Ã‚Â«,Â«,ÃƒÂ¹,Ã¹,ÃƒËœ,Ã˜,ÃƒÂª,Ãª)

%r = $replacecs(%r,Ã‚Â²,Â²,ÃÂ»,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,Ã‹â€ ,^,Ã¯?â€“,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,Ã Â¸?,g,ÃŽÂ¨,Y,Ã¡ÂºÂª,A,Ãâ‚¬,n,Ã…â€¦,N,Ã˜!,o,Ãâ€¹,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)

%r = $replacecs(%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,Ã¯ÂºÂ³,w,Ã¯Â¯Â½,u,Ã¯ÂºÂ±,uw,Ã¯Â»Å¡,J,Ã¯Âºâ€,a,Ã¯â‚¬Â¡,!,Ã¡Â»â€¦,e,Ã™â€ž,J,Ã˜Â±,j,Ã™â‚¬,_,ÃÅ’,o,Ã¢â€šÂ«,d,Ã¢â€žâ€“,no,Ã¡Â»Â¯,u,Ã„Å¡,E,Ãâ€ ,o,Ã¯Â»Â ,I,Ã‘â€ ,u,Ã¯Æ’â€¦,Ã…,Ã¯Æ’â€˜,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,Ã¡Â»â€¹,i,ÃŽâ€˜,A,Ã¢â‚¬â‚¬,Â ,Ã¯Â»Â©,o,Ã¯Â»?,E,Ã™â€ ,u,Ã¡ÂºÂ½,e,Ã˜Â«,u,Ã£â€¦â€œ,t,Ã“â€º,e,Ã“Ëœ,E,Ã¯Â»Ëœ,o,Ã›Â·,v,Ã¯Â¬Âª,w,Ã¡Â»Â¥,u,Ã…Å½,O,Ã‚?,?,Ã¡Â»Â±,u,Ã¯Â¼Âª,J,Ã¯Â½â€¦,e,Ã¯Â½?,a,Ã¯Â¼Â®,N,Ã¯Â¼Ë†,$chr(40),Ã¯Â¼Â ,@,Ã¯Â½â‚¬,`,Ã¯Â¼Å½,.,Ã¢â‚¬Â²,',Ã¯Â¼â€°,$chr(41),Ã¢â€“Â¬,-,Ã¢â€”â€ž,<,Ã¢â€“Âº,>,Ã¢Ë†â€˜,E,Ã–Â»,$chr(44),Ã¢â‚¬Â¬,|,Ã¢â‚¬Å½,|,Ã¢â‚¬Âª,|,Ã¢â‚¬Â«,|,Ã¡Â»Ëœ,O,ÃËœ,N,Ã¯?â€”,W,Ã¯?Âº,z)

%r = $replacecs(%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,Ã¢Ë†â„¢,Â·,ÃŽÂ¤,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,Ã¢ËœÂ»,â€¢,Ã¢â€¢Â ,|,Ã¢â€¢Â¦,n,Ã¥??,â€ ,Ã¡ÂºÂ¥,a,Ã¯â‚¬Â¬,â€š,Ãâ€”,3,Ã¡ÂºÂ´,A,ÃÅ½,y,Ã…Â¹,Z,ÃŽâ€ž,',Ã€Â¨,$chr(40),Ã€Â©,$chr(41),Ã—â€”,n,Ã¡Â»Å¾,O,Ã¡Â»â€,O,Ã Â¹Å’,',Ã Â¹,g,Ãâ€™,B,Ã£â‚¬?,[,Ã£â‚¬â€˜,],Ã¯Â½â€œ,s,Ã¯Â½?,m,Ã¯Â½?,o,Ã¯Â½â€¹,k,Ã¯Â½â€”,w,Ã¯Â½â€ž,d,Ã…Â¨,U,Ã¯?â€˜,Q,Ã¢â€ Â¨,|,Ã¡ÂºÂ¨,A,Ã¡ÂºÂ¼,E,Ã–Â¸,Â¸,Ã Â¸Ëœ,s,Ã™Ë†,g,ÃÂ·,e,Ã˜Â¸,b,Ã¯ÂºÂ¸,â€¦,Ãâ€˜,b,Ã¯?-,m,Ã¯Â»Â²,â€¦,Ã™Â¾,u,Ã˜Âº,e,Ã¡ÂºÂ¨,A,Ã¡ÂºÂ»,e,Ã’Â¹,y,Ã Â¸â€ ,u,Ã Â¸Â¯,-,Ã—â€š,Â ,Ã¯â‚¬Å¸,-,Ã¯Æ’?,Ã,Ã¯Æ’Â«,Ã«,Ã—Âª,n,Ã™Â§,V,Ã¡Â»Â¢,O,Ã›?,I,Ã›Å¾,O,Ã›Â©,O,Ã€Âº,:,Ã€{,

return %r

}

alias msn.ifdecode {

if (($msn.get($cid,decode)) && ($sock(msn.*. $+ $cid,1) != $null)) return $msn.decode($1-)

else return $1-

}

alias msn.encode {

var %x, %l 1

while (%l <= $len($1-)) {

if ($hget(msn.enc,$mid($1-,%l,1)) != $null) %x = %x $+ $hget(msn.enc,$mid($1-,%l,1))

else {

if ($mid($1,%l,1) != $chr(32)) %x = %x $+ $mid($1-,%l,1)

else %x = %x $mid($1-,%l,1)

}

inc %l

}

return %x

}

alias msn.encrypt { return $remove($replace($1-,$chr(33),!%21,$chr(32),!%20,$chr(36),!%24,$chr(94),!%5E,$chr(40),!%2B,$chr(41),!%2D,$chr(43),!%2B,$chr(61),!%3D,$chr(126),!%7E,$chr(96),!%60,$chr(44),!%2C,$chr(91),!%5B,$chr(93),!%5D,$chr(123),!%7B,$chr(125),!%7D,$chr(47),!%2F),!) }

alias msn.decrypt { var %zok % | return $replace($1-,%zok $+ 21,$chr(33),%zok $+ 20,$chr(32),%zok $+ 24,$chr(36),%zok $+ 5E,$chr(94),%zok $+ 2B,$chr(40),%zok $+ 2D,$chr(41),%zok $+ 2B,$chr(43),%zok $+ 3D,$chr(61),%zok $+ 7E,$chr(126),%zok $+ 60,$chr(96),%zok $+ 2C,$chr(44),%zok $+ 5B,$chr(91),%zok $+ 5D,$chr(93),%zok $+ 7B,$chr(123),%zok $+ 7D,$chr(125),%zok $+ 2F,$chr(47)) }

alias msn.pass var %r | while ($len(%r) <= $iif($1,$calc($1 - 1),30)) %r = %r $+ $replace($chr($r(33,255)),$chr(44),.,:,.) | return %r

alias msn.tohex {

var %l 1, %r

while (%l <= $len($1-)) {

%r = %r $+ $base($asc($mid($1-,%l,1)),10,16,2)

inc %l

}

return %r

}

alias msn.unhex {

var %l 1, %r

while (%l <= $len($1-)) {

if (!$2) {

if ($mid($1-,%l,2) != 20) %r = %r $+ $chr($base($mid($1-,%l,2),16,10))

else %r = %r $chr($base($mid($1-,%l,2),16,10))

}

else %r = %r $+ $chr($base($mid($1-,%l,2),16,10))

inc %l 2

}

return %r

}

alias msn.roompass {

if ($1) {

if (%msnp.qkey. [ $+ [ $right($1,-2) ] ] != $null) return %msnp.qkey. [ $+ [ $right($1,-2) ] ]

return %msnp.okey. [ $+ [ $right($1,-2) ] ]

}

else {

if (%msnp.qkey. [ $+ [ $right($chan,-2) ] ] != $null) return %msnp.qkey. [ $+ [ $right($chan,-2) ] ]

return %msnp.okey. [ $+ [ $right($chan,-2) ] ]

}

alias msn.ownerkey {

if ($1) return %msnp.qkey. [ $+ [ $right($1,-2) ] ]

else return %msnp.qkey. [ $+ [ $right($chan,-2) ] ]

}

alias msn.hostkey {

if ($1) return %msnp.okey. [ $+ [ $right($1,-2) ] ]

else return %msnp.okey. [ $+ [ $right($chan,-2) ] ]

}

alias msn.get {

if (msn.*.* iswm $1) return $hget(msn. $+ $gettok($$1,3,46),$$2)

else return $hget(msn. $+ $$1,$$2)

}

alias msn.roomip {

if (!$1) return $hget(msn.roomip,$chan)

return $hget(msn.roomip,$$1)

}

alias msn.ppdata {

if (($1 == $null) && ($2 == $null)) return $null

return $readini($scriptdir $+ vpassport.dat,$1,$2)

}

alias msn.pticket {

if ($isid) return %msnpp.ticket

elseif ($1 == -t) %msnpp.ticket = $$2

else {

%msnpp.ticket = $$1

writeini $+(",$scriptdir,vpassport.dat") $msn.ini(selpp) ticket $1

}

alias msn.pprofile {

if ($isid) return %msnpp.profile

elseif ($1 == -t) %msnpp.profile = $$2

else {

%msnpp.profile = $$1

writeini $+(",$scriptdir,vpassport.dat") $msn.ini(selpp) profile $1

}

alias msn.pcookie {

if ($isid) return %msnpp.cookie

elseif ($1 == -t) %msnpp.cookie = $$2

else {

%msnpp.cookie = $$1

writeini $+(",$scriptdir,vpassport.dat") $msn.ini(selpp) cookie $1

}

alias msn.pSubscriberInfo {

if ($isid) return %msnpp.SubscriberInfo

elseif ($1 == -t) %msnpp.SubscriberInfo = $$2

else {

%msnpp.cookie = $$1

writeini $+(",$scriptdir,vpassport.dat") $msn.ini(selpp) SubscriberInfo $1

}

alias msn.pUserRole {

if ($isid) return %msnpp.UserRole

elseif ($1 == -t) %msnpp.UserRole = $$2

else {

%msnpp.cookie = $$1

writeini $+(",$scriptdir,vpassport.dat") $msn.ini(selpp) UserRole $1

}

;Converts default mIRC color numbers to MSN color codes

alias msn.mrctomsn {

if ($msn.get($2,frand)) tokenize 32 $rand(0,7)

if ($1 == 0) return $chr(1)

elseif ($1 == 1) return $chr(2)

elseif ($1 == 5) return $chr(3)

elseif ($1 == 3) return $chr(4)

elseif ($1 == 2) return $chr(5)

elseif ($1 == 7) return $chr(6)

elseif ($1 == 6) return $chr(7)

elseif ($1 == 10) return $chr(8)

elseif ($1 == 15) return $chr(9)

elseif ($1 == 4) return $chr(11)

elseif ($1 == 9) return $chr(12)

elseif ($1 == 8) return $chr(14)

elseif ($1 == 13) return $chr(15)

elseif ($1 == 11) return $chr(16)

elseif ($1 == 12) return \r

elseif ($1 == 14) return \n

else return $chr(2)

}

;Converts MSN color codes to default mIRC color numbers

alias msn.msntomrc {

if ($1 == $chr(1)) return 00

elseif ($1 == $chr(2)) return 01

elseif ($1 == $chr(3)) return 05

elseif ($1 == $chr(4)) return 03

elseif ($1 == $chr(5)) return 02

elseif ($1 == $chr(6)) return 07

elseif ($1 == $chr(7)) return 06

elseif ($1 == $chr(8)) return 10

elseif ($1 == $chr(9)) return 15

elseif ($1 == $chr(11)) return 04

elseif ($1 == $chr(12)) return 09

elseif ($1 == $chr(14)) return 08

elseif ($1 == $chr(15)) return 13

elseif ($1 == $chr(16)) return 11

elseif ($1 == \r) return 12

elseif ($1 == \n) return 14

else return 01

}

;--- Local Identifiers

alias msn.getnick {

if ($1 == p) {

if ($msn.ini(asknickp)) {

if (%msnpp.nick) {

if ($msn.ppdata($msn.ini(selpp),lvnick)) return %msnpp.nick

else return $msn.encode(%msnpp.nick)

}

elseif ((%msnpp.cookie) && (!%msnpp.nick)) return

elseif ((!%msnpp.cookie) && (!%msnpp.nick)) {

if ($me) return $iif(>* !iswm $me,$me,$right($me,-1))

var %n = $dialog(msn.name,msn.name)

if (%msnc.cancel) { unset %msnc.* | halt }

if (($msn.decode(%n) == %n) && (!%msnc.lnick)) %n = $msn.encode(%n)

if (!%n) halt

return %n

}

else {

var %n = $dialog(msn.name,msn.name)

if (%msnc.cancel) { unset %msnc.* | halt }

if (($msn.decode(%n) == %n) && (!%msnc.lnick)) %n = $msn.encode(%n)

if (!%n) {

if (%msnpp.nick) {

if ($msn.ppdata($msn.ini(selpp),lvnick)) return %msnpp.nick

else return $msn.encode(%msnpp.nick)

}

elseif ((%msnpp.cookie) && (!%msnpp.nick)) return

elseif ((!%msnpp.cookie) && (!%msnpp.nick)) {

if (%me) return $iif(>* !iswm $me,$me,$right($me,-1))

halt

}

return %n

}

elseif ($1 == g) {

if ($msn.ini(asknickg)) {

if (%msnpp.nick) {

if ($msn.ppdata($msn.ini(selpp),lvnick)) return %msnpp.nick

else return $msn.encode(%msnpp.nick)

}

elseif ($me) return $iif(>* !iswm $me,$me,$right($me,-1))

}

else {

set -u0 %msnc.guest $true

var %n = $dialog(msn.name,msn.name)

if (%msnc.cancel) { unset %msnc.* | halt }

if ($msn.decode(%n) == %n) %n = $msn.encode(%n)

if (%n) return %n

elseif (%msnpp.nick) {

if ($msn.ppdata($msn.ini(selpp),lvnick)) return %msnpp.nick

else return $msn.encode(%msnpp.nick)

}

elseif ($me) return $iif(>* !iswm $me,$me,$right($me,-1))

}

;--- Loadup

on *:LOAD: %msnc.dostart = $true

;--- Startup

on *:START: {

if (%msnc.dostart) {

if ($version < 6) {

echo $color(info2) -ta * Vincula will not work on any mIRC lower than version 6.0. Unloading now...

set -u5 %msnc.nostart $true

.timer 1 0 .unload -rs " $+ $script $+ "

halt

}

if (!%msnc.nostart) unset %msn*

elseif ($version <= 6.03) echo $color(info2) -ta * Acid Connection is designed for mIRC v6.03 and above. It should work on your version (mIRC $version $+ ) but it is untested and may act strange.

echo $color(info2) -ta * Welcome to Acid Connection

echo $color(info2) -ta * Please read the instructions in the Acid Connection.txt file!

.flood 300 10 4 0

var %st $true

if (!$msn.ini(decode)) msn.ini decode $true

if (!$msn.ini(usepass)) msn.ini usepass $true

}

if (%msnc.nostart) halt

unset %msnc.*

if (!$msn.ini(font)) msn.ini font $replace($gettok($msn.registry(HKEY_CURRENT_USER\Software\Microsoft\MSNChat\4.0\\FontName),1,59),$chr(32),\

if (!$msn.ini(fcolor)) msn.ini fcolor $msn.registry(HKEY_CURRENT_USER\Software\Microsoft\MSNChat\4.0\\FontColor)

if (!$msn.ini(fstyle)) msn.ini fstyle $calc($msn.registry(HKEY_CURRENT_USER\Software\Microsoft\MSNChat\4.0\\FontStyle) + 1)

if (!$msn.ini(script)) msn.ini script Western - 0

if (!%msnpp.showprof) %msnpp.showprof = 1

if (!$msn.ini(timereply)) msn.ini timereply $($asctime(m/dd/yyyy $+ $chr(44) h:nn:ss TT),0)

if (!$msn.ini(msnver)) msn.ini msnver 4.5

if (!$msn.ini(clsid)) msn.ini clsid F58E1CEF-A068-4c15-BA5E-587CAF3EE8C6

if (!$isfile($scriptdir $+ vfcache.dat)) msn.updatefonts

else {

if ($hget(msn.fonts)) hfree msn.fonts

hmake msn.fonts 30

hload msn.fonts " $+ $scriptdir $+ vfcache.dat"

}

msn.enchash

if ($msn.ini(debug)) window @debug

var %p = $iif($msn.ini(selpp),$msn.ini(selpp),none)

echo $color(info2) -st * Acid Connection UD1: $msn.ud1 $chr(124) Current Passport: %p

if (!$msn.ini(msnchatx)) {

echo $color(info2) -ta * Installing MSNChatX OCX (if you become Guest_null please type /msn.msnocx in here and that should fix it)...

msn.ini msnchatx $true

msn.resetocx

}

;msn.hackocx

;msn.msnocx

if (!$msn.ini(ppinfo)) msn.ini ppinfo *.*.*/*t=*p=*

if (!$msn.ini(errcod)) msn.ini errcod *passport*ec=e*

if (!$msn.ini(switch)) msn.ini switch *passport*switchuser.srf*

if (!$msn.ini(cookie)) msn.ini cookie *passport*Cookies*.srf*

if (!$msn.ini(login1)) msn.ini login1 *passport*uilogin.srf*

if (!$msn.ini(lgout1)) msn.ini lgout1 *logout*id=486*

if (!$msn.ini(lgout2)) msn.ini lgout2 *logout*id=2260*

if (!$msn

Edited Jul 24, 2005 2:54 PM by XÃ¾loziOn

XÃ¾loziOn Historical / Guest

Jul 25, 2005 2:47 AM

#23,162

Just thought i would say something to keep my topic active before it got lost in the forum, hoping someone can help me figure out why i'm getting that onjoin profile problem.

Ozzy10 Aerial Photographer Member #2

Jul 25, 2005 3:06 AM

#23,164

That connection is just an edited version of vincula

so i have no idea how acid can claim it as his lol

anyway i dont see anything in it that would cause the problems your saying

oh and if ya not owner or host , the error is cause because its trying to do something that requires you to be owner or host

My code does NOT have bugs. It just develops random features.

Mail Member #756

Jul 25, 2005 3:34 AM

#23,165

It appears to me Commander_Acid ate a few too many mushrooms of the wrong variety.

"Diplomacy is the art of saying 'Nice doggie' until you can find a rock".-Will Rogers

XÃ¾loziOn Historical / Guest

Jul 25, 2005 5:10 AM

#23,168

Thanks OZZY i'll eventually find the problem. But that connection Acid edited is a good fast connection. Dont need updater and addons and all that and it updates very quickly and works great. Your right about him claiming it as his connection when it's exo's. Dont know why he done that. But it's about the best Vin. connection i have used so far.