Clear-Chanlev Script for QuakeNet - Revision history

Wiebe: disable the removing of owners, so Q is not removed.

2010-04-09T22:24:38Z

disable the removing of owners, so Q is not removed.

← Older revision		Revision as of 22:24, 9 April 2010
Line 5:		Line 5:
	; You can use this script by typing:		; You can use this script by typing:
	;		;
	; /clearchanlev [~~-c\|~~-r] #channel		; /clearchanlev [-r] #channel
	;		;
	; Note, that you must be authed and owner of #channel.		; Note, that you must be authed and owner of #channel.
Line 12:		Line 12:
	; * -r ... Resets the script, i.e. cleans everything up. One usually doesn't need that flag, however, if something didn't work,		; * -r ... Resets the script, i.e. cleans everything up. One usually doesn't need that flag, however, if something didn't work,
	; one can use it.		; one can use it.
	~~; * -c ... If you use this flag, the script will remove you from the channel aswell. This means, that Q will leave the channel~~
	~~; completly. Note that you can _NOT_ reverse it!~~
	;		;
	;		;
Line 38:		Line 36:
	; flags:		; flags:
	; -c --complete = deletes the complete chanlev, inclusive owner. This will		; -c --complete = deletes the complete chanlev, inclusive owner. This will
	; result in Q parting.		; result in Q parting. This option is disabled.
	; -r --reset = resets the scripts in case something didn't work the last time.		; -r --reset = resets the scripts in case something didn't work the last time.
	alias ClearChanlev {		alias ClearChanlev {
Line 46:		Line 44:
	%c = $ [[Evaluation_brackets\|[]] [[DollarPlus\|$+]] [[Evaluation_brackets\|[]] %i [[Evaluation_brackets\|] ]]]		%c = $ [[Evaluation_brackets\|[]] [[DollarPlus\|$+]] [[Evaluation_brackets\|[]] %i [[Evaluation_brackets\|] ]]]
	[[if]] (%c [[If#.3D.3D\|==]] -c) [[If#Combining_comparisons\|\|\|]] (%c == --complete) {		[[if]] (%c [[If#.3D.3D\|==]] -c) [[If#Combining_comparisons\|\|\|]] (%c == --complete) {
	%ClearChanlev.Complete = 1		echo -s ClearChanlev: The %c option to remove Q is disabled, it is ignored.
			; %ClearChanlev.Complete = 0
	}		}
	elseif (%c == -r) \|\| (%c == --reset) {		elseif (%c == -r) \|\| (%c == --reset) {
Line 174:		Line 173:
	else {		else {
	if (n isin $2) {		if (n isin $2) {
	write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)		; do not remove owners - do not change unless you know what you are doing!
			return
			; write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)
	}		}
	else {		else {

Doomie at 14:02, 12 April 2008

2008-04-12T14:02:45Z

← Older revision		Revision as of 14:02, 12 April 2008
Line 145:		Line 145:
	set %ClearChanlev.Global [[$puttok]](%ClearChanlev.Global, 0, 6, 32)		set %ClearChanlev.Global [[$puttok]](%ClearChanlev.Global, 0, 6, 32)
	if ([[$numtok]](%ClearChanLev.Users,32)) {		if ([[$numtok]](%ClearChanLev.Users,32)) {
	[[write]] ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users		[[write]] -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users
	unset %ClearChanlev.Users		unset %ClearChanlev.Users
	}		}

Doomie: added -il1 to fix the order of the commands to send

2008-04-12T13:27:11Z

added -il1 to fix the order of the commands to send

← Older revision		Revision as of 13:27, 12 April 2008
Line 174:		Line 174:
	else {		else {
	if (n isin $2) {		if (n isin $2) {
	write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)		write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)
	}		}
	else {		else {
	set %ClearChanlev.Users $addtok(%ClearChanLev.users,$chr(35) $+ $1,32)		set %ClearChanlev.Users $addtok(%ClearChanLev.users,$chr(35) $+ $1,32)
	if ($numtok(%ClearChanlev.Users,32) == 18) {		if ($numtok(%ClearChanlev.Users,32) == 18) {
	write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanlev.Users		write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanlev.Users
	unset %ClearChanlev.Users		unset %ClearChanlev.Users
	}		}

Saturn: fix for "No channel specified" error

2008-04-12T12:15:57Z

fix for "No channel specified" error

← Older revision		Revision as of 12:15, 12 April 2008
Line 45:		Line 45:
	[[While loops\|while]] (%i [[If#.3C.3D\|<=]] [[$0]]) {		[[While loops\|while]] (%i [[If#.3C.3D\|<=]] [[$0]]) {
	%c = $ [[Evaluation_brackets\|[]] [[DollarPlus\|$+]] [[Evaluation_brackets\|[]] %i [[Evaluation_brackets\|] ]]]		%c = $ [[Evaluation_brackets\|[]] [[DollarPlus\|$+]] [[Evaluation_brackets\|[]] %i [[Evaluation_brackets\|] ]]]
	[[if]] (%c [[If#.3D.3D\|<=]] -c) [[If#Combining_comparisons\|\|\|]] (%c == --complete) {		[[if]] (%c [[If#.3D.3D\|==]] -c) [[If#Combining_comparisons\|\|\|]] (%c == --complete) {
	%ClearChanlev.Complete = 1		%ClearChanlev.Complete = 1
	}		}

Albie: added wiki links and corrected raw category linking

2008-04-04T14:23:32Z

added wiki links and corrected raw category linking

← Older revision		Revision as of 14:23, 4 April 2008
Line 79:		Line 79:
	}		}

	[[Category:Raws\|raw]] [[Raw_354\|354]]:*: {		[[:Category:Raws\|raw]] [[Raw_354\|354]]:*: {
	if ([[$1-\|$2]] == [[$gettok]](%ClearChanlev.Global, 3, 32)) && ($3 == $me) {		if ([[$1-\|$2]] == [[$gettok]](%ClearChanlev.Global, 3, 32)) && ($3 == $me) {
	haltdef		haltdef
Line 88:		Line 88:
	raw [[Raw_315\|315]]:*: {		raw [[Raw_315\|315]]:*: {
	if (%ClearChanlev.Global) && ($2 == $me) {		if (%ClearChanlev.Global) && ($2 == $me) {
	haltdef		[[haltdef]]
	if ($gettok(%ClearChanlev.Global, 4, 32) == 0) {		if ($gettok(%ClearChanlev.Global, 4, 32) == 0) {
	echo -s ClearChanlev: You are NOT authed.		echo -s ClearChanlev: You are NOT authed.
Line 123:		Line 123:

	alias -l ClearChanlev.CleanUp {		alias -l ClearChanlev.CleanUp {
	.remove ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt		.[[remove]] ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt
	unset %ClearChanlev.*		unset %ClearChanlev.*
	.timerClearChanlevCleanUp off		.timerClearChanlevCleanUp off
Line 143:		Line 143:
	elseif (End of list. == $1-) {		elseif (End of list. == $1-) {
	echo -s ClearChanlev: ...done.		echo -s ClearChanlev: ...done.
	set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 0, 6, 32)		set %ClearChanlev.Global [[$puttok]](%ClearChanlev.Global, 0, 6, 32)
	if ($numtok(%ClearChanLev.Users,32)) {		if ([[$numtok]](%ClearChanLev.Users,32)) {
	write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users		[[write]] ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users
	unset %ClearChanlev.Users		unset %ClearChanlev.Users
	}		}
Line 168:		Line 168:
	}		}
	else {		else {
	write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)		write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 [[$replace]]($2,+,-)
	return		return
	}		}
Line 188:		Line 188:
	}		}

	on ^:Notice::?: {		on ^:[[On_notice\|Notice]]::?: {
	if ($nick == Q) && (%ClearChanlev.Global) {		if ([[$nick]] == Q) && (%ClearChanlev.Global) {
	haltdef		haltdef
	ClearChanlev.Interpret $1-		ClearChanlev.Interpret $1-
Line 195:		Line 195:
	}		}

	on ^:Text::?: {		on ^:[[On_text\|Text]]::?: {
	if ($nick == Q) && (%ClearChanlev.Global) {		if ($nick == Q) && (%ClearChanlev.Global) {
	haltdef		haltdef
Line 202:		Line 202:
	}		}

	on *:PLAYEND:{		on *:[[On_playend\|PLAYEND]]:{
	if ($nopath($filename) == ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) {		if ([[$nopath]]([[$filename]]) == ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) {
	echo -s ClearChanlev: ...done.		echo -s ClearChanlev: ...done.
	ClearChanlev.Cleanup		ClearChanlev.Cleanup

Albie: half finished wiki links

2008-04-04T14:09:00Z

half finished wiki links

← Older revision		Revision as of 14:09, 4 April 2008
Line 32:		Line 32:
	; Returns the milliseconds between every message sent to Q		; Returns the milliseconds between every message sent to Q
	; If you excess flood, you should increase this value to 4000 or even 5000.		; If you excess flood, you should increase this value to 4000 or even 5000.
	alias -l ClearChanlev.Delay { return 3000 }		[[alias]] -l ClearChanlev.Delay { [[return]] 3000 }

	; $1 = #channel		; $1 = #channel
Line 41:		Line 41:
	; -r --reset = resets the scripts in case something didn't work the last time.		; -r --reset = resets the scripts in case something didn't work the last time.
	alias ClearChanlev {		alias ClearChanlev {
	echo -s ClearChanlev: -----------------------------		[[echo]] -s ClearChanlev: -----------------------------
	var %i = 1, %c, %ClearChanlev.Complete = 0, %r, %ClearChanlev.Force = 0, %ClearChanlev.Channel		[[var]] %i = 1, %c, %ClearChanlev.Complete = 0, %r, %ClearChanlev.Force = 0, %ClearChanlev.Channel
	while (%i <= $0) {		[[While loops\|while]] (%i [[If#.3C.3D\|<=]] [[$0]]) {
	%c = $ [ $+ [ %i ] ]		%c = $ [[Evaluation_brackets\|[]] [[DollarPlus\|$+]] [[Evaluation_brackets\|[]] %i [[Evaluation_brackets\|] ]]]
	if (%c == -c) \|\| (%c == --complete) {		[[if]] (%c [[If#.3D.3D\|<=]] -c) [[If#Combining_comparisons\|\|\|]] (%c == --complete) {
	%ClearChanlev.Complete = 1		%ClearChanlev.Complete = 1
	}		}
Line 51:		Line 51:
	%ClearChanlev.Force = 1		%ClearChanlev.Force = 1
	}		}
	elseif ($left(%c, 1) == $chr(35)) {		elseif ([[$left]](%c, 1) == [[$chr]](35)) {
	%ClearChanlev.Channel = %c		%ClearChanlev.Channel = %c
	}		}
	inc %i		[[inc]] %i
	}		}
	if (%ClearChanlev.Global) {		if (%ClearChanlev.Global) {
Line 63:		Line 63:
	}		}
	else {		else {
	unset %ClearChanlev.Global		[[unset]] %ClearChanlev.Global
	echo -s ClearChanlev: ClearChanlev reseted.		echo -s ClearChanlev: ClearChanlev reseted.
	}		}
Line 71:		Line 71:
	return		return
	}		}
	%r = $rand(1,1000)		%r = [[$rand]](1,1000)
	set %ClearChanlev.Global %ClearChanlev.Channel %ClearChanlev.Complete %r		[[set]] %ClearChanlev.Global %ClearChanlev.Channel %ClearChanlev.Complete %r
	echo -s ClearChanlev: Now beginning to remove all chanlevs from channel %ClearChanlev.Channel $iif(%ClearChanlev.Complete, inclusive, except) yours!		echo -s ClearChanlev: Now beginning to remove all chanlevs from channel %ClearChanlev.Channel [[$iif]](%ClearChanlev.Complete, inclusive, except) yours!
	echo -s ClearChanlev: Receiving own auth now!		echo -s ClearChanlev: Receiving own auth now!
	.~~timerClearChanlevCleanUp~~ 1 60 ClearChanlev.CleanUp		.[[timer]]ClearChanlevCleanUp 1 60 ClearChanlev.CleanUp
	.who $me n%nat, $+ %r		.[[who]] [[$me]] n%nat, $+ %r
	}		}

	raw 354:*: {		[[Category:Raws\|raw]] [[Raw_354\|354]]:*: {
	if ($2 == $gettok(%ClearChanlev.Global, 3, 32)) && ($3 == $me) {		if ([[$1-\|$2]] == [[$gettok]](%ClearChanlev.Global, 3, 32)) && ($3 == $me) {
	haltdef		haltdef
	set %ClearChanlev.Global %ClearChanlev.Global $4		set %ClearChanlev.Global %ClearChanlev.Global $4
Line 86:		Line 86:
	}		}

	raw 315:*: {		raw [[Raw_315\|315]]:*: {
	if (%ClearChanlev.Global) && ($2 == $me) {		if (%ClearChanlev.Global) && ($2 == $me) {
	haltdef		haltdef
Line 96:		Line 96:
	echo -s ClearChanlev: ...done.		echo -s ClearChanlev: ...done.
	set %ClearChanlev.Global %ClearChanlev.Global 0		set %ClearChanlev.Global %ClearChanlev.Global 0
	.msg Q chanlev $gettok(%ClearChanlev.Global, 1, 32)		.[[msg]] Q chanlev $gettok(%ClearChanlev.Global, 1, 32)
	}		}
	}		}
Line 102:		Line 102:

	alias -l ClearChanlev.GotMessages {		alias -l ClearChanlev.GotMessages {
	if (!$exists(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt)) {		if (![[$exists]](ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt)) {
	echo -s ClearChanlev: File does not exist!		echo -s ClearChanlev: File does not exist!
	ClearChanlev.CleanUp		ClearChanlev.CleanUp
	return		return
	}		}
	if ($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) == 0) {		if ([[$lines]](ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) == 0) {
	echo -s ClearChanlev: No chanlev to remove!		echo -s ClearChanlev: No chanlev to remove!
	ClearChanlev.CleanUp		ClearChanlev.CleanUp
Line 117:		Line 117:
	return		return
	}		}
	echo -s ClearChanlev: There are $lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) lines to send. This will take $&		echo -s ClearChanlev: There are $lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) lines to send. This will take [[$&]]
	approximatly $calc($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) * $ClearChanlev.Delay / 1000) seconds. Removing...		approximatly $calc($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) * $ClearChanlev.Delay / 1000) seconds. Removing...
	.play Q ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt $ClearChanlev.Delay		.[[play]] Q ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt $ClearChanlev.Delay
	}		}

Albie: forgot category as well

2008-04-03T18:27:55Z

forgot category as well

← Older revision		Revision as of 18:27, 3 April 2008
Line 208:		Line 208:
	}		}
	}		}
			[[Category:Script Archive]]
			{{Author\|Doomie}}

Albie: oops, added spacing

2008-04-03T18:27:14Z

oops, added spacing

Show changes

Albie: Script updated to work with Q9. Tested with version 1.00

2008-04-03T18:25:11Z

Script updated to work with Q9. Tested with version 1.00

Show changes

Saturn: cc.remove explicitly set to $false at start now, thanks faile

2006-04-12T21:59:45Z

cc.remove explicitly set to $false at start now, thanks faile

← Older revision		Revision as of 21:59, 12 April 2006
Line 27:		Line 27:
	set %cc.chan $1		set %cc.chan $1
	if ($2 == -remove) { [[set]] %cc.remove $true }		if ($2 == -remove) { [[set]] %cc.remove $true }
			else { [[set]] %cc.remove $false }
	echo $color(info) -at *** Clear-Chanlev: Getting your %cc.bot $+ -Account Name.		echo $color(info) -at *** Clear-Chanlev: Getting your %cc.bot $+ -Account Name.
	.enable #clearchanlev		.enable #clearchanlev