IRC Messenger

[Guest LAS]

alias messenger { if ($dialog(msg)) dialog -x msg msg | dialog -m msg msg }
alias contacts {
 if (!$dialog(msg)) { return }
 did -r msg 2
 var %i = 1
 while (%i <= $notify(0)) {
   if ($notify(%i).ison == $ture) { did -a msg 2 + $notify(%i) }
   elseif ($notify(%i).ison == $false) { did -a msg 2 - $notify(%i) }
   inc %i
 }
}
dialog msg {
 title "IRC Messenger"
 size -1 -1 112 140
 option dbu
 box "", 1, 2 2 108 136
 list 2, 6 8 100 114, size vsbar
 button "Add New Contact", 3, 6 124 101 10, flat
}
on *:dialog:msg:init:*:{
 dll mdx.dll SetMircVersion $version
 dll mdx.dll MarkDialog $dname
 dll mdx.dll SetColor $dname 2 text $rgb(0,0,0)
 dll mdx.dll SetColor $dname 2 textbg $rgb(255,255,255)
 dll mdx.dll SetColor $dname 2 background $rgb(255,255,255)
 dll mdx.dll SetFont $dname 2,3 15 500 Tahoma
 .contacts
 .timercontacts 0 5 /contacts
}
on *:dialog:msg:sclick:2:{ set -u5 %msg $did(2).seltext | set %msgt $left(%msg,1) | set -u5 %msg $remove(%msg,$left(%msg,1),$chr(32)) }
on *:dialog:msg:dclick:2:{ 
 if ($status == disconnected) { .echo -a - Not Login To Server. }
 elseif (%msgt == -) { .echo -a - %msg is not online. }
 else { .query -n %msg | .echo $window(%msg) IRC Messager 1.2 - Now Talking To %msg $+ . }
}
on *:dialog:msg:sclick:3:{ .messenadd }

alias messenadd { if ($dialog(msga)) dialog -x msga msga | dialog -mo msga msga }
dialog msga {
 title "Add New Contact"
 size -1 -1 136 38
 option dbu
 box "", 1, 2 2 130 34
 edit "", 2, 6 8 122 10, autohs
 button "Add", 3, 6 22 59 10, flat
 button "Remove", 4, 70 22 59 10, flat
}
on *:dialog:msga:init:*:{
 dll mdx.dll SetMircVersion $version
 dll mdx.dll MarkDialog $dname
 dll mdx.dll SetColor $dname 2 text $rgb(0,0,0)
 dll mdx.dll SetColor $dname 2 textbg $rgb(255,255,255)
 dll mdx.dll SetColor $dname 2 background $rgb(255,255,255)
 dll mdx.dll SetFont $dname 2,3,4 15 500 Tahoma
}
on *:dialog:msga:edit:2:{ set -u30 %new $did(2).text }
on *:dialog:msga:sclick:3:{ 
 .notify %new | did -r $dname 2
 if ($dialog(msg)) { contacts }
}
on *:dialog:msga:sclick:4:{ 
 .notify -r %new | did -r $dname 2
 if ($dialog(msg)) { contacts }
}

 

Now this is my first code for making and IRC Messager. Yes I know it uses notify, and yes I know the timer keeps running, I made it this way. And some credit goes to Neo for the idea. But, the code was made completely by me. Also, sense I know how Tidy gives good and bad comments, I do expect all. Just please do not tell me how crappy I am or something like. Also this code works both for IRCD and IRCX..

[Cryton]

Thats very good i will try this irc messenger and tell you some positive feedbacks .

[Guest Brock]

I do beleive that an Idea for this would be to post that you need to edit the mdx.dll directory

[morph3us]

I do beleive that an Idea for this would be to post that you need to edit the mdx.dll directory

That isnt hard lol

[Guest Brock]

u made me search me directories and it doesn't even work :S