equal
deleted
inserted
replaced
361 procedure doStepPickHammerWork(Gear: PGear); |
361 procedure doStepPickHammerWork(Gear: PGear); |
362 var i, ei: integer; |
362 var i, ei: integer; |
363 HHGear: PGear; |
363 HHGear: PGear; |
364 begin |
364 begin |
365 AllInactive:= false; |
365 AllInactive:= false; |
|
366 HHGear:= PHedgehog(Gear.Hedgehog).Gear; |
366 dec(Gear.Timer); |
367 dec(Gear.Timer); |
367 if (Gear.Timer = 0)or((Gear.Message and gm_Destroy) <> 0) then |
368 if (Gear.Timer = 0)or((Gear.Message and gm_Destroy) <> 0)or((HHGear.State and gstHHDriven) = 0) then |
368 begin |
369 begin |
369 DeleteGear(Gear); |
370 DeleteGear(Gear); |
370 AfterAttack; |
371 AfterAttack; |
371 exit |
372 exit |
372 end; |
373 end; |
373 HHGear:= PHedgehog(Gear.Hedgehog).Gear; |
|
374 if (Gear.Timer and $3F) = 0 then |
374 if (Gear.Timer and $3F) = 0 then |
375 begin |
375 begin |
376 i:= round(Gear.X) - Gear.Radius - GetRandom(2); |
376 i:= round(Gear.X) - Gear.Radius - GetRandom(2); |
377 ei:= round(Gear.X) + Gear.Radius + GetRandom(2); |
377 ei:= round(Gear.X) + Gear.Radius + GetRandom(2); |
378 while i <= ei do |
378 while i <= ei do |