[es] - Xchat Perl scripting

Astral Projection
Pejović Goran
Podgorica - Nikšić

Član broj: 36254
Poruke: 533
*.crnagora.net.

Jabber: ap@elitesecurity.org
ICQ: 228837350
Sajt: myspace.com/entheog3n

Profil

Xchat Perl scripting

^{16.06.2006. u 12:42}

Interesuje me imate li tutoriale za xchat scripting u perlu. Interesuje me kako da napisem auto-slap :)
Znaci kad mi neko odradi /me slaps da mu xchat vrati isto to.

The creation of a spiritual human being.
ॐ Peace, Love, Unity, Respect! ॐ

^{16.06.2006. u 12:42}

anrxc

Član broj: 43899
Poruke: 452
*.adsl.net.t-com.hr.

Sajt: sysphere.org

Profil

Re: Xchat Perl scripting

^{16.06.2006. u 22:04}

Code:

import xchat, string, random, re

__module_name__ = 'autoslap'
__module_version__ = '0.1'
__module_description__ = 'Auto. slap back...'

objects = ['an apple', 'skoda felicia', 'a get a life HOWTO', 'a guitar']

def slap(word, word_eol, userdata):
    trig = re.split(' ',string.lower(word[1]))
    sender = word[0].strip('x0319')
    if trig[0] == 'slaps' and trig[1] == xchat.get_info('nick'):
        xchat.command('me slaps %s with %s' % (sender, random.choice(objects)))
    return xchat.EAT_NONE

xchat.hook_print('Channel Action Hilight', slap)
print 'Auto slap ready'

http://labix.org/xchat-python

Navodno ce irssi uskoro dobiti Python podrsku... eto nemoj se ljutit sto nije Perl, bilo mi je zanimljivo :)

You need to install an RTFM interface.

^{16.06.2006. u 22:04}

Astral Projection
Pejović Goran
Podgorica - Nikšić

Član broj: 36254
Poruke: 533
*.crnagora.net.

Jabber: ap@elitesecurity.org
ICQ: 228837350
Sajt: myspace.com/entheog3n

Profil

Re: Xchat Perl scripting

^{17.06.2006. u 00:51}

U medju vremenu sam napisao neki pokusaj skripte za auto slapback

Code:
Xchat::hook_server("PRIVMSG", "autoslap");
sub autoslap {
    my ( $linea ) = $_[1][0];
    $nick = IRC::get_info(1);
    $linea =~ /:(.*)!(.*@.*) .*:(.*)/;
    if ($linea =~ /slaps $nick/) {
    IRC::command("/me slaps back");
    }
  return Xchat::EAT_NONE;
}

E sad kad me neko slapuje ovo valjda vrati /me slaps back, ali mi Xchat izbaca prvo [JA] slaps back i tek onda slap koji mene slapuje (treba obratno :)).

BTW, hvala za piton skriptu, ali mi ne radi.. ne znam je li do mene, ali kad me neko slapuje nista se ne desava :)

The creation of a spiritual human being.
ॐ Peace, Love, Unity, Respect! ॐ

^{17.06.2006. u 00:51}

anrxc

Član broj: 43899
Poruke: 452
*.adsl.net.t-com.hr.

Sajt: sysphere.org

Profil

Re: Xchat Perl scripting

^{17.06.2006. u 09:37}

Testirao sam sa 2.6.2, gdje je namjesten hilight kod spomena vlastitog nicka, bitan je ovaj hook, mozda je kod tebe dovoljan samo
hook_print('Channel Action'... , pogledaj pod "Settings - Advanced - Text events" dostupne evente.... ili mozes ici sa hook_server kao u svojem skriptu, no blesavo je da provjerava svaku mogucu liniju koja prode, pogotovo ako si na prometnom kanalu.

You need to install an RTFM interface.

^{17.06.2006. u 09:37}

Astral Projection
Pejović Goran
Podgorica - Nikšić

Član broj: 36254
Poruke: 533
*.crnagora.net.

Jabber: ap@elitesecurity.org
ICQ: 228837350
Sajt: myspace.com/entheog3n

Profil

Re: Xchat Perl scripting

^{17.06.2006. u 12:00}

Brate ne znam je li to do mene ali mi opet ne radi. Probao sam samo hook_print(Channel Action... Znaci nista..

Interesuje me da li mogu da koristim ovo hook_print u perlu? Xchat::hook_print(Channel Action...? I kako se tacno to koristi? :)

The creation of a spiritual human being.
ॐ Peace, Love, Unity, Respect! ॐ

^{17.06.2006. u 12:00}

Astral Projection
Pejović Goran
Podgorica - Nikšić

Član broj: 36254
Poruke: 533
*.crnagora.net.

Jabber: ap@elitesecurity.org
ICQ: 228837350
Sajt: myspace.com/entheog3n

Profil

Re: Xchat Perl scripting

^{17.06.2006. u 15:12}

OK vidio sam da moze, ali me interesuje jedna stvar..
kad stavim npr Xchat::hook_print("Channel Action Hilight", "autoslap"); u text events mi pise za hilight [16:08:48] *$t$1 $2
Znaci $1 je nick a $2 text. Kako da koristim ovo $1 i $2 u skripti?

The creation of a spiritual human being.
ॐ Peace, Love, Unity, Respect! ॐ

^{17.06.2006. u 15:12}