Bearbeiten von „Benutzer:Count Ypsilon/Skript:cf.pl“

Zur Navigation springen Zur Suche springen

Achtung

Du bearbeitest diese Seite unangemeldet. Wenn du deine Änderung speicherst, wird deine aktuelle IP-Adresse in der Versionsgeschichte aufgezeichnet und ist damit öffentlich einsehbar. Um effektiver mitarbeiten zu können und deine IP-Adresse zu verbergen, melde dich doch bitte an.

Speichere bitte keine Textversuche ab. Nutze stattdessen die Spielwiese, um dich im Umgang mit der Textverarbeitung im Wiki vertraut zu machen.

Die Bearbeitung kann rückgängig gemacht werden. Bitte prüfe den Vergleich unten, um sicherzustellen, dass du dies tun möchtest, und veröffentliche dann unten deine Änderungen, um die Bearbeitung rückgängig zu machen.

Aktuelle Version Dein Text
Zeile 1: Zeile 1:
{{Veraltet|Das aktuelle Script befindet sich in [[FreewarWiki:Bot/Skripts/cf.pl]].}}
Dieses Skript erzeugt für jede im anfangs definierten Array erwähnte Charakterfähigkeit eine Datei, in der sich die Lernzeit- und die Gesamtlernzeit-Tabellen befinden. Grundwert ("gw") und maximale Ausbaustufe ("mx") sind geeignet zu wählen.
Dieses Skript erzeugt für jede im anfangs definierten Array erwähnte Charakterfähigkeit eine Datei, in der sich die Lernzeit- und die Gesamtlernzeit-Tabellen befinden. Grundwert ("gw") und maximale Ausbaustufe ("mx") sind geeignet zu wählen.


Über das Array "extra" kann bei bestimmten Charakterfähigkeiten eine zusätzliche Spalte an die Tabelle angehängt werden.
Über das Array "extra" kann bei bestimmten Charakterfähigkeiten eine zusätzliche Spalte an die Tabelle angehängt werden.


<pre>
  <nowiki>#!/usr/bin/perl</nowiki>
#!/usr/bin/perl
  <nowiki></nowiki>
 
  <nowiki>use strict;</nowiki>
use strict;
  <nowiki></nowiki>
 
  <nowiki>my $cfs = [</nowiki>
my $cfs = [
  <nowiki>  { "name" => "Schusswaffen", "gw" => 160000, "mx" => 12 },</nowiki>
  { "name" => "Angriffsenergie", "gw" => 80000, "mx" => 10 },
  <nowiki>  { "name" => "Gruppenheilung", "gw" => 18000, "mx" => 150 },</nowiki>
  { "name" => "Auftragsbeziehung", "gw" => 80000, "mx" => 40 },
  <nowiki>  { "name" => "Angriffsenergie", "gw" => 200000, "mx" => 10 },</nowiki>
  { "name" => "Auftragsplanung", "gw" => 6800, "mx" => 70 },
  <nowiki>  { "name" => "Auftragsplanung", "gw" => 17200, "mx" => 70 },</nowiki>
  { "name" => "Bauwesen", "gw" => 25000, "mx" => 70 },
  <nowiki>  { "name" => "Diebstahlschutzwissen", "gw" => 70000, "mx" => 50 },</nowiki>
  { "name" => "Diebstahlschutzwissen", "gw" => 28000, "mx" => 50 },
  <nowiki>  { "name" => "Getreideverarbeitung", "gw" => 40000, "mx" => 30 },</nowiki>
  { "name" => "Getreideverarbeitung", "gw" => 16000, "mx" => 30 },
  <nowiki>  { "name" => "Gewebeforschung", "gw" => 29000, "mx" => 50 },</nowiki>
  { "name" => "Gewebeforschung", "gw" => 11600, "mx" => 50 },
  <nowiki>  { "name" => "Goldabbau", "gw" => 110000, "mx" => 30 },</nowiki>
  { "name" => "Goldabbau", "gw" => 44000, "mx" => 30 },
  <nowiki>  { "name" => "Glück", "gw" => 40000, "mx" => 15 },</nowiki>
  { "name" => "Glück", "gw" => 16000, "mx" => 15 },
  <nowiki>  { "name" => "Innere Macht", "gw" => 90000, "mx" => 50 },</nowiki>
  { "name" => "Gruppenheilung", "gw" => 7200, "mx" => 120 },
  <nowiki>  { "name" => "Jagd", "gw" => 58000, "mx" => 50 },</nowiki>
  { "name" => "Innere Macht", "gw" => 36000, "mx" => 50 },
  <nowiki>  { "name" => "Kochkunst", "gw" => 55000, "mx" => 80 },</nowiki>
  { "name" => "Jagd", "gw" => 23200, "mx" => 50 },
  <nowiki>  { "name" => "Lebensenergie", "gw" => 65000, "mx" => 30 },</nowiki>
  { "name" => "Kochkunst", "gw" => 22000, "mx" => 80 },
  <nowiki>  { "name" => "Lebenstraining", "gw" => 85000, "mx" => 50 },</nowiki>
  { "name" => "Labortechnik", "gw" => 120000, "mx" => 20 },
  <nowiki>  { "name" => "Lerntechnik", "gw" => 35000, "mx" => 50 },</nowiki>
  { "name" => "Lagerlogistik", "gw" => 25000, "mx" => 90 },
  <nowiki>  { "name" => "Magieverlängerung", "gw" => 120000, "mx" => 30 },</nowiki>
  { "name" => "Lebensenergie", "gw" => 26000, "mx" => 30 },
  <nowiki>  { "name" => "Marktwirtschaft", "gw" => 25000, "mx" => 50 },</nowiki>
  { "name" => "Lebenstraining", "gw" => 34000, "mx" => 50 },
  <nowiki>  { "name" => "Ölverwaltung", "gw" => 65000, "mx" => 60 },</nowiki>
  { "name" => "Lerntechnik", "gw" => 35000, "mx" => 50 },
  <nowiki>  { "name" => "Plünderung", "gw" => 93000, "mx" => 30 },</nowiki>
  { "name" => "Magieverlängerung", "gw" => 48000, "mx" => 30 },
  <nowiki>  { "name" => "Reparaturwissen", "gw" => 30000, "mx" => 30 },</nowiki>
  { "name" => "Marktwirtschaft", "gw" => 10000, "mx" => 50 },
  <nowiki>  { "name" => "Selbstheilung", "gw" => 80000, "mx" => 80 },</nowiki>
  { "name" => "Ölverwaltung", "gw" => 26000, "mx" => 60 },
  <nowiki>  { "name" => "Stärketraining", "gw" => 75000, "mx" => 50 },</nowiki>
  { "name" => "Pflanzenkunde", "gw" => 40000, "mx" => 80 },
  <nowiki>  { "name" => "Überzeugungskraft", "gw" => 85000, "mx" => 50 },</nowiki>
  { "name" => "Plünderung", "gw" => 37200, "mx" => 30 },
  <nowiki>  { "name" => "Waffenkunst", "gw" => 65000, "mx" => 30 },</nowiki>
  { "name" => "Reparaturwissen", "gw" => 12000, "mx" => 30 },
  <nowiki>  { "name" => "Zauberkunst", "gw" => 600000, "mx" => 3 }</nowiki>
  { "name" => "Schusswaffen", "gw" => 64000, "mx" => 14 },
  <nowiki>];</nowiki>
  { "name" => "Selbstheilung", "gw" => 32000, "mx" => 60 },
  <nowiki></nowiki>
   { "name" => "Seelenverbindung", "gw" => 60000, "mx" => 60 },
  <nowiki>my $extra = {</nowiki>
  { "name" => "Stärketraining", "gw" => 30000, "mx" => 50 },
  <nowiki>   "Schusswaffen" => {</nowiki>
  { "name" => "Überzeugungskraft", "gw" => 34000, "mx" => 50 },
  <nowiki>        "head" => "Anwendbarer Bogen",</nowiki>
  { "name" => "Waffenkunst", "gw" => 26000, "mx" => 30 },
  <nowiki>        "1" => "[[Einfacher Holzbogen]]",</nowiki>
  { "name" => "Zauberkunst", "gw" => 240000, "mx" => 8 },
  <nowiki>        "2" => "[[Einfacher Eisenbogen]]",</nowiki>
  { "name" => "Zaubertruhenwissen", "gw" => 100000, "mx" => 40 }
  <nowiki>        "3" => "[[Holzarmbrust der Erfahrung]]",</nowiki>
];
  <nowiki>       "4" => "[[Kleine Armbrust des Lebens]]",</nowiki>
 
  <nowiki>        "5" => "[[Armbrust der Seelen]]",</nowiki>
 
  <nowiki>        "6" => "[[Armbrust der Schutzauflösung]]",</nowiki>
 
  <nowiki>        "7" => "[[Armbrust des Donners]]",</nowiki>
my $extra = {
  <nowiki>        "8" => "[[Armbrust der Präzision]]",</nowiki>
    "Schusswaffen" => {
  <nowiki>        "9" => "[[Bogen des Lebens]]",</nowiki>
        "head" => "Anwendbarer Bogen",
  <nowiki>        "10" => "[[Durchschlagende Armbrust]]",</nowiki>
        "1" => "[[Einfacher Holzbogen]]",
  <nowiki>        "11" => "[[Armbrust der starken Schutzauflösung]]",</nowiki>
        "2" => "[[Einfacher Eisenbogen]]",
  <nowiki>       "12" => "[[Bogen des starken Lebens]]"</nowiki>
        "3" => "[[Holzarmbrust der Erfahrung]]",
  <nowiki>   },</nowiki>
        "4" => "[[Kleine Armbrust des Lebens]]",
  <nowiki></nowiki>
        "5" => "[[Armbrust der Seelen]]",
  <nowiki>    "Zauberkunst" => {</nowiki>
        "6" => "[[Armbrust der Schutzauflösung]]",
  <nowiki>        "head" => "Anwendbarer Zauber",</nowiki>
        "7" => "[[Armbrust des Donners]]",
  <nowiki>        "1" => "-",</nowiki>
        "8" => "[[Armbrust der Präzision]]",
  <nowiki>        "2" => "[[Effektiver Jerodar-Diebstahlzauber]]",</nowiki>
        "9" => "[[Bogen des Lebens]]",
  <nowiki>        "3" => "[[Starker Jerodar-Diebstahlzauber]]"</nowiki>
        "10" => "[[Durchschlagende Armbrust]]",
  <nowiki>    },</nowiki>
        "11" => "[[Armbrust der starken Schutzauflösung]]",
  <nowiki></nowiki>
        "12" => "[[Bogen des starken Lebens]]",
  <nowiki>};</nowiki>
        "13" => "[[Armbrust des großen Donners]]",
  <nowiki></nowiki>
        "14" => "[[stark durchschlagende Armbrust]]"
  <nowiki>foreach my $cf(@{$cfs})</nowiki>
    },
  <nowiki>{</nowiki>
 
  <nowiki>   my $grundwert = $cf->{"gw"};</nowiki>
    "Zauberkunst" => {
  <nowiki>    my $maxstufe = $cf->{"mx"};</nowiki>
        "head" => "Anwendbarer Zauber",
  <nowiki>    my $maxlt = ($cf->{"name"} eq "Lerntechnik") ? 0 : 50;</nowiki>
        "1" => "-",
  <nowiki>    my $ex = $extra->{$cf->{"name"}};</nowiki>
        "2" => "[[Effektiver Jerodar-Diebstahlzauber]]",
  <nowiki>    my $colspan = (defined($ex) ? 12 : 11);</nowiki>
        "3" => "[[Starker Jerodar-Diebstahlzauber]]",
  <nowiki></nowiki>
        "4" => "[[Scheibe der Kampfgebiete]]",
  <nowiki>    open(FILE, ">".lc($cf->{"name"}).".txt");</nowiki>
        "5" => "[[Effektiver Diebstahlzauber]]",
  <nowiki></nowiki>
        "6" => "[[Kampfunfähigkeits-Schutz]], [[starker Hautbrand]]",
  <nowiki>print FILE <<EOF;</nowiki>
        "7" => "[[Mächtiger Wegzauber-Schutz]], [[Mächtiger Starreschutz-Zauber]], [[Zauber des langen Lebens]], [[Zauber der unbändigen Wut]]",
  <nowiki><!-- gw=$grundwert mx=$maxstufe --></nowiki>
        "8" => "[[Mächtige Sicht der Diebesopfer]], [[Sicht der Diebesopfer]]",
  <nowiki>'''Lernzeit pro Stufe, abhängig von der Lerntechnik: ''' ''(Angaben in Tagen:Stunden:Minuten)''</nowiki>
    },
  <nowiki>{| {{Prettytable}}</nowiki>
 
  <nowiki>|</nowiki>
    "Labortechnik" => {
  <nowiki>|colspan="$colspan" align="center" bgcolor=#FFFFCC |'''[[Lerntechnik]]'''</nowiki>
        "head" => "Herstellbare Zauber (Mindest-XP zur Herstellung)",
  <nowiki>|-</nowiki>
        "1" => "[[Heimzauber]] (500 XP)",
  <nowiki>!bgcolor=#FFEECB|Stufe</nowiki>
        "2" => "[[großer Heiltrank]] (1.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|0</nowiki>
        "3" => "[[Zauber der Stille]] (1.500 XP)",
  <nowiki>EOF</nowiki>
        "4" => "[[Zauber der Starre]] (2.000 XP)",
  <nowiki></nowiki>
        "5" => "[[Zauber der Vergiftung]] (2.500 XP)",
  <nowiki>print FILE <<EOF if ($maxlt>0);</nowiki>
        "6" => "[[Zauber der Versteinerung]] (3.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|5</nowiki>
        "7" => "[[schwache Lebenserweiterung]] (3.500 XP)",
  <nowiki>!bgcolor=#FFFFCC|10</nowiki>
        "8" => "[[Gegenzauber: Starre]] (4.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|15</nowiki>
        "9" => "[[Gegenzauber: Auflösung des Schutzes]] (4.500 XP)",
  <nowiki>!bgcolor=#FFFFCC|20</nowiki>
        "10" => "[[falsche Erfahrung]] (5.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|25</nowiki>
        "11" => "[[strategischer Hinzauber]] (5.500 XP)",
  <nowiki>!bgcolor=#FFFFCC|30</nowiki>
        "12" => "[[Druckwelle]] (6.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|35</nowiki>
        "13" => "[[schwache Kontrolle der Zeit]] (6.500 XP)",
  <nowiki>!bgcolor=#FFFFCC|40</nowiki>
        "14" => "[[Wolkenstoff]] (7.000 XP)",
  <nowiki>!bgcolor=#FFFFCC|45</nowiki>
        "15" => "[[gigantische Seelenkapsel]] (7.500 XP)",
   <nowiki>!bgcolor=#FFFFCC|50</nowiki>
        "16" => "[[Elixier der Bewegung]] (8.000 XP)",
  <nowiki>EOF</nowiki>
        "17" => "[[Zauber der unsichtbaren Explosion]] (8.500 XP)",
  <nowiki></nowiki>
        "18" => "[[Sicht der Schutzlosen]] (9.000 XP)",
  <nowiki>print FILE "!bgcolor=#FFEECB|".$ex->{"head"}."\n" if (defined($ex));</nowiki>
        "19" => "[[Lebenserweiterung]] (9.500 XP)",
  <nowiki></nowiki>
        "20" => "[[Zauber der Wettererzeugung]] (10.000 XP)",},
  <nowiki>for(my $stufe=1; $stufe<=$maxstufe; $stufe++)</nowiki>
};
  <nowiki>{</nowiki>
 
  <nowiki>    print FILE "|-\n";</nowiki>
 
  <nowiki>   print FILE "|bgcolor=#FFFFCC|'''$stufe'''\n";</nowiki>
my $bgcolor_general = "FFFFCC"; # Hintergrundfarbe, falls nichts anderes definiert ist (gelb)
  <nowiki>    my $blockfarbe = (($stufe-1)/5)%2;</nowiki>
my $bgcolor_block   = "FFEECB"; # Hintergrundfarbe fuer den 5er-Block (orange)
  <nowiki>   for (my $lerntech = 0; $lerntech <= $maxlt; $lerntech += 5)</nowiki>
 
  <nowiki>   {</nowiki>
 
  <nowiki>       my $lernfaktor = 0.95 ** $lerntech;</nowiki>
 
  <nowiki>       my $sekunden = ($stufe-1) * $grundwert * $lernfaktor;</nowiki>
foreach my $cf(@{$cfs})
  <nowiki>        printf FILE "|bgcolor=#%s|%02d:%02d:%02d\n", </nowiki>
{
  <nowiki>            (($lerntech + $blockfarbe) % 2) ? "" : "FFEECB",</nowiki>
    my $grundwert = $cf->{"gw"};
  <nowiki>            $sekunden / 86400,</nowiki>
    my $maxstufe = $cf->{"mx"};
  <nowiki>            ($sekunden % 86400) / 3600, </nowiki>
    my $maxlt = ($cf->{"name"} eq "Lerntechnik") ? 0 : 50;
  <nowiki>            ($sekunden % 3600) / 60;</nowiki>
    my $ex = $extra->{$cf->{"name"}};
  <nowiki>    }</nowiki>
    my $colspan = 11;
  <nowiki>    print FILE "|bgcolor=#FFFFCC|".$ex->{$stufe}."\n" if (defined($ex));</nowiki>
 
  <nowiki>}</nowiki>
    open(FILE, ">".lc($cf->{"name"}).".txt");
  <nowiki></nowiki>
 
  <nowiki></nowiki>
print FILE <<EOF;
  <nowiki>print FILE <<EOF;</nowiki>
<div id="CFoptions"></div>
  <nowiki>|}</nowiki>
<div id="CFcalc">$grundwert</div>
  <nowiki></nowiki>
<div id="CFlevel">
  <nowiki></nowiki>
{| {{Prettytable}}
  <nowiki>'''Gesamtlernzeit bis zur jeweiligen Stufe, abhängig von der Lerntechnik: ''' ''(Angaben in Tagen:Stunden:Minuten)''</nowiki>
|+ style="text-align: left;" | <small style="float:right;">''(Angaben in Tagen:Stunden:Minuten)''</small>'''Lernzeit pro Stufe, abhängig von der Lerntechnik: '''
  <nowiki>{| {{Prettytable}}</nowiki>
|-
  <nowiki>|</nowiki>
|
  <nowiki>|colspan="$colspan" align="center" bgcolor=#FFFFCC |'''[[Lerntechnik]]'''</nowiki>
|colspan="$colspan" align="center" bgcolor=#$bgcolor_general |'''[[Lerntechnik]]'''
  <nowiki>|-</nowiki>
|-
  <nowiki>!bgcolor=#FFEECB|Stufe</nowiki>
!bgcolor=#$bgcolor_block|Stufe
  <nowiki>!bgcolor=#FFFFCC|0</nowiki>
!bgcolor=#$bgcolor_general|0
  <nowiki>EOF</nowiki>
EOF
  <nowiki></nowiki>
 
  <nowiki>print FILE <<EOF if ($maxlt>0);</nowiki>
print FILE <<EOF if ($maxlt>0);
  <nowiki>!bgcolor=#FFFFCC|5</nowiki>
!bgcolor=#$bgcolor_general|5
  <nowiki>!bgcolor=#FFFFCC|10</nowiki>
!bgcolor=#$bgcolor_general|10
  <nowiki>!bgcolor=#FFFFCC|15</nowiki>
!bgcolor=#$bgcolor_general|15
  <nowiki>!bgcolor=#FFFFCC|20</nowiki>
!bgcolor=#$bgcolor_general|20
  <nowiki>!bgcolor=#FFFFCC|25</nowiki>
!bgcolor=#$bgcolor_general|25
  <nowiki>!bgcolor=#FFFFCC|30</nowiki>
!bgcolor=#$bgcolor_general|30
  <nowiki>!bgcolor=#FFFFCC|35</nowiki>
!bgcolor=#$bgcolor_general|35
  <nowiki>!bgcolor=#FFFFCC|40</nowiki>
!bgcolor=#$bgcolor_general|40
  <nowiki>!bgcolor=#FFFFCC|45</nowiki>
!bgcolor=#$bgcolor_general|45
  <nowiki>!bgcolor=#FFFFCC|50</nowiki>
!bgcolor=#$bgcolor_general|50
  <nowiki>EOF</nowiki>
EOF
  <nowiki>print FILE "!bgcolor=#FFEECB|".$ex->{"head"}."\n" if (defined($ex));</nowiki>
 
  <nowiki></nowiki>
print FILE "!bgcolor=#$bgcolor_block|".$ex->{"head"}."\n" if (defined($ex));
  <nowiki>my $step = 1;</nowiki>
 
  <nowiki>$step = 5 if ($maxstufe > 14);</nowiki>
 
  <nowiki>my $zeile = 1;</nowiki>
for(my $stufe=1; $stufe<=$maxstufe; $stufe++)
  <nowiki></nowiki>
{
  <nowiki>for(my $stufe=$step; $stufe<=$maxstufe; $stufe+=$step)</nowiki>
    print FILE "|-\n";
  <nowiki>{</nowiki>
    print FILE "|bgcolor=#$bgcolor_general|'''$stufe'''\n";
  <nowiki>    print FILE "|-\n";</nowiki>
    my $blockfarbe = (($stufe-1)/5)%2;
  <nowiki>    print FILE "|bgcolor=#FFFFCC|'''$stufe'''\n";</nowiki>
    for (my $lerntech = 0; $lerntech <= $maxlt; $lerntech += 5)
  <nowiki>    my $blockfarbe = (($zeile-1)/5)%2;</nowiki>
    {
  <nowiki>    for (my $lerntech = 0; $lerntech <= $maxlt; $lerntech += 5)</nowiki>
        my $lernfaktor = 0.97 ** $lerntech;
  <nowiki>   {</nowiki>
        my $sekunden = ($stufe-1) * $grundwert * $lernfaktor;
  <nowiki>        my $lernfaktor = 0.95 ** $lerntech;</nowiki>
        printf FILE "|bgcolor=#%s|%02d:%02d:%02d\n",
  <nowiki>        my $sekunden = reihe($stufe-1) * $grundwert * $lernfaktor;</nowiki>
            (($lerntech + $blockfarbe) % 2) ? "$bgcolor_general" : "$bgcolor_block",
  <nowiki>        printf FILE "|bgcolor=#%s|%02d:%02d:%02d\n", </nowiki>
            $sekunden / 86400,
  <nowiki>            (($lerntech + $blockfarbe) % 2) ? "FFEECB" : $blockfarbe,</nowiki>
            ($sekunden % 86400) / 3600,
  <nowiki>            $sekunden / 86400,</nowiki>
            ($sekunden % 3600) / 60;
  <nowiki>            ($sekunden % 86400) / 3600, </nowiki>
    }
  <nowiki>            ($sekunden % 3600) / 60;</nowiki>
    print FILE "|bgcolor=#$bgcolor_general|".$ex->{$stufe}."\n" if (defined($ex));
  <nowiki>    }</nowiki>
}
  <nowiki>    print FILE "|bgcolor=#FFFFCC|".$ex->{$stufe}."\n" if (defined($ex));</nowiki>
 
  <nowiki>    $zeile++;</nowiki>
 
  <nowiki>}</nowiki>
print FILE <<EOF;
  <nowiki></nowiki>
|}
  <nowiki>print FILE "|}\n";</nowiki>
</div>
  <nowiki></nowiki>
<div id="CFtotal">
  <nowiki>close FILE;</nowiki>
{| {{Prettytable}}
  <nowiki>}</nowiki>
|+ style="text-align: left;" | <small style="float:right;">''(Angaben in Tagen:Stunden:Minuten)''</small>'''Gesamtlernzeit bis zur jeweiligen Stufe, abhängig von der Lerntechnik: '''
  <nowiki></nowiki>
|-
  <nowiki>sub reihe</nowiki>
|
  <nowiki>{</nowiki>
|colspan="$colspan" align="center" bgcolor=#$bgcolor_general |'''[[Lerntechnik]]'''
  <nowiki>    my $z = shift;</nowiki>
|-
  <nowiki>    return ($z * ($z + 1) / 2);</nowiki>
!bgcolor=#$bgcolor_block|Stufe
  <nowiki>}</nowiki>
!bgcolor=#$bgcolor_general|0
  <nowiki></nowiki>
EOF
 
print FILE <<EOF if ($maxlt>0);
!bgcolor=#$bgcolor_general|5
!bgcolor=#$bgcolor_general|10
!bgcolor=#$bgcolor_general|15
!bgcolor=#$bgcolor_general|20
!bgcolor=#$bgcolor_general|25
!bgcolor=#$bgcolor_general|30
!bgcolor=#$bgcolor_general|35
!bgcolor=#$bgcolor_general|40
!bgcolor=#$bgcolor_general|45
!bgcolor=#$bgcolor_general|50
EOF
print FILE "!bgcolor=#$bgcolor_block|".$ex->{"head"}."\n" if (defined($ex));
 
my $step = 1;
$step = 5 if ($maxstufe > 14);
my $zeile = 1;
 
 
for(my $stufe=$step; $stufe<=$maxstufe; $stufe+=$step)
{
    print FILE "|-\n";
    print FILE "|bgcolor=#$bgcolor_general|'''$stufe'''\n";
    my $blockfarbe = (($zeile-1)/5)%2;
    for (my $lerntech = 0; $lerntech <= $maxlt; $lerntech += 5)
    {
        my $lernfaktor = 0.97 ** $lerntech;
        my $sekunden = reihe($stufe-1) * $grundwert * $lernfaktor;
        printf FILE "|bgcolor=#%s|%02d:%02d:%02d\n",
            (($lerntech + $blockfarbe) % 2) ? "$bgcolor_block" : $bgcolor_general,
            $sekunden / 86400,
            ($sekunden % 86400) / 3600,
            ($sekunden % 3600) / 60;
    }
    print FILE "|bgcolor=#$bgcolor_general|".$ex->{$stufe}."\n" if (defined($ex));
    $zeile++;
}
 
print FILE "|}\n</div>\n";
 
close FILE;
}
 
sub reihe
{
    my $z = shift;
    return ($z * ($z + 1) / 2);
}
</pre>

Bitte beachte, dass alle Beiträge zu FreewarWiki von anderen Mitwirkenden bearbeitet, geändert oder gelöscht werden können. Reiche hier keine Texte ein, falls du nicht willst, dass diese ohne Einschränkung geändert werden können.

Du bestätigst hiermit auch, dass du diese Texte selbst geschrieben hast oder diese von einer gemeinfreien Quelle kopiert hast (weitere Einzelheiten unter FreewarWiki:Urheberrechte). ÜBERTRAGE OHNE GENEHMIGUNG KEINE URHEBERRECHTLICH GESCHÜTZTEN INHALTE!

Bitte beantworte die folgende Frage, um diese Seite speichern zu können (weitere Informationen):

Abbrechen Bearbeitungshilfe (wird in einem neuen Fenster geöffnet)

Folgende Vorlagen werden auf dieser Seite verwendet:

Abgerufen von „https://fwwiki.de/index.php/Benutzer:Count_Ypsilon/Skript:cf.pl“