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

投稿プログラム : アニメーション作成

2012年5月20日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用

概要

簡単なアニメーションを作成するソフトです。
16枚のアニメを作ることができます。
キャラクター定義に時間がかかるので作るのにかなり時間がかかります。
またセーブ&ロードもグラフィックに情報を書き出しているので30〜40秒かかります。
ご了承ください。

諸注意

  1. バグや誤字があるかもしれません。そのところは自己責任でお願いします。
  2. アニメーションに SPU,BGU,SPS のキャラクターを利用しています。なので元あったキャラクターは消えます。
    • FILEMENU→Eで初期状態に戻ります。
  3. まだ機能が少ないのでどんどん改造してやってください。

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

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

QR コード

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

PRG:ANIME
1/42/4
qr0.PNGqr1.PNG
3/44/4
qr2.PNGqr3.PNG

プログラムリスト

  1. ’anime editor v1.00 by ittan
  2. ’キヲツケテ ホシイコト ナト゛
  3. ’1.
  4. ’ハ゛ク゛&コ゛シ゛ カ゛アルカモ シレマセン。
  5. ’ソコハ シ゛コセキニンテ゛ オネカ゛イシマス。
  6. ’マタ、wikiニ ホウコクシテイタタ゛クト
  7. ’タスカリマス。
  8. ’2.
  9. ’SPU,BGU,SPSナト゛ノ キャラ ヲ シヨウ
  10. ’シテイルノ テ゛ モトアッタモノハ ケサレマス。チュウイ
  11. ’ファイル→END テ゛ ショキシ゛ョウタイ ニ
  12. ’モト゛リマス。
  13. ’3.
  14. ’マタ゛ キノウカ゛ スクナイノテ゛ ト゛ント゛ン
  15. ’カイソ゛ウ シテミテ クタ゛サイ。
  16. ACLS:CLEAR
  17. PNLTYPE ”OFF”
  18. MAXP=16
  19. DIM C$(MAXP),COPYC$(32)
  20. DATA SPU0,SPU1,SPU2,SPU3,SPU4
  21. DATA SPU5,SPU6,SPU7,SPS0,SPS1
  22. DATA BGU1U,BGU2U,BGU3U
  23. DATA BGU1L,BGU2L,BGU3L
  24. FOR I=0 TO MAXP−1:READ C$(I)
  25. NEXT
  26. ICONPUSE=0
  27. ICONSET 0,8
  28. ICONSET 1,9
  29. ICONSET 2,59
  30. COL=15  
  31. V$=”1.00”
  32. PAGE=0
  33. GOSUB @COLCH
  34. @MAINS メインカ゛メン
  35. ?”┌──────────────────┐
  36. ?”│anime editor v”;V$;”│”
  37. ?”└──────────────────┘
  38. ?”А:カラ− ヘンコウ
  39. ?”Б:スクリ−ンクリア/アニメ ストッフ゜
  40. ?”Х+タッチ:fill ヌリツフ゛ス
  41. ?”н+タッチ:ケシコ゛ム
  42. ?”  タッチ:カラ−ヘ゜ン
  43. ?”START:アニメ スタ−ト
  44. ?”↑:マエノ ヘ゜−シ゛/アニメスヒ゜−ト゛up
  45. ?”↓:ツキ゛ノヘ゜−シ゛/アニメスヒ゜−ト゛down
  46. ?”←:マエノ ヘ゜−シ゛+コノヘ゜−シ゛ホソ゛ン
  47. ?”→:ツシ゛ノヘ゜−シ゛+コノヘ゜−シ゛ホソ゛ン
  48. PNLSTR 20,0,”color”
  49. PNLSTR 21,1,”┌─┐”
  50. PNLSTR 21,2,”│ │”
  51. PNLSTR 21,3,”└─┘”
  52. PNLSTR 0,0,”┌────────────────┐”
  53. FOR I=1 TO 16
  54. PNLSTR 0,I,”│                │”
  55. NEXT
  56. PNLSTR 0,17,”└────────────────┘”
  57. @MAIN エテ゛ィタ−
  58. IF DRAWFLG==0 THEN GOSUB@PDRAW
  59. BT=NOT(B) AND BUTTON()
  60. B=BUTTON()
  61. IC=ICONCHK()
  62. IF BT THEN GOSUB@BTN
  63. IF IC!=−1 THEN GOSUB@ICON
  64. IF TCHST THEN GOSUB@TCH
  65. IF TCHST==0 THEN LT=0
  66. IF TCHST==0 AND LFLG==1 THEN LFLG=0:GFILL TCHX,TCHY,LX,LY,COL
  67. IF TFLG==1 THEN GOSUB@SETP
  68. VSYNC 1
  69. GOTO@MAIN
  70. @BTN ホ゛タンチェック
  71. IF BT AND 1 THEN P=P−1:DRAWFLG=FALSE
  72. IF BT AND 2 THEN P=P+1:DRAWFLG=FALSE
  73. IF BT AND 8 THEN P=P+1:DRAWFLG=FALSE:TFLG=1
  74. IF BT AND 4 THEN P=P−1:DRAWFLG=FALSE:TFLG=1
  75. IF BT AND 32 THEN GFILL 8,8,135,135,0
  76. IF BT AND 16 THEN GOSUB @COLCH0
  77. IF BT AND 1024 THEN @CANIM
  78. IF P<0 THEN P=MAXP−1
  79. IF P>MAXP−1 THEN P=0
  80. RETURN
  81. @ICON アイコンチェック
  82. IF IC==0 THEN GOSUB @COPY
  83. IF IC==1 THEN GOSUB @PAST
  84. IF IC==2 THEN GOTO@FILEMENU
  85. RETURN
  86. @TCH タッチチェック
  87. X=TCHX
  88. Y=TCHY
  89. IF X>135 OR Y>135 OR X<8 OR Y<8 THEN RETURN
  90. IF B AND 512 THEN GFILL X−3,Y−3,X+2,Y+2,0:RETURN
  91. IF B==128 AND LT==0 THEN LFLG=1:LT=1:LX=X:LY=Y
  92. IF B==128 THEN RETURN
  93. IF LT==0 THEN OX=X:OY=Y
  94. GLINE X,Y,OX,OY,COL
  95. OX=X:OY=Y
  96. LT=1
  97. RETURN
  98. @SETP ヘ゜−シ゛カキコミ
  99. BEEP 0
  100. LOCATE 0,3:?”wait:○○○○○○○○”
  101. FOR J=0 TO 255
  102. CH$=””
  103.  FOR I=0 TO 63
  104.  X=(J%16*8)+I%8+8
  105.  Y=(FLOOR(J/16)*8)+FLOOR(I/8)+8
  106.  C=GSPOIT(X,Y)
  107.  CH$=CH$+HEX$(C)
  108.  NEXT 
  109.  CHRSET C$(PAGE),J,CH$
  110. IF J%32==0 THEN LOCATE J/32+5,3:?”●”;
  111. NEXT
  112. BEEP 3
  113. TFLG=0
  114. LOCATE 0,3:?”             ”
  115. RETURN
  116. @COPY ヘ゜−シ゛ヲ ヘンスウニ カクノウ
  117. BEEP 0
  118. LOCATE 0,3:?”wait:○○○○○○○○”
  119. FOR J=0 TO 128*64−1
  120. X=J%64*2+8
  121. Y=FLOOR(J/64)+8
  122. C0=GSPOIT(X,Y)
  123. C1=GSPOIT(X+1,Y)
  124. IF J%256==0 THEN COPYC$(J/256)=””
  125. CP$=COPYC$(FLOOR(J/256))
  126. CP$=CP$+CHR$(C0*16+C1)
  127. COPYC$(FLOOR(J/256))=CP$
  128. IF J%1024==0 THEN LOCATE J/1024+5,3:?”●”;
  129. NEXT
  130. BEEP 3
  131. LOCATE 0,3:?”             ”
  132. RETURN
  133. @PAST カクノウシタ ヘンスウ トリタ゛シ
  134. IF COPYC$(0)==”” THEN RETURN
  135. BEEP 0
  136. LOCATE 0,3:?”wait:○○○○○○○○”
  137. FOR J=0 TO 128*64−1
  138. CH$=MID$(COPYC$(FLOOR(J/256)),J%256,1)
  139. C0=FLOOR(ASC(CH$)/16)
  140. C1=ASC(CH$)%16
  141. X=(J%64)*2+8
  142. Y=FLOOR(J/64)+8
  143. GPSET X,Y,C0
  144. GPSET X+1,Y,C1
  145. IF J%1024==0 THEN LOCATE J/1024+5,3:?”●”;
  146. NEXT
  147. BEEP 3
  148. LOCATE 0,3:?”             ”
  149. RETURN
  150. @COLCH0
  151. COL=COL+1 AND 15
  152. @COLCH カラ− インシ゛
  153. GPAGE 1
  154. GFILL 173,13,186,26,COL
  155. PNLSTR 22,4,STR$(COL)+” ”
  156. RETURN
  157. @PDRAW ヒョウシ゛
  158. PAGE=P
  159. GPAGE 1
  160. A$=C$(PAGE)
  161. FOR I=0 TO 255
  162. X=I%16*8+8
  163. Y=FLOOR(I/16)*8+8
  164. GFILL X,Y,X+7,Y+7,0
  165. GPUTCHR X,Y,A$,I,0,1
  166. NEXT
  167. DRAWFLG=TRUE
  168. PNLSTR 0,18,”page:”+STR$(PAGE)+”  ”
  169. RETURN
  170. @CANIM アニメサイセイ
  171. P=0:TIME=0:ITV=8
  172. @ALOOP
  173. PNLSTR 0,19,”interval:”+STR$(ITV)+” ”
  174. TIME=TIME+1
  175. IF TIME%ITV==0 THEN P=P+1:GOSUB@PDRAW
  176. IF P==MAXP−1 THEN P=−1
  177. BT=NOT(B) AND BUTTON()
  178. B=BUTTON()
  179. IF BT AND 32 THEN GOTO@MAIN
  180. IF BT AND 1 THEN ITV=ITV−1
  181. IF BT AND 2 THEN ITV=ITV+1
  182. IF ITV==0 THEN ITV=1
  183. VSYNC 1
  184. GOTO@ALOOP
  185. @FILEMENU ファイル
  186. CLS
  187. GCLS
  188. ?”L:lode anime
  189. ?”S:save anime
  190. ?”E:end”
  191. I0$=”モ−ト゛センタク”
  192. GOSUB @IP
  193. A=INSTR(”LSE”,N$)
  194. ON A GOSUB @CLOAD,@CSAVE,@CEND
  195. CLS
  196. BEEP 7
  197. DRAWFLG=FALSE
  198. GOSUB @COLCH
  199. GOTO@MAINS
  200. ’−−−−−−−−−−−−−−−−−−−−−−−−−
  201. ’ロ−ト゛ セ−フ゛ ハ キャラヲ ク゛ラフィックニ
  202. ’ヘンカンシテ チイサクシテイマス。”
  203. ’−−−−−−−−−−−−−−−−−−−−−−−−−
  204. @CLOAD ロ−ト゛
  205. GCLS:CLS
  206. I0$=”ロ−ト゛スルナマエハ”
  207. GOSUB @IP
  208. S0$=”GRP0:”+N$+”0”
  209. S1$=”GRP1:”+N$+”1”
  210. S2$=”GRP2:”+N$+”2”
  211. LOAD S0$
  212. LOAD S1$
  213. LOAD S2$
  214. IF RESULT==0 THEN RETURN
  215. GPAGE 1,0,0
  216. CLS
  217. ?”キロクチュウ”
  218. T=2100
  219. TIME=MAINCNTL
  220. FOR CH=0 TO MAXP−1
  221. LOCATE 0,0:?”アト”(T−(MAINCNTL−TIME))/60”ヒ゛ョウ”,,
  222. LOCATE 0,1:?”page”CH”/”MAXP−1
  223. IF CH==6 THEN GCLS:GPAGE 1,1,1
  224. IF CH==12 THEN GCLS:GPAGE 1,2,2
  225. Y1=CH%6*32
  226. FOR I=0 TO 255
  227. A$=””
  228.  FOR J=0 TO 31
  229.  X=(I*32+J)%256
  230.  Y=FLOOR(I/8)+Y1 
  231.  C2=GSPOIT(X,Y)
  232.  C0=FLOOR(C2/16)
  233.  C1=C2%16
  234.  A$=A$+HEX$(C0)+HEX$(C1)
  235.  NEXT
  236.  CHRSET C$(CH),I,A$
  237. NEXT
  238. NEXT
  239. GCLS
  240. RETURN
  241. @CSAVE セ−フ゛
  242. CLS
  243. T=2700
  244. TIME=MAINCNTL
  245. ?”キロクチュウ”
  246. GPAGE 1,0,0
  247. GCLS
  248. FOR CH=0 TO MAXP−1
  249. LOCATE 0,0:?”アト”(T−(MAINCNTL−TIME))/60”ヒ゛ョウ”,,
  250. LOCATE 0,1:?”page”CH”/”MAXP−1
  251. IF CH==6 THEN GPAGE 1,1,1:GCLS
  252. IF CH==12 THEN GPAGE 1,2,2:GCLS
  253. Y1=CH%6*32
  254. FOR I=0 TO 255
  255. CHRREAD(C$(CH),I),A$
  256.  FOR J=0 TO 31
  257.  C0=VAL(”&H”+MID$(A$,J*2,1))
  258.  C1=VAL(”&H”+MID$(A$,J*2+1,1))
  259.  C2=C0*16+C1
  260.  X=(I*32+J)%256
  261.  Y=FLOOR(I/8)+Y1
  262.  GPSET X,Y,C2
  263.  NEXT
  264. NEXT
  265. NEXT
  266. I0$=”セ−フ゛メイハ”:GOSUB @IP
  267. S0$=”GRP0:”+N$+”0”
  268. S1$=”GRP1:”+N$+”1”
  269. S2$=”GRP2:”+N$+”2”
  270. SAVE S0$
  271. SAVE S1$
  272. SAVE S2$
  273. GPAGE 0,0,0:GCLS
  274. GPAGE 1,2,2:GCLS
  275. GPAGE 1,1,1:GCLS
  276. RETURN
  277. @CEND オワリ
  278. FOR I=0 TO MAXP−1
  279. CHRINIT C$(I)
  280. NEXT
  281. ACLS
  282. ?”オツカレサマ。”
  283. END
  284. @IP INPUTショリ
  285. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
  286. ’フツウニ INPUT スルト SPS1ヲ 
  287. ’イシ゛ッテイルカラ カ−ソルカ゛ オカシクナルノテ゛
  288. ’INKEY$()テ゛ タ゛イヨウシマシタ。
  289. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
  290. PNLTYPE ”KYA”
  291. N$=””
  292. Y=CSRY
  293. LOCATE 0,Y
  294. ?I0$
  295. @IPL
  296. LOCATE 0,Y+1
  297. ?N$”_ ”
  298. A$=INKEY$()
  299. IF KEYBOARD==15 THEN N$=LEFT$(N$,LEN(N$)−1+(N$==””))
  300. IF A$==CHR$(13) THEN PNLTYPE ”OFF”:RETURN
  301. N$=N$+A$
  302. VSYNC 1
  303. GOTO@IPL

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

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

  • 名無しさん : いまいちだな (2012/05/20 (日) 15:31:45)
  • hata0401 : 300行も書けねーよ! (2012/06/13 (水) 20:39:14)
  • いったん(投稿者) : ではぜひqrコードを読み取ってください・・・。プログラムリストは参考用なので打ち込んでもらおうとは思っていないです。 (2012/06/13 (水) 22:09:05)
  • hata0401 : ツカイカタガワマリカセン (2012/07/24 (火) 16:48:09)
  • hata0401 : ツカイカタガワマリカセン (2012/07/24 (火) 16:48:54)
  • 名無しさん : 元は画面のやつを手打ちでうつしたものさ・・・QR超便利 (2012/08/03 (金) 22:59:32)

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