Global MaxFragen=0

Type Tfrage
	Field frage$ 
	Field antwort1$ 
	Field antwort2$ 
	Field antwort3$ 
	Field antwort4$
	Field antwortprozent1
	Field antwortprozent2
	Field antwortprozent3
	Field antwortprozent4
	Field antwort1erraten
	Field antwort2erraten 
	Field antwort3erraten 
	Field antwort4erraten 
End Type

Type Tfamilie
	Field id
	Field name$
	Field punkte
End Type

Function create_frage.Tfrage(frage$,antwort1$,antwort2$,antwort3$,antwort4$,antwortprozent1,antwortprozent2,antwortprozent3,antwortprozent4)
	MaxFragen=MaxFragen+1
	DebugLog MaxFragen
	Vfrage.Tfrage=New Tfrage
	Vfrage\frage$=frage$
	Vfrage\antwort1$=antwort1$
	Vfrage\antwort2$=antwort2$
	Vfrage\antwort3$=antwort3$
	Vfrage\antwort4$=antwort4$
	Vfrage\antwortprozent1=antwortprozent1
	Vfrage\antwortprozent2=antwortprozent2
	Vfrage\antwortprozent3=antwortprozent3
	Vfrage\antwortprozent4=antwortprozent4
	Return Vfrage
End Function

Function create_familie.Tfamilie(id,name$)
	Vfamilie.Tfamilie=New Tfamilie
	Vfamilie\id=id
	Vfamilie\name$=name$
	Return Vfamilie
End Function

Function get_frage.Tfrage(id)
	count=1
	For Vfrage.Tfrage=Each Tfrage
		If count=id Return Vfrage
		count=count+1
	Next
	Return Null 
End Function

Function get_familie_by_id.Tfamilie(id)
	For Vfamilie.Tfamilie=Each Tfamilie
		If Vfamilie\id=id Then Return Vfamilie
	Next 
	Return Null 
End Function 

create_frage(\"Wer gewinnt die Neuwahlen?\",\"Angela\",\"Guido\",\"Schröder\",\"Batman\",50,30,15,5)
create_frage(\"Was ist der beste Film aller zeiten?\",\"Batman\",\"Hellboy\",\"Herr Lehmann\",\"Shaun of the Dead\",50,30,15,5)
create_frage(\"Wieviele Wege führen nach Rom?\",\"Alle\",\"42\",\"Ist das ne Fangfrage\",\"ähh...Batman?\",50,30,15,5)
create_frage(\"Wer denken sie, steht gerade hinter ihnen?\",\"Weihnachtsmann\",\"Batman\",\"Apotheker\",\"aufs maul oda was?\",50,30,15,5)

create_familie(0,\"Meier\")
create_familie(1,\"Schulze\")

;Graphics 800,600
;SetBuffer BackBuffer()

beantwortet=0
richtige=0
familie=0

Vfamilie1.Tfamilie=get_familie_by_id(familie)
Vfamilie2.Tfamilie=get_familie_by_id(1-familie)

Vfrage.Tfrage=get_frage(Rand(1,MaxFragen))

While Not KeyHit(1)

	Cls
	Locate 0,0

	If MaxFragen<1 Then
		Print \"Das Spiel ist vorbei.\"
		Print 
		Print \"Punkte\"
		Print 
		Print \"  Familie \"+Vfamilie1\name$+\" : \"+Vfamilie1\punkte
		Print \"  Familie \"+Vfamilie2\name$+\" : \"+Vfamilie2\punkte
		Print
		If Vfamilie1\punkte=Vfamilie2\punkte Then 
			Print \"Sieht nach nem Unentschieden aus.\"
			Print \"Dann müssen eben beide Familien nochmal in die Sendung!!\"
		Else If Vfamilie1\punkte>Vfamilie2\punkte Then 
			Print \"Familie \"+Vfamilie1\name$+\" gewinnt dieses mal!!
		Else 
			Print \"Familie \"+Vfamilie2\name$+\" gewinnt dieses mal!!
		End If 	
		Print
		Print \"Danke fürs zuschauen, bis zum nächsten Mal... Taste drücken :-)\"
		WaitKey()
		End 
	End If 

	Print \"Familie \"+Vfamilie1\name$+\" ist dran und hat \"+(Vfamilie1\punkte+punkte)+\" Punkte!\"
	Print \"Familie \"+Vfamilie2\name$+\" hat \"+Vfamilie2\punkte+\" Punkte!\"
	Print 
	Print \"Wir haben 100 Leute befragt : \"
	Print Vfrage\frage$
	Print

	If Vfrage\antwort1erraten=True Then Print \"Platz 1 : \"+Vfrage\antwort1$+\" (\"+Vfrage\antwortprozent1+\")\"	Else Print \"Platz 1 : \"
	If Vfrage\antwort2erraten=True Then Print \"Platz 2 : \"+Vfrage\antwort2$+\" (\"+Vfrage\antwortprozent2+\")\"	Else Print \"Platz 2 : \"
	If Vfrage\antwort3erraten=True Then Print \"Platz 3 : \"+Vfrage\antwort3$+\" (\"+Vfrage\antwortprozent3+\")\"	Else Print \"Platz 3 : \"
	If Vfrage\antwort4erraten=True Then Print \"Platz 4 : \"+Vfrage\antwort4$+\" (\"+Vfrage\antwortprozent4+\")\"	Else Print \"Platz 4 : \"

	Print
	
	If beantwortet=4 Then
		Vfamilie1\punkte=Vfamilie1\punkte+punkte
		Print \"Familie \"+Vfamilie1\name$+\" hat \"+richtige+\" Richtige antworten. Das macht \"+punkte+\" Punkte!\"
		Print 
		If MaxFragen<>1 Then
			Print \"Nach Tastendruck ist Familie \"+Vfamilie2\name$+\" mit der nächsten Frage dran.\"
		Else
			Print \"Damit sind wir am Ende angelangt, nach Tastendruck gibts den Endstand.\"
		End If 
		WaitKey()
		Delete Vfrage
		MaxFragen=MaxFragen-1
		Vfrage.Tfrage=get_frage(Rand(1,MaxFragen))
		familie=1-familie
		Vfamilie1.Tfamilie=get_familie_by_id(familie)
		Vfamilie2.Tfamilie=get_familie_by_id(1-familie)
		beantwortet=0
		richtige=0
		punkte=0
	Else
		antwort$=Input$(\"Antwortversuch \"+(beantwortet+1)+\"/4 : \")

		beantwortet=beantwortet+1
		
		If antwort$=Vfrage\antwort1$ And Vfrage\antwort1erraten=False Then Vfrage\antwort1erraten=True:richtige=richtige+1
		If antwort$=Vfrage\antwort2$ And Vfrage\antwort2erraten=False Then Vfrage\antwort2erraten=True:richtige=richtige+1
		If antwort$=Vfrage\antwort3$ And Vfrage\antwort3erraten=False Then Vfrage\antwort3erraten=True:richtige=richtige+1
		If antwort$=Vfrage\antwort4$ And Vfrage\antwort4erraten=False Then Vfrage\antwort4erraten=True:richtige=richtige+1
		punkte=Vfrage\antwort1erraten*Vfrage\antwortprozent1+Vfrage\antwort2erraten*Vfrage\antwortprozent2+Vfrage\antwort3erraten*Vfrage\antwortprozent3+Vfrage\antwort4erraten*Vfrage\antwortprozent4
	End If
	

	


Wend

End