Dim attr(7)

attr(0) = 20
attr(1) = 20
attr(2) = 5
attr(3) = 5
attr(5) = 5                       
attr(6) = 5         
attr(7) = 5

Level=0

EP=0

Punkte=20

Repeat
Locate 150,0
Write "Dein Name:" Print Spielername$ Locate 500,0 Write "Dein Level:" Print Level
Print "---------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
Write "Deine Lebenspunkte:" Locate 300,35 Print attr1
Write "Dein Mana:" Locate 300,53 Print attr(1)
Write "Deine Stärke:" Locate 300,71 Print attr(2)
Write "Deine Intelligenz:" Locate 300,89 Print attr(3)
Write "Deine Geschicklichkeit:" Locate 300,107 Print attr(5)
Write "Deine Verteidigung:" Locate 300,125 Print attr(6)
Write "Dein Glück:" Locate 300,143 Print attr(7)
Print "-----------------------------------------------------------------------------------"
Write "Zur Aufwertung verfügte Punkte:" Locate 300, 179 Print Punkte
Print ""
Write "Erfahrung" Locate 300,215 Print EP
Print "Was möchtest du aufwerten?"
Aufwertung$ = Input("Du kann Lebenspunkte (L), Mana (M), Stärke (S), Intelligenz (L), Geschicklichkeit (Ge), Verteidigung (V) oder Glück (Gl) aufwerten")
If Aufwertung$ = L Then
attr(1) = attr(1) + 1 Punkte = Punkte - 1
If Aufwertung$ = M Then
attr(2) = attr(2) + 1 Punkte = Punkte - 1
Usw.. usw...
Else
Print "Du musst L, M, S, L, Ge, V oder Gl eintippen!"
WaitKey
EndIf
Cls
Until Punkte = 0

"Was möchtest du aufwerten?"
Aufwertung$ = Input("L")
If Aufwertung$ = L Then
attr(0) = attr(0) + 1 Punkte = Punkte - 1
Else
Print "neeein"
EndIf

"Was möchtest du aufwerten?"
Aufwertung$ = Input("L")
If Aufwertung$ = "L" Then
    attr(0) = attr(0) + 1
    Punkte = Punkte - 1
Else
Print "neeein"
EndIf

attr(0) = attr(0) + 1
Punkte = Punkte - 1

attr(0) = attr(0) + 1 : Punkte = Punkte - 1

Graphics 640, 480, 0,2
HidePointer
ClsColor 100,150,100


;Kachel erstellen
Global kachel = CreateImage(32,32)
SetBuffer ImageBuffer(kachel)
Color 50,50,200
Rect 0,0,32,32,1
Color 120,120,250
Line 0,0,0,30
Line 0,0,30,0
Color 10,10,100
Line 31,31,31,1
Line 31,31,1,31
SetBuffer BackBuffer()

;Variablen der "Kamere"
Global cam_x
Global cam_y
Global cam_speed = 4

;Die Tilemap wird hier erstellt
Dim tilemap(100,100)
For x = 0 To 99
For y = 0 To 99
tilemap(x,y) = 1
Next
Next

For x = 2 To 97
For y = 2 To 97
tilemap(x,y) = 0
Next
Next

For x = 6 To 93
For y = 6 To 93
tilemap(x,y) = Rand(0,1)
Next
Next


;Die Hauptschleife
While Not KeyHit(1)

Cam_Control()

DrawTileMap()

Flip:Cls

Wend

;Die Sichtbaren Tile werden gezeichnet
Function DrawTileMap()
cam_x_div = cam_x / 32
cam_y_div = cam_y / 32

;Malt 21*16 Tiles statt 100*100 Tiles
For x = cam_x_div To cam_x_div + 20
For y = cam_y_div To cam_y_div + 15

If tilemap(x,y) = 1
DrawImage kachel,x*32-cam_x,y*32-cam_y
End If
Next
Next

End Function


Function Cam_Control()
;Die Kamera wird hier mit Pfeiltasten gesteuert, Q und A beeinflussen den Speed
If KeyDown(203) Then cam_x = cam_x - cam_speed
If KeyDown(205) Then cam_x = cam_x + cam_speed
If KeyDown(200) Then cam_y = cam_y - cam_speed
If KeyDown(208) Then cam_y = cam_y + cam_speed
If KeyHit(16) And cam_speed < 10 Then cam_speed = cam_speed + 1
If KeyHit(30) And cam_speed > 1 Then cam_speed = cam_speed - 1

;Hier wird verhindert, dass die Kamera ausserhalb der Map gerät
If cam_x < 0 Then cam_x = 0
If cam_y < 0 Then cam_y = 0
If cam_x > 2560 Then cam_x = 2560
If cam_y > 2720 Then cam_y = 2720

End Function

Spielername$ = Input("Spielername eingeben:")
Spielerconfig = WriteFile("test.ini")
WriteString Spielerconfig, "Spielername$"
WriteByte Spielerconfig, attr(0) = 20