
alias paste relw
on #-msg 33 * if ([$relayw]==[ON]) {
	if ([$numitems(rmesg)]>=[10]) {$delitem(rmesg 0)}	
#	$setitem(rmesg $numitems(rmesg) ${hblk}\(${hwht}$0${hblk}!${cyn}$userhost()${hblk}\) ${cl}$1-))}	
	$setitem(rmesg $numitems(rmesg) $fparse(format_msg ! $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) ${hblk}-${c1}$0${hblk}\(${c2}$userhost()${hblk}\)- ${cl}$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) ${hblk}\(${c1}msg${hblk}!${c2}$0${hblk}\) ${cl}$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) ${hblk}[${c1}notice${hblk}\(${c2}$0${hblk}\)]${cl} $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}] $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]}
 
}
