equal
deleted
inserted
replaced
3091 hogs := GearsNear(Gear^.X, Gear^.Y, gtHedgehog, Gear^.Radius); |
3091 hogs := GearsNear(Gear^.X, Gear^.Y, gtHedgehog, Gear^.Radius); |
3092 if hogs.size > 0 then |
3092 if hogs.size > 0 then |
3093 begin |
3093 begin |
3094 for i:= 0 to hogs.size - 1 do |
3094 for i:= 0 to hogs.size - 1 do |
3095 with hogs.ar^[i]^ do |
3095 with hogs.ar^[i]^ do |
3096 begin |
3096 if (hogs.ar^[i] <> CurrentHedgehog^.Gear) and (Hedgehog^.Effects[heFrozen] = 0) then |
3097 if hogs.ar^[i] <> CurrentHedgehog^.Gear then |
|
3098 begin |
3097 begin |
3099 dX:= _50 * cGravity * (Gear^.X - X) / _25; |
3098 dX:= _50 * cGravity * (Gear^.X - X) / _25; |
3100 dY:= -_450 * cGravity; |
3099 dY:= -_450 * cGravity; |
3101 Active:= true; |
3100 Active:= true; |
3102 end |
3101 end |
3103 end; |
|
3104 end ; |
3102 end ; |
3105 AfterAttack; |
3103 AfterAttack; |
3106 DeleteGear(Gear); |
3104 DeleteGear(Gear); |
3107 (* |
3105 (* |
3108 Gear^.X := Gear^.X + Gear^.dX; |
3106 Gear^.X := Gear^.X + Gear^.dX; |