MSX-BASICの奥義を伝授するスレ

[1 デフォルトの名無しさん NG NG]

忘れない内に皆に伝授しときましょう。

・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。

[2 デフォルトの名無しさん NG NG]

とりあえず多色刷りの前振り

10 SCREEN1:WIDTH32:DEFUSR=&H7E:A=USR(0)

[3 デフォルトの名無しさん NG NG]

PCG の弄り方忘れた。

[4 デフォルトの名無しさん NG NG]

POKE(&HFDCC,119)

[5 デフォルトの名無しさん NG NG]

ドット単位横スクロールはVDP命令を使うんだったよな。
SETADJUSTだと画面位置がバックアップされてしまうから。
でも肝心のVDP(N)のNの値が思い出せない。。。

[6 デフォルトの名無しさん NG NG]

R#26 VDP(27) 画面の水平スクロール量 (High)
R#27 VDP(28) 画面の水平スクロール量 (Low)

何故かあったＭ・ＦＡＮ９５年６月号より。
でも、もうＶＤＰの弄くりかたも忘れたなあ。。。

[7 スプライト定義 NG NG]

SPRITE$(0)="■♥♥♥♥♥♥■"

[8 デフォルトの名無しさん NG NG]

A1-WX(WSX) クロック周波数アップ
OUT 64, 8
OUT 65, 1
ちょっと、自信ない・・・

[9 デフォルトの名無しさん NG NG]

OPEN"GRP"ほにゃららAS#1

[10 ５ NG NG]

>>6
サンクス。
しかしこの情報を何に生かしたらよいのやら・・・ｗ

[11 6 NG NG]

>しかしこの情報を何に生かしたらよいのやら・・・ｗ
(苦笑
まあ、うちのＭＳＸはとっくの昔にぶっ壊れましたけど、ＴＶに直接出せるし
一応持ち運べるし、A1GTならＭＩＤＩポートついてるし、なんかの時に何か
の役にたつこともないことはないかも（いや、多分ないが（藁

[12 仕様書無しさん NG NG]

>>10
ＭＳＸエミュは結構いいのがいろいろ出てますぜ。
もっとも、実機もちゃんと持ってますが、いつ壊れるかわからんからな〜。
ひょっとすると、知らないうちに壊れてたりして。

[13 仕様書無しさん NG NG]

defusr=0:a=usr(0)

[14 仕様書無しさん NG NG]

>>9
ほにゃらら ＝ FOR OUTPUT ?

[15 デフォルトの名無しさん NG NG]

家のＭＳＸ(A1ST)君はスペースキーが効きません、助けてアルゴマン！

[16 キングコング NG NG]

>>9
セミコロンが抜けてると思われ

[17 デフォルトの名無しさん NG NG]

実家にFDD2ドライブのMSX2+がありまっせ。

[18 デフォルトの名無しさん NG NG]

>>12
実機をもってても、フロッピーの保管が大変じゃない？
どんなに、厳重にしまっていても、３〜５年で壊れるでしょ。

[19 デフォルトの名無しさん NG NG]

FS-A1Mk2だった。あのキーボードの押しにくさが忘れられない。

[20 1ch.tvへ逝け NG NG]

>>8
out64,8:out65,0じゃないかな。
ASCATのテクニカルガイドではFS-A1WX/FX/WSXで使えるとある。
あと、BASIC ROMを覗いてDSKI$, DSKI$を発見して使ったはいいが、
ディスク壊してしまったこともあったなあ。

[21 デフォルトの名無しさん NG NG]

リストを見れなくするのってどうやるんだっけ？

たしか行番号のあたりに直接
最終行番号の値を書いちまう方法があったが
どこの番地にナニを書けばいいか忘れた

実機があればリスト格納先頭番地からダンプするところだけど

[22 デフォルトの名無しさん NG NG]

MSXのエロゲーは良かったなァ。
あの時代のエロゲーには現代にはない何かがあった・・・

[23 デフォルトの名無しさん NG NG]

俺は98時代の同人エロゲーに、現代にはない良さを感じる。

[24 1ch.tvへ逝け NG NG]

>>21
TXTTAB(0F676H,2)の値+2と+3のアドレスにそれぞれ&HFFを書けばいいらしいな。
つーか、これも受け売りだけど(w
あと>>20はDSKI$, DSKO$な。DSKI$じゃディスク壊せん。

[25 デフォルトの名無しさん NG NG]

そういやOPLLデータをmidiに変換するやつ作ったっけ。
Mファンのタイトル音楽を久々に聴く。なつかし。

[26 仕様書無しさん NG NG]

>>16
セミコロンじゃなく、コロンだと思われ。

[27 仕様書無しさん NG NG]

X=X+(STICK(6)=1)-(STICK(2)=1)+(X>39)-(X<0)

今なら普通に if で書くけどな。

[28 27 NG NG]

うわ〜、大間違いっス。
ホントは、こうね。

' ｼﾞｷ ｲﾄﾞｳ
X=X+(STICK(0)=6)-(STICK(0)=2)+(X>39)-(X<0)

鬱だァァァァ。

[29 デフォルトの名無しさん NG NG]

>>28
それも間違ってるぞ（ｗ

X=X-(STICK(0)=7)*(X>0)+(STICK(0)=3)*(X<39)
が正解かと。

＞+(X>39)-(X<0)
にしちゃうと、端まで行った時に１ドット跳ね返るからね。
あとスティック関数値も間違いｗ

[30 デフォルトの名無しさん NG NG]

>>27-29
配列使った方が読みやすいしスピードが少しはあがるんじゃない？
なんでみんなこの方法を使ったんだろ。

[31 デフォルトの名無しさん NG NG]

>>30
配列つかうと行数とメモリ使用量増えるから

[32 デフォルトの名無しさん NG NG]

１画面プログラムとか向けの手法だな＞論理式

[33 デフォルトの名無しさん NG NG]

>>31
なんとなくかっこいいからという理由もあったかも。

[34 デフォルトの名無しさん NG NG]

行番号０の行を作る
↓
LISTで表示
↓
表示された0行にカーソル移動
↓
RETURNキー押す
↓
もう一度LIST
↓
行番号直後の空白が１つ増える
↓
（゜д゜）ﾊﾞｸﾞｰ

[35 1 NG NG]

というワケで（？）、簡単にスカッシュを作ってみました（ｗ
（所要時間４０分）

10 SCREEN1,0,0:WIDTH32:KEYOFF:COLOR1,14,1
20 X=112:BX=112:BY=4:MX=2:MY=2:SC=0
40 FOR J=0 TO 23:PRINT"########## ##########";:NEXT J
60 SPRITE$(0)=""
70 SPRITE$(2)="ﾀﾀ"
80 REM =========ball move=====
90 BX=BX+MX:BY=BY+MY
100 MX=MX*((BX=78)*2+1)*((BX=174)*2+1)
110 PUTSPRITE2,(BX,BY),1
120 REM =======key input========
130 T=STRIG(0)
140 X=X-(T=0)*(X>78)+(T=-1)*(X<166)
150 PUTSPRITE0,(X,160),1
160 REM =======judge=========
170 IF BY=158 AND BX>X-1 AND BX<X+9 THEN MY=-2:SC=SC+1
180 IF BY=170 THEN 220
190 IF BY=2 THEN MY=2
200 GOTO 90
210 REM ===========game over=======
220 PRINT"SCORE=";SC*10:FOR I=0 TO 500:NEXT
230 FOR I=0 TO 1:I=-STRIG(0):NEXT I:GOTO 10


Ruでのみ動作確認してます。
（まぁ、動作確認とるまでもないショボプログラムだがｗ）

ちなみに最後の　までを含めたリストをメモ帳等にコピってSAVEした後、
そのＴＸＴファイルをDISK-manegerでDSKイメージに突っ込んでsaveすれば、
いちいちプログラムを入力しなくてもＯＫなんで楽チンです。

[36 デフォルトの名無しさん NG NG]

>>35
こんな時間になにやっとるんだ（藁
ｵﾚﾓﾅｰ

[37 1 NG NG]

補足

またエミュ上でプログラムをアスキーセーブすれば（save"*****.bas",a)
Win上でプログラムの閲覧、編集等ができます。

手順は、そのプログラムを・・・
・DISK-MANEGERでEXTRACTを選択してデスクトップ等に出す。
・拡張子をTXTに変更
・メモ帳で開く
という手順です。
その際プログラム末尾に”　”が付きますが、
これはアスキーセーブを有効にする為に必要なので削除しないで下さい。

[38 1 NG NG]

>>36
ぐは！ソレは突っ込まないで・・・（ｗ

[39 デフォルトの名無しさん NG NG]

おぉ！！
つー事は２ｃｈで簡単な自作プログラムの公開なんかもできるワケですな！
まぁ、漏れは公開するようなブツは持ち合わせてないんﾀﾞｶﾞﾅ…（藁
皆さんの日の目を見なかった作品のうｐをｷﾎﾞﾝしてよいですか？

[40 デフォルトの名無しさん NG NG]

ところで>>35のプログラムの４０行は
###と###の間に１２個のスペースが入ると解釈してよいんですね？
そうしないとﾜｹﾜｶﾗﾝ画面になりましたぜ〜。

[41 デフォルトの名無しさん NG NG]

つーかムズ過ぎ！
ラリー１０回すら続かない…
鬱駄氏脳