From 47c091672034720666ca036e181dcff494ba04ee Mon Sep 17 00:00:00 2001 From: mogguh Date: Fri, 23 Mar 2007 13:54:37 +0000 Subject: Some tidying in UGraphicClasses.pas (actually deleting an unused procedure) git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@19 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/UGraphicClasses.pas | 20 -------------------- 1 file changed, 20 deletions(-) (limited to 'Game/Code/Classes') diff --git a/Game/Code/Classes/UGraphicClasses.pas b/Game/Code/Classes/UGraphicClasses.pas index 6c131b50..d5eb44ab 100644 --- a/Game/Code/Classes/UGraphicClasses.pas +++ b/Game/Code/Classes/UGraphicClasses.pas @@ -38,7 +38,6 @@ type procedure Kill(index: Cardinal); procedure KillAll(); procedure SaveGoldenStarsRec(Xtop, Ytop, Xbottom, Ybottom: Real); - procedure SpawnNotePerfect(xPos,yPos : real); procedure SavePerfectNotePos(Xtop, Ytop: Real); end; @@ -183,25 +182,6 @@ for P:= 0 to high(RecArray) do end; -procedure TEffectManager.SpawnNotePerfect(xPos,yPos : real); -Var - Xkatze, Ykatze : Real; - RandomFrame : Integer; - P : Integer; // P as seen on TV as Positionman -begin -//Spawn a random amount of stars within the given coordinates -//RandomRange(0,14) <- this one starts at a random frame, 16 is our last frame - would be senseless to start a particle with 16, cause it would be dead at the next frame -for P:= 0 to 2 do - begin - Xkatze := RandomRange(ceil(xPos) - 5 , ceil(xPos) + 10); - Ykatze := RandomRange(ceil(yPos) - 5 , ceil(yPos) + 10); - RandomFrame := RandomRange(0,14); - Spawn(Xkatze, Ykatze, Tex_Note_Star.TexNum, 16 - RandomFrame, RandomFrame, -1, 2); - end; - draw; -end; - - procedure TEffectManager.Kill(Index: Cardinal); var LastParticleIndex : Cardinal; -- cgit v1.2.3