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

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

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

概要

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

+  カウンタ

1画面について

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

利用について

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

泡プログラム

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

  1. ’アワフ゜ロク゛ラム
  2. ACLS:CLEAR:PNLTYPE ”OFF”R=20:MAX=50
  3. DIM X(MAX),Y(MAX),R(MAX),YU(MAX)
  4. FOR I=0 TO MAX−1
  5.  R(I)=RND(R)+1
  6. NEXT
  7. @A
  8. GCLS 4
  9. FOR I=0 TO MAX−1
  10.  Y(I)=Y(I)−(R(I)/2)
  11.  IF YU(I)>=5+RND(3)−R(I) THEN X(I)=X(I)+(RND(3)−1):YU(I)=0
  12.  IF Y(I)<−R(I) OR RND(R(I)*150)==1 THEN X(I)=RND(256):Y(I)=192+R(I):R(I)=RND(R)+1
  13.  YU(I)=YU(I)+1
  14.  GCIRCLE X(I),Y(I),R(I),15
  15. NEXT
  16. WAIT 1:GOTO @A

光の軌跡プログラム

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

  1. ’ヒカリ
  2. ACLS:BGMPLAY 15
  3. @START
  4. CLEAR:X=128:Y=96:R=RND(200)−100:RR=RND(200)−100
  5. @A
  6. IF B<R THEN B=B+1
  7. IF BB<RR THEN BB=BB+1
  8. IF B==R THEN R=RND(250)−125
  9. IF B>R THEN B=B−1
  10. IF BB>RR THEN BB=BB−1
  11. X=X+BB/100:Y=Y+B/100
  12. IF X>255 OR X<0 OR Y>192 OR Y<0 THEN @START
  13. GPSET X,Y,11
  14. FOR I=1 TO 100
  15.  GPSET RND(256),RND(192)
  16. NEXT
  17. GOTO @A

エンドロールプログラム

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

  1. ’エント゛ロールフ゜ロク゛ラム
  2. ACLS:CLEAR
  3. @A
  4. READ A$
  5. FOR I=0 TO LEN(A$)−1
  6.  IF A$==”−END−” THEN END
  7.  GPUTCHR 8*I,8*23,”BGF”,ASC(MID$(A$,I,1)),0,1
  8. NEXT
  9. FOR I=1 TO 8
  10.  GCOPY 0,0,1,256,192,0,0,1
  11.  WAIT 2
  12. NEXT
  13. GOTO @A
  14. DATA ”モシ゛レツ”
  15. DATA ”モシ゛レツ”
  16. DATA ”モシ゛レツ”
  17.      :

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


ブラッドプログラム

ちょっぴりホラー。

  1. ’フ゛ラット゛フ゜ロク゛ラム
  2. ACLS:CLEAR:PNLTYPE ”OFF”GPAGE 1
  3. @A
  4. X=TCHX:Y=TCHY
  5. AX=X+RND(40)−20:AY=Y+RND(40)−20
  6. BX=X+RND(60)−30:BY=Y+RND(60)−30
  7. IF TCHTIME==1 THEN GOSUB @B
  8. WAIT 1:GOTO @A
  9. @B
  10. GPSET X,Y,2
  11. FOR I=0 TO RND(10)+1
  12.  GCIRCLE X,Y,I,2
  13.  WAIT 1
  14. NEXT
  15. IF RND(3)==0 THEN GLINE X,Y,AX,AY,2
  16. FOR I=0 TO RND(3)
  17.  GPSET BX+RND(10)−5,BY+RND(10)−5,2
  18. NEXT
  19. RETURN

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

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

  1. ’MWサフ゛ルーチン
  2. @MW
  3. BYYY=0:BI=−1:BC=0
  4. FOR I=1 TO (BXX*8)−(BX*8)
  5.  GPSET (BX*8)+I,BY*8,COL
  6.  WC=WC+1
  7.  IF WC==10 THEN WAIT 1:WC=0
  8. NEXT
  9. WC=0
  10. FOR I=1 TO (BYY*8)−(BY*8)
  11.  GFILL BX*8,BY*8,BXX*8,BY*8+I
  12.  GBOX BX*8,BY*8,BXX*8,BY*8+I,COL
  13.  WC=WC+1
  14.  IF WC==10 THEN WAIT 1:WC=0
  15. NEXT
  16. FOR I=0 TO LEN(MSG$)−1
  17.  BI=BI+1
  18.  IF MID$(MSG$,I,1)==”↓” THEN BYYY=BYYY+1:BI=−1:BCHK=1
  19.  IF BCHK==0 THEN GPUTCHR ((BX*8)+(BI*8))+2,((BY*8)+(BYYY*8))+2,”BGF”,ASC(MID$(MSG$,I,1)),0,1
  20.  BCHK=0
  21. NEXT
  22. RETURN

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

変数名意味中身省略
引数�BX始点X0〜32不可
引数�BY始点Y0〜23不可
引数�BXX終点X0〜32不可
引数�BYY終点Y0〜23不可
引数�MSG$メッセージ文字列可能
引数�COLカラー0〜255可能

※メッセージ中に「↓」を入れると改行します
X(0〜32),Y(0〜23)です。文字と同じ

+  

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

フェードアウトします。

  1. ’フェート゛アウト
  2. @F
  3. WC=0
  4. FOR I=1 TO 192 STEP 2
  5.  GLINE 0,I,256,I
  6.  GLINE 0,193ーI,256,193ーI
  7.  WC=WC+1
  8.  IF WC==5 THEN WAIT 1:WC=0
  9. NEXT
  10. RETURN

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

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

  1. BEEP 2:?”Syntax error”

投票・アンケート

プログラム全般

選択肢 投票
QRは[192] 1  
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)
  • 名無しさん : え、これ1画面? (2012/10/06 (土) 17:59:56)
  • 名無しさん : QRほしいせいじんみたいな人はリンク集へGO (2012/10/06 (土) 18:00:43)
  • 朱雀 : あ、画面からはみ出るのは1画面とは言わないのか (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)
  • ウイング : ジョークプログラムはSyntax error(289)とかのほうがそれっぽいですよw (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.054 秒 | このページの最終更新 : 2015/06/07 (日) 14:30:28 (1500d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30