equal
deleted
inserted
replaced
2008 //////////////////////////////////////////////////////////////////////////////// |
2008 //////////////////////////////////////////////////////////////////////////////// |
2009 |
2009 |
2010 procedure doStepTarget(Gear: PGear); |
2010 procedure doStepTarget(Gear: PGear); |
2011 begin |
2011 begin |
2012 if (Gear^.Timer = 0) and (Gear^.Tag = 0) then |
2012 if (Gear^.Timer = 0) and (Gear^.Tag = 0) then |
|
2013 begin |
2013 PlaySound(sndWarp); |
2014 PlaySound(sndWarp); |
|
2015 // workaround: save spawn Y for doStepCase (which is a mess atm) |
|
2016 Gear^.Angle:= hwRound(Gear^.Y); |
|
2017 end; |
2014 |
2018 |
2015 if (Gear^.Tag = 0) and (Gear^.Timer < 1000) then |
2019 if (Gear^.Tag = 0) and (Gear^.Timer < 1000) then |
2016 inc(Gear^.Timer) |
2020 inc(Gear^.Timer) |
2017 else if Gear^.Tag = 1 then |
2021 else if Gear^.Tag = 1 then |
2018 Gear^.Tag := 2 |
2022 Gear^.Tag := 2 |