ゲーム :: ひまつぶし雑記帖

GBLシーズン「変わりゆく物語」でACE到達

2025/10/2 [21:19:04] (木)

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» ゲーム(121) » 還暦生活(25)

ポケモンGO：GBL ゲージ管理暗記帖

2025/8/22 [08:47:09] (金)

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» ゲーム(121) » 還暦生活(25)

小学生の頃、引き算の繰り下がりが理解できずに挫折して以来、数字、算数はほんと駄目でそのまま駄目な爺さんになってしまった。

あらためて、九九もまともに覚えてないことを痛感。
2x3が6、7x8 56
みたいに、小さい数字に大きい数字を掛けるのは問題ない。

だけど9x7 63とか8x6 48
みたいに、大きい数字に小さい数字を掛けるのがまるでダメ。頭の中で式を置き換えてる。
→9x7だったら7x9に置き換え

たしか大昔の子供の頃に
「どっちでも一緒なんやから先のやつだけ覚えたらええやん」
と舐めたことを思いついて得意になった記憶あるのが困ったもんだ

てことで、九九で暗記が怪しいところをランダム表示させるページを作った（ローカルで表示させればいいので、Javascriptでやっつけた）

いちおう、答えは伏せて表示していて、やっぱり大きい数字が最初にあると「えーっと」が生じる…。

というのが今回のエントリ。

なんでまた九九の暗記？というのはポケモンGOの対人戦なんだけど。
ポケモンGOの対人戦をもう6年ぐらいやってるのに相変わらず初心者レベル。
もう少し勝つためには「ゲージ管理」をする必要がある。

ポケモンGOの対人戦は
「通常技」と「特別技」の2種類あって、「通常技」を何度か打つとゲージがたまって「特別技」を撃てるようになる。
「通常技」は種類ごとで1回の攻撃でゲージがいくつ貯まるかが違うし、「特別技」が撃てるゲージ量は技ごとで違う。

ゲージ量40で撃てる特別技、ゲージが７貯まる通常技をいくつ撃ったら特別技が撃てるようになるのか？
7x6 42
てことで、6回通常技が飛んできたら、相手の特別技はいつでも飛んでくる、という九九の暗算が求められる。

逆に6回までは特別技が飛んでこないんだから、こちらとしても通常技を撃って少しでもゲージ量を貯めてこちらも特別技を撃てるようにしておきたい。

相手の通常技の回数とその増加ゲージ量、特別技が必要とするゲージ量を計算しないといけない。

対人戦は忙しい。えーっと、8の技が5回だから相手はゲージが40貯まってる。という九九。
8x5は…えっと5x8、に置き換えてるヒマなんかない。

ボケ防止にもなるだろうとポケモンGOの対人戦をやっていて、まさか九九もまともに暗記してないことに気づかされるとは。

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» ゲーム(121) » 還暦生活(25)

GBLシーズン「楽しい日々」でACE到達

2025/7/10 [17:04:58] (木)

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» ゲーム(121)

GBLシーズン力と極みでACE到達

2025/4/23 [11:34:01] (水)

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» ゲーム(121) » 還暦生活(25)

サブルーチンの確認

2024/10/7 [09:36:50] (月)

perlで自作したおひとり様ActivityPubサーバーはその後も増築改築をちまちま続けていて、例によってその場での思いつき、やっつけ仕事の現物合わせ仕様で、わけわかめ状態となっている。

Activityを約束事どおりに対応するモジュール（pmファイル）で、いったい何をしてるのか。
もうすでに忘れてる自分がいるので、サブルーチンの洗い出し用にテキトーなスクリプトをでっちあげた。という覚え書きが今回のエントリ。

#!/usr/bin/perl
use strict;
use utf8;
use Encode;
my $f = shift(@ARGV);
if(! -e $f ){
    printf qq{Not Found pm %s\n}, $f;
    exit;
}
open(IN, $f) || die;
my $name; my @buf=<IN>; close(IN);
foreach (@buf){
    if( m!^sub (.+) *\{! ){
        $name->{$1}++;
    }
}
printf qq{sum : %s\n}, scalar( keys %{$name} );
foreach my $sub (sort keys %{$name}){
    my $pm = join('', @buf);
    my $cnt = $pm =~ s!$sub!!g;
    printf qq{%s :\n}, $sub;
    my @called; my $zzz;
    if( $cnt > 1 ){
        my $subname;
        foreach (@buf){
            if(m!^sub (.+) *\{!){
                $subname = $1;
                next;
            }
            if( m!\$self\-\>$sub! && !$zzz->{$subname}++ ){
                push(@called, $subname);
            }
        }
    }
    printf qq{\t%s\n}, join("\t", sort @called);
}

・サブルーチンの総数
・サブルーチンの名前
・サブルーチンを呼び出しているサブルーチン
ぐらい見えれば、そこそこ役に立つかなあ、と。

文字列検索でひっかけてるだけで、signなんかはサブルーチン呼び出しじゃない部分にもヒットする。本当は動かしながらcaller()でチェックするのが確実…だけど、ざっくり見るだけのためにあちこちにcaller()を仕込むのはうっとーしいんで却下。

使い捨てのつもりで書いたスクリプトだけど、思ったよりちゃんと見えるようにしてくれたので自画自賛＆エントリとして書き起こし

10/4、ポケモンGOの対人戦GBLでACEに到達。
初期レートが1984で、ACE到達時のレートは2007。GBLで遊んでいて、ずっと継続してACEにたどり着いてたんだけど、前期初めてACEに到達できず、今期もやべえかなあ、と思ってたので、ほっとひと息。

まる6年続いているゲームで、まだ全然飽きないのがすげーす。

» ローカル環境で電子書籍を作る、Macアプリ・Windows版ツール「かんたんEPUB3作成easy_epub」

»電子書籍制作代行についてはこちら

» perl(141) » ゲーム(121)

GBLシーズン「変わりゆく物語」でACE到達

ポケモンGO：GBL ゲージ管理暗記帖

算数：九九からやり直し

GBLシーズン「楽しい日々」でACE到達

GBLシーズン力と極みでACE到達

サブルーチンの確認

profile

いいだ(@t2aki@tokoroten.doncha.net)

アクセスの多い記事＆PR

リンク

TOTAL:3054

日	月	火	水	木	金	土
<<	2026/1					>>
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

GBLシーズン「変わりゆく物語」でACE到達

ポケモンGO：GBL ゲージ管理暗記帖

算数：九九からやり直し

GBLシーズン「楽しい日々」でACE到達

GBLシーズン力と極みでACE到達

サブルーチンの確認

profile

いいだ(@t2aki@tokoroten.doncha.net)

アクセスの多い記事＆PR

カテゴリ

リンク

TOTAL:3054