unit snake_m;

interface

uses creature_m;

procedure UpdateSnakeState(var cr: creature);

implementation

procedure UpdateSnakeState(var cr: creature);
begin
end;

end.