;Mit der Agilitätsfunktion wird die ansteigende Agilität von Held (Held1Icon) und Monster (Monster1Icon)
;auf dem AgiBalken dargestellt.
;Beim Beispiel wird dabei von Held1\Agilitaet=10 und Monster1\Agilitaet=7 ausgegangen



Function Agilitaet()

	Monster1AgilitaetMom#=Float(Monster1\AgilitaetMom)	;Monster1AgilitaetMom# wird von mir benutzt um die Rechnung beim Monster mit Float zu ermöglichen

While Agilitaet=0
	
	Held1\AgilitaetMom = Held1\AgilitaetMom+1		;Agilität des Helden steigt um 1 Pixel
	
	Monster1AgilitaetMom# = Monster1AgilitaetMom# + Float(Monster1\Agilitaet) / Float(Held1\Agilitaet)	;Agilität des Monsters steigt um 0,7 Pixel
	Monster1\AgilitaetMom = Monster1AgilitaetMom#								;um Monsteragilität darzustellen wird abgerundet
														;der Wechsel zur Type-Variable hängt mit 
														;dem weiteren Prog zusammen
	If Held1\AgilitaetMom>398 And Agilitaet=0 Then 		;Bedingungen wenn Heldagilität ende des Balkens erreicht
	Agilitaet=1						;die Werte hängen mit der Position auf dem Bildschirm zusammen (siehe unten)
	Held1\AgilitaetMom=399
	EndIf
	Color 255,0,0
	Text 0,0,Monster1AgilitaetMom#
	
	
	If Monster1\AgilitaetMom>398 And Agilitaet=0 Then 	;Bedingungen wenn Monsteragilität ende des Balken erreicht
	Agilitaet=5
	Monster1\AgilitaetMom=399
	EndIf	
	
	
	DrawBlock Hintergrund, 0, 0
	DrawImage Held1Attack,580,200,0
	DrawImage Monster1Attack,60,200,0
	DrawImage AgiBalken,209,20
	DrawImage Monster1Icon,Monster1\AgilitaetMom,15		;Darstellung des Monsters auf dem Balken
	DrawImage Held1Icon,Held1\AgilitaetMom,15		;Darstellung des Monsters auf dem Balken
	
	Color 0,0,0						;====unwichtig=====
	Rect (580,250,32,2,1)					;
	Color 0,255,0						;
	Rect (580,250,32*Held1\HP/Held1\HPmax,2,1)		;
								;
	If Held1\MPmax>0 Then					;
	Color 0,0,0						;
	Rect (580,252,32,2,1)					;
	Color 75,75,255						;
	Rect (580,252,32*Held1\MP/Held1\MPmax,2,1)		;
	End If							;====ENDE==========
	
	Delay 50						;pause um den Lauf von Held- u. Monsteragilität darstellen zu können
	Flip
	
	Wend

End Function

Graphics 320,240,16,1
zeit=MilliSecs()
SetBuffer BackBuffer()
Repeat
ClsColor 255,255,255
Cls
Color 0,0,0
Rect 50,116,200,8,1           ; Malen des schwarzen Balkens (entspricht Agibalken)
;--------------------------
;-------BERECHNUNG---------
If MilliSecs()-zeit > 1 Then        
   zeit=MilliSecs()      
   x_rot=x_rot+1                               ;nach 1 oder mehr bewegt sich rot                        
   timer=timer+1                               ;timer alle milisekunden erhöht
   If timer>2 Then  x_blau=x_blau+1            ;nach 2 oder mehr bewegt sich blau
   If timer>3 Then x_gruen=x_gruen+1 : timer=0 ;nach 3 millisekunden bewegt sich grün
     
      
     
EndIf
If x_rot=196 Then x_rot=0         ; wenn Ende vom schwarzen Balken erreicht
If x_gruen=196 Then x_gruen=0     ; wird der jeweilige Block
If x_blau=196 Then x_blau=0       ; wieder an den Startpunkt gesetzt
;------------------------

Color 0,0,255                     ; ----------------------------------
Rect 50+x_blau,124,4,6,1          ;           DARSTELLUNG
Color 255,0,0                     ;         der jeweiligen
Rect 50+x_rot,110,4,6,1           ;       Rechtecke inlusive
Color 0,255,0                     ;     Verschiebung durch Zeit
Rect 50+x_gruen,110,4,6,1         ; ----------------------------------


Flip
Until KeyHit(1)

;-------BERECHNUNG---------
If MilliSecs()-zeit > 1  Then    
      
   x_rot=x_rot+3                                                   
   x_blau=x_blau+2                            
   x_gruen=x_gruen+1
   zeit=MilliSecs()
   If x_rot>196 Then x_rot=0         ; wenn Ende vom schwarzen Balken erreicht
   If x_gruen>196 Then x_gruen=0     ; wird der jeweilige Block
   If x_blau>196 Then x_blau=0       ; wieder an den Startpunkt gesetzt
EndIf

;------------------------