# Paste Written by Snoop_911

alias paste 
{
# Normal paste
	if ([$@0] > [0] && [$match(*-* $0)] < [1])
	{
		say Pasted : $line($0 $1)
	}
# Paste a range of lines from 1
	if ([$match(-* $0)] > [0] && [$0] != [-help] && [$0] != [-msg] && [$0] != [-sping] && [$0] != [-topic] && [$0] != [-totopic] && [$0] != [-wall] && [$0] != [-ann])
	{
		@:pasterangefrom = tr(/-//$0)
		if ([$pasterangefrom]>[0])
		{
			for ( @ count = pasterangefrom, count > 0, @ count--)
			{
				say Pasted : $line($count $1)
			}
		}
		{xecho -b Make Sure Your Range Is Greater Than 0.}
	}
# Paste a range of lines from any number to any number
	if ([$match(*-* $0)] > [0] && [$match(-* $0)] =< [0] && [$0] != [-help] && [$0] != [-msg] && [$0] != [-sping] && [$0] != [-topic] && [$0] != [-totopic] && [$0] != [-wall])
	{
		@:pasterangefrom = before(- $0)
		@:pasterangeto = after(- $0)
		if ([$pasterangefrom]>[$pasterangeto] && [$pasterangeto]>[0] && [$pasterangefrom]>[0])
		{
			@:pasterangeto = pasterangeto - 1
			for ( @ count = pasterangefrom, count > pasterangeto, @ count--)
			{
				say Pasted : $line($count $1)
			}
		}
		if ([$pasterangefrom]<[$pasterangeto] && [$pasterangeto]>[0] && [$pasterangefrom]>[0])
		{
			@:pasterangefrom = pasterangefrom -1
			for ( @ count = pasterangeto, count > pasterangefrom, @ count--)
			{
				say Pasted : $line($count $1)
			}
		}
	}
# Paste Server Ping
	if ([$0] == [-sping])
	{
		if ([$@1] > [0])
		{
			^assign sping_to $1
			^on #^pong 3266 "*$sping_to*" 
			{ 
				say Received a PONG from $0 : [$1- seconds]
				^on #^public 3267 "*Received a PONG from*$0*" 
				{
					^on #^pong 3266 "*$0*" {}
					^on #^public 3267 "*Received a PONG from*$0*" {}
				}
			}
			//sping $sping_to
		}
		{
			^on #^pong 3266 "*$S*" 
			{ 
				say Received a PONG from $0 : [$1- seconds]
				^on #^public 3267 "*Received a PONG from*$S*" 
				{
					^on #^pong 3266 "*$S*" {}
					^on #^public 3267 "*Received a PONG from*$S*" {}
				}
			}
			//sping $S
		}
	}
# Paste to Personal Message
	if ([$0] == [-msg])
	{
		msg $1 Pasted : $line($2 $3)
	}
# Paste to Wallops
	if ([$0] == [-wall])
	{
		wall Pasted : $line($1 $2)
	}
# Paste to Wallops
	if ([$0] == [-ann])
	{
		announce Pasted : $line($1 $2)
	}
# Paste To Topic in Current Channel
	if ([$0] == [-totopic])
	{
		topic $C $line($1 $2)
	}
# Paste Topic FROM Current Channel
	if ([$0] == [-topic])
	{
		topic
		paste
	}
# Views Usage of /PASTE
	if ([$0] == [-help])
	{
		xecho -b Usage : /PASTE [-msg] [-sping] [-topic] [-totopic] [-wall] [-ann] <line#> <window#>
		xecho            - Paste a line or a range of lines to the current channel
	}
# Pastes the Last Line from the current Channel
	if ([$@0] < [1] && [$match(-* $0)] < [1])
	{
		say Pasted : $line(1)
	}
}