#COUNTERSTRIKEMENU HV b2 NV bslot,bmap

counterstrike:
print "\n\n\n\n\n\n========================\nWaehlen sie aus was sie möchten? \n (1) CounterStrike S. Starten Manuell\n (2) CounterStrike S. Stoppen\n (3) CounterStrike Vordefiniert\n (4) Zurück\n";
print "Eingabe: ";
$b2=<>;
chop ($b2);
  if (b2 eq '1') 
  {
print "Um CounterStrike zu starten brauch der Server einige Daten, folgenden sie den Anweisungen!\n\n";
check1:
print "Frage 1 : Wieviel Slot's?\n";
print "Eingabe: ";
$bslot=<>;
chop ($bslot);
if ($bslot gt '32') {print"\n\n\n\n\n\n FEHLER! MAXIMALEANZAHL VON SLOTS is 32!"; goto check1;}
print "\nVielen dank\n\nFrage 2: Welche zustarten Standart Map?\n\n\nMapliste:\n\nfy_poo_day\nde_train\nde_dust\nde_dust2\ncs_assault\nde_nuke\ncs_italy\n";
print "Eingabe: ";
$bmap=<>;
chop ($bmap);
print "\n\n\n Vielen dank, bitte überprüfen sie alle Daten:\n";
print "Zustarten: CounterStrike Manuell\nSlots: $bslot\nMap: $bmap\n\n\nSind diese Information Richtig?\n\n(1)Ja\n(2)Nein,Korrektur\n(3)Abbruch\n"; 
print "Eingabe: ";
$brichtig=<>;
chop ($brichtig);
  if ($brichtig eq '1') {print "\nDer Server wird jetzt gestartet!"; chdir '/home/COUNTERSTRIKE/COUNTERSTRIKE/COUNTERSTRIKE'; print qx'screen ./hlds_run -game cstrike +maxplayers $bslot +map $bmap'; print "\n\n\nCounterStrike Manuell wirdgestartet!\n\n"; exit;}
  elsif ($brichtig eq '2') {goto check1;}
  elsif ($brichtig eq '3') {goto counterstrike;}
  else ($brichtig gt '4') {print "FALSCHE EINGABE!\n"; goto counterstrike;}
  }

 elsif ($b2 eq '2')
 {
  print "\nDiese Funktion wird noch bearbeitet\n\n\n"; goto counterstrike;
 }

 elsif ($b2 eq '3') 
 {
  print "\nDiese Funktion wird noch bearbeitet\n\n\n"; goto counterstrike;
 }

 elsif ($b2 eq '4')
 {
  goto main;
 }

else ($b2 gt '4') 
 {
  print "FALSCHE EINGABE!\n"; goto counterstrike;
 }