Miscellany

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 }