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

Toukou/詠唱 の変更点

パンくずリスト


#title(投稿プログラム : 詠唱)
#contents
// ↑この2行は削除しないでください。
// ←このように「//」で始まる行はコメントです。ページ本文には反映されません。
//------------------------------------------------------------------------------
// ・投稿年月日は、このページを投稿しようとしている今日の日付を半角数字で入力してください。
//   この日付は、投稿プログラムを自動的に年月日順に並べる際に使用されます。
// ↓↓↓
2013年3月5日投稿
// ↑↑↑
//------------------------------------------------------------------------------
// ・投稿者名は、将来的に投稿プログラム一覧に表示するために使用します。
// ・「名無しさん」のままにしておくと、匿名の方からの投稿として扱われます。
// ↓↓↓
/ 投稿者 : ウォルク
// ↑↑↑
//------------------------------------------------------------------------------
// ・適当にタグをつけることができます。半角のコンマ区切りで複数つけられます。
//   タグをつけると、同じタグが付いたページを検索することができます。
// ★次に該当するプログラムは、特定のタグを設定するようご協力お願いします。
//   これらを設定すると、将来的に投稿プログラム一覧に目立つマークが付くようになる予定です。
// ・短いプログラム → 「1行プログラム」「数行プログラム」「1画面プログラム」タグのいずれか1つ
// ・初代プチコンでも動作するプログラム → 「初代対応」タグ
// ・mkII 以降専用のプログラム → 「mkII専用」タグ
// ・QRコードを掲載している → 「QRコード」タグ
// ・該当するなら「ゲーム」「実用ツール」「音楽」タグのいずれか
// ↓↓↓
/ &tag(投稿プログラム,ゲーム,mkII専用);
// ↑↑↑

//------------------------------------------------------------------------------
// ここに概要とか書きます。
// ・** や *** で始まる行は子見出しとなります。* の数で深さが決まります。
// ・[#英数字] はページ内リンクに使用されるアンカーですが、
//   書かなかったり、消したりしてもかまいません。ない場合はランダムな文字列が自動付与されます。

* 概要 [#Summary]
呪文を発動する時間に差を設けました。延々ループ。でも応用は利きそうな気がする。
BelookさんがQRコード作って下さいました!
** 入力時の注意 [#Komidashi1]
”ア”は指記号の代わりです。文字の囲いも記号の代わりです。

** 操作 [#Komidashi1-1]
Aが決定。Bがキャンセルで、呪文の途中キャンセル可能。


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


// 動作しているところを撮影した写真や動画があれば貼り付けてください。

// ページを作成すると、画像の添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// 画像をアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(添付ファイル名)

// 以下の書式で、YouTube やニコニコ動画を貼り付けられます。
// #youtube(0HWX7kovgY8)
// #nicovideo(sm13684820)

/////////////////////////////////
// QR コードがない場合は、この部分は削除してください


// 【重要】旧プチコンから mkII に転送したプログラムは、mkII で保存しなおしてから
// QR コード化すると、枚数が半分ぐらいに減ります。ぜひお試し下さい。
// 【重要】添付できるのは画像ファイルのみです。zip ファイルは解凍してください。

// ページを作成すると、QR コードの添付ができるようになります。(作成する前はできません)
// 作成後のページの右上、ウィキメニューにある「添付」から画像をアップロードできます。
// (添付ファイルはページごとに別個に管理されています。必ず作成後のページに添付してください)
// QR コードをアップロードしたら、以下の書式でページ内に貼り付けられます。
// #ref(アップロードしたファイル名)

// QR コードを大きくしたい場合は、倍率指定ができます。コンマは必ず 2 つ指定してください。
// ブラウザによっては補完がかかってボケますが、それでも問題なく読み込み可能です。
// #ref(アップロードしたファイル名,,200%)

// 複数の QR コードを貼り付けるために表組みを用いる場合、&ref(); を使用します。
// (#ref() を表に埋め込んでしまうと、古い Internet Explorer でうまく表示されません)
// |>|>|~PRG:FILENAME|
// |~1/3|~2/3|~3/3|
// |&ref(qr0.png,,200%);|&ref(qr1.png,,200%);|&ref(qr2.png,,200%);|
/////////////////////////////////

* プログラムリスト [#List]
#region
#basic{{
 
VISIBLE 1,1,1,1,1,1
CLS:CLEAR:BGCLR:SPCLR
COLOR 0:BGMSTOP:GCLS
'---
@SHOKI
SX=180:SY=90
SPSET 1,104,2,0,0,0
SPOFS 1,SX,SY
SPANIM 1,4,12
CX=21:CY=15:LOCATE CX,CY:?"ア"
GX=173:SPX=164:SPY=90:SPXA=100:SPYA=90
'------
@LOOP
 GOSUB @DRAW
 GOSUB @SPSET
 GOSUB @CARSOL
 GOSUB @DESIDE
GOTO @LOOP
'------

@DRAW
 IF P==1 THEN RETURN
 LOCATE 20,14:?"「-------フ"
 FOR PP=15 TO 18
 LOCATE 20,PP:?"l"
 LOCATE 28,PP:?"l"
 NEXT
 LOCATE 20,19:?"L-------」"
 LOCATE 22,15:?"メラメラッ"
 LOCATE 22,16:?"ホ○ミ"
 LOCATE 22,17:?"べ○イミ"
 LOCATE 22,18:?"マホ○ラ"
 LOCATE CX,CY:?"ア"
 LOCATE 20,20:?"A:ケッテイ"
 LOCATE 20,21:?"B:キャンセル"
 P=1
RETURN

@SPSET
 IF SP==1 THEN @SET
RETURN

 @SET
  IF SET==1 THEN RETURN
  SPSET 1,116,2,0,0,0
  SPOFS 1,SX,SY
  SET=1
 RETURN

@CARSOL
 IF SP==1 THEN RETURN
 IF BUTTON() AND 1 THEN @CU
 IF BUTTON() AND 2 THEN @CD
RETURN

 @CU
  CH=CH+1
  IF CY==15 THEN RETURN
  IF CH<600 THEN RETURN
  LOCATE CX,CY:?" "
  CY=CY-1
  LOCATE CX,CY:?"ア"
  CH=0
 RETURN

 @CD
  CH=CH+1
  IF CY==18 THEN RETURN
  IF CH<600 THEN RETURN
  LOCATE CX,CY:?" "
  CY=CY+1
  LOCATE CX,CY:?"ア"
  CH=0
 RETURN

@DESIDE
 IF SP==1 THEN GOTO @SPELL
 IF BUTTON() AND 16 THEN GOSUB @SPELL
RETURN

 @SPELL
  IF SP==1 THEN GOTO @SPCH
  SP=1
  CLS
  LOCATE 20,20:?"A:ケッテイ"
  LOCATE 20,21:?"B:キャンセル"
  GLINE 170,120,210,120,15
  GLINE 170,124,210,124,15
  GLINE 172,119,172,125,15
  GLINE 208,119,208,125,15
  GFILL 169,121,171,123,15
  GFILL 209,121,211,123,15
  GLINE 171,119,209,119,15
  GLINE 171,125,209,125,15
BEEP 5
   @SPCH
  IF CANC==1 THEN GOSUB @STOP
  IF M>=0 THEN GOSUB @CANCEL
  IF CY==15 THEN @MERA
  IF CY==16 THEN @HOIMY
  IF CY==17 THEN @BEHOIMY
  IF CY==18 THEN @MAHOTRA
 RETURN

 @STOP
IF MERA==1 THEN RETURN
  GFILL 173,121,GX,123,2
  LOCATE 22,10:?"キャンセル"
  WAIT 60
  GOTO @ERASE
 RETURN

 @CANCEL
  IF BUTTON() AND 32 THEN CANC=1
 RETURN

 @MERA
  M=M+1
  IF M<100 THEN RETURN
  GS=GSPOIT(207,122)
  IF GS==11 THEN @MAGIC
  GX=GX+1
  GFILL 173,121,GX,123,11
  M=0
 RETURN

 @MAGIC
  IF MERA==1 THEN @FIRE
  LOCATE 22,10:?"メラッ!"
  SPSET 1,117,2,0,0,0
  SPOFS 1,SX,SY
  MERA=1
 RETURN

 @FIRE
  IF SPXY==1 THEN @SPXY
  BEEP 13
  SPSET 0,44,4,0,0,0
  SPANIM 0,2,10
  SPOFS O,SPX,SPY
 @SPXY
  IF SPX==100 THEN @ERASE
  SPXYZ=SPXYZ+1
  IF SPXYZ<30 THEN RETURN
  SPX=SPX-1
  SPOFS O,SPX,SPY
  SPXY=1:SPXYZ=1
 RETURN

@ERASE
 SPCLR 0:SPXY=0:SP=0:SPXYZ=0
 MERA=0:P=0:SET=0:GCLS
 CANC=0:CLS
GOTO @SHOKI

 @HOIMY
  M=M+1
  IF M<115 THEN RETURN
  GS=GSPOIT(207,122)
  IF GS==11 THEN @MAGICA
  GX=GX+1
  GFILL 173,121,GX,123,11
  M=0
 RETURN

 @MAGICA
  IF MERA==1 THEN @LIGHT
  LOCATE 22,10:?"ホ○ミ!"
 SPSET 1,117,2,0,0,0
  SPOFS 1,SX,SY
  MERA=1
 RETURN

 @LIGHT
  IF SPXY==1 THEN @SPXYA
  BEEP 12
  SPSET 0,48,3,0,0,0
  SPANIM 0,4,8
  SPOFS 0,180,90
  @SPXYA
  SPXYZ=SPXYZ+1
  IF SPXYZ==1900 THEN @ERASE
  SPXY=1
 RETURN


 @BEHOIMY
  M=M+1
  IF M<200 THEN RETURN
  GS=GSPOIT(207,122)
  IF GS==11 THEN @MAGICB
  GX=GX+1
  GFILL 173,121,GX,123,11
  M=0
 RETURN

 @MAGICB
  IF MERA==1 THEN @LIGHTS
  LOCATE 22,10:?"べホ○ミ!"
  SPSET 1,117,2,0,0,0
  SPOFS 1,SX,SY
  MERA=1
 RETURN

 @LIGHTS
  IF SPXY==1 THEN @SPXYB
  BEEP 12
  SPSET 0,48,3,0,0,0
  SPOFS 0,180,90
  SPANIM 0,4,8
 @SPXYB
  SPXYZ=SPXYZ+1
  IF SPXYZ==2700 THEN @ERASE
  SPXY=1
 RETURN

 @MAHOTRA
 M=M+1
IF M<397 THEN RETURN
 GS=GSPOIT(207,122)
  IF GS==11 THEN @MAGICC
  GX=GX+1
  GFILL 173,121,GX,123,11
  M=0
 RETURN

 @MAGICC
  IF MERA==1 THEN @MAHOABS
  LOCATE 22,10:?"マ○トラ!"
  SPSET 1,117,2,0,0,0
  SPOFS 1,SX,SY
  BEEP 36
  MERA=1
 RETURN

 @MAHOABS
  IF SPXY==1 THEN @SPXYC
  SPSET 0,48,3,0,0,0
  SPOFS 0,SPXA,SPYA
  SPANIM 0,2,8
 @SPXYC
  IF SPXA==180 THEN @ERASE
  SPXYZ=SPXYZ+1
  IF SPXYZ<30 THEN RETURN
  SPXA=SPXA+1
  SPOFS 0,SPXA,SPYA
  SPXY=1:SPXYZ=0
 RETURN

}}
#endregion
** QRコード [#e2a6567f]
|>|~PRG:EISYOU|
|~PRG:EISYOU|
|&ref(eisyou.jpg,,100%);|
by Belook

/////////////////////////////////
// コメントを募集したくないなら、ここから下は削除してください

*ひとことコメント [#Comments]
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は[[掲示板>Board]]へ)
- ''Belook'' : 172行目の MERA==1は、MERA = 1では?あと、よければQRはりましょうか? (&new{2013/03/05 (火) 17:08:18};)
- ''ウォルク'' : 〉〉Belookさん その通りです ご指摘有難うございます QR是非お願いします。 (&new{2013/03/06 (水) 09:15:24};)
- ''Belook'' : QRコード貼っておきました。入力時の注意に沿って変えておきましたがよかったですか? (&new{2013/03/06 (水) 16:28:57};)
- ''ウォルク'' : はい、オッケーです。 わざわざありがとうございます! (&new{2013/03/07 (木) 11:09:06};)

#comment

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