Tovrleaf: edited links

2005-09-15T15:23:38Z

edited links

← Older revision		Revision as of 15:23, 15 September 2005
Line 34:		Line 34:
	}		}
	;start a timer for the awaycheck		;start a timer for the awaycheck
	[[~~on_connect~~\|~~on *:~~connect]]:{		on *:[[on connect\|connect]]:{
	;the . is so you won't see "* Timer 1 activated" when you start it		;the . is so you won't see "* Timer 1 activated" when you start it
	;the 0 is to let it run forever, or till you turn mirc off or your computer crashes :)		;the 0 is to let it run forever, or till you turn mirc off or your computer crashes :)

Tovrleaf: links enabled

2005-08-30T16:56:22Z

links enabled

New page

This is an example of a basic away script, including autoaway and option to send a message when you're away/back.

;away alias
[[Aliases|alias]] away {
;if $1 does exist, you'll be marked as away, else you're back
[[If-Then-Else|if]] ([[$1-|$1]]) {
;this is to send an /ame when you set yourself as away
[[ame]] is away: [[$1-]]
;the ! is so the normal away alias will be used.
!away $1-
}
[[If-Then-Else|else]] {
if ([[$away]]) {
;send an /ame when you're back :]
ame is back from $1-
!away
}
else {
[[echo]] -a error, you were not marked as away yet, so you can't use /away
echo -a to be back again :)
}
}
}
;this alias is to check if you're active
alias awaycheck {
;%t is the var wich is after how many seconds you should be marked as away auto
[[var]] %t = 600
;the autoaway will only work if you're not away yet, and if $idle (the amount of seconds you've done nothing in mirc)
;is bigger then %t
if (!$away) && ($idle >= %t) {
;the ame message when you are auto away is considered as being annoying, so we'll disable that by using !away
!away autoaway after %t seconds
}
}
;start a timer for the awaycheck
[[on_connect|on *:connect]]:{
;the . is so you won't see "* Timer 1 activated" when you start it
;the 0 is to let it run forever, or till you turn mirc off or your computer crashes :)
;30 means every 30 seconds
.[[timer]] 0 30 awaycheck
}
;add here all channels you don't want you're /ame messages to appear in
alias nochannels {
;return is to make it an identifyer, so you can use $nochannels wich will give everything you put behind return
[[return]] #help.script,#feds,#help,#other_channels
}
;ame alias, wich doesn't send the message to all channels
alias ame {
;make %a 1, and clear %t
var %a = 1,%t
;the while runs as long as %a is lower or equal to $chan(0)
[[While_loops|while]] (%a <= $chan(0)) {
;$istok is an identifyer wich will return $true if the $chan(%a) is in $nochannels
if (![[$istok]]($nochannels,[[$chan]](%a),44)) {
;if $chan(%a) is not it in, add the channel to %t
var %t = %t $+ $chr(44) $+ $chan(%a)
;echo in the channel the action
echo [[$color]](action text) -t $chan(%a) * [[$nick]]($chan(%a),[[$me]]).pnick $1-
}
inc %a
}
;send the message to the server
.[[raw]] PRIVMSG $right(%t,-1) $+(:,$chr(1),ACTION,$chr(32),$1-,$chr(1))
}

[[Category:Script Archive]]

Away script - Revision history

Tovrleaf: edited links

Tovrleaf: links enabled