■ このスレッドは過去ログ倉庫に格納されています
第2回昔のPC板杯プログラムコンテスト会場
- 1 :大学生MSXユーザ ◆Ym1dK0rg :02/02/02 02:02.net
- 恒例となった 第2回昔のPC板杯プログラムコンテストを開催するヨ!
かつてやった(であろう)クダラネー!!プログラムや クダラネー!!テクニックを
再びここで披露して下さい。
詳しくは>>2で。
前スレ http://pc.2ch.net/test/read.cgi/i4004/1008847300/
※)前スレは昔のPC板杯プログラムコンテストに関連した雑談用途で使用することを推奨します。
- 31 :ナイコンさん:02/02/08 23:02.net
- N88-BASICでエントリ
AAモンタージュ。
操作方法:ひたすらスペースバーを押す。
10 DIM A$(3,5):A=1:RESTORE
20 FOR I=1 TO 3
30 FOR J=1 TO 5
40 READ A$(I,J)
50 NEXT
60 NEXT
70 WIDTH 80,25:CLS
80 LOCATE 38,10:PRINT "A A";
90 FOR I=1 TO 3
100 LOCATE 36+I,11:PRINT a$(I,A);
110 IF INKEY$=" " THEN 140
120 A=A+1:IF A>5 THEN A=1
130 GOTO 100
140 IF INKEY$=" " THEN 140
150 A=1
160 NEXT
170 IF INKEY$=" " THEN 170
180 lOCATE 34,15:PRINT "PRESS SPACE"
190 IF INKEY$ <> " " THEN 190
200 GOTO 70
1000 DATA "<###>","(###)","[###]","(###)","{###}"
1010 DATA "^#^","゚#゚","゙#゙","T#T","'#'"
1020 DATA "-","ロ","w","o","x"
- 32 :ナイコンさん:02/02/12 16:17.net
- INTERVAL文をつかって、某イベント後、3分後にダイナマイトが爆発で
良いと思われます。
- 33 :ナイコンさん:02/02/12 17:15.net
- >>8
TIMEに代入でけんのん?。MSXはくわしくない4
>>9
64文字くらいかな?
- 34 :発券!:02/02/12 20:09.net
- CLS:LOCATE 30,20:PRINT"G":WHILE X<>30 AND Y<>20:LOCATE X,Y:PRINT" ":X=X+(INKEY$="4")-(INKEY$="6"):Y=Y+(INKEY$="2")-(INKEY$="8"):LOCATE X,Y:PRINT"@":WEND:PRINT CHR$(12)"GOAL"
- 35 :ナイコンさん:02/02/16 00:33.net
- ココ最近放置されっぱなしで悲しいからage!
- 36 :大学生MSXユーザ ◆Ym1dK0rg :02/02/16 03:49.net
- あと数日で卒論が書き終わるんで
その後このスレ盛り上げようと思います。
エントリーされた方々 AND このスレ見てる方々、
もう暫く待ってください。m(_ _)m
REM 前スレの>>1さんはどうしてるんだろう…気になる。
- 37 :29:02/02/16 17:21.net
- >>30
わかってもらえてよかった。
- 38 :ナイコンさん:02/02/27 02:25.net
- 保全age
- 39 :ナイコンさん:02/02/27 02:33.net
- マジで野球ヲタ氏ね!!!
http://ime.nu/www.baseball-lover.com
- 40 :大学生MSXユーザ ◆Ym1dK0rg :02/03/02 04:06.net
- 久しぶりです。>all
機種:MSX(多分日本の全機種)
タイトル:Giko!
使用キー:スペース
遊び方:ギコの顔が回るので正面を向いた瞬間に
キーを押して止めてください。すこれが入ります。
止まった状態でキーを押すとまた回ります。
無限ループでだんだん難しくなります。
100 DATA "(゚A゚)",100,"( ゚A)",80,"( ゚)",30
105 DATA "( )",0,"(゚ )",30,"(A゚ )",80
110 DIM D$(6),S(6)
120 FORI=1TO6:READ D$(I),S(I):NEXTI
130 SCREEN1:COLOR1,15,15:WIDTH10:CLS
140 'setup
150 SC=0:P=0:DF=60
160 LOCATE0,0:PRINT" Giko !":LOCATE0,5
170 PRINT" A A":PRINT:PRINT" つ つ":PRINT" |_|"
180 PRINT" U U":PRINT:PRINT"すこれ:";:PRINT USING "#####"; SC
190 'rot
200 P=INT(RND(-TIME)*6)
210 LOCATE2,6:PRINT D$(P+1)
220 TIME=0:FOR I=0TO1
230 IF STRIG(0)THEN 260
240 IFTIME<DFTHENI=0
250 NEXTI:P=(P+1)MOD6:GOTO210
260 SC=SC+S(P+1):LOCATE 4,11:PRINT USING"#####";SC
270 DF=DF-1:IF DF<0 THEN DF=0
280 IF STRIG(0) THEN 280
290 IF STRIG(0) THEN 300 ELSE 290
300 IF STRIG(0) THEN 300 ELSE 190
- 41 :ナイコンさん:02/03/14 21:58.net
- 大学生MSXユーザ生きてるか?
- 42 :大学生MSXユーザ ◆Ym1dK0rg :02/03/15 00:55.net
- >>41
逝^H生きてます。=ロo_
前スレの>>1さん生きてます?
- 43 :ナイコンさん:02/04/19 11:43.net
- 保守age!
全機種OKと言われても、HCとかでは、ねぇ?
- 44 :ナイコンさん:02/04/19 13:41.net
- >>43
やるやつは移植してでもやるよ。
- 45 :影(「ボケ」担当):02/04/28 09:51.net
- N88 音ゲー(?)
100 CLS:RANDOMIZE:A$="C?D?E?F?G?A?B?":L1=200:L2=200
110 B$=MID$(A$,(RND(7)*2+1),1):B=ASC(B$)+32
120 C$="O5L128"+B$+"R"
130 PRINT "cho-ultra--don!!"
140 LOCATE 5,5:PRINT A$:PLAY C$
150 FOR I=1 TO L1
160 FOR J=1 TO L2
170 IK$=INKEY$
180 IF IK$<>"" THEN IK=ASC(IK$):I=L1:J=L2
190 NEXT J
200 NEXT I
210 IF IK$=B$ OR IK=B THEN PRINT "O! ";B$:GOTO 230
220 PRINT "X! ";B$
230 END
- 46 :ナイコンさん:02/05/14 08:36.net
- VTL/2。
50 M=0
70 I=?
80 #=I<>2*100
90 ?="okubyou mono!"
100 #=210
120 #=M=5*260
130 X='
140 #=X>50000*190
150 #=N>10*240
160 ?="WIN!"
170 M=M+1
180 #=70
190 ?="OMAE HA SINDA!"
210 ?=""
220 ?="TSUGI HA DARE?"
230 #=30
240 ?="ANATA HA IKINOKOTTA!"
250 #=20
省略されちゃったかね?
- 47 :46:02/05/14 08:38.net
- 助かった(笑)
大昔、プログラム書いたノートが出てきた為、それを書いただけ、
よって動作確認なんぞ出来ません。
(VTL/2走る機械が生きている人居ます?居たら羨ましい・・・)
- 48 :ナイコンさん:02/05/15 09:18.net
- >>46
ワンキーでは無い気がするが・・・・・
- 49 :大学院生MSXユーザ ◆Ym1dK0rg :02/05/19 03:30.net
- 最近全然MSX触ってないよ。=ロo_
- 50 :ナイコンさん:02/05/19 23:33.net
- (; ̄ロ ̄) 煤@ 院に進んだのかい!?
- 51 :ナイコンさん:02/06/21 22:54.net
- age
- 52 :ナイコンさん:02/06/30 15:32.net
- MSX1専用
事前に SCREEN 1を実行しておくこと
POKE &HF3B0,0
コレを入力したあとシフトキーを押すとキレイなグラフィックが拝める
- 53 :大学院生MSXユーザ ◆Ym1dK0rg :02/08/10 23:21.net
- 保守sageシテオク。
何かこのスレ用の作品作らないと なー。
>50
マジです。
- 54 :ナイコンさん:02/08/14 23:52.net
- >>46
いまさらだが、何がしたかったのか気になる。
>>47
rvtl なんてのがあるよ。
- 55 :ナイコンさん:02/08/15 11:46.net
- >>54
多分チキンレースだと思われ。
ボタンを押すタイミングが早すぎると「臆病者!」遅すぎると「死んだ」
ちょうどよければ生き残りで、条件が厳しくなって次の相手へ。
プログラムの書ける関数電卓(ポケコンじゃない奴)でブラックジャックもどき作った事がある・・・・
- 56 :ナイコンさん:02/08/17 00:02.net
- > 70 I=?
> 80 #=I<>2*100
70は数値入力なのでタイミングは関係なさそう。
VTL/2 では <> という演算子はないとおもう。 GAME III?
> 130 X='
> 140 #=X>50000*190
乱数を生成して50000以上なら OMAE HA SHINDA! になるが、
結局、5回で終了すること以外よくわからん。
- 57 :ナイコンさん:02/09/13 17:21.net
- >>55
チキンレースというよか、ロシアンルーレットっぽい。
5回で終了する辺りが。
- 58 :ナイコンさん:02/11/01 18:15.net
- N88互換BASIC 2GET-GAME
2 cls:k1=11:l1=1:for i=0 to 3:read a:v(i)=a:read a:w(i)=a:next i
5 color 7,0:locate 10,0:print"##################"
6 for y=1 to 16:locate 10,y:print"#";
7 print spc(16);:print"#":next y
8 locate 10,17:print"##################":a=1:b=255
9 color 2:x2=20:y2=10:locate x2,y2:print"2":color 7:h=0:goto 15
10 for i=0 to 31:next i:locate 32,9:print spc(5)
11 x2=int(rnd(1)*16)+11:y2=int(rnd(1)*16)+1
12 locate x2,y2:color 2:print"2":color 7
15 g=h mod 4:x=v(g):y=w(g):k0=k1:l0=l1:k1=k1+x:l1=l1+y
16 locate k1,l1:print"O":for i=0 to 63:next i:locate k0,l0:print" "
18 if k1=10 then 50 else if k1=27 then 50
19 if l1=0 then 50 else if l1=17 then 50
20 if k1<>x2 then 25 else if l1<>y2 then 25
21 for i=0 to 7:for j=0 to 7:color j:locate 32,9:print"2GET!"
22 next j:next i:a=a+100:goto 10
25 for j=0 to b:next j:if inkey$=" " then h=h+1
27 locate 29,0:print using"SCORE ####";a:a=a+1:c=a/100:b=int(b-c)
30 goto 15:data 1,0,0,1,-1,0,0,-1
50 locate 15,9:print"GAME OVER":for i=0 to 255:next i:end
- 59 :大学院生MSXユーザ ◆UOYm1dK0rg :02/11/02 04:13.net
- >>58
久々にキタ━━(゚∀゚)━━!!
オレモナー。
- 60 :ナイコンさん:02/11/05 16:26.net
- 2 cls:color 7,0:x=10:y=0:for i=0 to 3:read a:v(i)=a:read a:w(i)=a
3 for j=0 to 16:locate x,y:print "#":x=x+v(i):y=y+w(i)
4 next j:next i:k1=11:l1=1:a=1:b=255:h=0:k0=255:l0=255
10 locate 32,9:print spc(5):x2=int(rnd(1)*16)+11:y2=int(rnd(1)*16)+1
11 locate x2,y2:color 2:print"2":color 7:if inkey$=" " then h=h+1
15 g=h mod 4:x=v(g):y=w(g):k0=k1:l0=l1:k1=k1+x:l1=l1+y
16 locate k1,l1:print"O":for i=0 to 63:next i:locate k0,l0:print" "
18 if k1=10 then 50 else if k1=27 then 50
19 if l1=0 then 50 else if l1=17 then 50
20 if k1<>x2 then 30 else if l1<>y2 then 30
21 for i=0 to 7:for j=0 to 7:color j:locate 32,9:print"2GET!"
22 next j:next i:a=a+100:goto 10
30 a=a+1:for i=0 to b:next i:if inkey$=" " then h=h+1
31 locate 29,0:print using"SCORE#####";a:c=a/100:b=int(b-c):goto 15
50 locate 15,9:print"GAME OVER":end:data 1,0,0,1,-1,0,0,-1
- 61 :ナイコンさん:02/11/05 16:28.net
- ↑N88互換BASIC 2GET-GAME
今回はなんとか省略されずに済んだみたいですね。
ちなみにMSXにもそのまま使えます。
機種に合わせてウェイトをイジって遊んで下さい。
- 62 :ナイコンさん:02/12/03 23:39.net
-
- 63 :山崎渉:03/01/13 21:49.net
- (^^)
- 64 :ナイコンさん:03/02/05 22:51.net
- 丸一年
- 65 :ナイコンさん:03/02/12 01:09.net
- 第1回のほうが盛り上がったな。
- 66 :ナイコンさん:03/03/04 23:33.net
- 打つのが、面倒なわけよ。
- 67 :山崎渉:03/04/17 12:27.net
- (^^)
- 68 :山崎渉:03/04/20 05:57.net
- ∧_∧
( ^^ )< ぬるぽ(^^)
- 69 :山崎渉:03/05/22 02:08.net
- ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
- 70 :ナイコンさん:03/06/05 12:08.net
- SHARP PC-G850V
10 CLS:CLEAR
20 PRINT "キタ---( )---!!"
30 FOR A=0 TO 5
40 READ C$
50 LOCATE 6,0:PRINT C$
60 FOR B=0 TO 100:NEXT
70 NEXT:END
80 DATA "゚ ","v゚ ","゚v゚"," ゚v"," ゚"," "
- 71 :ナイコンさん:03/06/05 12:10.net
- みてね♪
http://www1.free-city.net/home/s-rf9/page004.html
- 72 :山崎 渉:03/07/15 11:08.net
-
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄
- 73 :なまえをいれてください:03/07/22 13:16.net
- ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
- 74 :ぼるじょあ ◆ySd1dMH5Gk :03/08/02 05:04.net
- ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ
- 75 :山崎 渉:03/08/15 23:19.net
- (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
- 76 :ナイコンさん:03/09/01 15:32.net
- もっとみんながんがれ!
保守age
- 77 : :04/05/01 18:16.net
-
- 78 : :04/05/01 21:05.net
-
- 79 :ナイコンさん:04/11/16 15:30:25.net
- ゲ製作板にBASICで0からプログラムを勉強するスレを立てました。
ここにいる皆さんのお暇な時に来て下さってお好きなように講義をして下さると嬉しいです。
BASICで始めるプログラム
http://pc5.2ch.net/test/read.cgi/gamedev/1100498283/
- 80 :ナイコンさん:2005/04/08(金) 21:41:49 .net
- >>79
http://pc8.2ch.net/test/read.cgi/gamedev/1100498283/
- 81 :ナイコンさん:2005/12/31(土) 01:30:40 .net
- とさか
- 82 :ナイコンさん:2006/01/01(日) 05:09:31 .net
- 山崎渉保存スレになってるな
- 83 :fushianasan:2006/09/05(火) 16:57:15 .net
- a1
- 84 :ナイコンさん:2006/12/07(木) 23:26:40 .net
- 最下層到達記念あげ
- 85 :ナイコンさん:2007/06/07(木) 20:59:03 .net
- >>84
- 86 :ナイコンさん:2009/09/17(木) 21:04:51 .net
- ↑
何が言いたのか
はっきり言ってやれ
やるのかやらないのか
- 87 :ナイコンさん:2009/09/17(木) 21:06:19 .net
- まだまだつづくよ〜
- 88 :ナイコンさん:2011/02/19(土) 21:33:31.07 .net
- アハ〜♪”
- 89 :ナイコンさん:2011/11/25(金) 14:15:56.32 .net
-
- 90 :ナイコンさん:2013/02/16(土) 19:32:27.47 .net
- _
|O\
| \ キリキリ
∧|∧ \ キリキリ
ググゥ>(;⌒ヽ \
∪ | (~)
∪∪ γ´⌒`ヽ
) ) {i:i:i:i:i:i:i:i:}
( ( ( ´・ω・)、
(O ⌒ )O
⊂_)∪
- 91 :ナイコンさん:2013/04/01(月) 23:52:29.68 .net
- (*^-^)
- 92 :KINGQUEEN猫又猫神 ◆Vepzo4FTLeSN :2014/02/18(火) 15:00:18.50 .net
- (*ΦωΦ)y-・~~ミャア
- 93 :ナイコンさん:2020/08/23(日) 13:08:51.32 .net
- じわる
- 94 :ナイコンさん:2020/11/03(火) 15:41:41.69 .net
- うめ
- 95 :ナイコンさん:2022/04/26(火) 21:35:25.46 .net
- ほ
- 96 :ナイコンさん:2023/01/02(月) 11:55:20.26 .net
- も
- 97 :ナイコンさん:2023/05/14(日) 23:03:47.63 .net
- れ
- 98 :ナイコンさん:2023/05/18(木) 01:24:45.23 .net
- >>60
おもしろかったw
12000点を超えたけど、次の2が出てこなくなって自爆終了させた
たぶん偶然自分の位置に2が出て、" "で消されてしまったのかな
ということはそのへんをウロウロしていれば当てられたかも
リストを読んでからわかった
総レス数 98
24 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200