Undo Modechanges - Revision history

Cail: added some spacing to make it more readable, also added to script archive,

2007-07-02T12:17:00Z

added some spacing to make it more readable, also added to script archive,

Doomie at 12:50, 24 December 2005

2005-12-24T12:50:52Z

← Older revision		Revision as of 12:50, 24 December 2005
Line 178:		Line 178:
	; lets save everything when we exit to bitchmode.dat		; lets save everything when we exit to bitchmode.dat
	[[On_exit\|on *:EXIT:]] {		[[On_exit\|on *:EXIT:]] {
	~~if ($nick == $me) {~~		hsave bitchmode bitchmode.dat
	hsave bitchmode bitchmode.dat
	}
	}		}

Doomie: changed on quit to on exit..

2005-12-05T22:48:13Z

changed on quit to on exit..

← Older revision		Revision as of 22:48, 5 December 2005
Line 176:		Line 176:
	}		}

	; lets save everything when we ~~quit~~ to bitchmode.dat		; lets save everything when we exit to bitchmode.dat
	[[~~On_quit~~\|on *:~~QUIT~~:]] {		[[On_exit\|on *:EXIT:]] {
	if ($nick == $me) {		if ($nick == $me) {
	hsave bitchmode bitchmode.dat		hsave bitchmode bitchmode.dat
	}		}
	}		}

Doomie at 13:35, 29 November 2005

2005-11-29T13:35:52Z

← Older revision		Revision as of 13:35, 29 November 2005
Line 1:		Line 1:
			{{Stub}}
	This script is supposed to undo all modechanges in a channel. It may not work 100%, but it will be updated in the future. You can find explanations in the script.		This script is supposed to undo all modechanges in a channel. It may not work 100%, but it will be updated in the future. You can find explanations in the script.

Doomie at 13:34, 29 November 2005

2005-11-29T13:34:41Z

← Older revision		Revision as of 13:34, 29 November 2005
Line 1:		Line 1:
	on @*:RAWMODE:#: {		This script is supposed to undo all modechanges in a channel. It may not work 100%, but it will be updated in the future. You can find explanations in the script.

			'''Note''' that you cant just replace + with - and - with plus as e.g. +l needs a parameter for setting (the limit that is), but you can unset it without parameter (just -l). Read more about it [[Raw_324\|here]].

			on @*:RAWMODE:#: {
	; check if bitchmode is globally on		; check if bitchmode is globally on
	[[if]] ($bitchmode(global) != on) { halt }		[[if]] ($bitchmode(global) != on) { halt }
Line 76:		Line 80:
	; default settings		; default settings
	if ($nick != $me) { mode $chan %modes %+param %-param }		if ($nick != $me) { mode $chan %modes %+param %-param }
	}		}
			; This is the alias to turn the script on or off, either globally or for channels
			; Its /bitchmode [#channel] [on\|off]
	; This is the alias to turn the script on or off, either globally or for channels		; You can do:
	; Its /bitchmode [#channel] [on\|off]		; /bitchmode #channel <on\|off> - turns bitchmode for this channel on or off
	; You can do:		; /bitchmode #channel - shows current option
	; /bitchmode #channel <on\|off> - turns bitchmode for this channel on or off		; /bitchmode <on> - turns bitchmode on / off. If on, its just activated for the previosly
	; /bitchmode #channel - shows current option		; activated channel
	; /bitchmode <on> - turns bitchmode on / off. If on, its just activated for the previosly		; /bitchmode <off> - turns bitchmode off
	; activated channel		; /bitchmode - shows all options
	; /bitchmode <off> - turns bitchmode off
	; /bitchmode - shows all options		alias bitchmode {

	alias bitchmode {
	; we want to check if its used as identifier ($bitchmode())		; we want to check if its used as identifier ($bitchmode())
	if ($isid) {		if ($isid) {
Line 134:		Line 136:
	}		}
	}		}
	}		}

	; adds everything to the hash		; adds everything to the hash
	[[Raw_324\|raw 324:*:]] {		[[Raw_324\|raw 324:*:]] {
	; we need to get all stuff in field #3 @ raw 005 ($chanmodes)		; we need to get all stuff in field #3 @ raw 005 ($chanmodes)
	var %i = 1, %npara = 1		var %i = 1, %npara = 1
Line 154:		Line 156:
	inc %i		inc %i
	}		}
	}		}

	; we want to load everything on start again		; we want to load everything on start again
	[[On_start\|on *:START:]] {		[[On_start\|on *:START:]] {
	; lets make a new hashtable if it doesnt exist		; lets make a new hashtable if it doesnt exist
	if (!$hget(bitchmode)) { hmake bitchmode 10 }		if (!$hget(bitchmode)) { hmake bitchmode 10 }
Line 171:		Line 173:
	inc %i		inc %i
	}		}
	}		}

	; lets save everything when we quit to bitchmode.dat		; lets save everything when we quit to bitchmode.dat
	[[On_quit\|on *:QUIT:]] {		[[On_quit\|on *:QUIT:]] {
	if ($nick == $me) {		if ($nick == $me) {
	hsave bitchmode bitchmode.dat		hsave bitchmode bitchmode.dat
	}		}
	}		}

Albie at 13:30, 29 November 2005

2005-11-29T13:30:48Z

New page

on @*:RAWMODE:#: {
; check if bitchmode is globally on
[[if]] ($bitchmode(global) != on) { halt }
; check if bitchmode for this channel is on
if ($bitchmode($chan) != on) { halt }
; set some variable.
; we use %cmode to save if it is currenty a "+" or "-" what we are looking at (in $1-)
; %+modes is for modes we want to set, %-modes for modes we want to unset
; %+param are the params for the modes we want to set, %-param for the one we want to unset
; %npara is the number of the parameter we are currently looking at
[[var]] %i = 1, %cmode, %+modes, %-modes, %modes, %+param, %-param, %npara = 1
; lets loop through the string
[[while]] (%i <= [[$len]]($1)) {
; we want to know if a mode is + or -, so lets set it to a variable
if ([[$mid]]($1,%i,1) == +) { %cmode = + }
elseif ($mid($1,%i,1) == -) { %cmode = - }
; if its in the third field of $chanmodes, it needs a parameter to set and none to unset. Look at [[Raw_005|raw 005]] to get
; more info about it
elseif ($mid($1,%i,1) isincs [[$gettok]]([[$chanmodes]],3,44)) {
; if we are currently at the "+"
if (%cmode == +) {
; check if we set something, if yes, we need to set it as "default". Add it to the hashtable
if ($nick == $me) { hadd bitchmode chan. [ $+ [ $chan ] $+ [ $chr(124) ] $+ [ $mid($1,%i,1) ] ] $gettok($1-,$calc(%npara + 1),32) }
; if there is something as default in our hashtable, we want to set this again
if ($bitchmode($chan $+ $chr(124) $+ $mid($1,%i,1))) {
; put it to the variable
%+modes = %+modes $+ $mid($1,%i,1)
; increase the parameter-variable so that we look at the next one
inc %npara
%+param = %+param $bitchmode($chan $+ $chr(124) $+ $mid($1,%i,1))
}
; if there is no default, just unset it
else {
%-modes = %-modes $+ $mid($1,%i,1)
; increase the parameter-variable so that we look at the next one
inc %npara
}
}
; if its "-"
else {
; just reset it with the info we have in our hashtable
%+modes = %+modes $+ $mid($1,%i,1)
%+param = %+param $bitchmode($chan $+ $chr(124) $+ $mid($1,%i,1))
}
}
; if its in the field 1 or 2, it needs a parameter to set AND unset
elseif ($mid($1,%i,1) isincs $gettok($chanmodes,1-2,44)) {
; if its +, we just want to unset it. You dont need to look if this set "oversets" another setting, as this is
; not possible with modes in these fields of $chanmodes
if (%cmode == +) {
%-modes = %-modes $+ $mid($1,%i,1)
%-param = $addtok(%-param,$gettok($1-,$calc(%npara + 1),32),32)
}
; if someone unsets it, we just set it again
else {
%+modes = %+modes $+ $mid($1,%i,1)
%+param = $addtok(%+param,$gettok($1-,$calc(%npara + 1),32),32)
}
; we need to increase the parameter counter again
inc %npara
}
; if its in the last field, its just a simple mode without parameter, so we will just undo it
elseif ($mid($1,%i,1) isin $gettok($chanmodes,4,44)) {
if (%cmode == +) { %-modes = %-modes $+ $mid($1,%i,1) }
else { %+modes = %+modes $+ $mid($1,%i,1) }
}
; here we increase the parameter counter if its a nickmode (e.g. +o)
elseif ($mid($1,%i,1) isincs $nickmodes) { inc %npara }
; increase the looping variable
inc %i
}
; put all stuff together
if ($len(%+modes) > 0) { %modes = %modes + $+ %+modes }
if ($len(%-modes) > 0) { %modes = %modes $+ - $+ %-modes }
; if we did do all this stuff, we dont want to undo it of course. We still needed to loop through it to set new
; default settings
if ($nick != $me) { mode $chan %modes %+param %-param }
}

; This is the alias to turn the script on or off, either globally or for channels
; Its /bitchmode [#channel] [on|off]
; You can do:
; /bitchmode #channel <on|off> - turns bitchmode for this channel on or off
; /bitchmode #channel - shows current option
; /bitchmode <on> - turns bitchmode on / off. If on, its just activated for the previosly
; activated channel
; /bitchmode <off> - turns bitchmode off
; /bitchmode - shows all options

alias bitchmode {
; we want to check if its used as identifier ($bitchmode())
if ($isid) {
; lets return the global setting
if ($1 == global) { return $hget(bitchmode,global) }
; if its a channel in the first parameter
if ($left($1,1) == $chr(35)) {
; return whether bitchmode is on or off for this channel
if ($numtok($1-,32) == 1) {
[[return]] [[$iif]]([[$hget]](bitchmode,chan. [ $+ [ $1 ] ]),$hget(bitchmode,chan. [ $+ [ $1 ] ]))
}
; return information we have saved about a certain channel (modes that are set)
else {
return $iif($hget(bitchmode,chan. [ $+ [ $1 ] ]),$hget(bitchmode,chan. [ $+ [ $1 ] ]));
}
}
}
; its no identifier, so its for changing options
else {
; we want to give everything out
if (!$1) {
; lets loop through all items in the hash
var %i = 1
while (%i <= $hfind(bitchmode,chan.*,0,w)) {
; if it is really a channel option
if ($chr(124) !isin $hfind(bitchmode,chan*,%i,w)) {
echo -a $gettok($hfind(bitchmode,chan*,%i,w),2,46) => $hget(bitchmode,$hfind(bitchmode,chan*,%i,w))
}
; increase looping variable
inc %i
}
; echo the global options
echo -a GLOBAL: $hget(bitchmode,global)
}
; we want to turn it on
if ($1 == on) { hadd bitchmode global on | echo -a bitchmode turned on for: global. }
; we want to turn it off
if ($1 == off) { hadd bitchmode global off | echo -a bitchmode turned off for: global. }
; we want to change a channel setting, so lets do it
if ($left($1,1) == $chr(35)) {
if (!$istok(on off, $2, 32)) { halt }
hadd bitchmode chan. [ $+ [ $chan ] ] on
echo -a bitchmode turned $2 for: $1 $+ .
}
}
}

; adds everything to the hash
[[Raw_324|raw 324:*:]] {
; we need to get all stuff in field #3 @ raw 005 ($chanmodes)
var %i = 1, %npara = 1
; lets loop through the information the raw gives us
while (%i <= $len($3)) {
; if it is in the field 3, we need to save it (as we dont get the information when it is unset)
if ($mid($3,%i,1) isincs $gettok($chanmodes,3,44)) {
; add it to the hashtable
hadd bitchmode chan. [ $+ [ $2 ] $+ [ $chr(124) ] $+ [ $mid($3,%i,1) ] ] $gettok($1-,$calc($3 + %npara),32)
; increase parameter counter
inc %npara
}
; if its in the first or second field, lets increase the counter parameter again
if ($mid($3,%i,1) isincs $gettok($chanmodes,1-2,44)) { inc %npara }
; increase looping variable
inc %i
}
}

; we want to load everything on start again
[[On_start|on *:START:]] {
; lets make a new hashtable if it doesnt exist
if (!$hget(bitchmode)) { hmake bitchmode 10 }
; load the "old" stuff in it
hload bitchmode bitchmode.dat
; delete everything but channels and global
var %i = 1
; loop through the entire table
while (%i <= $hget(bitchmode,0).item) {
; delete everything thats no channel or global option
if ($chr(124) isin $hget(bitchmode,%i).item) && (global != $hget(bitchmode,%i).item) { hdel bitchmode $hget(bitchmode,%i).item }
; increase looping variable
inc %i
}
}

; lets save everything when we quit to bitchmode.dat
[[On_quit|on *:QUIT:]] {
if ($nick == $me) {
hsave bitchmode bitchmode.dat
}
}