ab.com コミュニティ

このゲームは最初にPを賭けてじゃんけんに勝ったら2倍になり、負けたら没収で10回したときにどれだけPを稼げたかというゲームです
しかし、入力するところなどで見ずらくなったりして遊びにくいんです。
だれか見やすいように遊べる方法があったら教えてください。

[ここをクリックすると内容が表示されます]

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 kane As Long,kake As Long
dim com As Long,you As Long
dim kati As Long,make As Long
dim rank As String

#N88BASIC 

Randomize'乱数の初期化はプログラムの最初で呼び出すだけでいい。

print "------------------------------------"
print "------じゃんけんゲーム V2.11+ ------"
print "------------------------------------"

Sleep(500)

print"シフトキーを押してください"
Do    'シフトキーで抜ける
 if  GetAsyncKeyState(16) or GetAsyncKeyState(31) Then Exit Do
Loop

kane = 30

Do 
    color 7

	print ""
	print "---------------------"
	print "GAME",kati + make + 1
	print ""
	print "ポイント　P  ",kane
	if (kane-1) and &H80000000 then
	'if kane<=0 then
		print ""
		print "ゲームオーバー"
		Sleep(3000)
		End
	End if
	 
	Do
		kake = 0
		input "BET = " ; kake
		if kake <= 0 Then
			print ""
		    print "0以下にしないでください"
		    Beep(1000,800)
		Elseif (kane-kake) and &H80000000 then
		'Elseif kake > kane then
			print ""
		    print "掛けPが多すぎます"
		    Beep(1000,800)
		Else
			Exit Do
		End if
	Loop
	kane = kane - kake
	print "---------------------"

	*te
	com = Int(Rnd()*3)+1
	print "じゃんけん・・・　グー(1)　チョキ(2)　パー(3)"

	Do
		you=Asc(Input$(1))-49
		If you and &H80000000 then continue
		If (you-3) and &H80000000 then you=you+1:Exit Do
	Loop

	print""

	If you = 1 Then
		print "グー"
	ElseIf you = 2 Then
		print "チョキ"
	Else
		print "パー"
	End If

	Sleep(500)

	If com = 1 Then
		print "相手はグーです"
	ElseIf com = 2 Then
		print "相手はチョキです"
	Else
		print "相手はパーです"
	Endif

	print""

	Sleep(500)

	If you = com Then
	    color 6
		print "あいこです。"
		color 7
		print ""
		goto *te
	ElseIf com-you=1 or (com=1 and you=3) then
	'ElseIf (com=2 and you=1) or (com=3 and you=2) or (com=1 and you=3) then
		color 2
		print "あなたの勝ちです"
		kati = kati + 1
		kake = kake * 2
	Else
		color 1
		print "あなたの負けです"
		make = make + 1
		kake = 0 
	End If
	color 7
	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,Ex"敗"
print "-----------------------------"

Sleep(500)

if kane >= 500 then
	rank = "SSS"
Elseif kane >= 250 Then
	rank = "SS"
Elseif kane >= 100 Then
	rank = "S"
Elseif kane >= 75 Then
	rank = "A"
Elseif kane >= 55 then
	rank = "B"
Elseif kane >= 40 Then
	rank = "C"
Elseif kane >= 30 Then
	rank = "D"
Elseif kane >= 20 then
	rank = "E"
Elseif kane >= 11 Then
	rank = "F"
Else
	rank = "G"
End If

print "RANK" ,rank

Sleep(-1)

バグの内容:賭け値に-10000等入れると所持金が上がる

コードの修正ありがとうございました。

かなりコードも見やすく短くなりました。ありがとうございます。

賭け値にマイナスで所持金が増えることはないと思うんですが。

if kake <= 0 Then
print""
print"0以下にしないでください"
Beep(1000,800)
Goto *kake
End if

あと、できればDLLファイルのつくりかたも分からないので教えてください。

>賭け値にマイナスで所持金が増えることはないと思うんですが。
もう少し広く見ると分かると思いますが・・・

元のコード

コード: 全て選択

*kake

kake = 0 

 input "BET = " ; kake
 

kane = kane - kake'負の値を引くと、もちろん加算される

if kake <= 0 Then 
    print""
    print"0以下にしないでください"
    Beep(1000,800)
     Goto *kake'戻していない！
    End if

DLLの作り方は、

ここをクリックして展開 [ここをクリックすると内容が表示されます]

まずDLL用のプロジェクトを次のように作ります。

(メニュー)→ファイル→新規作成　で、プロジェクト(*.pj)を選び、
プロジェクト名は適当に入れて(test等)、
アプリケーションタイプ(Win32)はDLL - プロシージャライブラリにして作成。

すると次のようなコードが現れるので、Export修飾子付き関数を作成し、コンパイルすれば完成です。

コード: 全て選択

#include "test.idx"

'-------------------------------------------------------------------
' メモ - このファイルには、DLLの構成要素を記述します。
'        （例：関数定義、グローバル変数、定数定義など）
'
'        エクスポートが必要な関数には、"Export" 修飾子を指定します。
'        （例：Function Export FuncName() As Long）
'-------------------------------------------------------------------

Function Export DllMain(hinstDLL As HINSTANCE, fdwReason As DWord, lpvReserved As VoidPtr) As Long
	'DLLエントリポイント
	Select Case fdwReason
		Case DLL_PROCESS_ATTACH
			'DLLがプロセス空間にロードされた時に実行されます。
			_System_StartupProgram()
			DllMain=1
	End Select
End Function

(メニュー)→表示→プロジェクトオプションで作成するDLLの名前は変更できます。

DLLはまだまだ分からないことのほうが多いのでまた今度がんばります。