プログラムコンテスト結果発表
大賞
だるま屋空気職人
田口賞
たけのこにょきにょき
特別賞
こわーい橋
こたぐち賞
Jump Up!!
最終選考ノミネート作品
タシザンマン
オシバト
ボルショット
ピリオメモリーズ
Rabbit's in Tank GHOST BUSTER
Updated: 2003.12.03
夏冬 春秋（栃木県）
ダウンロード → PILIO.BAS
高速モード推奨
■プログラムの遊び方
|
|
■審査委員会より（お詫び含む） まずはこの場を借りて皆さんにお詫びしなければなりません。本作品は規定の「40字×72行」を超えています。これは、規定の中にある「空行は含まない」という表記があいまいに解釈できてしまうことから起こったものと考えられます。よって、審査委員会では応募者に責はないと判断し、通常の選考にかけることにしました。その結果、入賞には届かなかったものの最終選考まで残りました。 次回のコンテストが実施されるようでしたら、同様の混乱を起こさないように分かりやすい表現をしたいと思います。すべての応募者・関係者の方にお詫びします。 この作品も限られた行数でＲＰＧに挑戦した意欲作です。無駄を省く努力をすれば72行に収めることも不可能ではないと思われます。かつて、テキストのみで想像力をかき立ててくれた名作たちを想いおこしてくれる、懐かしさにあふれた作品です。 |
■プログラムリスト（40字×87行）
1 SCREEN0:WIDTH20:COLOR15,0,0:DEFINTA-Z:
KEYOFF:PLAY"t120o5v15eg8a8df8g8o4a8b8o5c
8d8e2","t120o4v15eg8a8df8g8o3a8b8o4c8d8e
2":CLS:LOCATE2,10:PRINT"pilio-memories":
FORI=0TO6000:NEXT
2 J=15:K=15:L=10:M=10:W=10:H=10:A=10:G=1
00
3 FORI=0TO1000:NEXT
4 CLS:FORI=0TO200:NEXTI:PRINT" Pilio Me
mories","=================","i)inn (10g)
","c)colosseum","s)shop (50g)","m)majica
lhouse(50g)","k)kessen","---------------
---","HP";K;"/";J,"MP";M;"/";L,"Sword";W
,"Shield";H,"Armor";A,"Gold";G,"========
=========",
5 A$="":INPUT"Dokoniiku=";A$:IFA$="i"THE
N6ELSE:IFA$="c"THEN11ELSEIFA$="s"THEN7EL
SEIFA$="m"THEN10ELSEIFA$="k"THEN16ELSEIF
A$="e"THENENDELSE4
6 IFG<10THENPRINT"Kaere!":GOTO3ELSEPRINT
,"Good Night!...":G=G-10:K=J:M=L:GOTO3
7 IFG<50THEN3ELSEB$="":PRINT"1:Sword","2
:Shield","3:Armor":INPUT"Dore=";B$:IFB$=
"1"THENW=W+15ELSEIFB$="2"THENH=H+15ELSEI
FB$="3"THENA=A+15ELSE3
8 G=G-50:IFW>100THENW=100:G=G+50ELSEIFH>
100THENH=100:G=G+50ELSEIFA>100THENA=100:
G=G+50
9 GOTO3
10 IFL=100THEN3ELSEIFG<50THEN4ELSEG=G-50
:L=L+15:GOTO3
11 N=RND(-TIME)*K+2:T=N
12 LOCATE0,15:PRINTSPC(139):LOCATE0,15:P
RINT"Enemy","HP=";N,"=================",
"1)Attack","2)Escape":INPUT"Koudou=";E$:
IFE$="2"THEN4ELSEIFE$<>"1"THEN12ELSELOCA
TE0,18:PRINTSPC(60):LOCATE0,19:PRINT"Att
ack!!!","":E=RND(-TIME)*K:PRINT"Damage="
;E:N=N-E
13 PLAY"o5c16d8":FORI=0TO2000:NEXT:IFN=<
0THENPRINT"Enemy Dead!":J=J+T/2:G=G+T:GO
TO3
14 PLAY"o3c8d8":LOCATE0,15:PRINTSPC(139)
:LOCATE0,15:PRINT"Enemy","HP=";N,"======
===========",,"Enemy Attack!!",SPC(40):F
=RND(-TIME)*K:PRINT"DAMAGE=";F:K=K-F:FOR
I=0TO2000:NEXT
15 CLS:PRINT" Pilio Memories","========
=========","i)inn","c)colosseum","s)shop
","m)majicalhouse","k)kessen","---------
---------","HP";K;"/";J,"MP";M;"/";L,"Sw
ord";W,"Shield";H,"Armor";A,"Gold";G,"==
===============",:GOTO12
16 IF W=100ORH=100ORA=100ORM=100THEN17EL
SE4
17 P=400:Z=0
18 IFW=0ANDH=0ANDA=0ANDM=0THEN25
19 FORI=0TO5000:NEXT:CLS:PRINT" Pilio M
emories","=================",,"Kessen",,
"------------------","HP";K;"/";J,"MP";M
;"/";L,"Sword";W,"Shield";H,"Armor";A,"G
old";G,"=================","Pents","HP="
;P,"================="
20 E$="":LOCATE0,16:PRINT"1)Attack","2)M
agic":INPUT"Action=";E$:IFE$="2"THEN23EL
SEIFE$<>"1"THEN18ELSEPRINT"Attack!!!":Z=
Z+1
21 IF Z>=4THENPRINT"MISS!!":GOTO18
22 PLAY"o5c8g2":IFZ=1THENPRINT"Sword pow
er!!","pents Damages=";W:P=P-W:W=0:GOTO1
8ELSEIFZ=2THENPRINT"Shield power!!","Pen
ts Damages=";H:P=P-H:H=0:GOTO18ELSEIFZ=3
THENPRINT"Armor power!!","Pents Damages=
";A:P=P-A:A=0:IFP=0THEN26ELSE18
23 IFM=0THENPRINT"Not Using!!":GOTO18
24 PLAY"o5c16d16e16f16c16d16e16f16":PRIN
T"Magical Power!!","Pents Damages="M:P=P
-M:M=0:IFP=0THEN26ELSE18
25 FORI=0TO4000:NEXT:CLS:PLAY"o3cg2cg2":
PRINT"Pents Attack!!!",,"Your Damage=100
000",,"You Dead...",,,,,,:END
26 FORI=0TO4000:NEXT:CLS:WIDTH20:LOCATE0
,10:PRINT"congratulations!!"
27 PLAY"o4t255e8g8b8o5c8d8a8b","o3t255g8
b8o4c8d8g8a"
28 FORI=0TO200:A=RND(-TIME)*16:COLORA:NE
XT
|