プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• COLA

2013年2月1日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム 鑑賞プログラム QRコード mkII専用 移植

概要

MSX-FAN のAVフォーラムに掲載された、「水の中」の移植・改造品です。

パレット切り替えの参考プログラムとして紹介します。

冬なので暖色系で試してみました。

操作方法

十字キーを押しながら実行すると、水色に設定されます。 色がカラフルな場合は作画中です。 2色になるまでお待ちください。

パレットアニメーション中に何かボタンを押すと終了します。

オリジナルとの相違点

• オリジナルのコードルールにあった、29*29以内の文字制限は再現していません。
• デフォルトの色および、パレット周期が違います。
• CIRCLE命令の仕様が異なるため、CIRCLE命令を使用せず、PSET命令に頼っています。
• 円のサイズは４が最大になっています。
• 円のサイズ４の移動速度が微調整できません。(無理やり詰め込んだため)
• 泡の密度を高めてあります。
• 左右に揺れるものを一部追加してあります。

注意点・免債

• 表示方法の性質上、色の点滅などが発生しています。疲労した状態での実行・閲覧はご遠慮ください。
• 眼精疲労を避けるため、眺めすぎたり、長時間泡を目で追ったりしないでください。
  • パレットアニメーションは約0.5秒周期です。長時間実行しても変化はありませんのでご注意願います。
• このソフトの使用・改造において、いかなる損害（目が疲れた・ジュース飲みたくなってしまった等）が発生しても責任は取りかねます。

スクリーンショット・動画

※ 丸しか表示されないので省略

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

押してね

ＰＮＬＴＹＰＥ　”ＯＦＦ”’ ＡＣＬＳ：ＧＦＩＬＬ　０，０，２５５，２１１，３１ ＩＦ　ＢＵＴＴＯＮ（）　ＴＨＥＮ　Ｐ＄＝”２２４４ＦＦ”ＥＬＳＥ　Ｐ＄＝”３３００００” Ｃ＝３１：ＧＯＳＵＢ　＠ＰＡＬＣＨＧ ＦＯＲ　Ｘ＝０　ＴＯ　２５３ 　　Ｃ＝ＲＮＤ（３０）＋１：Ｓ＝ＲＮＤ（４）＋１：Ｔ＝−２ 　　ＩＦ　Ｓ＝＝４　ＴＨＥＮ　Ｓ＝Ｓ−ＲＮＤ（３） 　　ＩＦ　Ｓ＜４　ＴＨＥＮ　Ｔ＝ＲＮＤ（１６）／２４ 　　ＩＦ　Ｓ＜２　ＴＨＥＮ　Ｔ＝−ＲＮＤ（８）／１６ 　　ＦＯＲ　Ｙ＝１９１　ＴＯ　０　ＳＴＥＰ　−Ｓ−Ｔ 　　　　Ｃ＝１＋Ｃ％２９ 　　　　ＧＯＳＵＢ　＠ＤＣＩＲＣＬＥ 　　ＮＥＸＴ 　　Ｘ＝Ｘ＋Ｓ−１ ＮＥＸＴ ＦＯＲ　Ｌ＝０　ＴＯ　１ ＧＯＳＵＢ　＠ＰＡＬＣＨＧ：Ｌ＝ＢＵＴＴＯＮ（） ＮＥＸＴ：ＥＮＤ ＠ＤＣＩＲＣＬＥ ＯＮ　Ｓ　ＧＯＴＯ　＠ＣＳＩＺ１，＠ＣＳＩＺ１，＠ＣＳＩＺ２，＠ＣＳＩＺ３，＠ＣＳＩＺ４ ＠ＣＳＩＺ１ 　Ｆ＝ＲＮＤ（Ｓ）：ＧＰＳＥＴ　Ｘ＋Ｆ，Ｙ，Ｃ 　Ｃ＝１＋Ｃ％２９ 　ＧＯＴＯ　＠ＤＣＥＮＤ ＠ＣＳＩＺ２ 　Ｆ＝ＲＮＤ（Ｓ） 　ＧＰＳＥＴ　Ｘ＋Ｆ，Ｙ，Ｃ：ＧＯＴＯ　＠ＤＣＥＮＤ ＠ＣＳＩＺ３ 　ＧＰＳＥＴ　Ｘ＋１，Ｙ，Ｃ：ＧＰＳＥＴ　Ｘ＋１，Ｙ＋２，Ｃ 　ＧＰＳＥＴ　Ｘ，Ｙ＋１，Ｃ：ＧＰＳＥＴ　Ｘ＋２，Ｙ＋１，Ｃ 　Ｃ＝１＋Ｃ％２９ 　ＧＯＴＯ　＠ＤＣＥＮＤ ＠ＣＳＩＺ４ 　ＦＯＲ　Ｊ＝１　ＴＯ　２ 　　ＧＰＳＥＴ　Ｘ，Ｙ＋Ｊ，Ｃ：ＧＰＳＥＴ　Ｘ＋３，Ｙ＋Ｊ，Ｃ 　　ＧＰＳＥＴ　Ｘ＋Ｊ，Ｙ，Ｃ：ＧＰＳＥＴ　Ｘ＋Ｊ，Ｙ＋３，Ｃ 　ＮＥＸＴ 　ＧＯＴＯ　＠ＤＣＥＮＤ 　＠ＤＣＥＮＤ 　ＲＥＴＵＲＮ ＠ＰＡＬＣＨＧ 　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｃ，Ｐ＄ 　Ｃ＝１＋Ｃ％２９ 　ＣＯＬＳＥＴ　”ＧＲＰ”，Ｃ，”ＦＦＦＦＦＦ” 　ＶＳＹＮＣ　１ 　ＲＥＴＵＲＮ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

• kerious : Whoa! Cool!! This is a great display for a "desktop toy". Keep up the great work. (2013/02/01 (金) 01:55:58)
• 道産子の初心者 : ジュース飲みたくなったって損害なのかw (2013/02/01 (金) 15:04:32)
• キービィ : 青にすればソーダになるなｗ (2013/02/05 (火) 12:48:30)
• キービィ : 十字キーの色変えでバグ。一度色変えすると十字キーを押さずに実行しても色が元に戻らない。リストの2行のACLSとGFILLの間にCLEARを入れると正常になる。 (2013/02/05 (火) 17:50:59)
• キービィ : さらに最初の行の一番後ろにある'←これはいらないんじゃ… (2013/02/05 (火) 17:55:31)
• 名無しさん : 1行目の ' : 実はそこにCLEAR を入れていました。 何故消したんだろう… ／ 水色： タブクリア20周年ということで。 (2013/02/07 (木) 18:40:15)
• 名無しさん : ju-suhasongaijane-darow (2013/02/24 (日) 11:03:28)
• ふぁ : 水色追加すれば水になるｗ　orz (2013/04/02 (火) 15:03:16)

お名前: