AdiIRC

h1. Notice: this is info for 1.8.8 and higher.

h1. Scripting

In the latest beta's, I am experimenting with a little more advanced scripting features and I will use this wiki to track progress and features.

Syntax, variables and functions will probably change a lot, so don't except previous scripts to still work in the next beta and so forth.

There are 2 types of scripting at the moment, one that have been here for a long time, and a new system.

All scripting is done in Commands -> Edit Commands where one line represent a script or a custom command and its trigger is one of 3 ways:

/something<whitespace> 

keys<whitespace>

OnEvent<whitespace>

Please note that variables and functions are *different* for these 2 types of scripts.

You can comment out a command by putting a # in front of it.

h1. Normal custom commands:

<pre>Syntax = /something<whitespace>/somethingelse</pre>

Here are some variables which can be used in Custom Commands, its like creating aliases of already available commands, e.g <pre>/hi /me says hi to $chan</pre> will show <pre>* kr0n says hi to #adiirc</pre> when typing <pre>/hi</pre>

Current variables are $1 to $9, $params, $chan and $me. $1 to $9 represents what you type after /yourcommand e.g <pre>/sup /say whats up $1</pre> when typing <pre>/sup kr0n</pre> it will show like this <pre>User: whats up kr0n</pre>

$params represents everything written after /yourcommand, $chan replaces itself with current channel and $me replaces itself with your current usernick. 

You can make combo commands by using | as a seperator, e.g <pre>/hi /me says hi to $chan|/me says hi again to $chan</pre>

$file[path] returns data from a file, $frand[path] fetchs a random line from a file and $floop[path] gets one line increasingly (line1, then line2, then line3 etc).

h1. Custom Commands by hotkeys

<pre>Syntax = key&key<whitespace>/something</pre>

In addition to making a custom command trigger by typing a /slash command, you make it trigger with a hotkey instead (note, these commmands will not be useable from the new scripting engine)

Useable modifies are ctrl, alt and shift and any character or number or F key.

An example

<pre>ctrl&o /msg $chan ohai i just pressed ctrl and o</pre>

Everytime you press ctrl and 'o' now, this command will be fired off.

<pre>ctrl&alt&o /msg $chan ohai i just pressed ctrl and alt and o</pre>

Everytime you press ctrl and alt and 'o' now, this command will be fired off.

h1. Unified Scripting

<pre>Syntax = OnEvent<whitespace>code</pre>

The new scripting tries to combine normal client commands, your custom commands, functions and events into one scripting language.

In Commands -> Edit Commands you can enter a scripting line with the following syntax:

Followed by either an expression like this (works recursivly)

<pre>

if (SOMETING == SOMETHINGELSE) { EXECUTE HERE }

if (SOMETING != SOMETHINGELSE) { EXECUTE HERE }

if (SOMETING ismatch SOMETHINGELSE) { EXECUTE HERE }</pre>

or by an executed command or function

You can now combine expressions with && (AND) and || (OR) like this

<pre>

if (SOMETHING == SOMETHING && SOMETHINGELSE != SOMETHINGELSE) { EXECUTE HERE }

if (SOMETHING == SOMETHING || SOMETHINGELSE != SOMETHINGELSE) { EXECUTE HERE }</pre>

The logic behind these expressions is not fully tested, id love any feedback on this.

It is also possible to use else if like this

<pre>if (SOMETHING == SOMETHING) { EXECUTE HERE } else if (SOMETHINGELSE == SOMETHINGELSE) { EXECUTE HERE }</pre>

In the future just "else" will be possible to.

(note: ismatch will check if SOMETHING exist inside SOMETHINGELSE e.g if something is "hello" and something else is "hello world" it would return True because "hello" exist)

Executed commands are /slash commands already in the client e.g /msg #channel hello world.

Executed functions are predefined functions in the client, only two exists for now.

An execution block can consist of both commands and functions if seperated by | (pipe) character like this <pre>/msg #channel hello world|.function bla bla|/msg #channel2 hello world</pre>

Furthermore there is a lot of predefined variables for use with these functions, for now they are:

$event / current event, e.g PRIVMSG 001 MODE and so forth

$channel / the channel the event occurred on, if any

$msg / the message to the channel/user or the message in a raw irc line e.g whois [kr0n] is a registered nick

$nick / the nick the event was sent from, can be a irc.server.com, a nick or null

$me / my current nick

$network / the network the event occured on e.g Quakenet

$ident / the from user ident if any

$host / the from user hostname if any

$myident / my ident

$myhost / my host

$server / host from the server e.g irc.server.com

Currently predefined functions are:

<pre>

.insert <nick (use null for nonick)> 

<where (a channel or $channel, a nick or $nick, or status)> 

<MsgType (MsgServer/MsgUser/MsgEmote/MsgCTCP/MsgNotice/MsgClient/MsgLog)> 

<$msg or message></pre>

<pre>

.eat <what (text or all)></pre>

.insert is used for inserting a specific message type into a chat window, its intended for use in cases where you want to override how adiirc shows a given event, but can also be used for adding additional messages.

.eat is used to tell adiirc to either "eat" the text output from an event or "eat" everything and don't act on this event at all.

Putting it all togheter, here are a few examples:

<pre>

OnEvent if ($event == NOTICE) { if ($msg ismatch hi there) { .insert $nick status MsgNotice $msg|.eat text } }</pre>

insert the notice into the server window and tells adiirc to "eat" its own text output from this notice

<pre>

OnEvent if ($event == PRIVMSG && $msg == herp) { /msg $channel derp }</pre>

if the event is a PRIVMSG AND the $msg equals "herp", then show "derp" in the channel

<pre>

OnEvent if ($event == PRIVMSG) { if ($nick == Q || $nick == $me) { /msg $channel Q or $me is speaking! } }</pre>

if the event is a PRIVMSG and the $nick equals "Q" OR $me then show "Q or $me is speaking" in the channel

<pre>OnEvent if ($event == OnOp && $nick == $me) { /msg $channel Thx for op! }</pre>

if the event is OnOp and the target nick is me, then show "Thx for op!" in the channel

A list of custom events that is also usable as $event ==

<pre>

OnOwner

OnDeOwner

OnSpecialOp

OnSpecialDeOp

OnOp

OnDeOp

OnHop

OnDeHop

OnVoice

OnDeVoice

</pre>

h1. Scripting changes in latest beta

This does not apply to the latest stable release!

*Scripting is now unified completly which means all variables applies to all scripts and:

$file[path] is now $file(path);

$frand[path] is now $frand(path);

$floop[path] is now $floop(path);*

*OnEvent* is now executed *AFTER* the event, use *OnBeforeEvent* for events where you want to .eat or in other ways manipulate the event.

New command /nmsg added for cross network output, and a new event OnSongChanged. 

Combine them and you can automatically announce song changes in a channel or to a user with:

<pre>

OnEvent if ($event == OnSongChanged) { /nmsg <network> <channel/Nick> $msg }

</pre>

Announce to several channels with:

<pre>

OnEvent if ($event == OnSongChanged) { /nmsg <network> <channel/Nick> $msg|/nmsg <network> <channel/Nick> $msg }

</pre>

Network is the network name where the channel is, e.g NordicIRC, freenode, Quakenet, look at the name of the server window you are connected on to find it.

Also added is better escaping, variables and a "null" variable, e.g

<pre>

OnEvent if ($event == PRIVMSG) { if (%test == null) { %test = SOMETHING|/msg $channel test is %test } }

</pre>

New variable $now returns unixtime/ctime from current time.

New variable $active returns the current window Status/#channel/Nick.

New variable $! returns how many $0 $1 etc variables are filled (not sure if final name of it)

These variables are saved into vars.ini unless removed %var == null and reloaded when adiirc starts.

You can change/use them in any script.

Note also that all user set variables starts with % and client variables starts with $.

Some commands for manipulate variables:

<pre>

/set {-u seconds/-d] [%var] [value] / create or update a variable with value -u seconds, will delete the variable after X seconds, -d will decrease its value by 1 every second, then remove it

/unset [var] / deletes a variable

/inc {-u seconds/-d] [%var] [value] / increases a variable with value (only if value and var is ints) -u seconds, will delete the variable after X seconds, -d will decrease its value by 1 every second, then remove it

/dec {-u seconds/-d] [%var] [value] / decreases a variable with value (only if value and var is ints) -u seconds, will delete the variable after X seconds, -d will decrease its value by 1 every second, then remove it

/vars shows a list of all variables and their values

</pre>

Variables is still work in progress, id love some feedback/ideas of what it can be used for.

halt can now be used instead of .eat all, it will halt immediately, ignoring rest of the script.

return will halt immediately, ignoring rest of the script, but not eat anything.

<pre>

OnLoad / Called when the script is loaded

OnUnload / Called when the script is unloaded

OnReload / Called when the script is reloaded

OnConnecting / Called when a server is connecting

OnLookingUp / Called when a server is looking up the hostname

OnConnected / Called when a server is connected

OnDisconnect / Called when a server gets disconnected

OnCommand / Called whenever a user types a /slash command in the client ($msg will hold the full command, $0 will be the first word, $1 the second and so on)

OnCTCPRequest / Called when a user recives a CTCP request

OnCTCPReply / Called when a user recives a CTCP reply

ACTION / Called when a user recives a ACTION (/me) message

OnNickChanged / Called when a user's nick changes, will only trigger on the user unlike NICK who triggers for everyone

</pre>

A few examples using these.

<pre>

OnEvent if ($event == OnLoad) { %myvariable = This was set at startup }

OnEvent if ($event == OnUnLoad) { .msgbox varible set at startup was %myvariable }

OnEvent if ($event == OnReLoad) { .msgbox Script reloaded }

OnEvent if ($event == OnConnecting) { /echo i r conecting }

OnEvent if ($event == OnLookingUp ) { /echo i r looking up hostname }

OnEvent if ($event == OnConnected ) { /echo i r connected }

OnEvent if ($event == OnDisconnect) { /echo i r disconnected }

OnEvent if ($event == OnCommand) { if ($0 == /me) { /echo i typed /me } }

OnEvent if ($event == OnCommand) { /echo i typed $0, full command was $0- }

OnEvent if ($event == OnCTCPRequest) { /echo CTCP Request $0- from $nick }

OnEvent if ($event == OnCTCPReply) { /echo CTCP Reply $0- from $nick }

OnEvent if ($event == ACTION) { /echo ACTION $0- from $nick }

OnEvent if ($event == OnNickChanged) { /echo My nick is now $0 } 

</pre>

New Operators, all operators can now use ! to reverse the logic e.g !ison. If no operators are added it will test if remaining text is not null if (%test), if ($channel) etc.

<pre>

> / Will try and cast left and right variable to int and try "int1 greater than int2"

< / Will try and cast left and right variable to int and try "int1 lower than int2"

>= / Will try and cast left and right variable to int and try "int1 greater than or equal to int2"

<= / Will try and cast left and right variable to int and try "int1 lower than or equal to int2"

isbetween / Will try and cast left variable to int and right variable have to be int-int, e.g "40 isbetween 30-50"

ison / check if ($nick ison $channel) nick is the channel

isop / check if ($nick isop $channel) is operator on the channel

ishop / check if ($nick ishop $channel) is half operator on the channel

issop / check if ($nick issop $channel) is special operator on the channel

isowner / check if ($nick isowner $channel) is channel owner

hasvoice / check if ($nick hasvoice $channel) have voice on the channel

inchan / check if i am in chan (#channel inchan) (#channel !inchan)

isnum / check something is a number (5 isnum) (5 !isnum)

</pre>

A complete rewrite of the parser logic is done, introducing the "else" keyword, and you can now use any nested length of "if" "else if" and "else" e.g:

<pre>

OnEvent if ($event == PRIVMSG) 

{ 

	if (%test == null) { 

		/msg Hello world; 

		if (%test == null) 

		{ 

			/msg Hello world; 

		} 

	} 

	else if (%test == null) 

	{ 

		/msg Hello world

	} 

	else (%test == null) 

	{ 

		/msg Hello world 

	} 

	if (%test == null) 

	{ 

		/msg Hello world 

	} 

}

</pre>

also ; is now useable like | for line ending.

Simple kickcounter script:

<pre>

OnBeforeEvent if ($event == OnCommand) 

{ 

	if ($0 == /kick) 

	{ 

		if (%kickcount == null) 

		{ 

			%kickcount = 0; 

		}

		%kickcount++;

		if ($2 == null) 

		{ 

			/kick $channel $1 Kick number %kickcount;

			halt; 

		} 

	} 

}

</pre>

You can now use "-" on $<number> variables to get all words from $<number> and after.

<pre>

OnEvent if ($event == OnCommand) { /echo $2- }

</pre>

When you type "/msg $me this is a test" you will get only "this is a test"

<pre>

OnEvent if ($event == OnCommand) { /echo $3- }

</pre>

When you type "/msg $me this is a test" you will get only "is a test"

<pre>

OnEvent if ($event == OnCommand) { /echo $0- }

</pre>

When you type "/msg $me this is a test" you will get "/msg $me this is a test"

$0- is now equal to $params and $msg, and $0 will return the first part e.g the command "/msg"

Also you can use $raw<number> like $raw0 $raw1 $raw0- to get parts of the raw irc message. This will likely be the default way when better parsing functions are added.

Several functions are added, they are all recursive and you can use any %variable or $variable as parameters:

They are also usable inside if () statements.

<pre>

$replace(text, text2, text3) / replace all occurrences of text2 in text with text3

$upper(text) / return text uppercase

$lower(text) return text lowercase

$mid(text, startpos, endpos) / return part of text from startpos to endpos

$substr(text, startpos, endpos) / return part of text from startpos to endpos

$left(text, pos) / return pos characters starting from left of the text

$right(text, pos) / return pos characters starting from right of the text

$remove(text, text2) / replace all occurrences of text2 from text

$len(text) / return length of text

$count(text, text2) / counts all occurrences of text2 in text

$pos(text, text2) / returns first occurrences position of text2 in text

$lastpos(text, text2) / returns last occurrences position of text2 in text

$strip(text) / removes all color and font tags

$repeat(text, times) / repeats text X times

$insert(text, text2, pos) / inserts text2 into pos of text

$calc(formula) / calculate any variation of +-*/

$formatdate(date, text) / formats a unix timestamp into date using date variables %d %m %y etc

$fdate(date, text) / formats a unix timestamp into date using date variables %d %m %y etc

$char(num) / returns ascii character from the number num

$chr(num) / returns ascii character from the number num

$host(nick) / returns the hostmask of nick

$ident(nick) / returns the ident of nick

$(number) / dynamically gets a $0 $1 $2 variable e.g $(1) is same as $1 (not sure if final function name)

$file(path) / reads file to end and returns the entire output without newlines

$fileloop(path) / reads through a file one line at the time, line increases +1 every time the same file is called

$floop(path) / reads through a file one line at the time, line increases +1 every time the same file is called

$filerandom(path) / returns a random line from a file

$frand(path) / returns a random line from a file

</pre>

All paths needs to be escaped e.g c:\\users\\kr0n\\file.txt if only a filename is entered, the script directory will be used.

All characters that needs to be escaped before used as strings are \ ( ) { } | ;

<pre>

OnEvent if ($event == JOIN) { /msg $channel $replace(this is a test, test, replaced test) }

</pre>

Shows "this is a replaced test"

<pre>

OnEvent if ($event == JOIN) { /msg $channel $replace($replace(this is a test, test, replaced test), replaced test, replaced again test) }

</pre>

Shows "this is a replaced again test"

Here is an fullblown kickban example script using the script editor

<pre>

OnBeforeEvent if ($event == OnCommand) {

	if ($0 != /kb) {

		return;

	}

	if ($1 == null) {

		/echo /kb - Nick missing;

	}

	else 

	{

		# equal to if ($channel != null)

		if ($channel)

		{

			%msg = $2-;

			%chan = $channel;

		}

		else

		{	

			%msg = $3-;

			%chan = $2;

		}

		# Set this for default ban reason, or remove for no default reason

		if (%msg == null) {

			%msg = GTFO;

		}

		if ($me isop %chan) {

			/raw MODE %chan +b *!$ident($1)@$host($1);

			/raw KICK %chan $1 %msg;

		} else {

			/echo You are not oper on %chan;

		}

		%msg = null;

		%chan = null;

	}

	halt;

}

</pre>

Simple calculator script:

<pre>

OnBeforeEvent if ($event == OnCommand) {

	if ($0 != /calc) {

		return;

	}

	if ($1 == null) {

		/echo /calc - Parameters missing;

		halt;

	}

	# typing /calc -p <expression> sends output to channel

	if ($1 == -p) {

		/msg $channel Calculating : $2-;

		/msg $channel Result is : $calc($2-);

	} else {

		/echo Calculating : $1-;

		/echo Result is : $calc($1-);

	}

	halt;

}

</pre>

Colored version

<pre>

OnBeforeEvent if ($event == OnCommand) {

	if ($0 != /calc) {

		return;

	}

	if ($1 == null) {

		/echo /calc - Parameters missing;

		halt;

	}

	# typing /calc -p <expression> sends output to channel

	if ($1 == -p) {

		/msg $channel $chr(3)4Calculating : $2-;

		/msg $channel $chr(3)4Result is : $calc($2-);

	} else {

		/echo $chr(3)4Calculating : 4$1-;

		/echo $chr(3)4Result is : $calc($1-);

	}

	halt;

}

</pre>

CTCP flood detection example

<pre>

OnEvent if ($event == OnCTCPRequest) {

	if (%count == null) {

		/set -u 10 %count 1;

	} else {

		/inc -u 10 %count 1;

	}

	if (%count > 4) {

		/ignore -u 30 -t $nick!$ident@$host;

	}

}

</pre>

while (CONDITION) { EXECUTE } is now useable for a loop

Mass mode example

<pre>

OnBeforeEvent if ($event == OnCommand) {

	if ($0 != /mass) {

		return;

	}

	if ($2 == null) {

		/echo /mass - Parameters missing [+/-<mode> <nick> <nick> <nick>];

		halt;

	}

	%len = 2;

	# equal to while (%len <= $count($0-, $chr(32)))

	while (%len <= $!) {

		if ($(%len) ison $channel) {

			/mode $channel $1 $(%len);

		}

		/inc %len;

	}

	halt;

}

</pre>