LoL Frage ans PB Team

[Vera]

Hi Leuts,

eine nette Art und Weise eine Anfrage an's Team zu stellen

viel Spass mit der Question to Fred and/or Freak

~ Gruß Vera ~

[RSBasic]

Grafisch gut gelungen, schöner Texteffekt.

[NicTheQuick]

Ich habe noch eine alternative UpdateFlare-Procedure geschrieben. Mir hat die lineare Bewegung nicht gefallen.

Code: Alles auswählen

Procedure UpdateFlare(List Flares.Flares())
	
	ForEach Flares()
		
		DisplayTransparentSprite(0, GetFlaresX(Flares()), GetFlaresY(Flares()))
		
		If GetFlaresFlag(Flares()) = 1
		
			Protected deltaX.f = GetFlaresTX(Flares()) - GetFlaresX(Flares())
			Protected deltaY.f = GetFlaresTY(Flares()) - GetFlaresY(Flares())
			Protected speed.f = GetFlaresSpeed(Flares()) * 0.5 * (0.01 * Sqr(deltaX * deltaX + deltaY * deltaY) + 1)
			Protected angle.f = ATan2(deltaX, deltaY)
			
			SetFlaresX(Flares(), GetFlaresX(Flares()) + speed * Cos(angle))
			SetFlaresY(Flares(), GetFlaresY(Flares()) + speed * Sin(angle))
			
			If (Abs(deltaX) < 1 And Abs(deltaY) < 1)
				SetFlaresFlag(Flares(), 0)
			EndIf
		EndIf
		
	Next
	
EndProcedure

[Vera]

Ou jaa Nic,

das saugt einen richtig rein und dann wuselt es rum