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

投稿プログラム : 朱雀の1画面プログラム

パンくずリスト

2012年10月6日投稿 / 投稿者 : 朱雀 / タグ : 投稿プログラム ゲーム 癒し 鑑賞プログラム サブルーチン 1画面プログラム mkII専用 AEG

概要

私めが作った、１画面プログラム集です。どんどん追加していく予定です。皆さんのプログラムの助けとなれば幸いです。でも期待しないでください。あと、
プログラムが正常に動かない、等がありましたら
お手数ですがひとことコメントにてお知らせください。

+  カウンタ

１画面について

画面から(横に)はみ出るものは、１画面とは言わないのか？ということで、１画面もどきかな？すいません

利用について

このサブル等を利用する際は、借りますと言って下さると嬉しいです。嬉しくて夜眠れません。睡眠妨害です。

泡プログラム

泡が発生し、昇っていきます。ボーッと眺めてください。

  1. ’アワフ゜ロク゛ラム
  2. ＡＣＬＳ：ＣＬＥＡＲ：ＰＮＬＴＹＰＥ　”ＯＦＦ”Ｒ＝２０：ＭＡＸ＝５０
  3. ＤＩＭ　Ｘ（ＭＡＸ），Ｙ（ＭＡＸ），Ｒ（ＭＡＸ），ＹＵ（ＭＡＸ）
  4. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１
  5. 　Ｒ（Ｉ）＝ＲＮＤ（Ｒ）＋１
  6. ＮＥＸＴ
  7. ＠Ａ
  8. ＧＣＬＳ　４
  9. ＦＯＲ　Ｉ＝０　ＴＯ　ＭＡＸ−１
  10. 　Ｙ（Ｉ）＝Ｙ（Ｉ）−（Ｒ（Ｉ）／２）
  11. 　ＩＦ　ＹＵ（Ｉ）＞＝５＋ＲＮＤ（３）−Ｒ（Ｉ）　ＴＨＥＮ　Ｘ（Ｉ）＝Ｘ（Ｉ）＋（ＲＮＤ（３）−１）：ＹＵ（Ｉ）＝０
  12. 　ＩＦ　Ｙ（Ｉ）＜−Ｒ（Ｉ）　ＯＲ　ＲＮＤ（Ｒ（Ｉ）＊１５０）＝＝１　ＴＨＥＮ　Ｘ（Ｉ）＝ＲＮＤ（２５６）：Ｙ（Ｉ）＝１９２＋Ｒ（Ｉ）：Ｒ（Ｉ）＝ＲＮＤ（Ｒ）＋１
  13. 　ＹＵ（Ｉ）＝ＹＵ（Ｉ）＋１
  14. 　ＧＣＩＲＣＬＥ　Ｘ（Ｉ），Ｙ（Ｉ），Ｒ（Ｉ），１５
  15. ＮＥＸＴ
  16. ＷＡＩＴ　１：ＧＯＴＯ　＠Ａ

光の軌跡プログラム

光が不思議な動きをします。偶然出来ました。

  1. ’ヒカリ
  2. ＡＣＬＳ：ＢＧＭＰＬＡＹ　１５
  3. ＠ＳＴＡＲＴ
  4. ＣＬＥＡＲ：Ｘ＝１２８：Ｙ＝９６：Ｒ＝ＲＮＤ（２００）−１００：ＲＲ＝ＲＮＤ（２００）−１００
  5. ＠Ａ
  6. ＩＦ　Ｂ＜Ｒ　ＴＨＥＮ　Ｂ＝Ｂ＋１
  7. ＩＦ　ＢＢ＜ＲＲ　ＴＨＥＮ　ＢＢ＝ＢＢ＋１
  8. ＩＦ　Ｂ＝＝Ｒ　ＴＨＥＮ　Ｒ＝ＲＮＤ（２５０）−１２５
  9. ＩＦ　Ｂ＞Ｒ　ＴＨＥＮ　Ｂ＝Ｂ−１
  10. ＩＦ　ＢＢ＞ＲＲ　ＴＨＥＮ　ＢＢ＝ＢＢ−１
  11. Ｘ＝Ｘ＋ＢＢ／１００：Ｙ＝Ｙ＋Ｂ／１００
  12. ＩＦ　Ｘ＞２５５　ＯＲ　Ｘ＜０　ＯＲ　Ｙ＞１９２　ＯＲ　Ｙ＜０　ＴＨＥＮ　＠ＳＴＡＲＴ
  13. ＧＰＳＥＴ　Ｘ，Ｙ，１１
  14. ＦＯＲ　Ｉ＝１　ＴＯ　１００
  15. 　ＧＰＳＥＴ　ＲＮＤ（２５６），ＲＮＤ（１９２）
  16. ＮＥＸＴ
  17. ＧＯＴＯ　＠Ａ

エンドロールプログラム

映画のスタッフロール。そう、みんなが席を立つアレです。

  1. ’エント゛ロールフ゜ロク゛ラム
  2. ＡＣＬＳ：ＣＬＥＡＲ
  3. ＠Ａ
  4. ＲＥＡＤ　Ａ＄
  5. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ａ＄）−１
  6. 　ＩＦ　Ａ＄＝＝”−ＥＮＤ−”　ＴＨＥＮ　ＥＮＤ
  7. 　ＧＰＵＴＣＨＲ　８＊Ｉ，８＊２３，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（Ａ＄，Ｉ，１）），０，１
  8. ＮＥＸＴ
  9. ＦＯＲ　Ｉ＝１　ＴＯ　８
  10. 　ＧＣＯＰＹ　０，０，１，２５６，１９２，０，０，１
  11. 　ＷＡＩＴ　２
  12. ＮＥＸＴ
  13. ＧＯＴＯ　＠Ａ
  15. ＤＡＴＡ　”モシ゛レツ”
  16. ＤＡＴＡ　”モシ゛レツ”
  17. ＤＡＴＡ　”モシ゛レツ”
  18. 　　　　　：

使い方：DATA文に文字列を入れてください。複数行書くことも可能です。書き終わったら、最後に「DATA "-END-"」と書いてください。

ブラッドプログラム

ちょっぴりホラー。

  1. ’フ゛ラット゛フ゜ロク゛ラム
  2. ＡＣＬＳ：ＣＬＥＡＲ：ＰＮＬＴＹＰＥ　”ＯＦＦ”ＧＰＡＧＥ　１
  3. ＠Ａ
  4. Ｘ＝ＴＣＨＸ：Ｙ＝ＴＣＨＹ
  5. ＡＸ＝Ｘ＋ＲＮＤ（４０）−２０：ＡＹ＝Ｙ＋ＲＮＤ（４０）−２０
  6. ＢＸ＝Ｘ＋ＲＮＤ（６０）−３０：ＢＹ＝Ｙ＋ＲＮＤ（６０）−３０
  7. ＩＦ　ＴＣＨＴＩＭＥ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｂ
  8. ＷＡＩＴ　１：ＧＯＴＯ　＠Ａ
  9. ＠Ｂ
  10. ＧＰＳＥＴ　Ｘ，Ｙ，２
  11. ＦＯＲ　Ｉ＝０　ＴＯ　ＲＮＤ（１０）＋１
  12. 　ＧＣＩＲＣＬＥ　Ｘ，Ｙ，Ｉ，２
  13. 　ＷＡＩＴ　１
  14. ＮＥＸＴ
  15. ＩＦ　ＲＮＤ（３）＝＝０　ＴＨＥＮ　ＧＬＩＮＥ　Ｘ，Ｙ，ＡＸ，ＡＹ，２
  16. ＦＯＲ　Ｉ＝０　ＴＯ　ＲＮＤ（３）
  17. 　ＧＰＳＥＴ　ＢＸ＋ＲＮＤ（１０）−５，ＢＹ＋ＲＮＤ（１０）−５，２
  18. ＮＥＸＴ
  19. ＲＥＴＵＲＮ

メッセージウィンドウサブルーチン

その名の通り。格好いいよ。無駄に括弧がありますｗ

  1. ’ＭＷサフ゛ルーチン
  2. ＠ＭＷ
  3. ＢＹＹＹ＝０：ＢＩ＝−１：ＢＣ＝０
  4. ＦＯＲ　Ｉ＝１　ＴＯ　（ＢＸＸ＊８）−（ＢＸ＊８）
  5. 　ＧＰＳＥＴ　（ＢＸ＊８）＋Ｉ，ＢＹ＊８，ＣＯＬ
  6. 　ＷＣ＝ＷＣ＋１
  7. 　ＩＦ　ＷＣ＝＝１０　ＴＨＥＮ　ＷＡＩＴ　１：ＷＣ＝０
  8. ＮＥＸＴ
  9. ＷＣ＝０
  10. ＦＯＲ　Ｉ＝１　ＴＯ　（ＢＹＹ＊８）−（ＢＹ＊８）
  11. 　ＧＦＩＬＬ　ＢＸ＊８，ＢＹ＊８，ＢＸＸ＊８，ＢＹ＊８＋Ｉ
  12. 　ＧＢＯＸ　ＢＸ＊８，ＢＹ＊８，ＢＸＸ＊８，ＢＹ＊８＋Ｉ，ＣＯＬ
  13. 　ＷＣ＝ＷＣ＋１
  14. 　ＩＦ　ＷＣ＝＝１０　ＴＨＥＮ　ＷＡＩＴ　１：ＷＣ＝０
  15. ＮＥＸＴ
  16. ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（ＭＳＧ＄）−１
  17. 　ＢＩ＝ＢＩ＋１
  18. 　ＩＦ　ＭＩＤ＄（ＭＳＧ＄，Ｉ，１）＝＝”↓”　ＴＨＥＮ　ＢＹＹＹ＝ＢＹＹＹ＋１：ＢＩ＝−１：ＢＣＨＫ＝１
  19. 　ＩＦ　ＢＣＨＫ＝＝０　ＴＨＥＮ　ＧＰＵＴＣＨＲ　（（ＢＸ＊８）＋（ＢＩ＊８））＋２，（（ＢＹ＊８）＋（ＢＹＹＹ＊８））＋２，”ＢＧＦ”，ＡＳＣ（ＭＩＤ＄（ＭＳＧ＄，Ｉ，１）），０，１
  20. 　ＢＣＨＫ＝０
  21. ＮＥＸＴ
  22. ＲＥＴＵＲＮ

使い方：次の引数を与えてGOSUBしてください。
引数表

変数名意味中身省略
引数�ＢＸ始点Ｘ０〜３２不可
引数�ＢＹ始点Ｙ０〜２３不可
引数�ＢＸＸ終点Ｘ０〜３２不可
引数�ＢＹＹ終点Ｙ０〜２３不可
引数�ＭＳＧ＄メッセージ文字列可能
引数�ＣＯＬカラー０〜２５５可能

※メッセージ中に「↓」を入れると改行します
※Ｘ（０〜３２），Ｙ（０〜２３）です。文字と同じ

+  例

フェードアウトサブルーチン

フェードアウトします。

  1. ’フェート゛アウト
  2. ＠Ｆ
  3. ＷＣ＝０
  4. ＦＯＲ　Ｉ＝１　ＴＯ　１９２　ＳＴＥＰ　２
  5. 　ＧＬＩＮＥ　０，Ｉ，２５６，Ｉ
  6. 　ＧＬＩＮＥ　０，１９３ーＩ，２５６，１９３ーＩ
  7. 　ＷＣ＝ＷＣ＋１
  8. 　ＩＦ　ＷＣ＝＝５　ＴＨＥＮ　ＷＡＩＴ　１：ＷＣ＝０
  9. ＮＥＸＴ
  10. ＲＥＴＵＲＮ

ジョークプログラム(おまけ)

期待するなと言ったでしょ？

  1. ＢＥＥＰ　２：？”Ｓｙｎｔａｘ　ｅｒｒｏｒ”

投票・アンケート

プログラム全般

選択肢 投票
QRは[1９2] 1  
１画面? 5  
良いね! 7  
フツー 0  
カス！ 1  
ゴミwww 0  
+  アンケート

ひとことコメント

これらの作品に対するコメントや、作者を睡眠不足にするときには一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • ウイング : 来たー (2012/10/06 (土) 17:18:35)
  • 朱雀 : ちゃんとみえてますか？ (2012/10/06 (土) 17:21:01)
  • 朱雀 : 緊張してます (2012/10/06 (土) 17:24:07)
  • 名無しさん : え、これ１画面？ (2012/10/06 (土) 17:59:56)
  • 名無しさん : QRほしいせいじんみたいな人はリンク集へGO (2012/10/06 (土) 18:00:43)
  • 朱雀 : あ、画面からはみ出るのは１画面とは言わないのか (2012/10/06 (土) 18:07:10)
  • 朱雀(投稿者) : リスト修正しました。 (2012/10/06 (土) 19:45:17)
  • 朱雀(投稿者) : また新しいプログラム追加する予定です！ (2012/10/06 (土) 23:41:39)
  • 朱雀(投稿者) : 追加しました。メッセージウィンドウサブルーチンです。説明分かりにくくてすいません (2012/10/07 (日) 00:57:27)
  • 朱雀(投稿者) : 追加しました。光の軌跡プログラムです。キレイ。 (2012/10/07 (日) 03:04:17)
  • 朱雀(投稿者) : メッセージウィンドウサブルーチンの説明を分かりやすくしました。 (2012/10/07 (日) 12:51:31)
  • 麿 : AEGってタグは何? (2012/10/07 (日) 15:07:25)
  • 朱雀 : 俺が作ったプログラムってことです (2012/10/07 (日) 15:26:21)
    • 麿 : 了解です (2012/10/07 (日) 20:33:59)
  • 朱雀(投稿者) : 追加しました。フェードアウトサブルーチンです。引数不要。GOSUBするだけ。 (2012/10/07 (日) 16:31:54)
  • 進 : ーを直しておきました (2012/10/07 (日) 19:38:50)
  • 朱雀 : 有り難うございます (2012/10/07 (日) 20:25:54)
  • 朱雀 : アンケート追加しました。 (2012/10/08 (月) 01:25:01)
  • キービィ : メッセージウィンドウサブルーチンが上手く動きません。例にあるプログラムにAPPENDしてやったらRETURN without GOSUBなりました。 (2012/10/08 (月) 13:24:23)
  • 麿 : プログラムを終えるところで、ENDしないと、当然そうなる (2012/10/08 (月) 13:26:52)
  • 道産子の初心者 : 「QRは」に9票ありましたが出す量ではないですね。 (2012/10/08 (月) 14:20:24)
  • 朱雀 : 例を修正しました。 (2012/10/08 (月) 15:42:45)
  • キービィ : ありがとうございます^^ゞ (2012/10/08 (月) 17:49:29)
  • 三毛乱ジェロ : 今作ってるゲームのエンディング用にエンドロールプログラムを参考にしたのを組み込もうとしてます。目からウロコなんですよこういうのは。 (2012/10/18 (木) 21:44:22)
  • 朱雀 : 光栄です (2012/10/19 (金) 17:20:51)
  • ウイング : エンドロールプログラムとジョークプログラムお借りいたします (2012/10/19 (金) 17:59:53)
  • 朱雀 : 有り難うございます。ジョークプログラム(笑) (2012/10/19 (金) 18:06:20)
  • ウイング : ジョークプログラムはＳｙｎｔａｘ　ｅｒｒｏｒ（２８９）とかのほうがそれっぽいですよｗ (2012/10/27 (土) 18:14:00)
  • 朱雀 : そうですね。ありがとうございます。 (2012/10/27 (土) 21:38:59)
  • 名無しさん : サンプルプログラムに書いたほうがいいプログラムなのかも。 (2013/04/07 (日) 14:27:30)
  • 猫姫 : I=RND(300):PRINT "Syntax error("I")" 'てかんじですか??(2013/04/21 (日) 21:59:48)
  • ぷちぷち : 泡のプログラムを僕の制作中のOSもどきの背景につかわせていただきます。 (2014/01/05 (日) 10:05:58)
  • 名無しさん : ゴミのようだ(嘘) (2014/03/17 (月) 10:53:55)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.161 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:04 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30