#!/usr/local/bin/perl
# histoire0023.pl ローカルで動くはず。
# Perlで動く先天能力鑑定（改。
# 2008/12/07 - ある近代人
# 再配布/改造はご自由に。

  print STDERR "\n";
  print STDERR "イストワールの世界へようこそ。\n";
  print STDERR "そして、あなたの帰還に感謝します。\n";
  $variable_eNTER = <STDIN>;

  &event_a;

  print STDERR "\n";

  &event_b;

  print STDERR "\n";

  &event_c;

  print STDERR "\n";
  $variable_b = ($variable_b / $variable_d);
  $variable_b = int($variable_d);
  print STDERR "A: $variable_b\n";
  $variable_a = ($variable_a - $variable_d);
  print STDERR "B: $variable_a\n";
  $variable_e = ($variable_a + $variable_b);
  print STDERR "C: $variable_e\n";
  print STDERR "\n";

  &event_d;
  
  exit;

sub event_a {

  print STDERR "あなたの誕生月を入力してください。\n";
  $variable_a = <STDIN>;
  chomp($variable_a);
  
  if ($variable_a eq '' || $variable_a =~ /\D/ || $variable_a > 13) { &event_a; }

}

sub event_b {

  print STDERR "あなたの誕生日を入力してください。\n";
  $variable_b = <STDIN>;
  chomp($variable_b);

  if ($variable_b eq '' || $variable_b =~ /\D/ || $variable_b > 31) { &event_b; }

}

sub event_c {


  if (!$GATE) { $GATE = ''; }
  if (!$GATE) { $GATE = int(rand(2)); }

  if($GATE eq '0') {

    print STDERR "あなたの好きな色は？\n";
    print STDERR "1 : 紅\n";
    print STDERR "2 : 蒼\n";
    print STDERR "3 : 白\n";
    print STDERR "0 :（キャンセル：どれも嫌だ）\n";
    $variable_c = <STDIN>;
    chomp($variable_c);

    if ($variable_c eq '1') { $variable_d = '3' }
    elsif ($variable_c eq '2') { $variable_d = '4' }
    elsif ($variable_c eq '3') { $variable_d = '5' }
    elsif ($variable_c eq '0') { $variable_d = '6' }
    else { &event_c; }

  } elsif($GATE eq '1') {

    print STDERR "生まれ変わるとしたら？\n";
    print STDERR "1 : 猫\n";
    print STDERR "2 : 燕\n";
    print STDERR "3 : 鯨\n";
    print STDERR "0 : (キャンセル：どれも嫌だ)\n";
    $variable_c = <STDIN>;
    chomp($variable_c);

    if ($variable_c eq '1') { $variable_d = '4' }
    elsif ($variable_c eq '2') { $variable_d = '5' }
    elsif ($variable_c eq '3') { $variable_d = '6' }
    elsif ($variable_c eq '0') { $variable_d = '3' }
    else { &event_c; }

   } elsif($GATE eq '2') {

    print STDERR "見上げた空に浮かぶ月は？\n";
    print STDERR "1 : 満月\n";
    print STDERR "2 : 半月\n";
    print STDERR "3 : 上弦の三日月\n";
    print STDERR "0 : (キャンセル：どれでもない)\n";
    $variable_c = <STDIN>;
    chomp($variable_c);

    if ($variable_c eq '1') { $variable_d = '5' }
    elsif ($variable_c eq '2') { $variable_d = '6' }
    elsif ($variable_c eq '3') { $variable_d = '7' }
    elsif ($variable_c eq '0') { $variable_d = '4' }
    else { &event_c; }

  } else {
  
    &FAILED;
  
  }

}

sub event_d {

  if ($variable_d > 8) {

    print STDERR "お待たせしました。\n";
    print STDERR "あなたの先天\能\力は「ナイフ持ち」です。\n";
    print STDERR "予め予備武器に [ ダガー(無) ] が登録されています。\n";
  
  } elsif ($variable_d > 6) {

    print STDERR "お待たせしました。\n";
    print STDERR "あなたの先天\能\力は「先制率高い」です。\n";
    print STDERR "先制攻撃の確率が [ 19/101 ] になっています。\n";
  
  } elsif ($variable_d > 4) {

    print STDERR "お待たせしました。\n";
    print STDERR "あなたの先天\能\力は「覚醒率大」です。\n";
    print STDERR "[ 覚醒 ] する確率が [ 101/10001 ] になっています。\n";
  
  } elsif ($variable_d > 2) {

    print STDERR "お待たせしました。\n";
    print STDERR "あなたの先天\能\力は「ポート上限拡張」です。\n";
    print STDERR "テレポート用のポート上限が [ 4 ] になっています。\n";

  } elsif ($variable_d < 2) {

    print STDERR "お待たせしました。\n";
    print STDERR "あなたの先天\能\力は「盗む低下なし」です。\n";
    print STDERR "強敵から [ 盗む ] を実行しても成功確率が低下しません。\n";

  } else {
  
    &FAILED;
  
  }

  $variable_f = <STDIN>;

}

sub FAILED {

    print STDERR "\n";
    print STDERR "またマフィン？これで何回目？\n";
    print STDERR "わすれた。\n";
    eixt;

}
EOF