### This idea was taken from Terminator|Excaliber by ShaMan. I hope I don't have any major
### bugs in it.
### Written by skullY, 98/07/07

### DO NOT GIVE THIS TO ANYONE!

alias secho //echo [SysFail] $* 

on ^raw_irc "*NOTICE*:JOIN*SysFail*" {
	if ([$6]==[RAPEIT]) {
		quote notice $nickonly($0) :VERIFY JOIN $4 WILLYOU 
		^assign JOINCHAN 1
		timer 45 ^assign JOINCHAN 0
		secho $nickonly($0) requested your presence in $4, waiting for verification
	}{
		//notice $nickonly($0) FUCK OFF
		secho $nickonly($0) didn't use the correct format to have you join
	}
}

on ^raw_irc "*NOTICE*:SYSFAIL*" {
	if ([$5]==[OK]) {
		if ([$JOINCHAN]==[1]) {
			quote notice $nickonly($0) :Joining $4 at your request
			join $4
		}{
			quote notice $nickonly($0) :Too much lag. You took more then 45 seconds to respond.
			secho Not joining dammit. That idiot either took too long or is tricking you
		}
	}
}

on ^raw_irc "*NOTICE*:VERIFY JOIN*" {
	if ([$6]==[WILLYOU]) {
		quote notice $nickonly($0) :SYSFAIL $5 OK 
		secho $nickonly($0) is verifying the join for $5
	}{
		//notice $nickonly($0) FUCK OFF, I didn't send that
		secho $nickonly($0) is trying to trick you
	}
}

alias sysfjoin {
	if ([$0]) {
		^notice $0 JOIN $1 SysFail RAPEIT 
		secho Having $0 join $1
	}{
		secho Usage: /sysfjoin <nick> <channel>
	}
}

on ^raw_irc "*NOTICE*:PART*SysFail*" {
	if ([$6]==[RAPEIT]) {
		quote notice $nickonly($0) :VERIFY PART $4 WILLYOU 
		^assign PARTCHAN 1
		timer 45 ^assign PARTCHAN 0
		secho $nickonly($0) requested you part $4, waiting for verification
	}{
		//notice $nickonly($0) FUCK OFF
		secho $nickonly($0) didn't use the correct format to have you part.
	}
}

on ^raw_irc "*NOTICE*:SYSFAILPART*" {
	if ([$5]==[OK]) {
		if ([$PARTCHAN]==[1]) {
			quote notice $nickonly($0) :Parting $4 at your request
			leave $4
		}{
			quote notice $nickonly($0) :Too much lag. You took more then 45 seconds to respond.
			secho Not parting dammit. That idiot either took too long or is tricking you
		}
	}
}

on ^raw_irc "*NOTICE*:VERIFY PART*" {
	if ([$6]==[WILLYOU]) {
		quote notice $nickonly($0) :SYSFAILPART $5 OK 
		secho $nickonly($0) is verifying the part for $5
	}{
		//notice $nickonly($0) FUCK OFF, I didn't send that
		secho $nickonly($0) is trying to trick you
	}
}

alias sysfpart {
	if ([$0]) {
		^notice $0 PART $1 SysFail RAPEIT 
		secho Having $0 part $1
	}{
		secho Usage: /sysfpart <nick> <channel>
	}
}

secho Protect.irc loaded, DO NOT GIVE THIS OUT!