I's just so simple, but ok, here You have:
procedure my_item_desc begin
display_msg("Item new desc");
end
...
procedure start begin
variable who, cur_dmg_thresh, cur_dmg_resist, color, msg, m;
if(game_loaded) then begin
register_hook_proc(HOOK_DESCRIPTIONOBJ, my_item_desc);
end...