アクアプラス(http://aquaplus.jp/)の携帯機
P/ECE(http://www.aquaplus.co.jp/piece/)をお持ちの
十進BASIC(http://hp.vector.co.jp/authors/VA008683/)使いさんに捧ぐ(笑)
え？十進BASICなんて知らん！？
無料で使えるからダウンロードしてきましょう！(なんて)
=====こ=====こ=====か=====ら=====
rem +-- usomajo.bas --+
rem +-- P/ECE用ソフト『お嬢様は魔女ミニ』嘘セーブデータ生成(汗)
rem +-- 十進BASIC ver 5.0.8 にて製作と動作確認.
rem
rem +-- このプログラムの結果表示どおりセーブデータを書換えてから
rem +-- P/ECEに転送後「魔女ミニ」で成績表示すると一瞬笑えます (^^;
rem
rem +-- 使用法 : 1位から2位,3位と順に8位まで
rem +-- ・キャラクター(SERIKA か AYAKAか)
rem +-- ・コンボ数
rem +-- ・総得点
rem +-- を入力していきます.
rem
rem +-- 入力が終わると,セーフデータ(ojyomini.sav)上において
rem +-- 入力された結果と同様の状態を16進表示します.
rem
rem +-- 実際にP/ECEにデータを置く時は,この16進表示どおりに
rem +-- バイナリエディターを使ってPC上で手動で書換えてから
rem +-- P/ECEコミュニケーターで転送してください.
rem --- ここから初期設定 ---
option arithmetic decimal
option character byte
option base 0
let asc1$="位のキャラ(SERIKA=1,AYAKA=2)="
let asc2$="位のコンボ数="
let asc3$="位の得点="
let wn$="[注意]:値が範囲外のため再入力してください."
let title$="≪お嬢様は魔女ミニ {P/ECE} 嘘セーブデータ生成(笑)≫"
let chr1$="SERIKA"
let chr2$="AYAKA"
let line0$="━━━━━━━━━━━━━━━━━━━━━━━━━"
let line1$="─────────────────────────"
let line2$=" ** ** **    ++    --    ** ** **    ++    --"
let line3$=" 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F"
let inf0$="※P/ECEに置くなら ojyomini.sav 先頭アドレスから※"
let inf1$="※下記の様に書換える.余計なところは操作しない事※"
let inf2$="** → 得点 ／ ++ → コンボ数 ／ -- → キャラ"
let pinf$="位の得点="
let rep$="◆再実行◆:[F･9]"
let cnt=1
let cntlimit=9
let a=0
let b=0
let c=0
rem --- ここから実行部 ---
dim chr(cntlimit)
dim combo(cntlimit)
dim point(cntlimit)
call dataset0
sub dataset0
rem --- データ数チェック
let a=0
let b=0
let c=0
if cnt >= cntlimit then
call main
else
call dataset1
end if
end sub
sub dataset1
rem --- キャラクター指定
let a=0
let b=0
let c=0
let cnt$=str$(cnt)
input prompt cnt$&asc1$:a
beep 440,100
select case a
case is <1, is >2
print wn$
beep 440,100
call dataset1
case else
let chr(cnt)=a-1
let a=0
end select
call dataset2
end sub
sub dataset2
rem --- コンボ数入力
let a=0
let b=0
let c=0
input prompt cnt$&asc2$:b
beep 440,100
select case b
case is <0,is>255
print wn$
beep 440,100
call dataset2
case else
let combo(cnt)=b
let b=0
end select
call dataset3
end sub
sub dataset3
rem --- 得点入力
let a=0
let b=0
let c=0
input prompt cnt$&asc3$:c
beep 440,100
select case c
case is <0,is>16777215
print wn$
beep 440,100
call dataset3
case else
let point(cnt)=c
let c=0
let cnt=cnt+1
if cnt<cntlimit then
call dataset0
else
let cnt=0
call main
end if
end select
end sub
sub main
rem --- メイン部 ---
print
print title$
print
let cnt=0
for cnt=1 to (cntlimit-1) step 1
let cnt$=str$(cnt)
select case chr(cnt)
case 0
let chrad$="("&chr1$&")"
case 1
let chrad$="("&chr2$&")"
case else
end select
let chrval$="0"&str$(chr(cnt))
let combo$=str$(combo(cnt))
let point$=str$(point(cnt))
print cnt$;asc3$;point$;" ";mid$(asc1$,5,6);chrval$;chrad$;" ";mid$(asc2$,5,13);combo$
let combo(cnt)=combo(cnt)-1
next cnt
if cnt=>cntlimit then
print
print inf0$
print inf1$
print inf2$
print line0$
print line2$
print line3$
print line1$
let cnt=1
do while cnt<cntlimit
let pointhex0$=bstr$(point(cnt),16)
let combohex0$=bstr$(combo(cnt),16)
let chrhex0$=bstr$(chr(cnt),16)
if len(pointhex0$)<6 then
let pointhex0$="0"&pointhex0$
else
end if
if len(combohex0$)<2 then
let combohex0$="0"&combohex0$
else
end if
if len(chrhex0$)<2 then
let chrhex0$="0"&chrhex0$
else
end if
let pointhex2$=" "&right$(pointhex0$,2)&" "&mid$(pointhex0$,3,2)&" "&left$(pointhex0$,2)
let combohex2$=" "&combohex0$&" "
let chrhex2$=" "&chrhex0$&" "
if mod(cnt,2)=0 then
print pointhex2$&repeat$(" ",3)&combohex2$&repeat$(" ",2)&chrhex2$
elseif mod(cnt,2)<>0 then
print pointhex2$&repeat$(" ",3)&combohex2$&repeat$(" ",2)&chrhex2$&repeat$(" ",2);
else
end if
let cnt=cnt+1
loop
print line0$
print rep$;
end if
stop
end sub
end
=====こ=====こ=====ま=====で=====

あけましておめ…(遅すぎ)

はい、もうかれこれウンヶ月ほど文字列検索で死んでるBearです(苦)
百聞は何とやらって事で順を追ってスクリーンショットどうぞ。

まずは製作環境から起動。


フォームに「0123456789」と入力してから
「012」という文字列を検索してみます。


「見つかりません」などとほざく大バカ者約一名。
どこ見てんだよ！ ← ついつい画面にツッコミ入れたくもなります。


ところがどっこい「123」という文字列で検索してみると。


あら不思議、「あります」ってか！？
今度はちゃんと見つけてるじゃない。


どういうわけか編集フォーム(RichTextControl)の1文字目を拾わない…
おっかしいなぁ、どこの何を書換えたらこんな事になっちゃったのかなぁ…

【きょうの室温と湿度】20:35:56
{条件:大気圧→1003.55hPa [暖房]}
乾球温度:21℃ 湿球温度:18℃
相対湿度:73.3097603670603％

タイトルのごとく引越し真っ最中です。

休止してたグーグルのブログを復活させましたんで
今後は、日常のよろずあれこれはそっちに書くことにして
ここのブログは、シナリオくん関連の話題を中心にするようにしようと思ってます。

グーグルのブログ → http://beargifu.blogspot.com/

【きょうの室温と湿度】20:53:52
{条件:大気圧→1003.55hPa エアコン→切}
乾球温度:20.5℃ 湿球温度:18.5℃
相対湿度:81.6565650390981％

ちょっと身辺がごたごたしとりますので
当面、ここと「館」の更新を休止します。
ごたごたが片付いたら更新を再開します、あしからず m(_ _)m

　【きょうの室温と湿度】12:00:07
　{条件:大気圧→1003.75hPa エアコン→切}
　乾球温度:25℃ 湿球温度:21℃
　相対湿度:68.3732673963731％

今年は梅雨が異常に遅かったせいか
ついこの前まで夜な夜なカエルがゲロゲロ大合唱な日々だったんですが
ふと気がつけば宵の帳の下りるなり秋の虫の輪唱が聞こえてきて少々びっくり。
地球温暖化な今日この頃、日本古来の風流な季節感なんて風前の灯ですかな。

毎年、スズムシやらコオロギの、あのリンリンリン～♪っての聞こえてくると
脳内がバイオハザード一色になっちゃうんですけど
こういう人っていますよね？え？そんなのお前だけ！？

あ、初代です、2でもベロニカでもなく1作目ですんで念のため。

だって、館の外に出られるようになって寄宿舎とか行けるあたりから
何もなくても効果音がこの手の虫の音一色じゃないですか。
自分があの世界の中にいるみたいな感じになってきちゃうのよね。

あー、さっきからトイレ行きたいんだけど
ドア開けた瞬間「キシャーッ！」とか言いながら
得体の知れない化け物が飛び出してきそうな感じが！？
こちとらロケットランチャーどころかベレッタすらないんですよ←当然。
まるっきりの丸腰よ←当たり前。
こんな状態で謎の怪生物とか出てきたらと思うと(恐)
もう朝までがまんしよっと…(泣)

…やっぱ無理、お腹痛くなってきた、ちょっと行ってきます(ドキドキ)。

(中略)

はー、やっと落ちついたぁ、これで一安心 (^^)

　【きょうの室温と湿度】22:40:19
　{条件:大気圧→1003.75hPa エアコン→入}
　乾球温度:28℃ 湿球温度:24.5℃
　相対湿度:73.9086472638152％

きょう、ドアポストに入ってたのが

「8月30日は衆議院議員総選挙／最高裁判所裁判官国民審査」

あの…
ま、たった1日遅れただけだし、たまにはこういう事あるよね！？
って、この案内をきょう届けて何の意味が？

　【きょうの室温と湿度】21:30:39
　{条件:大気圧→1003.75hPa エアコン→入}
　乾球温度:28℃ 湿球温度:23.5℃
　相対湿度:67.0462898875338％

選挙の事はここで書かなくても
巷にたくさん論評あるだろから、とりあえずおいといてと。

今月、携帯を替えまして説明書と首っ引きの最中です。

機種替えの度に思うんですが
ようやく説明書見なくても困らないって頃には新しいのにしなきゃならなくて
また最初っから憶え直しってのはどうにかならんもんですかね (>_<)

てなわけで、これまで持った歴代機種を振り返ってみました。

(1).ドコモ TZ820 (松下)
　　記念すべき？一号機、とにかくでかくて重かった。

(2).ドコモ DE207 (日本電装)
　　打って変わって当時の最小・最軽量系。

(3).ドコモ P210i (松下)
　　iモード契約しないと買えなかった機種。
　　通話だけできればええのにと思いつつ
　　使いもしないiモードの課金に不満たらたら。

(4).ボーダフォン V101D (三菱)
　　WEB接続不可で料金前払い(プリペイド)の機種。
　　やっぱりシンプルが一番です。

(5).ソフトバンクモバイル 730SC (三星)
　　これが今回の最新ネタ、ソフトバンクで唯一「Y!」ボタンなしの機種。
　　第二世代携帯が来年打ち切りって事でしかたなく機種変更。
　　外出しアンテナなくなったせいか意外な場所で「圏外」多発。
　　V101Dよりあきらかにつながりにくくなったのが玉に瑕。

で、ここまで全部ストレート筐体、うんうん、我ながら納得。
自分みたいなのが折り畳み式持ち歩くと
そのうち開閉部のとこから「バキっ！」って壊しそうやし。

　【きょうの室温と湿度】06:09:45
　{条件:大気圧→1003.75hPa エアコン→入}
　乾球温度:28℃ 湿球温度:24℃
　相対湿度:70.4464533109523％

すでにかなり話題になってるみたいですが
運転中に携帯電話の操作をしないように、という啓発ビデオがすごかった。

(1).未成年の方は見ない方がいい。
(2).「衝撃映像」「ショッキング」「残酷」これらに耐性ない方は見ない方がいい。

ただ、免許持ちと、今はないけど近々免許取るつもりって人は
たとえ(2)に当てはまっても必見じゃないかなと思う。

あえてURL書きませんが
見てみようって方はこのキーワードで検索→ Texting While Driving PSA

　【きょうの室温と湿度】00:03:13
　{条件:大気圧→1003.75hPa エアコン→入}
　乾球温度:28℃ 湿球温度:24℃
　相対湿度:70.4464533109523％

・その１
『フリーウェア・シェアウェアにおいてver 1.0の後に追加された機能は
　そのソフトの作者自身には必要ないものである』

・その２
『ソフトウェアはプログラマーの思うようには動かない
　プログラマーが書いた通りに動く』

　【きょうの室温と湿度】22:49:27
　{条件:大気圧→1003.75hPa エアコン→入}
　乾球温度:27.5℃ 湿球温度:23℃
　相対湿度:66.6856276116289％

夏の涼味のひとつ、カルピスですが
1953年当時の再現版ってのが2本だけ売ってるの見つけて
思わず2本とも買ってきちゃってました。

http://www.calpis.co.jp/products/calpis/fukkoku.html

で、実家に持参、そそくさと1本は開封。
いかにも濃厚ですって感じの原液をコップの4分の1か5分の1くらい注ぎ
あとは水、仕上げに氷、のこり1本のラベルを皆で鑑賞会。
このデザインが現役だった頃は知らんけど、昔はこんなだったのね。

そういえば、これ飲むのもかなり久しぶり。
甘酸っぱい白い液体を一口含んだだけで
お袋は若かりし頃に、息子たちは子供に戻ってます。
朝のラジオ体操、昼のプール、そして夜には肝だめし。
かと思えば虫取り網を手にセミ追っかけ回したり
過ぎ去った遠い夏の日々。

発売90周年ってことは、3世代か、下手したら4世代！？
そんな昔からあったもんだとは、すごいなぁカルピス。
当時はさぞかし高価でハイカラなもんだったんだろうなぁ。

　【きょうの室温と湿度】06:02:24
　{条件:大気圧(仮)→1013.25hPa エアコン→切}
　乾球温度:26℃ 湿球温度:22.5℃
　相対湿度:72.6466547130076％