Vanilla Netrek Server Development Archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[VANILLA-L:598] pwstats.pl fixes


Hi,

There was a typo in the pwstats.pl script which reseted the stats
if a player rejoined.

Fixed it and also added the player number to the stats file.

Here the patch:

*** /home/netrek/Server/pwstats.pl	Sun Apr 13 21:54:34 1997
--- ./pwstats.pl	Sun Apr 27 21:24:00 1997
***************
*** 67,72 ****
--- 67,73 ----
  $accIdx =10;          # Actual Carriers Created
  $pckIdx =11;          # Actual Carriers Created
  $whoIdx =12;          # Adress of the player
+ $raceIdx=13;          # Last Race and number of Player
  
  $homeName = "Home Team";
  $homeRace = IND;
***************
*** 137,143 ****
      for (keys(%PlayerStats)) 
      {
  	$who = $PlayerStats{$_}[$whoIdx];
! 	$PlayerStats{$_} = [0,0,0,0,0,0,0,0,0,0,0,0,$who];
      }
  }
  
--- 138,145 ----
      for (keys(%PlayerStats)) 
      {
  	$who = $PlayerStats{$_}[$whoIdx];
!         $race = $PlayerStats{$_}[$raceIdx];
! 	$PlayerStats{$_} = [0,0,0,0,0,0,0,0,0,0,0,0,$who,$race];
      }
  }
  
***************
*** 234,246 ****
  	    }
  	    $name =~ s/^\s*//;
  	    $Players{$fromPlayer} = [$name," ",0,0];
! 	    if ($PlayersStats{$name})
  	    {                               # player just rejoined
! 		;
  	    }
  	    else
  	    {
! 		$PlayerStats{$name} = [0,0,0,0,0,0,0,0,0,0,0,0,$mail];
  	    }
  
  	    # print "Joined: P: $name N: $fromPlayer R: $Race{$fromRace}\n";
--- 236,248 ----
  	    }
  	    $name =~ s/^\s*//;
  	    $Players{$fromPlayer} = [$name," ",0,0];
! 	    if ($PlayerStats{$name})
  	    {                               # player just rejoined
! 		$PlayerStats{$name}[$raceIdx]=$from;
  	    }
  	    else
  	    {
! 		$PlayerStats{$name} = [0,0,0,0,0,0,0,0,0,0,0,0,$mail,$from];
  	    }
  
  	    # print "Joined: P: $name N: $fromPlayer R: $Race{$fromRace}\n";
***************
*** 375,387 ****
  Away: @||  @>  @<<<<<<<<<<<<<<<<<<<<<<<
        $awayRace, $awayPlanets, $awayName
  
! Player       tek def tpd tpt tpb tab tac cak eao eck pck acc      Login
  ------------------------------------------------------------------------------
  .
  
  format STDOUT =
! @<<<<<<<<<<<@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>> @<<<<<<<<<<<<<<<<
! $name,  $tek,$def,$tpd,$tpt,$tpb,$tab,$tac,$cak,$eao,$eck,$pck,$acc,$who
  .
  
  for (sort(keys(%PlayerStats))) 
--- 377,389 ----
  Away: @||  @>  @<<<<<<<<<<<<<<<<<<<<<<<
        $awayRace, $awayPlanets, $awayName
  
!    Player       tek def tpd tpt tpb tab tac cak eao eck pck acc    Login
  ------------------------------------------------------------------------------
  .
  
  format STDOUT =
! @<<@<<<<<<<<<<<@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>>@>>> @<<<<<<<<<<<<<<<
! $race,$name, $tek,$def,$tpd,$tpt,$tpb,$tab,$tac,$cak,$eao,$eck,$pck,$acc,$who
  .
  
  for (sort(keys(%PlayerStats))) 
***************
*** 400,405 ****
--- 402,408 ----
      $acc  = $PlayerStats{$_}[$accIdx];
      $pck  = $PlayerStats{$_}[$pckIdx];
      $who  = $PlayerStats{$_}[$whoIdx];
+     $race = $PlayerStats{$_}[$raceIdx];
  
      write;