New version - v3.80 - 30th May 2008

[andyc]

Note that file sending and receiving has been redesigned for this version.

Due to the way file sending and receiving works, you can only send files to and receive files from the official Microsoft clients. These include:
- Windows Live Messenger (tested on 8.5, but any should be fine)
- Windows Messenger (comes with XP, tested and works fine)
- MSN Messenger (fairly recent versions, not tested but should work)

Note that you must have port 6891 forwarded to your computer for both file sending and file receiving to work.

The script works fine on the latest mIRC (6.32) but will be fine on other recent versions too.

[FactoR]

I instaled a new version ... 3.80 ... but when I start it, it shows message like before

[andyc]

Odd..

Can you tell me what it says when you type:

//echo -a $msnversion

Also, press Alt+R, then view > msn.mrc. What version does it say at the top of the file?

[factor]

Version 3.71

dont show new ... O_o ....

I deleted all old files from mirc folder of msn ... and copy new files of new version and its still the same O_o

[andyc]

Can you redownload it from:

www.burningimage.net/msn ?

It's the correct one there.

[FactoR]

NOTHING o_O

VERSION 3.71

I REINSTALED MIRC AND AGAING NOTHING o_O .....

i use mirc 6.31 ...

[andyc]

Most bizarre...

I am certain that the version on the site is 3.80, if you download it then open msn.mrc you can see it says version 3.80.

All I can suggest is to wipe all traces of msn.mrc (so a search for msn.mrc) from your PC, then try to reinstall.

[xGrind]

está travando o mIRC

BUG. freezing mIRC

[FactoR]

i forgot to delete all files from aplication folder .....

now I do it ... and instaled this new version .... it`s working great .... txnks !

[Guest]

I instaled a new version ... 3.80 ... but when I start it, it shows message like before

[El_Santo]

Sorry, I do not speak English. I propose changes to a new version. Thank you
1) -----------------------
if ( $version >= 6.3 ) && ( $tip(msnmirc,MSN for mIRC,%msn.nick has logged on,,$shortfn($scriptdir) $+ msn2.ico,,msnchatwindow $gettok(%msn.data,3,32),) != 0 )

replaced by

if ( $version >= 6.2 ) && ( $msnpopups($mg(MSN for mIRC ), %msn.nick has logged on ) != 0 )

and add

alias msnpopups {
set %msncartel.m 2- siempre
if ($away) && (%msncartel.aw == on) return
var %a = $left(%msncartel.m,1)
if (%a == 2) goto muestra
if (%a isin 4 5) && ($appstate == tray) goto muestra
if (!$appactive) && (%a == 3) && ($appstate != tray) goto muestra
if (!$appactive) && (%a isin 3 5) goto muestra
return
:muestra
var %x = $calc($window(-1).w - $window(@tttip).w - 10)
if ($1) {
%cartel = $window(-1).h
var %t1 = $wrap($replace($1,_,$chr(32)),tahoma,11,300,1) , %t2 = $wrap($strip($2-),tahoma,11,300,1) | if $wrap($strip($2-),tahoma,11,300,0) > 1 { %t2 = %t2 ... }
var %an = $width(%t1,tahoma,11,1), %an2 = $width(%t2,tahoma,11) | if %an2 > %an { %an = %an2 } | inc %an 20
.timerTTTIP off | window -c @tttip | window -pkdoihn +dL @tttip %x %cartel %an 50
drawrect -rnf @tttip $rgb(185,201,239) 1 0 0 %an 50 | drawrect -rnfd @tttip $rgb(233,239,250) 1 1 1 $calc(%an -2) 48 6 6
drawtext -rno @tttip $rgb(225,234,248) tahoma 11 $calc((%an / 2) - ($width(%t1,tahoma,11,1) / 2) + 1) 11 %t1
drawtext -rno @tttip $rgb(0,51,102) tahoma 11 $calc((%an / 2) - ($width(%t1,tahoma,11,1) / 2)) 10 %t1
drawtext -rn @tttip $rgb(255,255,255) tahoma 11 $calc((%an / 2) - ($width(%t2,tahoma,11) / 2) + 1) 27 %t2
drawtext -rn @tttip 0 tahoma 11 $calc((%an / 2) - ($width(%t2,tahoma,11) / 2)) 26 %t2
%cartelfunde = 20 | .timerTTTIP off
drawline @tttip | window -o @tttip %x %cartel | .timerCARTELI -mi 1 100 .timerTTTIP -mio 100 0 msnpopups
return
}
if (%cartel < $calc($window(-1).h - 80)) { unset %cartel | .timerTTTIP -oi 1 2 tttipfunde ini | return }
dec %cartel 4 | window @tttip %x %cartel | setlayer %cartelfunde @tttip | inc %cartelfunde 12
}

2) ----------------------------------------

in: menu @*@* {
replace
elseif (*Send E-mail* iswm %a) { run http://www.hotmail.com }
for
elseif (*Send E-mail* iswm %a) { run http://www.hotmail.msn.com/secure/start?action=compose&to= $+ %msn.clickemail }

3)----------------------------------------

viewer logs

alias msn.winlist {

add

if ($fline(@ $+ $1,*Vewer Logs*,1,1) == $null) { /aline -l @ $+ $1 8Vewer Logs }


in: menu @*@* {
add after

elseif (*View Profile* iswm %a) { if ( %msn.clickemail == $null ) { halt } | run explorer.exe http://members.msn.com/ $+ %msn.clickemail }

ADD

elseif (*Vewer Logs* iswm %a) { if ( %msn.clickemail == $null ) { halt }
set %logs.reload %msn.dirlog $+ %msn.clickemail $+ .log
if $findfile(%msn.dirlog,%msn.clickemail $+ .log,0,) == 0 { echo -a There is no record of conversation | halt }
window -kSz @MSN_Historial_ $+ %msn.clickemail -1 -1 600 300 @MSN_Historial_ $+ %msn.clickemail
clear @MSN_Historial_ $+ %msn.clickemail
loadbuf -p @MSN_Historial_ $+ %msn.clickemail %logs.reload }


4)--------------------------
in alias viewlogs {
replace
run $shortfn($mircdir) $+ mod\msn\logs
for
msn.logs

and add

;------- Logs -----------------
alias msn.logs {
window -kSl30z @MSN_logs 135 50 850 300 @MSN_logs
aline $color(notice) @MSN_logs -LOG- $+($chr(3),$color(info)) $+ Cargando logs del directorio $+($chr(3),$color(action)) $+ %msn.dirlog $+ ...
var %logs.alias.time $ticks
var %logs.alias.U 1
while ($findfile(%msn.dirlog,*.log,%logs.alias.U)) {
if (!$1) goto cargar
if ($1 == c) { if ($chr(35) isin $findfile(%msn.dirlog,*.log,%logs.alias.U)) goto cargar | else goto incrementa }
if ($1 == p) { if ($chr(35) !isin $findfile(%msn.dirlog,*.log,%logs.alias.U)) goto cargar | else goto incrementa }
:cargar
aline -l @MSN_logs $nopath($findfile(%msn.dirlog,*.log,%logs.alias.U))
:incrementa
inc %logs.alias.U
}
aline $color(notice) @MSN_logs -LOG- $+ $+($chr(3),$color(action)) $line(@MSN_logs,0,1) $+($chr(3),$color(info)) $+ logs cargados en $round($calc(($ticks - %logs.alias.time) / 1000),2) segundos $+($chr(3),$color(info2)) $+ $chr(40) $+ $+($chr(3),$color(info)) $findfile(%msn.dirlog,*.log,0) logs en total $+ $+($chr(3),$color(info2)) $chr(41)
unset %logs.alias.*
}
alias -l logdel {
if (!$1) halt
else {
var %log.borrar.x 1
aline $color(notice) @MSN_logs -LOG- $+ $+($chr(3),$color(info)) Eliminando logs...
var %log.borrar.time $ticks
:borrador
if ($file($findfile(%msn.dirlog,*.log,%log.borrar.x)).size < $$1) {
if ($fline(@MSN_logs,$nopath($findfile(%msn.dirlog,*.log,%log.borrar.x)),1,1)) dline -l @MSN_logs $fline(@MSN_logs,$nopath($findfile(%msn.dirlog,*.log,%log.borrar.x)),1,1)
aline $color(notice) @MSN_logs -LOG- $+ $+($chr(3),$color(info)) Log $+ $+($chr(3),$color(action)) $nopath($findfile(%msn.dirlog,*.log,%log.borrar.x)) $+($chr(3),$color(info)) $+ borrado de %msn.dirlog
/.remove -b $findfile(%msn.dirlog,*.log,%log.borrar.x) | inc %log.borrar.cont
if (%log.borrar.x <= $findfile(%msn.dirlog,*.log,0)) goto borrador | else goto fin
}
else { inc %log.borrar.x | if (%log.borrar.x <= $findfile(%msn.dirlog,*.log,0)) goto borrador | else goto fin }
:fin
if (!%log.borrar.cont) aline $color(notice) @MSN_logs -LOG- $+($chr(3),$color(info)) $+ No hay logs menores a $+ $+($chr(3),$color(action)) $round($calc($1 / 1024),1) $+($chr(3),$color(info)) $+ kb.
else aline $color(notice) @MSN_logs -LOG- $+ $+($chr(3),$color(action)) %log.borrar.cont $+($chr(3),$color(info)) $+ logs menores a $round($calc($1 / 1024),1) kb borrados en $round($calc(($ticks - %log.borrar.time)/1000),2) segundos.
}
unset %log.borrar.*
}
menu @MSN_Historial_* {
Buscar texto en log: findtext $$?="Texto a buscar?"
Borrar: clear | .remove -b %msn.dirlog $+ %msn.clickemail $+ .log
}
menu @MSN_logs {
dclick { clear @MSN_logs | set %logs.reload %msn.dirlog $+ $sline(@MSN_logs,1) | loadbuf -p @MSN_logs %logs.reload }
Actualizar: window -c @MSN_logs | .msn.logs
-
Cargar log seleccionado: { clear @MSN_logs | if ($sline(@MSN_logs,1)) { set %logs.reload %msn.dirlog $+ $sline(@MSN_logs,1) | loadbuf -p @MSN_logs %logs.reload } | else aline $color(notice) @MSN_logs -LOG- $+($chr(3),$color(info)) $+ Selecciona el log que deseas cargar. }
Cargar log de archivo: { clear @MSN_logs | var %log.sfile = $sfile(%msn.dirlog) | if (%log.sfile) loadbuf -p @MSN_logs %log.sfile }
-
Editar log: { if ($sline(@MSN_logs,1)) run notepad %msn.dirlog $+ $ifmatch | else aline $color(notice) @MSN_logs -LOG- $+($chr(3),$color(info)) $+ Selecciona el log que deseas editar. }
Borrar
.Seleccionados: {
clear @MSN_logs | while ($sline(@MSN_logs,0)) {
/.remove -b %msn.dirlog $+ $sline(@MSN_logs,1) | aline $color(notice) @MSN_logs -LOG- $+($chr(3),$color(info)) $+ Log $+($chr(3),$color(action)) $+ $sline(@MSN_logs,1) $+($chr(3),$color(info)) $+ borrado de %msn.dirlog | dline -l @MSN_logs $sline(@MSN_logs,1).ln
}
}
.Menores a 3 kb: clear @MSN_logs | logdel 3072
.Menores a ?: clear @MSN_logs | var %log.input $$?="Tamaño en kb?" | logdel $calc(%log.input * 1024)
-
Buscar texto en log: findtext $$?="Texto a buscar?"
-
Cerrar: window -c @MSN_logs
}
on 1:CLOSE:@MSN_logs: unset %logs.*


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

Thank you very much

[El_Santo]

Postscript: Al want to delete a contact offline, MSN mIRC cause for disconnection, I settled in this way

Delete Contact:{
set %msn.clickemail $gettok($sline(@Messenger,1),2-,60)
set %msn.clickemail $left(%msn.clickemail,$calc($len(%msn.clickemail)-1))
if ( %msn.clickemail == $null ) { halt }
delmsnuser %msn.clickemail
}


$iif( $fline(@Messenger,$1,1,1) < $fline(@Messenger,*Offline Contacts*,1,1),Delete Contact,) : {
set %msn.clickemail $gettok($sline(@Messenger,1),2-,60)
set %msn.clickemail $left(%msn.clickemail,$calc($len(%msn.clickemail)-1))
if ( %msn.clickemail == $null ) { halt }
delmsnuser %msn.clickemail
}


Thank you

[andyc]

Thanks for these suggestions - I'll have a look through them but they seem good!

[andyc]

Sorry I've not got round to looking at this yet, I'm very busy at work.

It's not been forgotten though, is much appreciated and I'll get round to it soon!

[Guest]

NOTHING o_O

VERSION 3.71

I REINSTALED MIRC AND AGAING NOTHING o_O .....

i use mirc 6.31 ...