Miscellany

alias noton {
  dialog -mo noton noton
}
dialog noton {
  title "User Not Online"
  size -1 -1 75 25
  option type dbu
  text "This user is not online" 1, 14 2 60 10
  button "OK" 2, 20 10 37 12
}
on *:DIALOG:noton:sclick:2:{
  dialog -x noton
}



alias add { 
  /write friends.txt $1-
}
alias friends {
  /window -lsek0 @Friends -1 -1 350 450 pop.txt
  var %i = 0
  while (%i < $lines(friends.txt)) {
    inc %i 1
    /aline 1 @friends $remove($mask($read(friends.txt,%i),9),$chr(33) $+ $gettok($mask($address($me,9),9),2,33))
  }
  echo -a $line(@friends,0)
}
on *:INPUT:@friends:{
  /write -s $+ $1 friends.txt $1-
  /aline -n @friends $1-
}

raw 401:*:noton


______________________________________________________

Info
.Whois:/whois $1-
.Profile
Message
.Notice:/notice $1 $$?="What would you like to say?"
.PM:/msg $1 $$?="What would you like to say?"
Invite
.#PK:/invite $1 #pk
.Another Channel:/invite $1 $$?="What Channel?"