Program post site for everyone
スネーク系ゲームの対戦版です。
4人まで同時にプレイ出来ます。
1人でも遊べます。
■遊び方
・初めにプレイヤー数を入力します。（1～4まで）
・誰かが通った後にぶつかるとダメです。
・画面の端に行くと反対側から出てきます。
■操作
・進行方向に対して右に方向を変えるか、左に方向を変えるかになります。
・1プレイヤーのキー操作 左：Z 右：X
・2プレイヤーのキー操作 左：← 右：→
・3プレイヤーのキー操作 左：N 右：M
・4プレイヤーのキー操作 左：8 右：9
■改造
残り容量に余裕があるので、もっと同時プレイ人数を増やせそうです。
多分、[32]以降に正しくパラメータを入れてあげれば人数を増やせます。
配列変数の量的に最大12人同時プレイが可能！？
■変数表
A 外壁のキャラクターコード
I FORループ
K INKEY()
P プレイヤー数
S SCORE
W SWAP用work
[0] 1プレイヤーのX座標（1～30） 4
[1] 1プレイヤーのY座標（1～21） 11
[2] 1プレイヤーのDX 1
[3] 1プレイヤーのDY 0
[4] 1プレイヤーのキャラクターコード 243
[5] 1プレイヤー通過部のキャラクターコード 49
[6] 1プレイヤーの左方向転換キーキャラクターコード 90
[7] 1プレイヤーの右方向転換キーキャラクターコード 88
[8] 2プレイヤーのX座標（1～30） 27
[9] 2プレイヤーのY座標（1～21） 11
[10] 2プレイヤーのDX -1
[11] 2プレイヤーのDY 0
[12] 2プレイヤーのキャラクターコード 237
[13] 2プレイヤー通過部のキャラクターコード 50
[14] 2プレイヤーの左方向転換キーキャラクターコード 28
[15] 2プレイヤーの右方向転換キーキャラクターコード 29
[16] 3プレイヤーのX座標（1～30） 15
[17] 3プレイヤーのY座標（1～21） 18
[18] 3プレイヤーのDX 0
[19] 3プレイヤーのDY -1
[20] 3プレイヤーのキャラクターコード 250
[21] 3プレイヤー通過部のキャラクターコード 51
[22] 3プレイヤーの左方向転換キーキャラクターコード 78
[23] 3プレイヤーの右方向転換キーキャラクターコード 77
[24] 4プレイヤーのX座標（1～30） 16
[25] 4プレイヤーのY座標（1～21） 4
[26] 4プレイヤーのDX 0
[27] 4プレイヤーのDY 1
[28] 4プレイヤーのキャラクターコード 230
[29] 4プレイヤー通過部のキャラクターコード 52
[30] 4プレイヤーの左方向転換キーキャラクターコード 56
[31] 4プレイヤーの右方向転換キーキャラクターコード 57
10 CLS:CLV:CLP:A=6:LET[0],4,11,1,0,243,49,90,88,27,11,-1,0,237,50,28,29,15,18,0,-1,250,51,78,77,16,4,0,1,230,52,56,57 20 INPUT"ニンズウ(1-4)=",P:FORI=0TO31:LCI,22:?CHR$(A):NEXT:FORI=0TO20:LC0,22:?CHR$(A):LC31,22:?CHR$(A):NEXT:FORI=0TO30:LCI,22:?CHR$(A):NEXT 30 @M:FORI=0TOP-1:S=S+1:IFSCR([I*8],[I*8+1])!=0GOTO@E 40 LC[I*8],[I*8+1]:?CHR$([I*8+4]):NEXT 50 K=INKEY() 60 FORI=0TOP-1 70 IF[I*8+6]=K||[I*8+7]=KW=[I*8+2]:[I*8+2]=[I*8+3]-([I*8+7]=K)*[I*8+3]*2:[I*8+3]=([I*8+7]=K)*W*2-W 80 NEXT 90 FORI=0TOP-1:LC[I*8],[I*8+1]:?CHR$([I*8+5]):NEXT 100 FORI=0TOP-1:[I*8]=([I*8]+[I*8+2]+29)%30+1:[I*8+1]=([I*8+1]+[I*8+3]+20)%21+1:NEXT 110 GOTO@M 120 @E:LC0,23:?"Player";CHR$([I*8+5]);"Loseer SCORE=";S
1人プレイのこのゲームはよく知っていますが、まさか対戦とは！ 直観的ではない操作が白熱しますね。4人ともなれば、シッチャカメッチャカですごく楽しそうです。
