よなぷーの無駄喋り

2025年12月


251225211034610
251225211151527
251225211209955


========================================================
【  ソフト名   】 Fx-zardry
【 バージョン  】 version 1.0
【 ソフト種別  】 フリーウェア/RPG
【  制作者名   】 よなぷー
【  ファイル名 】 Fx-zardry_ver10.txt
【   対応PC   】 CASIO ポケットコンピュータ FX-860P
【   連絡先   】 stfaastf@yahoo.co.jp
【    転載    】 下記参照
【 最終更新   】 2025年12月25日
========================================================

▲◆■ 概要 ■◆▲
 本作は、著者のプログラム制作30周年記念作品だった PB-100 用『PIZ』を、FX-860P に移植したものです。FXならではのカタカナ表示を存分に使わせていただきました。


▲◆■ 著作権・免責事項 ■◆▲
 「Fx-zardry」はフリーソフトです。このソフト(プログラム及び関連ドキュメントを含める)の著作権は、作者であるよなぷーに帰属します。
 ソフト、及び付属テキストは、著作権法および著作権に関する条約をはじめ、その他の無体財産権に関する法律ならびに条約によって保護されています。
 作者に認められている場合を除き、このソフトを第三者に有償で提供することはこれらに違反することになりますのでご注意ください。
 ソフトを使用したことにより生じたいかなる障害、損害において、作者は一切責任を負わないものとします。各自の責任において使用してください。
 また、作者はバグが発見された場合においても、その修正、バージョンアップの義務を負わないものとします。


▲◆■ このソフトの配布、転載に関して ■◆▲
 このプログラム・関連ドキュメントの利益を伴わない再配布、または転載等は基本的に自由とします。雑誌付録への収録なども構いません。その際作者への連絡を必要としません。
 ※一切のデータはオリジナルの場合に限ります。


▲◆■ 入力方法 ■◆▲
 全部で 3379 バイトあります。普通に本体で入力するか、パソコン経由でプログラムを送信してください。
 私の環境は、
・Windows 7 ノートパソコン
・BOOTH の『ac-shop』さんで購入した『CASIO FX-860Pvc 用 USB シリアル変換モジュール(FA-6 相当 IF 版)』
・USB 2.0 ケーブル【A】-【miniB】
・Windows ドライバーに WCH 製の CH340C
・通信ソフトに『PB-1000 Data Communicator32』(『JUN AMANO'S HOMEPAGE』さんより入手)
といった感じです。

●私の送信方法
 まずドライバーと通信ソフトをダウンロードして、あらかじめパソコンに入れておきます。
 次にポケコンへ USB シリアル変換モジュールを接続し、USB ケーブルで繋いで、パソコンの USB 端子にセットします。パソコンにドライバーが入っていれば、初回はそれのインストールが行なわれます。
 続いてポケコンを[MODE][1]で BASIC モードにします。そのうえで通信ソフトを立ち上げ、そこに書かれている『PB-1000 Settings:』の後の文字列をポケコンに入力します。たとえば、そのままの設定なら『LOAD"COM0:6,E,8,1,N,N,N,B,N"』となります。
 最後にポケコンのその命令を実行してから、『PB-1000 Data Communicator32』で『Send』を押してテキストファイルを選べば、パソコンからポケコンへプログラムが送信されます。
 逆にポケコンからパソコンへプログラムを送りたい(セーブしたい)なら、『Receive』を押してパソコン側の準備を整えてから、ポケコンで『SAVE"COM0:6,E,8,1,N,N,N,B,N"』を実行します。
 エラーが出てしまう場合は、『Parity』を『None』にしたり『Odd』にしたりしてみてください(私の場合はそれでうまくいきました)。そのときは『SAVE』や『LOAD』の文字列の『E』も変化しますのでご注意を。


▲◆■ 物語 ■◆▲
 突如森の中に現れた謎の迷宮。そこより発せられる邪悪な空気は、周囲の国々をまたたく間に覆い尽くし、不作や疫病を蔓延させた。苦しみに喘ぐ国々は、迷宮の奥深くに潜む主・デーモンを倒せば災いを逃れられると、6人の冒険者を送り込む。
 彼らは果たして、無事に目的を遂げられるのだろうか……

▲◆■ 遊び方 ■◆▲
 CAL モードで[SHIFT][(入力したプログラムエリア)]と入力するとゲーム開始です。初めて遊ぶ場合は[9]を、続きを遊ぶ場合はそのままで[EXE]してください。

 キャンプでは、体力が最大値まで回復し、キャラを転職させることができます。ちなみに順番は関係ありません。

 セ……戦士。最大体力が大幅に上昇。魔法は全然駄目。重たい武器も扱える。
 ト……盗賊。体力は今一つだが器用なため、宝箱の罠を外したり逃げやすくなる。
 ソ……僧侶。体力はそこそこ、魔法も扱える上、体力回復の技能もあるオールラウンダー。
 マ……魔法使い。体力はからきしだが、魔法にかけては右に出るものがいない。
 ニ……忍者。レベル50より選択可能。クリティカルと器用さに長け、手裏剣を扱える。
 サ……侍。レベル50より選択可能。僧侶並みの体力とそこそこの魔法。村正を扱える。

 攻撃力や最大体力などの各種能力値は、パーティー各キャラの能力の総計で決まります。
 [Q][W]で選択し、[/]で決定、[*]でキャンセル、[-]で状態表示、が操作の基本です。
 キャンセルでキャンプを出たら迷宮に入ります。迷宮では敵との戦闘が待っています。10回戦闘に勝つか逃げるかすると、次の階へ進みます。戦闘前に[*]でキャンセルすると、その階の入り口まで戻ってキャンプします。

 戦闘ではグール、ゴーレムと戦います。グールには物理攻撃のみ、ゴーレムには魔法攻撃のみが通用します。前者はパーティー各キャラが持つ武器の攻撃力を総計した値、後者は魔力の合計値が与えるダメージとなります。
 戦闘は自動で行なわれます。逃げる場合は[Q]を押し続けてください。ただしパーティーの器用さが低いと、必ず逃げられるとは限りません。
 パーティーの体力がなくなるとゲームオーバーです。

 戦闘に勝つと経験値(表示されません)が手に入り、経験値がたまるとレベルアップしてパーティーが強くなります。
 また、必ず宝箱が手に入ります。宝箱は必ず爆弾の罠が仕掛けられており、開ける場合はパーティー全体の器用さ+運で解除を目指します。うまく罠を外すと武器が、失敗すると爆弾のダメージが与えられます。武器を獲得できた場合は、[/]で装備するか、[*]でキャンセルして捨てるかしてください。
 武器は数値が大きいほど威力も高くなります。ただし、キャラの職業によって扱える武器に制限があります。

 ・素手……何もなし。転職するとこれになる。
 ・木の杖……全員可。
 ・棍棒……全員可。
 ・魔の杖……全員可。
 ・剣……戦士・盗賊・忍者・侍のみ使用可。
 ・長剣……戦士・盗賊・忍者・侍のみ使用可。
 ・斧……戦士・侍のみ使用可。
 ・カシナート(の剣)……戦士・侍のみ使用可。
 ・手裏剣……忍者のみ使用可。
 ・村正……最強の武器、侍のみ。

 戦闘に勝つと、僧侶の人数に応じて体力がじゃっかん回復します。

 以上のほとんどの場面において、[-]でパーティーの状態を表示できます。まずはそれぞれのキャラの職業と武器が、それに続いて順に体力と最大体力、レベル、物理攻撃力、魔法攻撃力、体力回復力、器用さ、クリティカル(一撃必殺)率、と表示されます。

 迷宮は全部で50階あり、50階にはデーモンが待っています。デーモンには物理攻撃しか効かず、また逃げることもできません。勝つとクリア、負けるとゲームオーバーとなりますが、いずれの場合でも45階に戻されます。


▲◆■ 変数表 ■◆▲
A  パーティー体力       N  パーティー回復力
B  パーティー最大体力          O$ パーティー姿
C  パーティー器用度            P  現在地
D  パーティークリティカル率    Q  汎用
E  汎用                        R  キー入力
F  敵の種類                    S  カーソル位置
G  敵の体力                    T  汎用
H  入手した武器の威力          U(1~6)装備武器
I  到達階                      V  ―――
J  パーティー経験値            W(1~6)各キャラ職業
K  パーティーレベル            X  汎用
L  パーティー攻撃力            Y  時間稼ぎ
M  パーティー魔法攻撃力        Z$ 職業正式名


▲◆■ バージョン ■◆▲
 1.0……ひとまず完成


▲◆■ 開発後記 ■◆▲
 深い階に潜らないとろくな武器が出ないので、盗賊を使って『Qボタン押しっ放し連続逃亡』をすると楽に先へ進めるでしょう。あまり楽しても、レベルが足りなくて詰んでしまうこともあるので、僧侶二段構えで経験値稼ぎに腐心するのも忘れずに。
 なお、階の進行中にレベルアップしても、次にキャンプを開くまでは物理・魔法ともどもそれが反映されません。これは仕様です(ひどい言い訳)。
 しかしまあ、やっぱりこのゲームは面白いですね。カタカナ表記で見やすくなったし、ついつい自画自賛してしまいます。FX-860P ユーザーの方は、ぜひとも遊びましょう。

10 '=FX-ZARDRY= VER.1.0 BY YONAPUU,2025
20 GOSUB 750
30 'メイン
40 CLS:PRINT "キャンプ:テンショク";:GOSUB 730
50 GOSUB 390:A=B:P=I:IF R<>3 THEN 50
60 CLS:PRINT O$;":";P;:GOSUB 540:IF R=4 THEN 60
70 IF R=3 THEN 40
80 F=INT(RAN#*2):G=I^2+8:IF P=50 THEN F=2:G=2E4:I=45
90 CLS:LOCATE 0,0:PRINT O$;MID$(F*6+7,6);:GOSUB 730
100 IF INKEY$="Q" THEN IF C+.3>=RAN# THEN IF F<>2 THEN CLS:PRINT "ニゲダシタ!";:GOSUB 730:GOTO 270
110 IF RAN#>=.7 THEN S=I*5+2:LOCATE 0,0:PRINT "*";S;:A=A-S:GOSUB 360:GOSUB 730:GOTO 90
120 S=SGN FRAC(F/2):X=M:IF S=0 THEN X=L
130 LOCATE 7,0:PRINT INT X;:G=G-X:GOSUB 730:IF RAN#+S<=D THEN PRINT "クリティカル!";:G=0:GOSUB 730
140 IF G>=1 THEN 90
150 CLS:PRINT "ショウリ!";:J=J+I^2+1:GOSUB 730:IF J>=K^2 THEN J=0:K=K+1:PRINT "レベルアップ!";:GOSUB 730
160 IF N>0 THEN A=INT(A+B*N):PRINT "タイリョク+";INT(B*N);:GOSUB 730:IF A>=B THEN A=B
170 CLS:PRINT "タカラバコ:アケル>[/]";:GOSUB 540:IF R=4 THEN 170
180 IF R<>2 THEN 270
190 H=1+.1*INT(2*RAN#*RAN#*P):IF H>=10 THEN H=9.9
200 IF C+.35=<RAN# THEN CLS:PRINT "バクハツシタ!";I*8+2;:A=A-I*8-2:GOSUB 730:GOSUB 360:GOTO 270
210 CLS:PRINT "GET!";MID$(INT H*5+25,5);H;:GOSUB 540:IF R=4 THEN 210
220 IF R=3 THEN 270
230 GOSUB 480:Q=S+1:IF R<>2 THEN 210 ELSE GOSUB 450
240 GOSUB 540:IF R=3 THEN 210
250 IF R=2 THEN GOSUB 300
260 IF R<>3 THEN 210
270 P=P+.1:IF FRAC P=0 THEN CLS:PRINT P-1;"カイ:クリア-!";:GOSUB 730:I=P
280 IF F<>2 THEN 60
290 CLS:PRINT "アナタタチハ デ-モンヲ タオシ,スベテノ オウコクヲ スクッタ!!","オメデトウ!","ハッピ-エンド!";:END
300 E=W(Q-1):IF H>=4 THEN IF ABS(E-2.5)<1 THEN RETURN
310 IF H>=6 THEN IF H<8 THEN IF ABS(E-2.5)<2 THEN RETURN
320 IF INT H=8 THEN IF E<>4 THEN RETURN
330 IF INT H=9 THEN IF E<>5 THEN RETURN
340 CLS:PRINT "ソウビシタ!";:U(Q)=H:R=3:T=1:GOSUB 730:GOTO 630
350 'シボウハンテイ
360 IF A>=1 THEN RETURN
370 PRINT "ゲ-ム オ-バ-";:END
380 'キャンプ(テンショク ショリ)
390 GOSUB 480:IF R<>2 THEN RETURN
400 Q=S+1:GOSUB 450:S=1:G=4:IF K>=50 THEN G=6
410 LOCATE 15,0:PRINT "<";MID$(Z$,S*5-4,5);:GOSUB 540:IF R=<1 THEN S=1+S*SGN(G-S):GOTO 410
420 IF R<>2 THEN RETURN
430 CLS:PRINT "テンショクシタ!";:U(Q)=0:W(Q-1)=S-1:GOSUB 730:RETURN
440 'ソウビヒョウジ
450 CLS:PRINT Q;":";MID$(W(Q-1)+1,1);"_";
460 PRINT MID$(INT U(Q)*5+25,5);U(Q);:RETURN
470 'カーソルイドウ
480 S=2
490 T=2:GOSUB 630:LOCATE S*2+1,0:PRINT "<";:GOSUB 540:IF R=4 THEN 490
500 IF 0>R THEN S=S-SGN S:GOTO 490
510 IF R=1 THEN S=S+SGN(5-S):GOTO 490
520 RETURN
530 'キーニュウリョク & ジョウタイヒョウジ
540 K$=INKEY$:IF K$="Q" THEN R=-1:RETURN
550 IF K$="W" THEN R=1:RETURN
560 IF K$="/" THEN R=2:RETURN
570 IF K$="*" THEN R=3:RETURN
580 IF K$<>"-" THEN 540
590 FOR Q=1 TO 6:GOSUB 450:STOP:NEXT Q:R=4
600 CLS:PRINT "レベル";K;":タイリョク";A;"/";B,"ブツリ";INTL;":マホウ";M,"カイフクリョク";N
610 PRINT "キヨウサ";C;":クリティカル";D:RETURN
620 'パーティ-ノウリョクチェック
630 CLS:B=0:N=0:L=0:M=0:C=0:D=0:O$="":FOR Q=0 TO 5:E=W(Q)
640 L=L+U(Q)^3+K:ON E+1 GOSUB 660,670,680,690,700,710:G$=MID$(E+1,1):LOCATE Q*T,0:PRINT G$;
650 O$=O$+G$:NEXT Q:RETURN
660 B=B+K*5:RETURN
670 B=B+K:C=C+.6:RETURN
680 B=B+K*3:M=M+K*2:N=N+.2:RETURN
690 M=M+K*5:RETURN
700 B=B+K:D=D+.05:C=C+.4:RETURN
710 B=B+K*3:M=M+K:RETURN
720 'ジカンカセギ
730 FOR Y=0 TO 120:NEXT Y:RETURN
740 'サイショ
750 INPUT "9=サイショカラ,ホカ=ツヅキカラ",Q$:IF Q$<>"9" THEN 40
760 'タイトル
770 CLS:PRINT "*FX-ZARDRY*":CLEAR:DIM U(6):DIM W(6):K=1
780 $="セトソマニサ:グ-ル :ゴ-レム:デ-モンスデ  キノツエ コンボウマホノツエケン   チョウケンオノ   カシナ-トシュリケンムラマサ "
790 Z$="センシ  トウゾクソウリョ マホツカイニンジャサムライ "
800 GOTO 40

↑このページのトップヘ