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

投稿プログラム : お誕生日おめでとう!

2012年5月16日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム メッセージ QRコード mkII専用

概要

伝言板です。伝えたいことをカラフルに伝えます。

操作

1.メッセージを入力してリターンします。(32文字以内、1行)

2.10秒後にメッセージの表示が始まるので、DSをすぐに閉じます。

3.伝えたい相手にDSを渡し、開いて見てもらいます。

カタカナ表示バージョンと ひらがな表示バージョンがあります。 (2012.4.17 co.aさん投稿の プチコン用ひらがなフォント「PETIKANA」を使用)

使用例

「ユリチャン オタンジョウビ オメデトウ ★」 「ホウカゴ タイイクカンノ ウラデ マツ !」 「ママヘ バンハ カレーニ シテネ ボク」 「Happy New Year!」 「Congratulations!!」 「ゴウカク オメデトウ」 「イイトコロ ゼンブ モッテク ウキョウサン (ナッシュ)」

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

sIMGP7180.jpg

QR コード

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

カタカナ表示バージョン

1/22/2
qrH0.pngqrH1.png

ひらがな表示バージョン

1/42/4
qrHR0.pngqrHR1.png
3/44/4
qrHR2.pngqrHR3.png

上下2画面表示バージョン

1/42/4
qrDS0.pngqrDS1.png
3/44/4
qrDS2.pngqrDS3.png

プログラムリスト

  1. ’−−−−−−−−−−−−−−
  2. ’  TANJYOBI
  3. ’  HIRAGANA
  4. ’   by hoy 
  5. ’  2012.05.27 
  6. ’−−−−−−−−−−−−−−
  7. CLEAR
  8. ACLS
  9. BGMSTOP
  10. COLSET ”GRP”,100,”C9660F”
  11. GCLS 100
  12. GOSUB @PETIKANA
  13. LOCATE 3,5
  14. ? ” <<  Message Board  >>
  15. LOCATE 5,10
  16. LINPUT ”メッセ−シ゛ ニュウリョク ”;A$
  17. A$=” ”+A$+” ”
  18. PKN$=”@”+A$+”@”
  19. GOSUB @PKN
  20. AKANA$=PKN$
  21. CLS
  22. FOR H=0 TO LEN(A$)−1
  23.  I$=MID$(A$,H,1)
  24.  IF ASC(I$)==32 OR ASC(I$)==33 OR ASC(I$)==46 OR ASC(I$)==63 THEN YOMI$=YOMI$+I$
  25.  IF ASC(I$)>165 AND ASC(I$)<224 THEN YOMI$=YOMI$+I$
  26. NEXT H
  27. FOR I = 1 TO 11
  28. BEEP 0
  29. LOCATE 11,10
  30. ? ”  ”;11−I;” SEC ”
  31. WAIT 60
  32. NEXT I
  33. BGMPLAY 0,7,40
  34. WAIT 120
  35. CLS
  36. M0$=” ”:M1$=” ”:M2$=” ”:M3$=” ”:M4$=” ”:M5$=” ”
  37. GOSUB @HAIKEI
  38. ’−−−− MAIN −−−−−
  39. @START
  40. COLSET ”GRP”,100,HAIKEI$
  41. FOR H=0 TO LEN(A$)−1
  42.  CNT=CNT+1:IF CNT>500000 THEN CNT=0
  43.  I$=MID$(AKANA$,H,1)
  44.  GOSUB @PUTMSG
  45.  IF CNT%31==0 THEN GOSUB @HOSI 
  46.  IF CNT%43==0 THEN GOSUB @KIRAKIRA 
  47.  IF CNT%51==0 THEN GOSUB @UFO
  48. NEXT H
  49. GOSUB @HAIKEI
  50. TALK YOMI$
  51. GOTO @START
  52. ’−−−−− SUB −−−−−−−−−−
  53. @PUTMSG
  54. MCI=RND(13)+2
  55. IF MCI==6 THEN MCI=5
  56. M0$=M1$ : M1$=M2$ : M2$=M3$
  57. M3$=M4$ : M4$=M5$ : M5$=I$
  58. MC0=MC1 : MC1=MC2 : MC2=MC3
  59. MC3=MC4 : MC4=MC5 : MC5=MCI
  60. GFILL 0,65,255,130,100
  61. GPUTCHR −26,65,”BGF0”,ASC(M0$),MC0,8
  62. GPUTCHR 26,65,”BGF0”,ASC(M1$),MC1,8
  63. GPUTCHR 77,65,”BGF0”,ASC(M2$),MC2,8
  64. GPUTCHR 128,65,”BGF0”,ASC(M3$),MC3,8
  65. GPUTCHR 179,65,”BGF0”,ASC(M4$),MC4,8
  66. GPUTCHR 230,65,”BGF0”,ASC(M5$),MC5,8
  67. WAIT 40
  68. GFILL 0,65,255,130,100
  69. GPUTCHR 0,65,”BGF0”,ASC(M1$),MC1,8
  70. GPUTCHR 51,65,”BGF0”,ASC(M2$),MC2,8
  71. GPUTCHR 102,65,”BGF0”,ASC(M3$),MC3,8
  72. GPUTCHR 153,65,”BGF0”,ASC(M4$),MC4,8
  73. GPUTCHR 204,65,”BGF0”,ASC(M5$),MC5,8
  74. WAIT 40
  75. RETURN
  76. @HAIKEI
  77. HAIK=RND(4)
  78. IF HAIK==0 THEN HAIKEI$=”3088A1”
  79. IF HAIK==1 THEN HAIKEI$=”1E3112”
  80. IF HAIK==2 THEN HAIKEI$=”84211E”
  81. IF HAIK==3 THEN HAIKEI$=”D57D19”
  82. COLSET ”GRP”,100,HAIKEI$
  83. GCLS 100
  84. GOSUB @KAZARI
  85. RETURN
  86. @KAZARI
  87. FOR I=0 TO 4
  88. KC=RND(251)+2
  89. GCIRCLE (I*50+27),10,25,KC
  90. GPAINT (I*50+27),12,KC
  91. GCIRCLE (I*50+27),0,25,KC+1
  92. GPAINT (I*50+27),2,KC+1
  93. GCIRCLE (I*50+27),0,10,KC+2
  94. GPAINT (I*50+27),2,KC+2
  95. GCIRCLE (I*50+27),181,25,KC
  96. GPAINT (I*50+27),179,KC
  97. GCIRCLE (I*50+27),191,25,KC+1
  98. GPAINT (I*50+27),189,KC+1
  99. GCIRCLE (I*50+27),191,10,KC+2
  100. GPAINT (I*50+27),189,KC+2
  101. NEXT I
  102. RETURN
  103. @HOSI
  104. BEEP 12
  105. IF RND(2)==0 THEN GOSUB @HOSI1 ELSE GOSUB @HOSI2
  106. RETURN
  107. @HOSI1
  108. SPSET 0,253,2,0,0,0
  109. FOR Y = 0 TO 191 STEP 7
  110.  SPOFS 0, (180/191)*Y+50,Y
  111. WAIT 3
  112. NEXT Y
  113. SPCLR 0
  114. RETURN
  115. @HOSI2
  116. SPSET 0,253,2,0,0,0
  117. FOR Y = 0 TO 191 STEP 7
  118.  SPOFS 0, 205−(155/191)*Y,Y
  119. WAIT 3
  120. NEXT Y
  121. SPCLR 0
  122. RETURN
  123. @KIRAKIRA
  124. BEEP 37
  125. IF RND(2)==0 THEN GOSUB @KIRA1 ELSE GOSUB @KIRA2
  126. RETURN
  127. @KIRA1
  128. FOR I=0 TO 4
  129.  SPSET 0,22,2,0,0,0
  130.  SPOFS 0, 232−I*53, 50
  131.  WAIT 3
  132.  SPSET 0,23,2,0,0,0
  133.  SPOFS 0, 232−I*53, 50
  134.  WAIT 3
  135. NEXT I
  136. FOR I=0 TO 4
  137.  SPSET 0,22,2,0,0,0
  138.  SPOFS 0, I*53+20, 141
  139.  WAIT 3
  140.  SPSET 0,23,2,0,0,0
  141.  SPOFS 0, I*53+20, 141
  142.  WAIT 3
  143. NEXT I
  144. SPCLR 0
  145. RETURN
  146. @KIRA2
  147. FOR I=0 TO 4
  148.  SPSET 0,22,2,0,0,0
  149.  SPOFS 0, 232−I*53, 50
  150.  WAIT 4
  151.  SPSET 0,23,2,0,0,0
  152.  SPOFS 0, 232−I*53, 50
  153.  WAIT 4
  154.  SPSET 0,22,2,0,0,0
  155.  SPOFS 0, I*53+20, 141
  156.  WAIT 4
  157.  SPSET 0,23,2,0,0,0
  158.  SPOFS 0, I*53+20, 141
  159.  WAIT 4
  160. NEXT I
  161. SPCLR 0
  162. RETURN
  163. @UFO
  164. BEEP 15
  165. SPSET 0,137,2,0,0,0
  166. SPSCALE 0,200
  167. FOR I= 0 TO 48
  168.  SPOFS 0, 223−FLOOR(I*2.3), 12
  169.  WAIT 3
  170. NEXT I
  171. BEEP 06
  172. FOR I=0 TO 38
  173.  SPOFS 0, 112, FLOOR(I*3.7)+14
  174.  WAIT 3
  175. NEXT I
  176. SPCLR 0
  177. IF RND(2)==0 THEN GOSUB @BAKUHATU
  178. RETURN
  179. @BAKUHATU
  180. BEEP 5
  181. FOR R=1 TO 200
  182.  GCIRCLE 128,191,R,(R%14+1) 
  183. WAIT 1
  184. NEXT R
  185. WAIT 120
  186. GCLS 100
  187. GOSUB @KAZARI
  188. RETURN
  189. @PETIKANA ’by co.a
  190. RESTORE@SPKD
  191. DIM SPKA[56]SPKN=0
  192. FOR SPKI=1TO 9
  193. READ SPKF,SPKT
  194.  FOR SPKJ=SPKF TO SPKT
  195.   SPKA[SPKN]=SPKJ
  196.   SPKN=SPKN+1
  197.  NEXT
  198. NEXT
  199. READ SPKD$,SPK2$,SPK3$
  200. SPKD$=SPKD$+SPK2$+SPK3$
  201. SPKN=0:SPKC=0
  202. FOR SPKI=0TO LEN(SPKD$)−1
  203.  SPKD=ASC(MID$(SPKD$,SPKI,1))XOR 21
  204.  FOR SPKJ=0TO 7
  205.  IF SPKC==0THEN SPKF$=”
  206.  IF SPKC%5==0THEN SPKF$=SPKF$+”0
  207.  SPKF$=SPKF$+CHR$(48+(SPKD%2)*22)
  208.  SPKD=SPKD/2AND 255
  209.  SPKC=SPKC+1
  210.  IF SPKC%5==0THEN SPKF$=SPKF$+”00
  211.  IF SPKC<35GOTO@SPKX
  212.  SPKF$=SPKF$+”00000000
  213.  CHRSET”BGF0”,SPKA[SPKN],SPKF$
  214.  SPKC=0
  215.  SPKN=SPKN+1
  216. @SPKX
  217.  NEXT
  218. NEXT
  219. RETURN
  220. @SPKD
  221. DATA 3,8,14,17,21,23,26,27,128,143,156,159,176,176,232,239,244,255
  222. DATA”ё>カ┿н─)ニАСオア1С%34У─lQ!Сチ%~РE[GУСヌЙГС←6ロУСЗ┬ХЫムж>T┰$Вгユ│ДГП+73┥>ノ┫_ンセG7аГ└┿V┰←TД_(ーQユ│
  223. DATA”UОZлV−ュДW┰ワオレАVОシコ━д┘лVОБZлE’ЫёTンユ│Д7У+7We4┠←ヤ┥>ЕニО●ДWヤ_ャN「ВRフシ %クテシС←ЙС─o_ク6ア」━┣→7}ク
  224. DATA”О←DЁО)■チ/7┻iニзE゜コ◇ム◇v]┼━ホィ_4┘−┣→■。A┿。NМГ┬ew┷!]ュ←К┸$WQЗ’]C2チF~\├┰┥ナ→ヲケ┫_←4_X
  225. @PKN
  226. PKNV$=PKN$
  227. PKN$=”
  228. @PKNM
  229. PKNA=INSTR(PKNV$,”@”)
  230. IF PKNA==−1GOTO@PKNR
  231. PKN$=PKN$+LEFT$(PKNV$,PKNA)
  232. PKNV$=RIGHT$(PKNV$,LEN(PKNV$)−PKNA−1)
  233. PKNE=INSTR(PKNV$,”@”)
  234. IF PKNE==−1GOTO@PKNM
  235. IF PKNE==0THEN PKN$=PKN$+”@
  236. FOR PKNI=0TO PKNE−1
  237. PKNC$=MID$(PKNV$,PKNI,1)
  238. GOSUB@PKNC
  239. PKN$=PKN$+PKNC$
  240. NEXT
  241. PKNV$=RIGHT$(PKNV$,LEN(PKNV$)−PKNE−1)
  242. GOTO@PKNM
  243. @PKNR
  244. PKN$=PKN$+PKNV$
  245. RETURN
  246. @PKNC
  247. IF LEN(PKNC$)!=1THEN RETURN
  248. PKCA=ASC(PKNC$)
  249. IF PKCA==45THEN PKNC$=”ー”RETURN
  250. IF PKCA==96THEN PKNC$=CHR$(34)RETURN
  251. PKCA=PKCA−163
  252. IF PKCA<3THEN RETURN
  253. IF PKCA==13THEN RETURN
  254. IF PKCA>58THEN RETURN
  255. IF PKCA>8THEN PKCA=PKCA+5
  256. IF PKCA>17THEN PKCA=PKCA+2
  257. IF PKCA>23THEN PKCA=PKCA+2
  258. IF PKCA>27THEN PKCA=PKCA+100
  259. IF PKCA>143THEN PKCA=PKCA+12
  260. IF PKCA>159THEN PKCA=PKCA+72
  261. IF PKCA>239THEN PKCA=PKCA+4
  262. PKNC$=CHR$(PKCA)
  263. RETURN

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

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

  • 名無しさん : INPUTでカンマを入力できないのは仕様です。LINPUTでできますよ。 (2012/05/16 (水) 23:44:02)
  • hoy : アドバイスありがとうございます。直しました。取説をよく読まないといけなかったです。 (2012/05/17 (木) 06:26:44)
  • hoy : 読み上げ機能をつけました。(カタカナのみ) (2012/05/19 (土) 08:36:54)
  • hoy : 背景と文字の色が重なる不具合を直しました。 (2012/05/22 (火) 07:14:45)
  • hoy : co.aさんのひらがなフォントを組み込んで、ひらがな表示バージョンを加えました。 (2012/05/27 (日) 15:18:59)
  • hoy : 上下2画面表示バージョンを加えました。 (2012/06/05 (火) 21:44:33)
  • 2003/5/16 : この頃俺は八歳だZE☆ (2014/05/18 (日) 11:15:17)
  • 名無しさん : 誕生日以外にも応用範囲が広そう。 (2015/06/07 (日) 23:54:30)

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