Should that be: On ^*:Open:?:*: { ?

And is this correct, if not could you show me where needs correcting please?

Code:
alias Quer {
  if (!$window(@Quer)) { 
    window -deSl11k0 @Quer 245 250 594 266 
  }
  else {
    return
  }
}

on ^*:open:?:*: {
  mkdir QuerLogs
  write $+(QuerLogs\Quer.,$nick,.txt [,$time(HH:nn),] <,$nick,>) $1-
  quer
  savebuf -a 1-$line(@Quer,0) @Quer QuerLogs\Quer. $+ $sline(@Quer,1) $+ .txt
  aline -ln @Quer $nick
  echo @Quer $+([,$time(HH:nn),] <,$nick,>) $1-
  halt
}

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) {
    if ($input(Secure Send $+(Message,$crlf,Send this message to $!sline(@Quer,1),?,$crlf,$crlf,$1-),c,Send Message.)) {
      PRIVMSG $sline(@Quer,1) $1-
      write $+(QuerLogs\Quer.,$sline(@Quer,1),.txt) $+([,$time(HH:nn),] <,$me,>) $1-
      ; writing the single line rather than adding the entire buffer to the file (again)
    }
    else { editbox @Quer $1- }
  }
}


on 1:Keydown:@Quer:*: {
  splay sounds\typewriter.wav
  if ($keyval == 27) {
    window -c @Quer
  }
}


I've not been to sleep yet, I'm wrecked, and lord...in 25 minutes I've got to go the park and train football (soccer) to little children on a rainy day. The joy.. mad

Cheers for your suggestions an all, greatly appreciated.