しかし、入力するところなどで見ずらくなったりして遊びにくいんです。
だれか見やすいように遊べる方法があったら教えてください。
[ここをクリックすると内容が表示されます]
見にくくてすいません
dim kane As Double
dim game As Long
dim com As Long
dim you As Long
dim kake As Double
dim kati As Long
dim rank As String
dim make As Long
#N88BASIC
print"------------------------------------"
print"------じゃんけんゲーム V2.11 -------"
print"------------------------------------"
Sleep(500)
print"シフトキーを押してください"
Do 'シフトキーで抜ける
if GetAsyncKeyState(16) or GetAsyncKeyState(31) Then Goto *start
Loop
*start
kane = 30
Do
color 7
print""
print"---------------------"
print"GAME" , kati + make + 1
print""
print "ポイント P ",kane
if 0 >= kane then 'Pが0以下
print""
print"ゲームオーバー"
Sleep(3000)
End
End if
*kake
kake = 0
input "BET = " ; kake
kane = kane - kake
if kake <= 0 Then
print""
print"0以下にしないでください"
Beep(1000,800)
Goto *kake
End if
if 0 > kane then
print""
print"掛けPが多すぎます"
kane = kane + kake
Beep(1000,800)
Goto *kake
End if
if kane < 0 then
print"ゲームオーバー"
Sleep(1500)
End
End if
print"---------------------"
*aiko
print ""
Randomize
com = Int(Rnd()*3)+1
*te
print"じゃんけん・・・ グー(1) チョキ(2) パー(3)"
Do
Select Case Input$(1)
Case "1"
you = 1
Exit Do
Case "2"
you = 2
Exit Do
Case "3"
you = 3
Exit Do
End Select
Loop
print""
if you = 1 or 2 or 3 then
If you = 1 Then
print "グー"
End If
If you = 2 Then
print "チョキ"
End If
If you = 3 Then
print "パー"
End If
End if
Sleep(500)
if you = 1 or 2 or 3 Then
If com = 1 Then
print "相手はグーです"
endif
If com = 2 Then
print "相手はチョキです"
Endif
If com = 3 Then
print "相手はパーです"
Endif
endif
print""
Sleep(500)
color 6
If you = com Then
print "あいこです。"
color 7
goto *aiko
End If
color 2
If you = 1 And com = 2 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
If you = 2 And com = 3 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
If you = 3 And com = 1 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
color 1
If you = 1 And com = 3 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
If you = 2 And com = 1 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
If you = 3 And com = 2 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
Sleep(1000)
kane = kake + kane
Loop Until kati + make = 10
print""
Color 7
print"10ゲーム終了です"
Beep(5000,50)
Beep(5000,50)
print""
Sleep(500)
print"-----------------------------"
print"あなたの結果は P",kane
print kati,"勝",make,"敗"
print"-----------------------------"
Sleep(500)
if kane <= 10 Then rank = "G"
if kane >= 11 Then rank = "F"
if kane >= 20 then rank = "E"
if kane => 30 Then rank = "D"
if kane => 40 Then rank = "C"
if kane => 55 then rank = "B"
if kane => 75 Then rank = "A"
if kane => 100 Then rank = "S"
if kane => 250 Then rank = "SS"
if kane => 500 then rank = "SSS"
print "RANK" ,rank
Sleep(-1)
End
dim game As Long
dim com As Long
dim you As Long
dim kake As Double
dim kati As Long
dim rank As String
dim make As Long
#N88BASIC
print"------------------------------------"
print"------じゃんけんゲーム V2.11 -------"
print"------------------------------------"
Sleep(500)
print"シフトキーを押してください"
Do 'シフトキーで抜ける
if GetAsyncKeyState(16) or GetAsyncKeyState(31) Then Goto *start
Loop
*start
kane = 30
Do
color 7
print""
print"---------------------"
print"GAME" , kati + make + 1
print""
print "ポイント P ",kane
if 0 >= kane then 'Pが0以下
print""
print"ゲームオーバー"
Sleep(3000)
End
End if
*kake
kake = 0
input "BET = " ; kake
kane = kane - kake
if kake <= 0 Then
print""
print"0以下にしないでください"
Beep(1000,800)
Goto *kake
End if
if 0 > kane then
print""
print"掛けPが多すぎます"
kane = kane + kake
Beep(1000,800)
Goto *kake
End if
if kane < 0 then
print"ゲームオーバー"
Sleep(1500)
End
End if
print"---------------------"
*aiko
print ""
Randomize
com = Int(Rnd()*3)+1
*te
print"じゃんけん・・・ グー(1) チョキ(2) パー(3)"
Do
Select Case Input$(1)
Case "1"
you = 1
Exit Do
Case "2"
you = 2
Exit Do
Case "3"
you = 3
Exit Do
End Select
Loop
print""
if you = 1 or 2 or 3 then
If you = 1 Then
print "グー"
End If
If you = 2 Then
print "チョキ"
End If
If you = 3 Then
print "パー"
End If
End if
Sleep(500)
if you = 1 or 2 or 3 Then
If com = 1 Then
print "相手はグーです"
endif
If com = 2 Then
print "相手はチョキです"
Endif
If com = 3 Then
print "相手はパーです"
Endif
endif
print""
Sleep(500)
color 6
If you = com Then
print "あいこです。"
color 7
goto *aiko
End If
color 2
If you = 1 And com = 2 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
If you = 2 And com = 3 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
If you = 3 And com = 1 Then
print "あなたの勝ちです"
kati = kati + 1
kake = kake * 2
End If
color 1
If you = 1 And com = 3 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
If you = 2 And com = 1 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
If you = 3 And com = 2 Then
print "あなたの負けです"
make = make + 1
kake = 0
End If
Sleep(1000)
kane = kake + kane
Loop Until kati + make = 10
print""
Color 7
print"10ゲーム終了です"
Beep(5000,50)
Beep(5000,50)
print""
Sleep(500)
print"-----------------------------"
print"あなたの結果は P",kane
print kati,"勝",make,"敗"
print"-----------------------------"
Sleep(500)
if kane <= 10 Then rank = "G"
if kane >= 11 Then rank = "F"
if kane >= 20 then rank = "E"
if kane => 30 Then rank = "D"
if kane => 40 Then rank = "C"
if kane => 55 then rank = "B"
if kane => 75 Then rank = "A"
if kane => 100 Then rank = "S"
if kane => 250 Then rank = "SS"
if kane => 500 then rank = "SSS"
print "RANK" ,rank
Sleep(-1)
End