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