#!/usr/bin/env perl
my $experience = 999; # ここの経験値を書き変えてください
 
# アイテムデータ
my %items = (
    'パーパポトのツメ' => [4, 106, 125, 237, 250],
    'デーモンのツメ'   => [108, 131, 132, 193, 218],
    'マタンゴの油'     => [0, 40, 127, 163, 202],
    'シャドウゼロの瞳' => [35, 87, 167, 177, 198],
    'カーミラのツメ'   => [135, 157, 192, 203, 209],
    'ゴーストの瞳'     => [5, 138, 145, 183, 232],
    '夢見草'           => [0, 12, 15, 19, 29, 30, 40, 43, 76, 79, 96,
                           104, 116, 119, 127, 130, 135, 141, 147, 148, 149,
                           157, 162, 163, 166, 169, 172, 175, 181, 192, 199,
                           202, 203, 206, 209, 210, 214, 221, 234, 243, 247, 251]
);
 
my $dogs = 101 * 2;
 
sub item_predicter {
    my $input   = shift;
    my $battles = shift;
 
    # 計算ロジック
    my $div_int = int($input / 256);
    my $mod     = $input % 256;
    $div_int    = int($div_int / 2) * 2 + 1;
    my $ans     = ($div_int + $mod) % 256;
 
    # 結果を表示
    print "$battles 回分の種乱数の値: $ans\n";
 
    # 該当するアイテムを出力
    my $found = 0;
    for my $item (keys %items) {
        if (grep { $_ == $ans } @{$items{$item}}) {
            print "種を植えると $item\n\n";
            $found = 1;
        }
    }
    return;
}
 
### 主要な処理
# アイテムの一覧を表示
print "主な種乱数表\n";
for my $item (keys %items) {
    print "$item: ", join(", ", @{$items{$item}}), "\n";
}
print "\n";
 
my $num  = $experience % 50000;
my $num2 = $num;
 
DOG_HUNTER:
for my $battles (0..10) {
    item_predicter($num , $battles);
    $num += $dogs;
}
 
print "\n\n";
print "^ 月夜の森入り口の2匹ウルフを狩る\n";
print "-" x 20 . "\n";
print "v ラビの森のLv1ラビを狩る\n";
print "\n\n";
 
RABBI_HUNTER:
for my $battles (0..20) {
    item_predicter($num2++, $battles);
}
 
 

IyEvdXNyL2Jpbi9lbnYgcGVybApteSAkZXhwZXJpZW5jZSA9IDk5OTsgIyDjgZPjgZPjga7ntYzpqJPlgKTjgpLmm7jjgY3lpInjgYjjgabjgY/jgaDjgZXjgYQKCiMg44Ki44Kk44OG44Og44OH44O844K/Cm15ICVpdGVtcyA9ICgKICAgICfjg5Hjg7zjg5Hjg53jg4jjga7jg4Tjg6EnID0+IFs0LCAxMDYsIDEyNSwgMjM3LCAyNTBdLAogICAgJ+ODh+ODvOODouODs+OBruODhOODoScgICA9PiBbMTA4LCAxMzEsIDEzMiwgMTkzLCAyMThdLAogICAgJ+ODnuOCv+ODs+OCtOOBruayuScgICAgID0+IFswLCA0MCwgMTI3LCAxNjMsIDIwMl0sCiAgICAn44K344Oj44OJ44Km44K844Ot44Gu556zJyA9PiBbMzUsIDg3LCAxNjcsIDE3NywgMTk4XSwKICAgICfjgqvjg7zjg5/jg6njga7jg4Tjg6EnICAgPT4gWzEzNSwgMTU3LCAxOTIsIDIwMywgMjA5XSwKICAgICfjgrTjg7zjgrnjg4jjga7nnrMnICAgICA9PiBbNSwgMTM4LCAxNDUsIDE4MywgMjMyXSwKICAgICflpKLopovojYknICAgICAgICAgICA9PiBbMCwgMTIsIDE1LCAxOSwgMjksIDMwLCA0MCwgNDMsIDc2LCA3OSwgOTYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIDEwNCwgMTE2LCAxMTksIDEyNywgMTMwLCAxMzUsIDE0MSwgMTQ3LCAxNDgsIDE0OSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgMTU3LCAxNjIsIDE2MywgMTY2LCAxNjksIDE3MiwgMTc1LCAxODEsIDE5MiwgMTk5LAogICAgICAgICAgICAgICAgICAgICAgICAgICAyMDIsIDIwMywgMjA2LCAyMDksIDIxMCwgMjE0LCAyMjEsIDIzNCwgMjQzLCAyNDcsIDI1MV0KKTsKCm15ICRkb2dzID0gMTAxICogMjsKCnN1YiBpdGVtX3ByZWRpY3RlciB7CiAgICBteSAkaW5wdXQgICA9IHNoaWZ0OwogICAgbXkgJGJhdHRsZXMgPSBzaGlmdDsKCiAgICAjIOioiOeul+ODreOCuOODg+OCrwogICAgbXkgJGRpdl9pbnQgPSBpbnQoJGlucHV0IC8gMjU2KTsKICAgIG15ICRtb2QgICAgID0gJGlucHV0ICUgMjU2OwogICAgJGRpdl9pbnQgICAgPSBpbnQoJGRpdl9pbnQgLyAyKSAqIDIgKyAxOwogICAgbXkgJGFucyAgICAgPSAoJGRpdl9pbnQgKyAkbW9kKSAlIDI1NjsKCiAgICAjIOe1kOaenOOCkuihqOekugogICAgcHJpbnQgIiRiYXR0bGVzIOWbnuWIhuOBrueoruS5seaVsOOBruWApDogJGFuc1xuIjsKCiAgICAjIOipsuW9k+OBmeOCi+OCouOCpOODhuODoOOCkuWHuuWKmwogICAgbXkgJGZvdW5kID0gMDsKICAgIGZvciBteSAkaXRlbSAoa2V5cyAlaXRlbXMpIHsKICAgICAgICBpZiAoZ3JlcCB7ICRfID09ICRhbnMgfSBAeyRpdGVtc3skaXRlbX19KSB7CiAgICAgICAgICAgIHByaW50ICLnqK7jgpLmpI3jgYjjgovjgaggJGl0ZW1cblxuIjsKICAgICAgICAgICAgJGZvdW5kID0gMTsKICAgICAgICB9CiAgICB9CiAgICByZXR1cm47Cn0KCiMjIyDkuLvopoHjgarlh6bnkIYKIyDjgqLjgqTjg4bjg6Djga7kuIDopqfjgpLooajnpLoKcHJpbnQgIuS4u+OBqueoruS5seaVsOihqFxuIjsKZm9yIG15ICRpdGVtIChrZXlzICVpdGVtcykgewogICAgcHJpbnQgIiRpdGVtOiAiLCBqb2luKCIsICIsIEB7JGl0ZW1zeyRpdGVtfX0pLCAiXG4iOwp9CnByaW50ICJcbiI7CgpteSAkbnVtICA9ICRleHBlcmllbmNlICUgNTAwMDA7Cm15ICRudW0yID0gJG51bTsKCkRPR19IVU5URVI6CmZvciBteSAkYmF0dGxlcyAoMC4uMTApIHsKICAgIGl0ZW1fcHJlZGljdGVyKCRudW0gLCAkYmF0dGxlcyk7CiAgICAkbnVtICs9ICRkb2dzOwp9CgpwcmludCAiXG5cbiI7CnByaW50ICJeIOaciOWknOOBruajruWFpeOCiuWPo+OBrjLljLnjgqbjg6vjg5XjgpLni6njgotcbiI7CnByaW50ICItIiB4IDIwIC4gIlxuIjsKcHJpbnQgInYg44Op44OT44Gu5qOu44GuTHYx44Op44OT44KS54up44KLXG4iOwpwcmludCAiXG5cbiI7CgpSQUJCSV9IVU5URVI6CmZvciBteSAkYmF0dGxlcyAoMC4uMjApIHsKICAgIGl0ZW1fcHJlZGljdGVyKCRudW0yKyssICRiYXR0bGVzKTsKfQoK