OpenArena Message Boards

:: Starting OPENARENA FRIENDS FINDER v0.4
:: Copyright 2010 Simone Sclavi 'Ito'
:: This is free software with ABSOLUTELY NO WARRANTY
:: For details type 'v' in the menu below
::
:: getting players...
:: found 4 player/s
::
   [1] *SoS*Adr!aNo ROFL CTF 4 FISHES 0.8.5
              10/12    ctf    oa_ctf4ish
   [2] LoL-Elendr1L ROFL CTF 4 FISHES 0.8.5
              10/12    ctf    oa_ctf4ish
   [3] /GaNja/^L!ght3r PURPLE DEFRAG
              5/18    dm    dkr02
   [4] betA,SilentCobra PURPLE DEFRAG
              5/18    dm    dkr02
::
:: # AVAILABLE COMMANDS #
:: [number] choose friend from 'friends list'(if present)
:: [s:number] show stats of the server your friend is playing in
:: [r] refresh friends list
:: [l] launch OA without connecting to any server
:: [v] print version and license information
:: [q] quit program
::
 >1
:: preparing to reach *SoS*Adr!aNo
ioq3+oa 1.36 linux-i386 Jan  3 2010
[cut]

:: # AVAILABLE COMMANDS #
:: [number] choose friend from 'friends list'(if present)
:: [s:number] show stats of the server your friend is playing in
:: [r] refresh friends list
:: [l] launch OA without connecting to any server
:: [v] print version and license information
:: [q] quit program
::
 >s:1   
   # SERVER STATS #
   address: 91.121.201.15:27961
   players: 10/12
   map: oa_ctf4ish
   gametype: ctf
   name: ROFL CTF 4 FISHES 0.8.5

   PING   FRAGS   NAME
   48ms   67   *SoS*Adr!aNo
   96ms   59   Quake|-|Na$sim
   55ms   52   .
   54ms   33   gibon
   29ms   26   UnnamedLagger
   51ms   20   pi.fakeman
   88ms   14   Dark
   82ms   7    MiK
   95ms   7    Quwertzuiop
   70ms   0    LoL-Elendr1L

sudo apt-get install libwww-perl libhtml-tokeparser-simple-perl

$ perl oaff.pl 

$ ./oaff.pl 

    when ('linux')
    {
        $OPENARENA_BIN =  q{openarena};
        #uncomment the following lines if you didn't install oa from repository
        #and change q{openarena} with q{./openarena.i386} or
        #q{./openarena.x86_64} according to your system
        #
        #$OPENARENA_PATH = q{/home/simone/Desktop/openarena-0.8.1};
        #chdir $OPENARENA_PATH || die "ERROR! Check your installation!\n";
    }

    when (/^mswin/)
    {
        $OPENARENA_BIN = q{openarena.exe};
        #IMPORTANT! change with full path of your oa installation!
        $OPENARENA_PATH = q{C:\Documents and Settings\Simone\Desktop\openarena-0.8.1};
        chdir $OPENARENA_PATH || die "ERROR! Check your installation!\n";
    }

perl oaff.pl -t

my @friends = (
                'Evil|',
                'supeR,',
                '*SoS*',
                '=SC=',
                '[CZ]',
                'GoD',
                'betA,',
                'Fu$!oN',
                'LoL',
                '/GaNja/',
                '(sos)',
                'RN|',
                '(alPha)',
                '/NIN/',
                'Fu$!0n',
                'CreW/',
                'Var',
            );

my @friends = (
                'Evil|',
                'supeR,',
                '*SoS*',
                '=SC=',
                '[CZ]',
                'GoD',
                'betA,',
                'Fu$!oN',
                'LoL',
                '/GaNja/',
                '(sos)',
                'RN|',
                '(alPha)',
                '/NIN/',
                'Fu$!0n',
                'CreW/',
                'Var',
            );