/ScriptServ

on *:QUIT:{
  if (g-line isin $1-) && (%glinestatus == enable) {
    .write Glines!.txt ( $+ $nick $+ / $+ $remove($address($nick,2),*!*@) $+ ): $1- 
  }
}
alias glinelogger {
  .dialog -m glinelogger glinelogger
}
dialog glinelogger {
  title "G-line Logger"
  size -1 -1 100 30
  option dbu
  text Recording Status: %glinestatus, 11, 2 2 100 35, ok tab 1
  text G-lines Recorded: $calc($lines(Glines!.txt) -1) , 12, 2 9 100 35, ok tab 1
  button "Change",20, 67 0 30 9, ok tab 1
  button "View",21, 67 9 30 9, ok tab 1
  button "Close",15, 1 20 25 9, ok
  button "Erase",16, 28 20 25 9, 
}

on 1:dialog:glinelogger:sclick:*: {
  if ($did == 20) { .set %glinestatus $$?="enable or disable?" 
    .dialog -c glinelogger glinelogger 
    .glinelogger
  }
  if ($did == 21) { .run Glines!.txt } 
  if ($did == 15) { .dialog -c glinelogger glinelogger } 
  if ($did == 16) { .remove Glines!.txt | .write Glines!.txt ;Does this look infected?!? #Please leave this lien as it is! | .dialog -c glinelogger glinelogger | .glinelogger
  } 
}