X



トップページ昔のPC
99コメント28KB
第2回昔のPC板杯プログラムコンテスト会場
0001大学生MSXユーザ ◆Ym1dK0rg
垢版 |
NGNG
恒例となった 第2回昔のPC板杯プログラムコンテストを開催するヨ!
かつてやった(であろう)クダラネー!!プログラムや クダラネー!!テクニックを
再びここで披露して下さい。

詳しくは>>2で。

前スレ http://pc.2ch.net/test/read.cgi/i4004/1008847300/
※)前スレは昔のPC板杯プログラムコンテストに関連した雑談用途で使用することを推奨します。
0050ナイコンさん
垢版 |
NGNG
(; ̄ロ ̄) 煤@ 院に進んだのかい!?
0051ナイコンさん
垢版 |
NGNG
age
0052ナイコンさん
垢版 |
NGNG
MSX1専用
事前に SCREEN 1を実行しておくこと

POKE &HF3B0,0

コレを入力したあとシフトキーを押すとキレイなグラフィックが拝める
0054ナイコンさん
垢版 |
NGNG
>>46
いまさらだが、何がしたかったのか気になる。

>>47
rvtl なんてのがあるよ。
0055ナイコンさん
垢版 |
NGNG
>>54
多分チキンレースだと思われ。
ボタンを押すタイミングが早すぎると「臆病者!」遅すぎると「死んだ」
ちょうどよければ生き残りで、条件が厳しくなって次の相手へ。

プログラムの書ける関数電卓(ポケコンじゃない奴)でブラックジャックもどき作った事がある・・・・
0056ナイコンさん
垢版 |
NGNG
> 70 I=?
> 80 #=I<>2*100

70は数値入力なのでタイミングは関係なさそう。
VTL/2 では <> という演算子はないとおもう。 GAME III?

> 130 X='
> 140 #=X>50000*190

乱数を生成して50000以上なら OMAE HA SHINDA! になるが、
結局、5回で終了すること以外よくわからん。


0057ナイコンさん
垢版 |
NGNG
>>55
チキンレースというよか、ロシアンルーレットっぽい。
5回で終了する辺りが。
0058ナイコンさん
垢版 |
NGNG
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
0060ナイコンさん
垢版 |
NGNG
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
0061ナイコンさん
垢版 |
NGNG
↑N88互換BASIC 2GET-GAME
今回はなんとか省略されずに済んだみたいですね。
ちなみにMSXにもそのまま使えます。
機種に合わせてウェイトをイジって遊んで下さい。
0062ナイコンさん
垢版 |
NGNG
 
0064ナイコンさん
垢版 |
NGNG
丸一年
0068山崎渉
垢版 |
NGNG
   ∧_∧
  (  ^^ )< ぬるぽ(^^)
0069山崎渉
垢版 |
NGNG
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―
0070ナイコンさん
垢版 |
NGNG
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"," ゚"," "
0072山崎 渉
垢版 |
NGNG

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
0073なまえをいれてください
垢版 |
NGNG
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
0074ぼるじょあ ◆ySd1dMH5Gk
垢版 |
NGNG
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ
0075山崎 渉
垢版 |
NGNG
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン
0076ナイコンさん
垢版 |
NGNG
もっとみんながんがれ!
保守age
0081ナイコンさん
垢版 |
2005/12/31(土) 01:30:40
とさか
0084ナイコンさん
垢版 |
2006/12/07(木) 23:26:40
最下層到達記念あげ
0086ナイコンさん
垢版 |
2009/09/17(木) 21:04:51

何が言いたのか
はっきり言ってやれ
やるのかやらないのか
0087ナイコンさん
垢版 |
2009/09/17(木) 21:06:19
まだまだつづくよ〜
0088ナイコンさん
垢版 |
2011/02/19(土) 21:33:31.07
アハ〜♪”
0090ナイコンさん
垢版 |
2013/02/16(土) 19:32:27.47
      _
      |O\
      |   \ キリキリ
    ∧|∧   \ キリキリ
ググゥ>(;⌒ヽ    \
    ∪  |     (~)
     ∪∪   γ´⌒`ヽ
     ) )    {i:i:i:i:i:i:i:i:}
     ( (    ( ´・ω・)、
           (O ⌒ )O
            ⊂_)∪
0091ナイコンさん
垢版 |
2013/04/01(月) 23:52:29.68
(*^-^)
0096ナイコンさん
垢版 |
2022/04/26(火) 21:35:25.46
0097ナイコンさん
垢版 |
2023/01/02(月) 11:55:20.26
0098ナイコンさん
垢版 |
2023/05/14(日) 23:03:47.63
0099ナイコンさん
垢版 |
2023/05/18(木) 01:24:45.23
>>60
おもしろかったw
12000点を超えたけど、次の2が出てこなくなって自爆終了させた
たぶん偶然自分の位置に2が出て、" "で消されてしまったのかな
ということはそのへんをウロウロしていれば当てられたかも
リストを読んでからわかった
レスを投稿する


ニューススポーツなんでも実況