Description: Puts incoming PM's into small dialogs, similar to many messenger programs (eg: AIM, ICQ, etc)

I haven't worked on this shit in forever, and I haven't even tried it with the newer mIRC versions.  But here you go.


; Dialog'd Private Messages
; Works similar to like Yahoo, etc.
; It's unfinished and I havent worked on it in months.
; Edit it if you want, just lemme know.  I'd like to see your uses for it.
; Have fun.

dialog pm {
  title %skript.temp
  size -1 -1 213 129
  option dbu
  edit "", 1, 3 8 207 101, read multi autovs vsbar
  edit "", 2, 3 114 172 11, autohs
  button "Send", 3, 177 115 32 10, default flat
  button "Button", 5, 153 62 37 12, hide ok
  box Private Message with: %skript.temp, 6, 1 0 211 111
  box "", 4, 1 109 211 19
}

on ^*:text:*:?: {
  if ($dialog($nick)) {
    did -a $nick 1 < $+ $nick $+ > $strip($1-) $+ $crlf
  }
  else {
    set %skript.temp $nick
    dialog -dm $nick pm
    did -a $nick 1 PM Session initiated with $nick at: $asctime(hh:nn TT) - $asctime(mm/dd/yy) $+ $crlf
    did -a $nick 1 < $+ $nick $+ > $strip($1-) $+ $crlf
    window -h $nick
  }
  haltdef
  halt
}

on *:dialog:*:sclick:3: {
  .msg $dname $did($dname,2).text
  did -a $dname 1 < $+ $me $+ > $did($dname,2).text $+ $crlf
  did -r $dname 2
  haltdef
}

alias pm {
  set %skript.temp $$1
  dialog -dm $$1 pm
  did -a $$1 1 PM Session initiated with $$1 at: $asctime(hh:nn TT) - $asctime(mm/dd/yy) $+ $crlf
  did -f $$1 2
  window -h $$1
  did -a $$1 2 $2-
}

on *:dialog:$nick:sclick:4: { echo -a $dname }

on *:open:?: { haltdef }


Enjoy.

I cant evaluate anything in the dialoged pm's :x

Oops! You need to login or register before you can post a comment!