alias Quer {
if (!$window(@Quer)) {
window -deSl11k0 @Quer 245 250 594 266
}
else {
return
}
}
on ^*:Text:*:?: {
closemsg $nick
if (!$exists(QuerLogs)) {
mkdir QuerLogs
write QuerLogs\Quer. $+ $nick $+ .txt $chr(91) $+ $time(HH:nn) $+ $chr(93) < $+ $nick $+ > $1-
quer
savebuf -a 1-$line(@Quer,0) @Quer QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt
if ($fline(@Quer,$nick,0,1)) {
return
}
elseif (!$fline(@Quer,$nick,0,1)) {
aline -l @Quer $nick
}
}
else {
write QuerLogs\Quer. $+ $nick $+ .txt $chr(91) $+ $time(HH:nn) $+ $chr(93) < $+ $nick $+ > $1-
Quer
savebuf -a 1-$line(@Quer,0) @Quer QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt
if ($fline(@Quer,$nick,0,1)) {
return
}
elseif (!$fline(@Quer,$nick,0,1)) {
aline -l @Quer $nick
}
}
}
menu @Quer {
dclick: {
dline @Quer 1- $+ $line(@Quer,0)
if ($sline(@Quer,0) == 1) {
renwin @Quer @Quer $chr(160) - $chr(160) Conversation with $sline(@Quer,1)
loadbuf $lines(QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt) @Quer QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt
}
}
Close $1 Conversation: {
if ($sline(@Quer,0) < 2) {
.timer 1 1 dline -l @Quer $sline(@Quer,1).ln
}
}
Delete $1 History: {
if ($sline(@Quer,0) < 2) {
dline -l @Quer $sline(@Quer,1).ln
.remove QuerLogs\Quer. $+ $1 $+ .txt
}
}
}
on 1:Input:@Quer: {
.quer.msg $1-
}
alias quer.msg {
if ($sline(@Quer,0) == 1) && ($window(@Quer)) {
if ($input(Secure Send Message $+ $crlf $+ Send this message to $sline(@Quer,1) $+ ? $+ $crlf $+ $crlf $+ $1-,c,Send Message.) == $true) {
.Raw PRIVMSG $sline(@Quer,1) : $1-
aline -p @Quer $chr(91) $+ $time(HH:nn) $+ $chr(93) < $+ $me $+ > $1-
savebuf -a 1-$line(@Quer,0) @Quer QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt
}
else {
editbox @Quer $1-
}
}
else {
return
}
}
on 1:Keydown:@Quer:*: {
splay sounds\typewriter.wav
if ($keyval == 27) { window -c @Quer }
}