hedgewars/uGears.pas
changeset 7400 09427dbec1d8
parent 7395 d0d38cd0d27c
child 7406 1fe2c821f9bf
equal deleted inserted replaced
7399:e7ce559d8c94 7400:09427dbec1d8
   204 while t <> nil do
   204 while t <> nil do
   205     begin
   205     begin
   206     curHandledGear:= t;
   206     curHandledGear:= t;
   207     t:= curHandledGear^.NextGear;
   207     t:= curHandledGear^.NextGear;
   208 
   208 
       
   209     if curHandledGear^.Message and gmRemoveFromList <> 0 then 
       
   210         begin
       
   211         RemoveGearFromList(curHandledGear);
       
   212         // since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block
       
   213         if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear);
       
   214         curHandledGear^.Message:= curHandledGear^.Message and not (gmRemoveFromList or gmAddToList)
       
   215         end;
   209     if curHandledGear^.Active then
   216     if curHandledGear^.Active then
   210         begin
   217         begin
   211         if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then
   218         if curHandledGear^.RenderTimer and (curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0) then
   212             begin
   219             begin
   213             FreeTexture(curHandledGear^.Tex);
   220             FreeTexture(curHandledGear^.Tex);