IRC scripts voor GAIM

[Triple]

Hallo,
Weet iemand hoe het zit met IRC scripts voor GAIM? Ik zit sinds kort op IRC en een aantal klanten uit het channel waar ik kom maken gebruik van scripts om snel hele regels met, nou ja, voornamelijk onzin vol te kalken, en dat wil ik natuurlijk ook!
Ik heb al op de sf pagina van gaim gekeken, een paar IRC pagina's en wat gegoogled en hier gekeken op GOT maar geen succes.
Hoe wat en waar zit het nou met de scripts??
Een link of wat uitleg wordt zeer op prijs gesteld!

[Verwijderd]

Misschien een normale irc client gebruiken ipv gaim?
Denk dan aan irssi, xchat, BitchX, epic, ...

[Kanarie]

Verwijderd schreef op zaterdag 18 juni 2005 @ 11:27:
Misschien een normale irc client gebruiken ipv gaim?
Denk dan aan irssi, xchat, BitchX, epic, ...

irssi heeft iig z'n eigen script engine.

Maar wat die andere mensen in het kanaal ongetwijfeld gebruiken is mIRC en mIRC scripts. mIRC is prima te draaien in Wine.

[Zwerver]

THW Arie schreef op zaterdag 18 juni 2005 @ 11:30:
[...]


irssi heeft iig z'n eigen script engine.

Maar wat die andere mensen in het kanaal ongetwijfeld gebruiken is mIRC en mIRC scripts. mIRC is prima te draaien in Wine.

Ja dan ga je een windows client draaien op Linux Neem dan XChat oid, die is met tcl net zo goed te scripten als mirc

[Kanarie]

Zwerver schreef op zaterdag 18 juni 2005 @ 14:57:
[...]


Ja dan ga je een windows client draaien op Linux Neem dan XChat oid, die is met tcl net zo goed te scripten als mirc

Ik ben gewoon vergroeid met mIRC Toen ik Linux ging draaien had ik geen zin om al m'n mIRC scripts en dialogs weg te gooien en opnieuw te beginnen.

[M-ThijZ]

irssi en Konversation kun je lekker wat in perl scripten. Het niet zo heel erg moeilijk als je wat voorbeelden gebruikt. Ik zal hieronder even een scriptje posten wat ik gemaakt heb om een random fortune in het kanaal te zetten.

Perl:

#!/usr/bin/perl

#fortune.pl (0.1)

#This is a very simple script to just give an output of 'fortune'.
#Therefore it requires that fortune is installed.
#I'm just making this to taste perl a bit.

use vars qw($VERSION %IRSSI);
use Irssi;
use strict;
$VERSION = '0.1';
%IRSSI = (
        authors         => 'Matthijs Langenberg',
        contact         => '[e-mail]',
        description     => 'Shows output of fortune in the active window.',
        license         => 'GPL',
);

#Adjust this to the full PATH of fortune if it isn't in your PATH.
my $fortunebin = "fortune";

#Check if fortune really is there.
if (!`$fortunebin`) {
        die "Couldn't find fortune executable, make sure fortune is in your PATH";
}

sub cmd_fortune_help {

print "";
print "%Rfortune.pl script v0.1 for irssi";
print "To use it just type: /fortune";
print "It'll output a quote from fortune, to the current channel";
print "";

}

sub cmd_fortune {
        my ($data, $server, $witem) = @_;
        my $fortune;
        my $output;

        $fortune = `$fortunebin 2> /dev/null`;
        $fortune =~ s/\s*\n\s*/ /g;
        $output = "\x034Random Fortune: \x03$fortune";

                if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
                                $witem->command("MSG ".$witem->{name}." $output");
                        }
                else {
                                Irssi::print("This is not a channel/query window :b");
                        }
}

Irssi::command_bind('fortune', 'cmd_fortune');
Irssi::command_bind('fortunehelp', 'cmd_fortune_help');