Project

General

Profile

Scripting » History » Version 89

Per Amundsen, 03/18/2012 11:17 PM

1 42 Per Amundsen
h1. Notice: this is info for 1.8.8 and higher.
2 39 Per Amundsen
3 1 Per Amundsen
h1. Scripting
4
5
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.
6
7 8 Per Amundsen
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.
8 1 Per Amundsen
9 30 Per Amundsen
There are 2 types of scripting at the moment, one that have been here for a long time, and a new system.
10 16 Per Amundsen
11 38 Per Amundsen
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:
12
13
/something<whitespace> 
14 37 Per Amundsen
keys<whitespace>
15
OnEvent<whitespace>
16 16 Per Amundsen
17 1 Per Amundsen
Please note that variables and functions are *different* for these 2 types of scripts.
18 37 Per Amundsen
19
You can comment out a command by putting a # in front of it.
20 17 Per Amundsen
21 1 Per Amundsen
h1. Normal custom commands:
22 26 Per Amundsen
23 25 Per Amundsen
<pre>Syntax = /something<whitespace>/somethingelse</pre>
24 16 Per Amundsen
25 23 Per Amundsen
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>
26 16 Per Amundsen
27 32 Per Amundsen
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>
28 16 Per Amundsen
29 29 Per Amundsen
$params represents everything written after /yourcommand, $chan replaces itself with current channel and $me replaces itself with your current usernick. 
30 16 Per Amundsen
31 19 Per Amundsen
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>
32 16 Per Amundsen
33 1 Per Amundsen
$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).
34 23 Per Amundsen
35 27 Per Amundsen
h1. Custom Commands by hotkeys
36 1 Per Amundsen
37 25 Per Amundsen
<pre>Syntax = key&key<whitespace>/something</pre>
38 1 Per Amundsen
39 27 Per Amundsen
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)
40
41 23 Per Amundsen
Useable modifies are ctrl, alt and shift and any character or number or F key.
42
43
An example
44
45 24 Per Amundsen
<pre>ctrl&o /msg $chan ohai i just pressed ctrl and o</pre>
46 23 Per Amundsen
47 1 Per Amundsen
Everytime you press ctrl and 'o' now, this command will be fired off.
48 24 Per Amundsen
49
<pre>ctrl&alt&o /msg $chan ohai i just pressed ctrl and alt and o</pre>
50
51 1 Per Amundsen
Everytime you press ctrl and alt and 'o' now, this command will be fired off.
52 16 Per Amundsen
53 27 Per Amundsen
h1. Unified Scripting
54 1 Per Amundsen
55 27 Per Amundsen
<pre>Syntax = OnEvent<whitespace>code</pre>
56
57 1 Per Amundsen
The new scripting tries to combine normal client commands, your custom commands, functions and events into one scripting language.
58
59 25 Per Amundsen
In Commands -> Edit Commands you can enter a scripting line with the following syntax:
60 1 Per Amundsen
61
Followed by either an expression like this (works recursivly)
62
63
<pre>
64
if (SOMETING == SOMETHINGELSE) { EXECUTE HERE }
65
if (SOMETING != SOMETHINGELSE) { EXECUTE HERE }
66 13 Per Amundsen
if (SOMETING ismatch SOMETHINGELSE) { EXECUTE HERE }</pre>
67 1 Per Amundsen
or by an executed command or function
68
69 2 Per Amundsen
You can now combine expressions with && (AND) and || (OR) like this
70 1 Per Amundsen
<pre>
71 2 Per Amundsen
if (SOMETHING == SOMETHING && SOMETHINGELSE != SOMETHINGELSE) { EXECUTE HERE }
72 13 Per Amundsen
if (SOMETHING == SOMETHING || SOMETHINGELSE != SOMETHINGELSE) { EXECUTE HERE }</pre>
73 1 Per Amundsen
The logic behind these expressions is not fully tested, id love any feedback on this.
74 33 Per Amundsen
75
It is also possible to use else if like this
76
<pre>if (SOMETHING == SOMETHING) { EXECUTE HERE } else if (SOMETHINGELSE == SOMETHINGELSE) { EXECUTE HERE }</pre>
77
In the future just "else" will be possible to.
78 12 Per Amundsen
79
(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)
80 2 Per Amundsen
81 1 Per Amundsen
Executed commands are /slash commands already in the client e.g /msg #channel hello world.
82
Executed functions are predefined functions in the client, only two exists for now.
83
84
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>
85
86
Furthermore there is a lot of predefined variables for use with these functions, for now they are:
87
88
$event / current event, e.g PRIVMSG 001 MODE and so forth
89
$channel / the channel the event occurred on, if any
90
$msg / the message to the channel/user or the message in a raw irc line e.g whois [kr0n] is a registered nick
91
$nick / the nick the event was sent from, can be a irc.server.com, a nick or null
92
$me / my current nick
93
$network / the network the event occured on e.g Quakenet
94
$ident / the from user ident if any
95
$host / the from user hostname if any
96
$myident / my ident
97
$myhost / my host
98 14 Per Amundsen
$server / host from the server e.g irc.server.com
99 1 Per Amundsen
100
Currently predefined functions are:
101
<pre>
102 36 Per Amundsen
.insert <nick (use null for nonick)> 
103
<where (a channel or $channel, a nick or $nick, or status)> 
104
<MsgType (MsgServer/MsgUser/MsgEmote/MsgCTCP/MsgNotice/MsgClient/MsgLog)> 
105
<$msg or message></pre>
106 1 Per Amundsen
107
<pre>
108 13 Per Amundsen
.eat <what (text or all)></pre>
109 1 Per Amundsen
.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.
110
111
.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.
112
113
Putting it all togheter, here are a few examples:
114
115
<pre>
116 13 Per Amundsen
OnEvent if ($event == NOTICE) { if ($msg ismatch hi there) { .insert $nick status MsgNotice $msg|.eat text } }</pre>
117 1 Per Amundsen
118
insert the notice into the server window and tells adiirc to "eat" its own text output from this notice
119
120
<pre>
121 41 Per Amundsen
OnEvent if ($event == PRIVMSG && $msg == herp) { /msg $channel derp }</pre>
122 7 Per Amundsen
123 1 Per Amundsen
if the event is a PRIVMSG AND the $msg equals "herp", then show "derp" in the channel
124
125 6 Per Amundsen
<pre>
126 13 Per Amundsen
OnEvent if ($event == PRIVMSG) { if ($nick == Q || $nick == $me) { /msg $channel Q or $me is speaking! } }</pre>
127 1 Per Amundsen
128
if the event is a PRIVMSG and the $nick equals "Q" OR $me then show "Q or $me is speaking" in the channel
129 9 Per Amundsen
130 34 Per Amundsen
<pre>OnEvent if ($event == OnOp && $nick == $me) { /msg $channel Thx for op! }</pre>
131
132 35 Per Amundsen
if the event is OnOp and the target nick is me, then show "Thx for op!" in the channel
133
134 3 Per Amundsen
A list of custom events that is also usable as $event ==
135 4 Per Amundsen
<pre>
136 3 Per Amundsen
OnOwner
137
OnDeOwner
138
OnSpecialOp
139
OnSpecialDeOp
140
OnOp
141
OnDeOp
142
OnHop
143
OnDeHop
144 1 Per Amundsen
OnVoice
145 42 Per Amundsen
OnDeVoice
146 46 Per Amundsen
</pre>
147 1 Per Amundsen
148 46 Per Amundsen
h1. Scripting changes in latest beta
149
This does not apply to the latest stable release!
150 1 Per Amundsen
151 60 Per Amundsen
*OnEvent* is now executed *AFTER* the event, use *OnBeforeEvent* for events where you want to .eat or in other ways manipulate the event.
152
153 50 Per Amundsen
New command /nmsg added for cross network output, and a new event OnSongChanged. 
154 1 Per Amundsen
155 50 Per Amundsen
Combine them and you can automatically announce song changes in a channel or to a user with:
156
157 42 Per Amundsen
<pre>
158 45 Per Amundsen
OnEvent if ($event == OnSongChanged) { /nmsg <network> <channel/Nick> $msg }
159 42 Per Amundsen
</pre>
160 62 Per Amundsen
161 42 Per Amundsen
Announce to several channels with:
162 62 Per Amundsen
163 42 Per Amundsen
<pre>
164 45 Per Amundsen
OnEvent if ($event == OnSongChanged) { /nmsg <network> <channel/Nick> $msg|/nmsg <network> <channel/Nick> $msg }
165 42 Per Amundsen
</pre>
166 1 Per Amundsen
167 61 Per Amundsen
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.
168 46 Per Amundsen
169
Also added is better escaping, variables and a "null" variable, e.g
170
171
<pre>
172 47 Per Amundsen
OnEvent if ($event == PRIVMSG) { if (%test == null) { %test = SOMETHING|/msg $channel test is %test } }
173 46 Per Amundsen
</pre>
174
175 89 Per Amundsen
These variables are saved into vars.ini unless removed (%var == null) and reloaded when adiirc starts.
176
You can change/use them in any script.
177 48 Per Amundsen
178 49 Per Amundsen
Note also that all user set variables starts with % and client variables starts with $.
179
180 1 Per Amundsen
Variables is still work in progress, id love some feedback/ideas of what it can be used for.
181 50 Per Amundsen
182 89 Per Amundsen
-New function is added .msgbox <message> e.g use /echo instead
183 50 Per Amundsen
184
<pre>
185 1 Per Amundsen
OnEvent if ($event == JOIN) { .msgbox $nick joined $channel }
186 50 Per Amundsen
</pre>
187
188 89 Per Amundsen
It will popup a messagebox with the message.-
189 51 Per Amundsen
190
New events:
191
192
<pre>
193 73 Per Amundsen
OnLoad / Called when the script is loaded
194
OnUnload / Called when the script is unloaded
195
OnReload / Called when the script is reloaded
196
OnConnecting / Called when a server is connecting
197
OnLookingUp / Called when a server is looking up the hostname
198
OnConnected / Called when a server is connected
199
OnDisconnect / Called when a server gets disconnected
200
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)
201 51 Per Amundsen
</pre>
202
203
A few examples using these.
204
205 52 Per Amundsen
<pre>
206 51 Per Amundsen
OnEvent if ($event == OnLoad) { %myvariable = This was set at startup }
207
OnEvent if ($event == OnUnLoad) { .msgbox varible set at startup was %myvariable }
208 67 Per Amundsen
OnEvent if ($event == OnReLoad) { .msgbox Script reloaded }
209 51 Per Amundsen
OnEvent if ($event == OnConnecting) { .msgbox i r conecting }
210
OnEvent if ($event == OnLookingUp ) { .msgbox i r looking up hostname }
211
OnEvent if ($event == OnConnected ) { .msgbox i r connected }
212
OnEvent if ($event == OnDisconnect) { .msgbox i r disconnected }
213
OnEvent if ($event == OnCommand) { if ($0 == /me) { .msgbox i typed /me } }
214
OnEvent if ($event == OnCommand) { .msgbox i typed $0, full command was $msg }
215 52 Per Amundsen
</pre>
216 53 Per Amundsen
217 65 Per Amundsen
New Operators
218
219
<pre>
220
> - Will try and cast left and right variable to int and try "int1 greater than int2"
221
< - Will try and cast left and right variable to int and try "int1 lower than int2"
222
>= - Will try and cast left and right variable to int and try "int1 greater than or equal to int2"
223
<= - Will try and cast left and right variable to int and try "int1 lower than or equal to int2"
224 66 Per Amundsen
isbetween - Will try and cast left variable to int and right variable have to be int-int, e.g "40 isbetween 30-50"
225 65 Per Amundsen
ison - check if "$nick ison $channel" nick is the channel
226
isop - check if "$nick isop $channel" is operator on the channel
227
ishop - check if "$nick ishop $channel" is half operator on the channel
228
issop - check if "$nick issop $channel" is special operator on the channel
229
isowner - check if "$nick isowner $channel" is channel owner
230
hasvoice - check if "$nick hasvoice $channel" have voice on the channel
231
</pre>
232
233 53 Per Amundsen
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:
234
235
<pre>
236 54 Per Amundsen
OnEvent if ($event == PRIVMSG) 
237
{ 
238 55 Per Amundsen
	if (%test == null) { 
239
		/msg Hello world; 
240
		if (%test == null) 
241
		{ 
242 56 Per Amundsen
			/msg Hello world; 
243
		} 
244 1 Per Amundsen
	} 
245
	else if (%test == null) 
246
	{ 
247 59 Per Amundsen
		/msg Hello world
248 1 Per Amundsen
	} 
249 55 Per Amundsen
	else (%test == null) 
250 54 Per Amundsen
	{ 
251 59 Per Amundsen
		/msg Hello world 
252 55 Per Amundsen
	} 
253
	if (%test == null) 
254
	{ 
255
		/msg Hello world 
256 54 Per Amundsen
	} 
257
}
258 53 Per Amundsen
</pre>
259
260 1 Per Amundsen
also ; is now useable like | for line ending.
261 54 Per Amundsen
262 57 Per Amundsen
Simple kickcounter script:
263
<pre>
264 64 Per Amundsen
OnBeforeEvent if ($event == OnCommand) 
265 57 Per Amundsen
{ 
266
	if ($0 == /kick) 
267
	{ 
268
		if (%kickcount == null) 
269
		{ 
270
			%kickcount = 0; 
271 88 Per Amundsen
		}
272
273
		%kickcount++;
274 57 Per Amundsen
		 
275 1 Per Amundsen
		if ($2 == null) 
276 58 Per Amundsen
		{ 
277
			/kick $channel $1 Kick number %kickcount;
278
			.eat all; 
279 57 Per Amundsen
		} 
280
	} 
281
}
282
</pre>
283
284 68 Per Amundsen
Added following variables for alias commands also:
285
286
<pre>
287
$network / the network the event occured on e.g Quakenet
288
$myident / my ident
289
$myhost / my host
290
$server / host from the server e.g irc.server.com
291
</pre>
292 69 Per Amundsen
293
You can now use "-" on $<number> variables to get all words from $<number> and after.
294
295
<pre>
296 85 Per Amundsen
OnEvent if ($event == OnCommand) { /echo $2- }
297 69 Per Amundsen
</pre>
298
299
When you type "/msg $me this is a test" you will get only "this is a test"
300
301
<pre>
302 85 Per Amundsen
OnEvent if ($event == OnCommand) { /echo $3- }
303 69 Per Amundsen
</pre>
304
305
When you type "/msg $me this is a test" you will get only "is a test"
306
307
<pre>
308 85 Per Amundsen
OnEvent if ($event == OnCommand) { /echo $0- }
309 1 Per Amundsen
</pre>
310
311
When you type "/msg $me this is a test" you will get "/msg $me this is a test"
312
313
$0- is now equal to $params, and $0 will return the first part e.g the command "/msg"
314
315
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.
316 73 Per Amundsen
317 76 Per Amundsen
Several functions are added, they are all recursive and you can use any %variable or $variable as parameters:
318 79 Per Amundsen
They are also usable inside if () statements.
319 73 Per Amundsen
<pre>
320 74 Per Amundsen
$replace(text, text2, text3) / replace all occurrences of text2 in text with text3
321
$upper(text) / return text uppercase
322
$lower(text) return text lowercase
323
$mid(text, startpos, endpos) / return part of text from startpos to endpos
324
$substr(text, startpos, endpos) / return part of text from startpos to endpos
325
$left(text, pos) / return pos characters starting from left of the text
326
$right(text, pos) / return pos characters starting from right of the text
327
$remove(text, text2) / replace all occurrences of text2 from text
328
$len(text) / return length of text
329
$count(text, text2) / counts all occurrences of text2 in text
330
$pos(text, text2) / returns first occurrences position of text2 in text
331
$lastpos(text, text2) / returns last occurrences position of text2 in text
332
$strip(text) / removes all color and font tags
333
$repeat(text, times) / repeats text X times
334
$insert(text, text2, pos) / inserts text2 into pos of text
335 77 Per Amundsen
$calc(formula) / calculate any variation of +-*/
336
$formatdate(date, text) / formats a unix timestamp into date using date variables %d %m %y etc
337 78 Per Amundsen
$char(num) / returns ascii character from the number num
338 87 Per Amundsen
$chr(num) / returns ascii character from the number num
339 81 Per Amundsen
$host(nick) / returns the hostmask of nick
340
$ident(nick) / returns the ident of nick
341 73 Per Amundsen
</pre>
342 75 Per Amundsen
343
<pre>
344
OnEvent if ($event == JOIN) { /msg $channel $replace(this is a test, test, replaced test) }
345
</pre>
346
347
Shows "this is a replaced test"
348
349
<pre>
350
OnEvent if ($event == JOIN) { /msg $channel $replace($replace(this is a test, test, replaced test), replaced test, replaced again test) }
351
</pre>
352
353
Shows "this is a replaced again test"
354 82 Per Amundsen
355 83 Per Amundsen
Here is an fullblown kickban example script using the script editor
356 82 Per Amundsen
<pre>
357
OnBeforeEvent if ($event == OnCommand) {
358
	if ($0 == /kb) {
359
		if ($1 == null) {
360
			/echo /kb - Nick missing;
361
		}
362
		else 
363
		{
364
			if ($channel != null)
365
			{
366
				%msg = $2-;
367
				%chan = $channel;
368
			}
369
			else
370
			{	
371
				%msg = $3-;
372
				%chan = $2;
373
			}
374 86 Per Amundsen
			
375
			# Set this for default ban reason, or remove for no default reason
376 82 Per Amundsen
			if (%msg == null) {
377
				%msg = GTFO;
378
			}
379
380
			if ($me isop %chan) {
381
				/raw MODE %chan +b *!$ident($1)@$host($1);
382
				/raw KICK %chan $1 %msg;
383 84 Per Amundsen
			} else {
384
				/echo You are not oper on %chan;
385 82 Per Amundsen
			}
386
387
			%msg = null;
388 1 Per Amundsen
			%chan = null;
389 86 Per Amundsen
		}
390
391
		.eat all;
392
	}
393
}
394
</pre>
395
396
Simple calculator script:
397
<pre>
398
OnBeforeEvent if ($event == OnCommand) {
399
	if ($0 == /calc) {
400
		if ($1 == null) {
401
			/echo /calc - Parameters missing;
402
		}
403
		else 
404
		{
405
				# typing /calc -p <expression> sends output to channel
406
				if ($1 == -p) {
407
					/msg $channel Calculating : $2-;
408
					/msg $channel Result is : $calc($2-);
409
				} else {
410
					/echo Calculating : $1-;
411
					/echo Result is : $calc($1-);
412 87 Per Amundsen
				}
413
				
414
		}
415
416
		.eat all;
417
	}
418
}
419
</pre>
420
421
Colored version
422
<pre>
423
OnBeforeEvent if ($event == OnCommand) {
424
	if ($0 == /calc) {
425
		if ($1 == null) {
426
			/echo /calc - Parameters missing;
427
		}
428
		else 
429
		{
430
				# typing /calc -p <expression> sends output to channel
431
				if ($1 == -p) {
432
					/msg $channel $chr(3)4Calculating : $2-;
433
					/msg $channel $chr(3)4Result is : $calc($2-);
434
				} else {
435
					/echo $chr(3)4Calculating : 4$1-;
436
					/echo $chr(3)4Result is : $calc($1-);
437 86 Per Amundsen
				}
438
				
439 82 Per Amundsen
		}
440
441
		.eat all;
442
	}
443
}
444
</pre>