かつてやった（であろう）ｸﾀﾞﾗﾈｰ!!プログラムや ｸﾀﾞﾗﾈｰ!!テクニックを
再びここで披露して下さい。
詳しくはで。
前スレ
ttp://pc.2ch.net/test/read.cgi/i4004/1008847300/ ※）前スレは昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄに関連した雑談用途で使用することを推奨します。
全機種OKと言われても、HCとかでは、ねぇ？
やるやつは移植してでもやるよ。
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
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
省略されちゃったかね？
大昔、プログラム書いたノートが出てきた為、それを書いただけ、
よって動作確認なんぞ出来ません。
（VTL/2走る機械が生きている人居ます？居たら羨ましい・・・）
ワンキーでは無い気がするが・・・・・
事前に SCREEN 1を実行しておくこと
POKE &HF3B0,0
コレを入力したあとシフトキーを押すとキレイなグラフィックが拝める
何かこのスレ用の作品作らないと なー。
>50
マジです。
いまさらだが、何がしたかったのか気になる。
rvtl なんてのがあるよ。
多分チキンレースだと思われ。
ボタンを押すタイミングが早すぎると「臆病者！」遅すぎると「死んだ」
ちょうどよければ生き残りで、条件が厳しくなって次の相手へ。
プログラムの書ける関数電卓（ポケコンじゃない奴）でブラックジャックもどき作った事がある・・・・
> 80 #=I<>2*100
70は数値入力なのでタイミングは関係なさそう。
VTL/2 では <> という演算子はないとおもう。 GAME III？
> 130 X='
> 140 #=X>50000*190
乱数を生成して50000以上なら OMAE HA SHINDA! になるが、
結局、5回で終了すること以外よくわからん。
チキンレースというよか、ロシアンルーレットっぽい。
5回で終了する辺りが。
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
久々にｷﾀ━━(ﾟ∀ﾟ)━━!!
ｵﾚﾓﾅｰ。
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
今回はなんとか省略されずに済んだみたいですね。
ちなみにＭＳＸにもそのまま使えます。
機種に合わせてウェイトをイジって遊んで下さい。
（ ＾＾ ）＜ ぬるぽ（＾＾）
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"," ﾟ"," "
ttp://www1.free-city.net/home/s-rf9/page004.html __∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ？(俺を買え）」と逆売春を持ちかける黒人男性も多い。）
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
保守age
ここにいる皆さんのお暇な時に来て下さってお好きなように講義をして下さると嬉しいです。
BASICで始めるプログラム
ttp://pc5.2ch.net/test/read.cgi/gamedev/1100498283/ ttp://pc8.2ch.net/test/read.cgi/gamedev/1100498283/ 何が言いたのか
はっきり言ってやれ
やるのかやらないのか
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
