
alias paste relw
on #-msg 33 * if (relayw==[ON]) {
	if (numitems(rmesg)>=10) {@ delitem(rmesg 0)}	
	@ setitem(rmesg $numitems(rmesg) $fparse(format_msg $Z $0 $userhost() )$1-)}	

  
alias relm {
	if (![$0]) {@ relayw = [OFF]
		for (@yy=0, yy<numitems(rmesg), @yy++)
	{echo $(hblk)[$(hwht)$(yy)$(hblk)] $getitem(rmesg $yy)}
}
	
input "$(hblk)[$(cl)enter which line(s) to relm$(hblk)]$(cl): " {
	^say $getitem(rmesg $0);^say $getitem(rmesg $1);^say $getitem(rmesg $2);
	^say $getitem(rmesg $3);^say $getitem(rmesg $4);^say $getitem(rmesg $5);
	^say $getitem(rmesg $6);^say $getitem(rmesg $7);@ relayw = [ON]}

}

on #-notice 22 * if (relayw==[ON]) {
	if (numitems(rnot)>=10) {@ delitem(rnot 0)}	
	@ nottxt = [$1-]
	@ setitem(rnot $numitems(rnot) $fparse(format_notice $Z $0 $userhost() $1-))}
  
alias reln {
	if (![$0]) {@ relayw = [OFF]
		for (@cc=0, cc<numitems(rnot), @cc++)
	{echo $(hblk)[$(hwht)$(cc)$(hblk)] $getitem(rnot $cc)}
}
	
input "$(hblk)[$(cl)enter which line(s) to reln$(hblk)]$(cl): " {
	^say $getitem(rnot $0);^say $getitem(rnot $1);^say $getitem(rnot $2);
	^say $getitem(rnot $3);^say $getitem(rnot $4);^say $getitem(rnot $5);
	^say $getitem(rnot $6);^say $getitem(rnot $7);@ relayw = [ON]}

}

  
^on #-send_msg 33 * if (relayw==[ON]) {
	if (numitems(smsg)>=10) {@ delitem(smsg 0)}
	@ setitem(smsg $numitems(smsg) $fparse(format_send_msg $Z $0 $userhost($N) $1-))}



alias relsm {
	if (![$0]) {@ relayw = [OFF]
		for (@zz=0, zz<numitems(smsg), @zz++)
	{echo $(hblk)[$(hwht)$(zz)$(hblk)] $getitem(smsg $zz)}
}
	input "$(hblk)[$(cl)enter which line(s) to relsm$(hblk)]$(cl): " {
	^say $getitem(smsg $0);^say $getitem(smsg $1);^say $getitem(smsg $2);
	^say $getitem(smsg $3);^say $getitem(smsg $4);^say $getitem(smsg $5);
	^say $getitem(smsg $6);^say $getitem(smsg $7);@ relayw = [ON]}
	
}

on #-send_notice 33 * if (relayw==[ON]) {
	if (numitems(snot)>=10) {@ delitem(snot 0)}	
	@ setitem(snot $numitems(snot) $fparse(format_send_notice $Z $0 ! $1-))}	




alias relsn {
	if (![$0]) {@relayw=[OFF]
		for (@dd=0, dd<numitems(snot), @dd++)
	{echo $(hblk)[$(hwht)$(dd)$(hblk)] $getitem(snot $dd)}
}
	input "$(hblk)[$(cl)enter which line(s) to relsm$(hblk)]$(cl): " {
	^say $getitem(snot $0);^say $getitem(snot $1);^say $getitem(snot $2);
	^say $getitem(snot $3);^say $getitem(snot $4);^say $getitem(snot $5);
	^say $getitem(snot $6);^say $getitem(snot $7);@ relayw = [ON]}
	
}

## shade/psykotyks argon idea.

on #-window 33 * if (relayw==[ON]&&[$0]==winnum()) {
	if (numitems(_foo)>=winsize()) {@ delitem(_foo 0)}	
	@ setitem(_foo $numitems(_foo) $1-)}	


## shade did most of this. 
@ relayw = [ON]
alias relw {
	if (![$0]) {@ relayw = [OFF]
	for (@xx=0, xx<numitems(_foo), @xx++)
	{echo $(hblk)[$(hwht)$xx$(hblk)]$(cl) $getitem(_foo $xx)}
}
input "$(hblk)[$(cl)enter which line(s) to paste$(hblk)]$(cl): " {
	^say $getitem(_foo $0);^say $getitem(_foo $1);^say $getitem(_foo $2);
	^say $getitem(_foo $3);^say $getitem(_foo $4);^say $getitem(_foo $5);
	^say $getitem(_foo $6);^say $getitem(_foo $7);@relayw=[ON]}
 
}