How to Make IRC Scripts - Revision history

Graggle at 00:36, 22 April 2026

2026-04-22T00:36:47Z

← Older revision		Revision as of 00:36, 22 April 2026
Line 92:		Line 92:

	--[[User:Lithium\|Lithium]] 22:06, 9 Mar 2008 (UTC)		--[[User:Lithium\|Lithium]] 22:06, 9 Mar 2008 (UTC)
			[[Category:Archive]]

Lithium: /* The Code */

2008-10-15T18:29:52Z

The Code

← Older revision		Revision as of 18:29, 15 October 2008
Line 78:		Line 78:
	}		}
	return $return;		return $return;
	}		}
	Irssi::signal_add_last('message public', 'cmd_hl');		Irssi::signal_add_last('message public', 'cmd_hl');
	Irssi::print("quotes script by nchip loaded.");		Irssi::print("quotes script by nchip loaded.");

Lithium: /* The Code */

2008-10-15T18:29:40Z

The Code

← Older revision		Revision as of 18:29, 15 October 2008
Line 30:		Line 30:
	sub cmd_hl {		sub cmd_hl {
	my ($server, $data, $nick, $mask, $target) =@_;		my ($server, $data, $nick, $mask, $target) =@_;

	if ($data=~/^'''!trigger'''/)		if ($data=~/^'''!trigger'''/)
	{		{
Line 49:		Line 49:
	$frtn .= " '''~user/path'''";		$frtn .= " '''~user/path'''";
	}		}

	$cookie = `$frtn`;		$cookie = `$frtn`;

	$cookie =~ s/\s\n\s/ /g;		$cookie =~ s/\s\n\s/ /g;
	$cookie =~ s/\t/ /g;		$cookie =~ s/\t/ /g;
Line 67:		Line 67:
	$return = 1;		$return = 1;
	}		}

	$d_tmout += 1;		$d_tmout += 1;

	if ($d_tmout == 1)		if ($d_tmout == 1)
	{		{
Line 75:		Line 75:
	$mytimeout = Irssi::timeout_add_once($msecs, sub {$d_tmout = 0; Irssi::timeout_remove($mytimeout);print NOTICES $		$mytimeout = Irssi::timeout_add_once($msecs, sub {$d_tmout = 0; Irssi::timeout_remove($mytimeout);print NOTICES $
	}		}

	}		}
	return $return;		return $return;
	}		}
	Irssi::signal_add_last('message public', 'cmd_hl');		Irssi::signal_add_last('message public', 'cmd_hl');
	Irssi::print("quotes script by nchip loaded.");		Irssi::print("quotes script by nchip loaded.");

Lithium: /* The Code */

2008-10-15T18:28:37Z

The Code

← Older revision		Revision as of 18:28, 15 October 2008
Line 19:		Line 19:
	Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.		Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.

	use Irssi;		use Irssi;
	use Irssi::Irc;		use Irssi::Irc;
	use vars qw($VERSION %IRSSI);		use vars qw($VERSION %IRSSI);

	$mytimeout;		$mytimeout;
	$d_tmout = 0;		$d_tmout = 0;
	'''$msecs = 300000;'''		'''$msecs = 300000;'''
	'''$limit = 1;'''		'''$limit = 1;'''

	sub cmd_hl {		sub cmd_hl {
	my ($server, $data, $nick, $mask, $target) =@_;		my ($server, $data, $nick, $mask, $target) =@_;

Lithium: /* fortune and strfile */

2008-10-15T18:27:58Z

fortune and strfile

← Older revision		Revision as of 18:27, 15 October 2008
Line 5:		Line 5:
	fortune gives random quotes. Point it to a file and it will give a line of information from that file. strfile is used to create fortune files. A plain fortune file looks like this:		fortune gives random quotes. Point it to a file and it will give a line of information from that file. strfile is used to create fortune files. A plain fortune file looks like this:

	Quote 1		Quote 1
	%		%
	Quote 2		Quote 2
	%		%
	Yore ma blows goats		Yore ma blows goats
	%		%
	joe5ie is the shit		joe5ie is the shit

	Save your quotes into a file, and run strfile <filename>. That will create a .dat file. You will need both later on.		Save your quotes into a file, and run strfile <filename>. That will create a .dat file. You will need both later on.


	== The Code ==		== The Code ==

Lithium: /* The Code */

2008-10-08T13:53:35Z

The Code

← Older revision		Revision as of 13:53, 8 October 2008
Line 20:		Line 20:
	Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.		Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.

	~~<nowiki>~~use Irssi;		use Irssi;
	use Irssi::Irc;		use Irssi::Irc;
	use vars qw($VERSION %IRSSI);		use vars qw($VERSION %IRSSI);
Line 81:		Line 81:
	}		}
	Irssi::signal_add_last('message public', 'cmd_hl');		Irssi::signal_add_last('message public', 'cmd_hl');
	Irssi::print("quotes script by nchip loaded.");~~</nowiki>~~		Irssi::print("quotes script by nchip loaded.");

Lithium: /* The Code */

2008-10-08T13:53:07Z

The Code

← Older revision		Revision as of 13:53, 8 October 2008
Line 20:		Line 20:
	Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.		Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.

	use Irssi;		<nowiki>use Irssi;
	use Irssi::Irc;		use Irssi::Irc;
	use vars qw($VERSION %IRSSI);		use vars qw($VERSION %IRSSI);
Line 81:		Line 81:
	}		}
	Irssi::signal_add_last('message public', 'cmd_hl');		Irssi::signal_add_last('message public', 'cmd_hl');
	Irssi::print("quotes script by nchip loaded.");		Irssi::print("quotes script by nchip loaded.");</nowiki>

Lithium at 22:06, 9 March 2008

2008-03-09T22:06:26Z

New page

This article is an educational one, and not meant to be a copy-and-paste job so you fuckers can spam #lobby and the likes with even more bots and scripts. The following will give a run-through on how to run a fortune-based perl script to give random quotes in irssi.

== fortune and strfile ==

fortune gives random quotes. Point it to a file and it will give a line of information from that file. strfile is used to create fortune files. A plain fortune file looks like this:

Quote 1
%
Quote 2
%
Yore ma blows goats
%
joe5ie is the shit

Save your quotes into a file, and run strfile <filename>. That will create a .dat file. You will need both later on.

== The Code ==

Here is the code for a fortune file IRC reader thing. You will need to edit the things in bold.

use Irssi;
use Irssi::Irc;
use vars qw($VERSION %IRSSI);

$mytimeout;
$d_tmout = 0;
'''$msecs = 300000;'''
'''$limit = 1;'''

sub cmd_hl {
my ($server, $data, $nick, $mask, $target) =@_;

if ($data=~/^'''!trigger'''/)
{
if($d_tmout > $limit)
{
print NOTICES "timeout enabled $d_tmout";
return;
}
else
{
print NOTICES "timeout ok $d_tmout";
}
if ($server || $server->{connected})
{
$frtn = "fortune -n 200 -s ";
if ($data=~/^'''!trigger'''/)
{
$frtn .= " '''~user/path'''";
}

$cookie = `$frtn`;

$cookie =~ s/\s*\n\s*/ /g;
$cookie =~ s/\t/ /g;
if ($cookie)
{
$server->command("/msg ".$target." ".$cookie);
} else
{
Irssi::print ("No cookie.");
$return = 1;
}
} else
{
Irssi::print ("Not connected to server");
$return = 1;
}

$d_tmout += 1;

if ($d_tmout == 1)
{
Irssi::print("adding timeout");
$mytimeout = Irssi::timeout_add_once($msecs, sub {$d_tmout = 0; Irssi::timeout_remove($mytimeout);print NOTICES $
}

}
return $return;
}
Irssi::signal_add_last('message public', 'cmd_hl');
Irssi::print("quotes script by nchip loaded.");

At the top, the ''$msecs'' bit refers to the period of time (in milliseconds) in which the script can be triggered. ''$limit'' is the number of times that the script can be triggered within the period ''$msecs''. ''!trigger'' can be set to whatever you want the trigger to be. ''~user/path/filename'' is the path to the original text file that you wrote, before running strfile. However, the .dat must be in the same directory as this file in order for it to work.

== Running the script ==

The script needs to be placed in .irssi/scripts/ (in your home directory) and saved in .pl format. Start up irssi and the type /script load scriptname.pl (replacing scriptname with whatever the .pl file is called).

Get someoen to type your trigger (including the "!" at the start) and enjoy the ensuing hilarity and/or complaints.

--[[User:Lithium|Lithium]] 22:06, 9 Mar 2008 (UTC)