800358 ランダム
 HOME | DIARY | PROFILE 【フォローする】 【ログイン】

冷静とオタクのあいだ

リスト:SPTEST

プチコン プログラムリスト

タイトル:SPTEST
スプライトを100個表示
十字キーで移動できる。
移動すると分身が99人ついてきます。
横一列に多数並ぶとスプライトが消えます。
これはハード(プチコン)の仕様によるものです。
SPTEST.JPG

http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。

01. ACLS
02. CLEAR
03. VISIBLE 1,1,0,0,1,0
04. CLS:COLOR 0
05. 
06. ′スフ゜ライトシ゛ュンヒ゛
07. ′0:シ゛キ
08. DIM SPK(100),SPP(100),SPH(100),SPV(100),SPI(100)
09. DIM SPF(100),SPX(100),SPY(100)
10. FOR I=0 TO 99
11.   SPK(I)=96
12.   SPP(I)=0
13.   SPH(I)=0
14.   SPV(I)=0
15.   SPI(I)=1
16.   SPF(I)=1  ′0:スキッフ゜ 1:シンキ 2:イト゛ウ 3:ヘンコウ 9:シュウキョ
17.   SPX(I)=100
18.   SPY(I)=100
19. NEXT I
20. SPP(0)=2
21. GOSUB @SPWRITE
22. 
23. @MLOOP
24. ′ニュウリョク
25. XX=0:YY=0
26. BTN=BUTTON()
27. IF BTN AND 64 GOTO @EXIT ′Xホ゛タン
28. IF BTN AND  1 THEN YY=-16 ′ウエ
29. IF BTN AND  2 THEN YY=16  ′シタ
30. IF BTN AND  4 THEN XX=-16 ′ヒタ゛リ
31. IF BTN AND  8 THEN XX=16  ′ミキ゛
32. IF XX!=0 OR YY!=0 THEN GOSUB @MYMOVE
33. 
34. WAIT 1
35. GOSUB @SPWRITE
36. GOTO @MLOOP
37. 
38. @EXIT
39. ACLS
40. PRINT”シュウリョウ
41. END
42. 
43. @MYMOVE
44. ′フ゛ンシンノイト゛ウ
45. FOR K=99 TO 1 STEP -1
46.   SPX(K)=SPX(K-1)
47.   SPY(K)=SPY(K-1)
48.   SPF(K)=2
49. NEXT K
50. ′シ゛キノイト゛ウ
51. SPX(0)=SPX(0)+XX
52. IF SPX(0)<0 THEN SPX(0)=0
53. IF SPX(0)>239 THEN SPX(0)=239
54. SPY(0)=SPY(0)+YY
55. IF SPY(0)<0 THEN SPY(0)=0
56. IF SPY(0)>176 THEN SPY(0)=176
57. SPF(0)=2
58. ′GOSUB @SPWRITE
59. RETURN
60. 
61. ′---スフ゜ライトカキカエ
62. @SPWRITE
63. FOR J=0 TO 99
64.   SN=J
65.   ON SPF(J) GOSUB @SKIP,@SPNEW,@SPMOVE
66. NEXT J
67. RETURN
68. 
69. @SKIP  ′ナニモシナイ
70. RETURN
71. 
72. @SPNEW
73. SPSET SN,SPK(SN),SPP(SN),SPH(SN),SPV(SN),SPI(SN)
74. SPF(SN)=0
75. GOSUB @SPMOVE
76. RETURN
77. 
78. @SPMOVE
79. SPOFS SN,SPX(SN),SPY(SN)
80. SPF(SN)=0
81. RETURN
82. 
83. @SPCHANG  ′ミシ゛ッソウ
84. SPF(SN)=0
85. RETURN
86. 
87. @SPDEL    ′ミシ゛ッソウ
88. SPF(SN)=0
89. RETURN
90. 
91. 

SPTEST_1.jpg SPTEST_2.jpg


Copyright (c) 1997-2020 Rakuten, Inc. All Rights Reserved.