ut99 ut2k3 screenshot

[jeppo]

habe folgendes problem das bei mir die screenshots von ut99 und ut2k3 nich funzen habe das problem mit hilfe eines kleinen perl scripts gelöst

taste belegen
F12 = exec shot.txt

script starten
für ut ut-shot.pl 1
für 2k3 ut-shot.pl 2

nach dem spiel script killen

leicht zeit verzögerter shot damit der proz nur jede sec was zu tun hat
für mich reicht das da ich nur shots von den ergebnissen brauche
is bestimmt nich das beste script aber für mich reichts

wers verwenden will auf eigene gefahr ;)


#!/usr/bin/perl -w

# ut-shot.pl
# macht mit Tasten Bindung Screenshot
# benötigt import (ImageMagick)
# in UT oder UT2003 folgendes an Taste Binden z.B. F12=exec shot.txt

use strict;

my $Verzeichnis = "";

# Übergabeparameter auswerten
if ( $ARGV[0] eq "1" ) {
$Verzeichnis = ".loki/ut/System";
} elsif ( $ARGV[0] eq "2" ) {
$Verzeichnis = ".ut2003/System";
} else {
print "Aufruf ut-movie.pl Spiel\n";
print "Spiel: 1 = ut, 2 = ut2k3\n";
exit;
}

chdir();
chdir("$Verzeichnis");

system ("echo \"\" > shot.txt");
my @stats = stat("shot.txt");
my $fevent = $stats[8];
my $event = $stats[8];

my $i = 0;
# warten bis auf event.txt zugegriffen wurde
while ( 1 == 1 ) {
if ( $fevent != $event ) {
system("import -silent -window root -crop 640x480-0+0 -quality 90 Shot$i.jpg");
$fevent = $event;
$i++;
}
@stats = stat("shot.txt");
$event = $stats[8];
sleep(1);
}

# shot.txt löschen
system("rm -f shot.txt");