; Graphic Abteilung ?  :lol: 

Graphics 1024,768,16,1
SetBuffer BackBuffer()

Global fantitel = LoadImage(\"gfx/titel.bmp\")
Global butt_spielstart = LoadImage(\"gfx/butt_spielstart.bmp\")
Global butt_spielende = LoadImage(\"gfx/butt_spielende.bmp\")
Global charmenue = LoadImage(\"gfx/charmenue.jpg\")
Global zeiger=LoadImage(\"gfx/mauszeiger.bmp\")
Global leerform1=LoadImage(\"gfx/leerform_30x200\")
Global CHAREDIT_VAR = 0

; sound
; ?  :lol: 

; Variablen

Global dukaten=1000
Global einwohner=100
Global land=1000
Global name$=\"\"
Global name2$=\"Bürgermeister\"
Global titelstatus=1
Global dorfname$=\"\"
Global arial18=LoadFont(\"Arial\",18,True,False,False)
Global mausklick=MouseHit(1)

titel=PlayMusic(\"snd/titel.wav\")
SetFont arial18

;MAINLOOPY
Repeat
Cls

DrawImage fantitel,200,10
DrawImage butt_spielstart,400,200
DrawImage butt_spielende,400,300
DrawImage zeiger,MouseX(),MouseY()

If ImagesCollide (zeiger,MouseX(),MouseY(),0,butt_spielstart,400,200,0) And MouseDown(1) Then 
CHAREDIT_VAR = 1
EndIf 

If ImagesCollide (zeiger,MouseX(),MouseY(),0,butt_spielende,400,300,0) And MouseDown(1) End

If CHAREDIT_VAR = 1 Then charaktereditor ()

Flip
Until KeyHit(1)
End

Function Maus_Text_Kollision(xPos,yPos,Text1$,AusrichtungX = 0,AusrichtungY = 0)

   Breite=StringWidth(Text1$)
   Hoehe =StringHeight(Text1$)
   If AusrichtungX  Then xPos =  xPos - Breite/2
   If AusrichtungY  Then yPos =  yPos - Hoehe/2
   
   If RectsOverlap(xPos,yPos,Breite,Hoehe,MouseX(),MouseY(),1,1) Then
    Rect xPos,yPos,Breite,Hoehe,0; Rahmen zur kontrolle
    Return True
    End If
   Return False

End Function

Function charaktereditor ()

DrawImage charmenue,0,0
Locate 260,190
name$=Input(\"\")
Locate 260,230
dorfname$=Input(\"\")
Text 30,350,\"Seid willkommen ,\"+name$
Text 300,350,\". Ihr habt nun das Dorf \"+dorfname$
Text 30,370,\"unter eurer Führung genommen. Nun hoffe ich,das ihr würdig seid, es zu vergrößern.\"
Text 30,390,\"geht weise mit euren Dukaten um, und achtet darauf, das euch keine Bewohner\"
Text 30,410,\"umkommen. Ihr müsst es schaffen, zum König aufzusteigen. Im moment seid ihr \"+name2$
Text 30,430,\"Wie dem auch sei, ich wünsche euch viel Erfolg bei eurer Regentschaft.\"
Text 30,450,\"Drückt Enter, um weiterzukommen.\"
If KeyHit(28) Then CHAREDIT_VAR = 0 

End Function

Function charaktereditor () 
	Cls
	Locate 260,190 
	name$=Input(\"\") 
	Locate 260,230 
	dorfname$=Input(\"\")
	FlushKeys()
	
	While Not KeyHit(28)
		Cls
		DrawImage charmenue,0,0 
 
		Color 255, 255, 255
		Text 30,350,\"Seid willkommen ,\"+name$ 
		Text 300,350,\". Ihr habt nun das Dorf \"+dorfname$ 
		Text 30,370,\"unter eurer Führung genommen. Nun hoffe ich,das ihr würdig seid, es zu vergrößern.\" 
		Text 30,390,\"geht weise mit euren Dukaten um, und achtet darauf, das euch keine Bewohner\" 
		Text 30,410,\"umkommen. Ihr müsst es schaffen, zum König aufzusteigen. Im moment seid ihr \"+name2$ 
		Text 30,430,\"Wie dem auch sei, ich wünsche euch viel Erfolg bei eurer Regentschaft.\" 
		Text 30,450,\"Drückt Enter, um weiterzukommen.\" 
		Flip
	Wend
	CHAREDIT_VAR = 0
End Function