;Uhrzeit Funktion
Function ZeitBerechnen$(StartTime%)
     TimeInMillisekunden = MilliSecs()- StartTime%        ;Timer auf Null setzten
     Millisekunden%=  TimeInMillisekunden Mod 1000        ;Millisekunden(bei Tausend wird zurückgesetzt)
     Sekunden%= (TimeInMillisekunden /1000)Mod 60         ;Sekunden(bei 60 wird zurück gesetzt)
     Minuten% = (TimeInMillisekunden /1000/60)Mod 60      ;Minuten(bei 60 wird zurück gesetzt)
     Stunden% = (TimeInMillisekunden /1000/60/60)Mod 60   ;Stunden(bei 60 wird zurück gesetzt)
     Tage%    = (TimeInMillisekunden /1000/60/60/24)      ;Tage(wird nicht zurück gesetzt(Es gibt keine Jahre))
     Return Replace (RSet (Tage,3) +":"+RSet (Stunden,2) +":"+RSet (Minuten,2) +":"+RSet (Sekunden%,2)+","+RSet (Millisekunden%,4)," ",0)
End Function

;Wetter Funktion
Function LadeWetter()
DebugLog "Lade Wetter..."



End Function

;Spieler Status Anzeige
Function MaleSpielerStatus()
DebugLog "Male Spieler Status..."

;Level

Color 1,1,1                   ;Rahmen Usw.

Rect 0,440,640,60

Color 100,35,155

Line 50,475,Erfahrung#,475    ;Erfahrung# des Spielers

Color 125,125,125

Line 49,475,49,475
Line 50,474,600,474
Line 50,476,600,476
Line 601,475,601,475
Line 100,475,100,475
Line 150,475,150,475
Line 200,475,200,475
Line 250,475,250,475
Line 300,475,300,475
Line 350,475,350,475
Line 400,475,400,475
Line 450,475,450,475
Line 500,475,500,475
Line 550,475,550,475
Line 600,475,600,475

Color 80,80,80

Rect 365,445,29,24,1

Color 90,90,90

Rect 365,445,29,24,0

Color 115,115,115

Rect 366,446,27,22,0

Color 130,130,130

Rect 367,447,25,20,0


Color 80,80,80

Rect 454,445,29,24,1

Color 90,90,90

Rect 454,445,29,24,0

Color 115,115,115

Rect 455,446,27,22,0

Color 130,130,130

Rect 456,447,25,20,0


Color 80,80,80

Rect 410,445,29,24,1

Color 90,90,90

Rect 411,445,29,24,0

Color 115,115,115

Rect 412,446,27,22,0

Color 130,130,130

Rect 413,447,25,20,0

Color 255,5,5

Rect 0,440,640,40,0


Color 80,80,80

Rect 498,445,29,24,1

Color 90,90,90

Rect 498,445,29,24,0

Color 115,115,115

Rect 499,446,27,22,0

Color 130,130,130

Rect 500,447,25,20,0


Color 80,80,80

Rect 542,445,29,24,1

Color 90,90,90

Rect 542,445,29,24,0

Color 115,115,115

Rect 543,446,27,22,0

Color 130,130,130

Rect 544,447,25,20,0


Color 80,80,80

Rect 586,445,29,24,1

Color 90,90,90

Rect 586,445,29,24,0

Color 115,115,115

Rect 587,446,27,22,0

Color 130,130,130

Rect 588,447,25,20,0


Color 255,5,5

Rect 0,440,640,40,0

End Function

;Lautstärke Funktion
Function LautstaerkeButton
DebugLog "Lautstärke wurde verändert."

DrawImage LautsprecherBoutton,613,0,frmlaut

If RectsOverlap(613,0,28,23,MouseX(),MouseY(),1,1) Then
If mb>0 Then
frmlaut= (frmlaut+1) Mod 4                               ;Beim anklicken des Buttons verändert sie Frame(des Buttons).
EndIf
EndIf

If frmlaut=0 Then                                        ;Je nach dem wie hoch die Frame ist wird sie Lautstärke erhöht bzw. gesenkt.
volume#=1
Music=True
EndIf

If frmlaut=1 Then
volume#=0.7
EndIf

If frmlaut=2 Then
volume#=0.2
EndIf

If frmlaut=3 Then
volume#=0
EndIf

ChannelVolume Channel,volume#

End Function

;Speichern Funktion
Function Speichern
DebugLog "Spiel wird gespeicher..."

If KeyDown(1) Then
 ende=MilliSecs() 
  zeit=ende-start
 End
EndIf

If  MilliSecs() > tmrSpeichern + SpeicherAbstaende Then
      Text 10,10,"Wird gespeichert !"
      tmrSpeichern = MilliSecs()
      ChangeDir "C:\Program Files\the Atventur(2D)"
      Speicherplatz_1 = WriteFile("Sp_auto.save")
       WriteInt(Speicherplatz_1, Sp_Y#)                          ;Spieler Positionen
       WriteInt(Speicherplatz_1, Sp_X#)
       WriteString(Speicherplatz_1, MomentaneWelt)              
       WriteInt(Speicherplatz_1,WeltX#)                          ;Wie weit die Welt gescrollt ist.
       WriteInt(Speicherplatz_1,Wetter)
       WriteInt(Speicherplatz_1,ItemId_AusruestungBeine)
       WriteInt(Speicherplatz_1,ItemId_AusruestungGuertel)
       WriteInt(Speicherplatz_1,ItemId_AusruestungOberkoerper)
       WriteInt(Speicherplatz_1,ItemId_AusruestungKopf)
       WriteInt(Speicherplatz_1,ItemId_Waffen_Schwert)
       WriteInt(Speicherplatz_1,Items_im_Inventar)               ;ID's der Items
       WriteInt(Speicherplatz_1,Gold)
      CloseFile(Speicherplatz_1) 
EndIf

Return

End Function