anchor.diff:  
   constructor TStageDialog.Create;
   begin
  +  inherited;
  +  Top := 23;
     FLinkList := TLinks.Create;
   end;
   
  
positive.code:       Saga.Engine.GetTextLength(Saga.Dialog.CloseTag)) = Saga.Dialog.CloseTag)
      then
        S := Close;
      Saga.UI.DrawKey(35, I + 25, Trim(N + ' ' + S), Format('%d', [I + 1]));
    end;
  end;
  
  procedure TStageDialog.Update(var Key: Word);
  begin
    case Key of
      TK_1 .. TK_5: // 1..5
        begin
          if (Key - TK_1 > LinkList.Count - 1) or (Key < TK_1) then
  
negative.code: 
  procedure TStageDialog.Render;
  var
    I, Color: Integer;
    S, N, Close: string;
  begin
    Self.Count := LinkList.Count;
    for I := 0 to Count - 1 do
    begin
      Saga.Engine.ForegroundColor(Saga.Colors.clTitle);
      if (I = MenuPos) then
      begin
        RenderCursor(I + Top + 2, Saga.Colors.clCursor);
        Saga.Engine.ForegroundColor(Saga.Colors.clMenuAct);
      end
      else
        Saga.Engine.ForegroundColor(Saga.Colors.clMenuDef);
    end;
    Saga.Engine.ForegroundColor(Saga.World.CurrentCreatures.GetEntity(ID).Color);
    Saga.Engine.Print(0, 9, __(Saga.World.CurrentCreatures.GetEntity(ID)
      .Name), aCenter);
  