Der Code-Schnippsel-Thread

menu ToolChest
{
	no-label	f.separator
	"Internetzeugs"	f.menu internet
	no-label	f.separator
	"Spiele"	f.menu spiele
	no-label	f.separator
	"Demos"		f.menu demos
	no-label	f.separator
	"Terminals"	f.menu terminals
}


Menu internet
{
	"Firefox 2"	f.checkexec.sh.le	"/usr/nekoware/bin/firefox"
	"Firefox 3"	f.checkexec.sh.le	"/usr/nekoware/bin/firefox3"
	"Pidgin"	f.checkexec.sh.le	"/usr/nekoware/bin/pidgin"
	"Thunderbird"	f.checkexec.sh.le	"/usr/nekoware/bin/thunderbird"
}


Menu spiele
{
	"Quake III"	f.checkexec.sh.le	"/usr/nekoware/bin/ioquake3"
	"Supertuxkart"	f.checkexec.sh.le	"/usr/nekoware/games/supertuxkart"
}


Menu demos
{
	"Buttonfly"	f.checkexec.sh.le	"/usr/demos/buttonfly"
	"sslow"		f.checkexec.sh.le	"/usr/nekoware/bin/sslow"
}


Menu terminals
{
	"winterm mit Bash"	f.checkexec.sh.le	"/usr/sbin/winterm -c /usr/nekoware/bin/bash"
	"winterm"		f.checkexec.sh.le	"/usr/sbin/winterm"
}

#!/usr/bin/perl


$debug=0;


$fragendurchlauf=0;
$fragennr=0;


$logo='
  /$$$$$$            /$$             /$$     /$$                        
 /$$__  $$          |__/            | $$    |__/                        
| $$  \ $$ /$$   /$$ /$$ /$$$$$$$$ /$$$$$$   /$$ /$$$$$$/$$$$   /$$$$$$ 
| $$  | $$| $$  | $$| $$|____ /$$/|_  $$_/  | $$| $$_  $$_  $$ /$$__  $$
| $$  | $$| $$  | $$| $$   /$$$$/   | $$    | $$| $$ \ $$ \ $$| $$$$$$$$
| $$/$$ $$| $$  | $$| $$  /$$__/    | $$ /$$| $$| $$ | $$ | $$| $$_____/
|  $$$$$$/|  $$$$$$/| $$ /$$$$$$$$  |  $$$$/| $$| $$ | $$ | $$|  $$$$$$$
 \____ $$$ \______/ |__/|________/   \___/  |__/|__/ |__/ |__/ \_______/
      \__/                                                              
                                     das schnelle Quiz mit Biss!




';


open(fragen,"<fragen.txt") || die $!;
while (<fragen>)
{
	if($fragendurchlauf==0)
	{
		$frage[$fragennr]=$_;
		chomp($frage[$fragennr]);
		print "Lese Frage ".$frage[$fragennr]." fuer Fragenr ".$fragennr."\n" if($debug==1);
		$fragendurchlauf++;
	}
	elsif($fragendurchlauf==1)
	{
		$antwort[$fragennr][0]=$_;
		chomp($antwort[$fragennr][0]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][0]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==2)
	{
		$antwort[$fragennr][1]=$_;
		chomp($antwort[$fragennr][1]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][1]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==3)
	{
		$antwort[$fragennr][2]=$_;
		chomp($antwort[$fragennr][2]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][2]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==4)
	{
		$antwort[$fragennr][3]=$_;
		chomp($antwort[$fragennr][3]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][3]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==5)
	{
		$richtig[$fragennr]=$_;
		chomp($richtig[$fragennr]);
		print "Lese Richtig ".$richtig[$fragennr]." fuer Frage ".$fragennr."\n" if($debug==1);
		$fragendurchlauf++;
	}
	elsif($fragendurchlauf==6)
	{
		$fragendurchlauf=0;
		$fragennr++;
		print "\n" if($debug==1);
	}
}
close fragen;


for($x=0; $x<=25; $x++) { print "\n"; };


if(@frage ne @richtig)
{
	die("Fehler: Anzahl Fragen und richtiger Antworten ist verschieden.".@frage.@richtig);
}
else
{
	$anzahl=@frage-1;
};
$gesamtfragen=$anzahl+1;


print $logo;


print "Wie viele Spieler? ";
$spielerzahl=<STDIN>;
chomp($spielerzahl);


for($spieler=1; $spieler<=$spielerzahl; $spieler++)
{
	print "Spieler $spieler, geb deinen Namen ein! ";
	$spielername[$spieler]=<STDIN>;
	chomp($spielername[$spieler]);
	$punkte[$spieler]=0;
};


print "\nWie viele der $gesamtfragen Fragen sollen gespielt werden? ";
$fragenzahl=<STDIN>;
chomp($fragenzahl);




while($i<$fragenzahl)
{
	for($spieler=1; $spieler<=$spielerzahl; $spieler++)
	{		
		for($x=0; $x<=25; $x++) { print "\n"; };
		print $logo;
		print "$spielername[$spieler] ist dran!\n";
		print "Aktuelle Punktzahl von $spielername[$spieler]: $punkte[$spieler]\n\n";
		print $frage[$i]."\n";
		for($antwortnr=0; $antwortnr<=3; $antwortnr++)
		{
			$antwortprint=$antwortnr+1;
			print $antwortprint." ".$antwort[$i][$antwortnr]."\n";
		}
		print "\n";
		print "Deine Antwort? ";
		$eingabe=<STDIN>;
		chomp($eingabe);
		if($eingabe eq $richtig[$i])
		{
			print "\nRichtig! Du bekommst einen Punkt!\n";
			$punkte[$spieler]++;
		}
		else
		{
			print "\nFalsch! Das gibt einen Punkt abgezogen!\n";
			$punkte[$spieler]--;
		};
		print "Weiter mit der Enter-Taste";
		$enter=<STDIN>;
		$i++;
	};
};


for($x=0; $x<=25; $x++) { print "\n"; };




for($spieler=1; $spieler<=$spielerzahl; $spieler++)
{
	if($punkte[$spieler]<0)
	{
		print "$spielername[$spieler], du hast das Quiz durchlaufen und dabei $punkte[$spieler] (ja, das ist ein Minus!) Punkte erhalten.\n";
		print "Du musst noch ueben!\n";
	}
	elsif($punkte[$spieler]==0)
	{
		print "$spielername[$spieler], du hast das Quiz durchlaufen, aber hast leider keinen einzigen Punkt.\n";
		print "Uebe noch etwas!\n";
	}
	elsif($punkte[$spieler]==1)
	{
		print "$spielername[$spieler], du hast das Quiz durchlaufen, aber hast leider nur einen Punkt\n";
		print "Uebe noch etwas!\n";
	}
	else
	{
		print "$spielername[$spieler], du hast das Quiz erfolgreich gemeistert und dabei $punkte[$spieler] Punkte erzielt.\n";
		print "Glueckwunsch!\n";
	};
	print "\n";
};


#Zukünftig nutzbare Bestenliste
#print "\nAuswertung:\n";
#@bestenliste = sort {$b <=> $a} @punkte; 
#for($i=0; $i<=@bestenliste; $i++)
#{
#	print "Platz $i:\t$bestenliste[$i]\n";
#};


print "\nEnde mit der Enter-Taste";
$enter=<STDIN>;

Wie heisst unser Hund?
Manfred
Horst
Merlin
Oskar
3


Wie nennt man das hoelzerne Flugobjekt, das beim Werfen wieder zurueckkommt?
Comeback
Roundrunner
Bumerang
Flywood
3


Wie nennt man die Karten, die nach dem Geben uebrig geblieben sind?
Restkarten
Anleger
Stock
Ausgaenger
3


Was ist ein Labradoodle?
Eine Hunderasse
Ein Kartenspiel
Eine afrikanische Baumart
Ein australischer Fisch
1


Was ist Pulvermanns Grab?
Die letzte Ruhestaette eines deutschen Generals
Eine Gedenkstaette
Ein Hindernis beim Springreiten
Ein Lager fuer Schiesspulver
3


Wie heißen die Giftpilze, die von Sammlern oft mit Champignons verwechselt werden?
Morcheln
Bovisten
Knollenblaetterpilz
Bitterling
3


Wozu werden Podencos gezuechtet?
Zum Verzehr
Wegen ihrer Wolle
Wegen ihrer Eier
Zur Hasenjagd
4

#!/usr/bin/perl
use Term::ANSIColor;
$debug=0;
$fragendurchlauf=0;
$fragennr=0;


$logo='
	  /$$$$$$            /$$             /$$     /$$                        
	 /$$__  $$          |__/            | $$    |__/                        
	| $$  \ $$ /$$   /$$ /$$ /$$$$$$$$ /$$$$$$   /$$ /$$$$$$/$$$$   /$$$$$$ 
	| $$  | $$| $$  | $$| $$|____ /$$/|_  $$_/  | $$| $$_  $$_  $$ /$$__  $$
	| $$  | $$| $$  | $$| $$   /$$$$/   | $$    | $$| $$ \ $$ \ $$| $$$$$$$$
	| $$/$$ $$| $$  | $$| $$  /$$__/    | $$ /$$| $$| $$ | $$ | $$| $$_____/
	|  $$$$$$/|  $$$$$$/| $$ /$$$$$$$$  |  $$$$/| $$| $$ | $$ | $$|  $$$$$$$
	 \____ $$$ \______/ |__/|________/   \___/  |__/|__/ |__/ |__/ \_______/
	      \__/                                                              
	                                    das schnelle Quiz mit Biss!        




';


open(fragen,"<fragen.txt") || die $!;
while (<fragen>)
{
	if($fragendurchlauf==0)
	{
		$frage[$fragennr]=$_;
		chomp($frage[$fragennr]);
		print "Lese Frage ".$frage[$fragennr]." fuer Fragenr ".$fragennr."\n" if($debug==1);
		$fragendurchlauf++;
	}
	elsif($fragendurchlauf==1)
	{
		$antwort[$fragennr][0]=$_;
		chomp($antwort[$fragennr][0]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][0]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==2)
	{
		$antwort[$fragennr][1]=$_;
		chomp($antwort[$fragennr][1]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][1]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==3)
	{
		$antwort[$fragennr][2]=$_;
		chomp($antwort[$fragennr][2]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][2]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==4)
	{
		$antwort[$fragennr][3]=$_;
		chomp($antwort[$fragennr][3]);
		$fragendurchlauf++;
		print "Lese Antwort ".$antwort[$fragennr][3]." fuer Fragenr ".$fragennr."\n" if($debug==1);
	}
	elsif($fragendurchlauf==5)
	{
		$richtig[$fragennr]=$_;
		chomp($richtig[$fragennr]);
		print "Lese Richtig ".$richtig[$fragennr]." fuer Frage ".$fragennr."\n" if($debug==1);
		$fragendurchlauf++;
	}
	elsif($fragendurchlauf==6)
	{
		$fragendurchlauf=0;
		$fragennr++;
		print "\n" if($debug==1);
	}
}
close fragen;


for($x=0; $x<=25; $x++) { print "\n"; }


if(@frage ne @richtig)
{
	die("Fehler: Anzahl Fragen und richtiger Antworten ist verschieden.".@frage.@richtig);
}
else
{
	$anzahl=@frage-1;
}
$gesamtfragen=$anzahl+1;


print color "yellow";
print $logo;
print color "reset";


print "Herzlich Willkommen bei ";
print color "yellow";
print "Quiztime";
print color "reset";
print ", dem Quiz mit Biss! Ich bin Ihr Moderator\nMerlin und werde Sie durch diese Sendung fuehren.\n\n";


print "Bei uns gibt es ";
print color "bold";
print "keine";
print color "reset";
print " Joker, nur ein ehrliches Quiz. Gewinner ist, wer am\nmeisten weiss.\n\n";


print "Genug geredet, wie viele Spieler haben wir denn heute hier im Studio? ";
$spielerzahl=<STDIN>;
chomp($spielerzahl);


for($spieler=1; $spieler<=$spielerzahl; $spieler++)
{
	print "Spieler $spieler, wie heissen Sie? ";
	$spielername[$spieler]=<STDIN>;
	chomp($spielername[$spieler]);
	$punkte[$spieler]=0;
}


print "\nWie viele der $gesamtfragen Fragen sollen gespielt werden? ";
$fragenzahl=<STDIN>;
chomp($fragenzahl);
if($fragenzahl eq "alle" || $fragenzahl eq "Alle" || $fragenzahl eq "jede" || $fragenzahl eq "Jede")
{
	$fragenzahl=$gesamtfragen;
}




while($i<$fragenzahl)
{
	for($spieler=1; $spieler<=$spielerzahl; $spieler++)
	{
		$iausgabe=$i+1;
		$fragenzahlausgabe=$fragenzahl+1;
		for($x=0; $x<=25; $x++) { print "\n"; }
		print color "yellow";
		print $logo;
		print color "reset";
		print "$spielername[$spieler] ist dran!\n";
		print "Aktuelle Punktzahl von $spielername[$spieler]: $punkte[$spieler]\n\n";
		print "Frage ".$iausgabe." von ".$fragenzahlausgabe.":\n";
		print color "bold";
		print $frage[$i]."\n";
		print color "reset";
		for($antwortnr=0; $antwortnr<=3; $antwortnr++)
		{
			$antwortprint=$antwortnr+1;
			print $antwortprint." ".$antwort[$i][$antwortnr]."\n";
		}
		print "\n";
		print "Deine Antwort? ";
		$eingabe=<STDIN>;
		chomp($eingabe);
		if($eingabe eq $richtig[$i])
		{
			print color "green";
			print "\nRichtig! Sie bekommen einen Punkt!\n";
			print color "reset";
			$punkte[$spieler]++;
		}
		else
		{
			print color "red";
			print "\nFalsch! Das gibt einen Punkt abgezogen!\n";
			print color "reset";
			$punkte[$spieler]--;
			print "Richtig waere Antwort ";
			print color "bold";
			print $richtig[$i];
			print color "reset";
			print " gewesen.\n";
		}
		print "\nWeiter mit der Enter-Taste";
		$enter=<STDIN>;
		$i++;
	}
}


for($x=0; $x<=25; $x++) { print "\n"; }




print color "yellow";
print $logo;
print color "reset";


for($spieler=1; $spieler<=$spielerzahl; $spieler++)
{
	if($punkte[$spieler]<0)
	{
		print color "red";
		print "$spielername[$spieler], Sie haben das Quiz zwar durchlaufen, dabei jedoch $punkte[$spieler] (ja, das ist ein Minus!) Punkte erhalten.\n";
		print "Sie sollten dringend ueben!\n";
		print color "reset";
	}
	elsif($punkte[$spieler]==0)
	{
		print color "yellow";
		print "$spielername[$spieler],Sie haben das Quiz durchlaufen, aber leider keinen einzigen Punkt.\n";
		print "Da geht noch was!\n";
		print color "reset";
	}
	elsif($punkte[$spieler]==1)
	{
		print "$spielername[$spieler],Sie haben das Quiz durchlaufen, aber leider nur einen Punkt\n";
		print "Ueben Sie noch etwas!\n";
	}
	else
	{
		print color "green";
		print "$spielername[$spieler], Sie haben das Quiz erfolgreich gemeistert und dabei $punkte[$spieler] Punkte erzielt.\n";
		print color "green blink";
		print "Glueckwunsch! Sie sind der beste!\n";
		print color "reset";
	}
	print "\n";
}


print "\nBis zum nächsten Mal bei Quiztime, dem Quiz mit Biss! Schalten Sie auch das nächste Mal wieder ein.\n";


#Zukünftig nutzbare Bestenliste
#print "\nAuswertung:\n";
#@bestenliste = sort {$b <=> $a} @punkte; 
#for($i=0; $i<=@bestenliste; $i++)
#{
#	print "Platz $i:\t$bestenliste[$i]\n";
#}


print "\n\nEnde mit der Enter-Taste";
$enter=<STDIN>;