a_logo.pl

AndyChat 是一种用Perl 来编写的多协议的控制台聊天程序。它的目的在于提供一种共同的控制台界面

##!/usr/bin/perl
#
# Schpati - Pre-Alpha of AndyChat v3.xx
# MODULE: Logo
#
# Started on Thursday, 10th of February, 2000 around 12.30pm
#
# 13th of February, 2000
# -  (4.33pm) Optimized DrawLogo to not change colour unnecessarily
#
# 10th of February, 2000
# - (12.24pm) Initial Development
# - (12.54pm) Finished :))
# -  (1.45pm) Fixed crashing upon hitting stuff when it's doing the center-scrollin effect (I think)
#
sub DrawLogo {
  my ($al_z1) = @_;

  $loceoff = $maxx - 78;

  if ($loceoff > 1) { $loceoff = ($loceoff / 2); }

  $ll[1] = "      -                                                ";
  $ll[2] = "     - -               -             -             -   ";
  $ll[3] = "    -   -    _         -             -             -   ";
  $ll[4] = "   - - - -   - - - - - - -   - - - - - - - - - = - - - ";
  $ll[5] = "  -       -  -   - -   - -   - -     -   - -   -   -   ";
  $ll[6] = " -         - -   - - - - - - - - - - -   - - - =   -   ";
  $ll[7] = "                         _   -                         ";
  $ll[8] = "                         - - -                         ";

  textcolor(8);
  for ($al_i = 2; $al_i <= 55; $al_i++)
  {
    for ($al_j = 1; $al_j <= 8; $al_j++)
    {
      addstr(3 + $al_j, 2 + $loceoff + $al_i, substr($ll[$al_j], $al_i - 2, 1)); 
    }
    refresh();
#    usleep(25000); if (keypressed()) { goto al_endsect; }
    $tr = time(); while (time() - 0.025 < $tr) { if (keypressed()) { goto al_endsect; } }
  }
  textcolor(7);
  for ($al_i = 54; $al_i >= 1; $al_i--)
  {
    for ($al_j = 1; $al_j <= 8; $al_j++)
    {
      addstr(3 + $al_j, 4 + $loceoff + $al_i, substr($ll[$al_j], $al_i, 1)); 
    }
    refresh();
#    usleep(25000); if (keypressed()) { goto al_endsect; }
    $tr = time(); while (time() - 0.025 < $tr) { if (keypressed()) { goto al_endsect; } }
  }
  textcolor(2);
  for ($al_i = 2; $al_i <= 55; $al_i++)
  {
    for ($al_j = 1; $al_j <= 8; $al_j++)
    {
      addstr(3 + $al_j, 2 + $loceoff + $al_i, substr($ll[$al_j], $al_i - 2, 1)); 
    }
    refresh();
    $tr = time(); while (time() - 0.025 < $tr) { if (keypressed()) { goto al_endsect; } }
#    sleep(0.025); if (keypressed()) { goto al_endsect; }
  }
  for ($al_i = 54; $al_i >= 1; $al_i--)
  {
    for ($al_j = 1; $al_j <= 8; $al_j++)
    {
      if (substr($ll[$al_j], $al_i, 1) ne " ") { textcolor(rand(15) + 1); }
      addstr(3 + $al_j, 4 + $loceoff + $al_i, substr($ll[$al_j], $al_i, 1)); 
    }
    refresh();
#    sleep(0.025); if (keypressed()) { goto al_endsect; }
    $tr = time(); while (time() - 0.025 < $tr) { if (keypressed()) { goto al_endsect; } }
  }

  textcolor(7);
  gotoxy(2, 13);
  $al_rnd = rand(11) + 1;
  if ($al_rnd > 10)
  {
    Center("Spathi is not a cow.", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 9)
  {
    Center("Where do you want to moo today?", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 8)
  {
    Center("Moo.", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 7)
  {
    Center("This is the chat program that goes MOO!", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 6)
  {
    Center("Good Morning, " . $al_z1 . ".", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 5)
  {
    Center("Welcome to AndyChat", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 4)
  {
    Center("Hi.  I'm AndyChat.  Who are you?", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 3)
  {
    Center("Are you sure you want to do that, " . $al_z1 . "?", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 2)
  {
    Center("Once upon a time, there was a cow.", 2, $maxx - 17, 0.04);
  }
  elsif ($al_rnd > 1)
  {
    Center("Moo, moo mooo!  Moo, moo moo MOOOOOO mooooo!", 2, $maxx - 17, 0.04);
  }
  al_endsect: return;
}