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

Toukou/朱雀の1画面プログラム の変更点


#title(投稿プログラム : 朱雀の1画面プログラム)
#contents
2012年10月6日投稿
/ 投稿者 : 朱雀
/ &tag(投稿プログラム,ゲーム,癒し,鑑賞プログラム,くだらない,サブルーチン,1画面プログラム,mkII専用,AEG);
/ &tag(投稿プログラム,ゲーム,癒し,鑑賞プログラム,サブルーチン,1画面プログラム,mkII専用,AEG);

* 概要 [#Summary]
私めが作った、1画面プログラム集です。どんどん追加していく予定です。皆さんのプログラムの助けとなれば幸いです。でも期待しないでください。あと、~
プログラムが正常に動かない、等がありましたら~
お手数ですが''ひとことコメント''にてお知らせください。
#region(カウンタ)
訪問者~
トータル:&counter(total);人~
今日:&counter(today);人~
#endregion

** 1画面について [#Komidashi1]
画面から(横に)はみ出るものは、1画面とは言わないのか?ということで、1画面もどきかな?すいません
** 利用について [#Komidashi2]
このサブル等を利用する際は、借りますと言って下さると嬉しいです。嬉しくて夜眠れません。睡眠妨害です。

/////////////////////////////////

* 泡プログラム [#List]
泡が発生し、昇っていきます。ボーッと眺めてください。
#basic{{
'アワプログラム
ACLS:CLEAR:PNLTYPE "OFF"R=20:MAX=50
DIM X(MAX),Y(MAX),R(MAX),YU(MAX)
FOR I=0 TO MAX-1
 R(I)=RND(R)+1
NEXT
@A
GCLS 4
FOR I=0 TO MAX-1
 Y(I)=Y(I)-(R(I)/2)
 IF YU(I)>=5+RND(3)-R(I) THEN X(I)=X(I)+(RND(3)-1):YU(I)=0
 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
 YU(I)=YU(I)+1
 GCIRCLE X(I),Y(I),R(I),15
NEXT
WAIT 1:GOTO @A

}}

* 光の軌跡プログラム [#List2]
光が不思議な動きをします。偶然出来ました。
#basic{{
'ひかり
ACLS:BGMPLAY 15
@START
CLEAR:X=128:Y=96:R=RND(200)-100:RR=RND(200)-100
@A
IF B<R THEN B=B+1
IF BB<RR THEN BB=BB+1
IF B==R THEN R=RND(250)-125
IF B>R THEN B=B-1
IF BB>RR THEN BB=BB-1
X=X+BB/100:Y=Y+B/100
IF X>255 OR X<0 OR Y>192 OR Y<0 THEN @START
GPSET X,Y,11
FOR I=1 TO 100
 GPSET RND(256),RND(192)
NEXT
GOTO @A

}}


* エンドロールプログラム [#List3]
映画のスタッフロール。そう、みんなが席を立つアレです。
#basic{{
'エンドロールプログラム
ACLS:CLEAR
@A
READ A$
FOR I=0 TO LEN(A$)-1
 IF A$=="-END-" THEN END
 GPUTCHR 8*I,8*23,"BGF",ASC(MID$(A$,I,1)),0,1
NEXT
FOR I=1 TO 8
 GCOPY 0,0,1,256,192,0,0,1
 WAIT 2
NEXT
GOTO @A

DATA "もじれつ"
DATA "もじれつ"
DATA "もじれつ"
     :

}}

----
使い方:DATA文に文字列を入れてください。複数行書くことも可能です。書き終わったら、''最後に「DATA "-END-"」と書いて''ください。
----
* ブラッドプログラム [#List4]
ちょっぴりホラー。
#basic{{
'ブラッドプログラム
ACLS:CLEAR:PNLTYPE "OFF"GPAGE 1
@A
X=TCHX:Y=TCHY
AX=X+RND(40)-20:AY=Y+RND(40)-20
BX=X+RND(60)-30:BY=Y+RND(60)-30
IF TCHTIME==1 THEN GOSUB @B
WAIT 1:GOTO @A
@B
GPSET X,Y,2
FOR I=0 TO RND(10)+1
 GCIRCLE X,Y,I,2
 WAIT 1
NEXT
IF RND(3)==0 THEN GLINE X,Y,AX,AY,2
FOR I=0 TO RND(3)
 GPSET BX+RND(10)-5,BY+RND(10)-5,2
NEXT
RETURN

}}

* メッセージウィンドウサブルーチン [#List5]
その名の通り。格好いいよ。無駄に括弧がありますw
#basic{{
'MWサブルーチン
@MW
BYYY=0:BI=-1:BC=0
FOR I=1 TO (BXX*8)-(BX*8)
 GPSET (BX*8)+I,BY*8,COL
 WC=WC+1
 IF WC==10 THEN WAIT 1:WC=0
NEXT
WC=0
FOR I=1 TO (BYY*8)-(BY*8)
 GFILL BX*8,BY*8,BXX*8,BY*8+I
 GBOX BX*8,BY*8,BXX*8,BY*8+I,COL
 WC=WC+1
 IF WC==10 THEN WAIT 1:WC=0
NEXT
FOR I=0 TO LEN(MSG$)-1
 BI=BI+1
 IF MID$(MSG$,I,1)=="↓" THEN BYYY=BYYY+1:BI=-1:BCHK=1
 IF BCHK==0 THEN GPUTCHR ((BX*8)+(BI*8))+2,((BY*8)+(BYYY*8))+2,"BGF",ASC(MID$(MSG$,I,1)),0,1
 BCHK=0
NEXT
RETURN

}}
----
使い方:次の引数を与えてGOSUBしてください。~
&size(30){引数表};
|~ |~変数名|~意味|~中身|~省略|h
|~引数&#65533;|BX|始点X|0〜32|不可|
|~引数&#65533;|BY|始点Y|0〜23|不可|
|~引数&#65533;|BXX|終点X|0〜32|不可|
|~引数&#65533;|BYY|終点Y|0〜23|不可|
|~引数&#65533;|MSG$|メッセージ|文字列|可能|
|~引数&#65533;|COL|カラー|0〜255|可能|
※メッセージ中に「↓」を入れると改行します~
※''X(0〜32),Y(0〜23)''です。文字と同じ
#region(例)
#basic{{

BX=2
BY=2
BXX=12
BYY=22
MSG$="てすとです↓うまくひょうじ↓されてますか?"
COL=11
GOSUB @MW
END
}}

#endregion
----
* フェードアウトサブルーチン [#List6]
フェードアウトします。
#basic{{
'フェードアウト
@F
WC=0
FOR I=1 TO 192 STEP 2
 GLINE 0,I,256,I
 GLINE 0,193ーI,256,193ーI
 WC=WC+1
 IF WC==5 THEN WAIT 1:WC=0
NEXT
RETURN
}}

* ジョークプログラム(おまけ) [#List7]
期待するなと言ったでしょ?
#basic{{

BEEP 2:?"Syntax error"

}}


/////////////////////////////////

* 投票・アンケート [#TOHYO]
&size(30){プログラム全般};
#vote(QRは[192][1], 1画面?[5], 良いね![7],フツー[0], カス![1],ゴミwww[0])
#region(アンケート)
どれが良かったですか?~
今後の開発に役立てます。
#vote(泡プログラム[2], 光の軌跡プログラム[0], エンドロールプログラム[10], ブラッドプログラム[0], メッセージウィンドウサブルーチン[1], フェードアウトサブルーチン[0], ジョークプログラム[4])
#endregion

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

#comment

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