Page 1 of 2

New version - v3.80 - 30th May 2008

Posted: Fri May 30, 2008 17:18 pm
by 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.

Re: New version - v3.80 - 30th May 2008

Posted: Wed Jun 04, 2008 7:58 am
by FactoR
I instaled a new version ... 3.80 ... but when I start it, it shows message like before

Image

Re: New version - v3.80 - 30th May 2008

Posted: Wed Jun 04, 2008 16:28 pm
by 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?

Re: New version - v3.80 - 30th May 2008

Posted: Thu Jun 05, 2008 12:05 pm
by 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

Re: New version - v3.80 - 30th May 2008

Posted: Thu Jun 05, 2008 15:23 pm
by andyc
Can you redownload it from:

www.burningimage.net/msn ?

It's the correct one there.

Re: New version - v3.80 - 30th May 2008

Posted: Wed Jun 11, 2008 9:19 am
by FactoR
NOTHING o_O

VERSION 3.71

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

i use mirc 6.31 ...

Re: New version - v3.80 - 30th May 2008

Posted: Thu Jun 12, 2008 17:17 pm
by 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.

Re: New version - v3.80 - 30th May 2008

Posted: Fri Jun 13, 2008 22:09 pm
by xGrind
está travando o mIRC

BUG. freezing mIRC

Re: New version - v3.80 - 30th May 2008

Posted: Sun Jun 29, 2008 13:19 pm
by FactoR
i forgot to delete all files from aplication folder .....

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

Re: New version - v3.80 - 30th May 2008

Posted: Tue Jul 08, 2008 18:52 pm
by Guest
FactoR wrote:I instaled a new version ... 3.80 ... but when I start it, it shows message like before

Image

Re: New version - v3.80 - 30th May 2008 "Proposed changes"

Posted: Tue Aug 12, 2008 4:33 am
by 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

Re: New version - v3.80 - 30th May 2008

Posted: Tue Aug 12, 2008 4:54 am
by 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

Re: New version - v3.80 - 30th May 2008

Posted: Fri Aug 15, 2008 17:15 pm
by andyc
Thanks for these suggestions - I'll have a look through them but they seem good!

Re: New version - v3.80 - 30th May 2008

Posted: Wed Sep 17, 2008 20:18 pm
by 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!

Re: New version - v3.80 - 30th May 2008

Posted: Sat May 30, 2009 7:37 am
by Guest
FactoR wrote:NOTHING o_O

VERSION 3.71

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

i use mirc 6.31 ...