equal
deleted
inserted
replaced
4238 exit; |
4238 exit; |
4239 end; |
4239 end; |
4240 |
4240 |
4241 if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then |
4241 if ((Gear^.Message and gmAttack) <> 0) and (hh^.Gear^.Health > 0) and (TurnTimeLeft > 0) then |
4242 begin |
4242 begin |
4243 i := getRandom(Length(graves)); |
4243 if Length(graves) >= Gear^.Tag then Gear^.Tag:= 0; |
4244 dec(hh^.Gear^.Health); |
4244 dec(hh^.Gear^.Health); |
4245 if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then |
4245 if (hh^.Gear^.Health = 0) and (hh^.Gear^.Damage = 0) then |
4246 hh^.Gear^.Damage:= 1; |
4246 hh^.Gear^.Damage:= 1; |
4247 RenderHealth(hh^); |
4247 RenderHealth(hh^); |
4248 inc(graves[i]^.Health); |
4248 inc(graves[Gear^.Tag]^.Health); |
|
4249 inc(Gear^.Tag) |
4249 {-for i:= 0 to High(graves) do begin |
4250 {-for i:= 0 to High(graves) do begin |
4250 if hh^.Gear^.Health > 0 then begin |
4251 if hh^.Gear^.Health > 0 then begin |
4251 dec(hh^.Gear^.Health); |
4252 dec(hh^.Gear^.Health); |
4252 inc(graves[i]^.Health); |
4253 inc(graves[i]^.Health); |
4253 end; |
4254 end; |