「じゃんけんゲーム」の編集履歴（バックアップ）一覧はこちら

「じゃんけんゲーム」(2010/06/24 (木) 10:14:07) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

乱数にXorShiftを使ったじゃんけんゲーム。

#asciiart(blockquote){
Dim XorSeed[3] As DWord

'乱数初期化
Sub sxor128() As DWord
	Dim s As DWord
	Dim n As DWord
	s = GetTickCount()

	For n=0 To 3
		s = 1812433253 * (s Xor (s >> 30)) + n
		XorSeed[n] = s
	Next
End Sub

'乱数発生
Function xor128() As DWord
	Dim t As DWord

	t = (XorSeed[0] Xor (XorSeed[0] << 11))
	XorSeed[0] = XorSeed[1]: XorSeed[1] = XorSeed[2]: XorSeed[2] = XorSeed[3]
	XorSeed[3] = (XorSeed[3] Xor (XorSeed[3] >> 19)) Xor (t Xor (t >> 8))
	xor128 = XorSeed[3]
End Function


#N88BASIC
Enum
	GU = 0
	TYOKI
	PAA
End Enum

Dim HandNameStr[2] = ["ぐう", "ちょき", "ぱあ"] As *Byte
Dim JudgeNameStr[2] = ["あいこ", "勝ち", "負け"] As *Byte

Function NumbarToHandName(nu As Long) As String
	NumbarToHandName = HandNameStr[nu]
End Function

Function NumbarToJudgeName(nu As Long) As String
	NumbarToJudgeName = JudgeNameStr[nu]
End Function

Function Judge(a As DWord, b As DWord) As DWord
	If a = b Then Judge = 0
	If (a = GU And b = TYOKI) Or (a = TYOKI And b = PAA) Or (a = PAA And b = GU) Then Judge = 1
	If (a = GU And b = PAA) Or (a = TYOKI And b = GU) Or (a = PAA And b = TYOKI) Then Judge = 2
End Function

Dim pc As DWord'コンピュータの手
Dim usr As DWord'ユーザーの手

sxor128()
Print "じゃんけんゲーム"
*LABEL1
Input "ぐう=0, ちょき=1, ぱあ=2を入力。";usr
If usr <> GU And usr <> TYOKI And usr <> PAA Then *LABEL1
pc = xor128() Mod 3 As DWord

Print "あなたの手=";NumbarToHandName(usr),"コンピュータの手=";NumbarToHandName(pc)
Print NumbarToJudgeName(Judge(usr, pc))
Print ""
Goto *LABEL1
}