equal
deleted
inserted
replaced
127 @doStepHammerHit, |
127 @doStepHammerHit, |
128 @doStepResurrector, |
128 @doStepResurrector, |
129 @doStepNapalmBomb, |
129 @doStepNapalmBomb, |
130 @doStepSnowball, |
130 @doStepSnowball, |
131 @doStepSnowflake, |
131 @doStepSnowflake, |
132 @doStepPlaceStructure |
132 @doStepPlaceStructure, |
|
133 @doStepLandGun |
133 ); |
134 ); |
134 |
135 |
135 procedure InsertGearToList(Gear: PGear); |
136 procedure InsertGearToList(Gear: PGear); |
136 var tmp, ptmp: PGear; |
137 var tmp, ptmp: PGear; |
137 begin |
138 begin |
261 end; |
262 end; |
262 |
263 |
263 gtFlake: begin |
264 gtFlake: begin |
264 with Gear^ do |
265 with Gear^ do |
265 begin |
266 begin |
|
267 Radius:= 1; |
266 DirAngle:= random * 360; |
268 DirAngle:= random * 360; |
267 dx.isNegative:= GetRandom(2) = 0; |
269 dx.isNegative:= GetRandom(2) = 0; |
268 dx.QWordValue:= GetRandom(100000000); |
270 dx.QWordValue:= GetRandom(100000000); |
269 dy.isNegative:= false; |
271 dy.isNegative:= false; |
270 dy.QWordValue:= GetRandom(70000000); |
272 dy.QWordValue:= GetRandom(70000000); |
493 end; |
495 end; |
494 gtFlamethrower: begin |
496 gtFlamethrower: begin |
495 gear^.Tag:= 10; |
497 gear^.Tag:= 10; |
496 gear^.Timer:= 10; |
498 gear^.Timer:= 10; |
497 gear^.Health:= 500; |
499 gear^.Health:= 500; |
|
500 gear^.Damage:= 100; |
|
501 end; |
|
502 gtLandGun: begin |
|
503 gear^.Tag:= 10; |
|
504 gear^.Timer:= 10; |
|
505 gear^.Health:= 1000; |
498 gear^.Damage:= 100; |
506 gear^.Damage:= 100; |
499 end; |
507 end; |
500 gtPoisonCloud: begin |
508 gtPoisonCloud: begin |
501 gear^.Timer:= 5000; |
509 gear^.Timer:= 5000; |
502 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000; |
510 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000; |